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