VB6.0怎么找最大數(shù)和最小數(shù)? VB搜索最大值和最小值的技巧
我要評論VB6.0找出若干個數(shù)中最大的數(shù)？有一個數(shù)組，里面有若干個數(shù)，想要找出最大數(shù)和最小數(shù)，該怎么實現(xiàn)呢？下面我們就來看看VB6.0編程實現(xiàn)搜索最大(最小)數(shù)，并進行輸出的過程：
在若干個數(shù)中求最大值，一般先假設(shè)一個較小的數(shù)為最大值的初值，若無法估計較小的值，則取第一個數(shù)為最大值的初值；然后將每一個數(shù)與最大值比較，若該數(shù)大于最大值，將該數(shù)替換為最大值；依次逐一比較。
接下來就用VB6.0先隨機產(chǎn)生10個100～200之間的數(shù)，然后求最大值。
打開VB6.0，新建一個工程，在窗體中添加兩個命令按鈕，caption分別改為“求最大值”和“求最小值”，添加一個標簽控件，將名字改為Lbl1，將窗體Form1的caption屬性改為“求數(shù)組最大最小值”，將界面設(shè)置成下圖：
雙擊“求最大值”命令按鈕，進入代碼編輯窗口，輸入如下代碼：
Max = 100 '最小值選定一個較小值 Randomize For i = 1 To 10 x = Int(Rnd * 101 + 100) Lbl1.Caption = Lbl1.Caption & x & " " If x > Max Then Max = x Next i Print Print "最大值="; Max
雙擊“求最小值”命令按鈕，進入代碼編輯窗口，輸入如下代碼：
Min = 200 '最小值選定一個較小值 Randomize For i = 1 To 10 x = Int(Rnd * 101 + 100) Lbl1.Caption = Lbl1.Caption & x & " " If x < Min Then Min = x Next i Print Print "最小值="; Min
關(guān)閉代碼窗口，按下F5運行程序，單擊“求最大值”命令按鈕，在標簽中產(chǎn)生10個100到200之間的隨機數(shù)，在窗體中輸出最大值，如圖：
關(guān)閉代碼窗口，按下F5運行程序，單擊“求最小值”命令按鈕，在標簽中產(chǎn)生10個100到200之間的隨機數(shù)，在窗體中輸出最小值，如圖：
這樣就可以完成數(shù)組中最大數(shù)與最小數(shù)的搜索與顯示。
注意事項：
在若干個數(shù)中求最大值，一般先假設(shè)一個較小的數(shù)為最大值的初值。
在若干個數(shù)中求最小值，一般先假設(shè)一個較大的數(shù)為最小值的初值。
以上就是VB6.0找出若干個數(shù)中最大的數(shù)的技巧，希望大家喜歡，請繼續(xù)關(guān)注腳本之家。
相關(guān)推薦：
相關(guān)文章
VB6.0代碼怎么設(shè)置某個控件的屬性？VB6.0想要設(shè)置控件屬性，該怎么設(shè)置呢？我們可以通過代碼來設(shè)置，下面我們就來看看詳細的教程，需要的朋友可以參考下2019-02-16
VB6.0項目怎么添加用戶控件？VB6.0編程開發(fā)的時候，想要添加用戶控件，該怎么添加呢？下面我們就來看看詳細的教程，需要的朋友可以參考下2019-02-13
VB6.0過程屬性怎么設(shè)置？VB6.0中想要設(shè)置過程屬性，該怎么設(shè)置呢？下面我們就來看看VB6.0設(shè)置過程屬性的教程，很簡單，需要的朋友可以參考下2019-01-31
VB6.0怎么設(shè)置窗口平鋪方式？VB6.0中的窗口，想要設(shè)置成平鋪的方式，該怎么設(shè)置呢？下面我們就來看看VB6.0窗口平鋪的教程，需要的朋友可以參考下2019-01-31
VB6.0工具箱怎么添加拓展控件快捷方式？VB6.0想要要將常用的空間添加到工具箱中方便使用，該怎么添加呢？下面我們就來看看詳細的教程，需要的朋友可以參考下2018-10-11
VB6.0怎么編程窗體卸載事件？VB6.0想要編寫一個窗體卸載事件，該怎么編寫呢？下面我們就來看看詳細的教程，很簡單，需要的朋友可以參考下2018-10-08
VB6.0代碼怎么添加注釋語句？VB6.0編程開發(fā)的時候，想要給代碼添加注釋語句，該怎么添加注釋呢？下面我們就來看看詳細的教程，需要的朋友可以參考下2018-10-08
VB6.0怎么定義一個字符串變量？VB6.0中想要定義變量，該怎么定義字符串變量恩？下面我們就來看看詳細的教程，需要的朋友可以參考下2018-09-27
VB6.0把普通窗體怎么改成MDI窗體？VB6.0中想要修改窗體，該怎么將普通窗體改成MDI窗體呢？下面我們就來看看詳細的教程，需要的朋友可以參考下2018-09-27
VB6.0怎么制作菜單？VB6.0中想要制作一個菜單，該怎么編輯菜單呢？下面我們就來看看VB6.0菜單的制作方法，需要的朋友可以參考下2018-09-27
