VB6.0怎么找最大數(shù)和最小數(shù)? VB搜索最大值和最小值的技巧

發(fā)布時(shí)間：2022-02-07 16:51:43 作者：佚名

VB6.0怎么找最大數(shù)和最小數(shù)？VB6.0想要一組數(shù)據(jù)中快速搜索到最大數(shù)和最小數(shù)，我們可以使用vb6.0來(lái)實(shí)現(xiàn)，下面我們就來(lái)看看VB搜索最大值和最小值的技巧

VB6.0找出若干個(gè)數(shù)中最大的數(shù)？有一個(gè)數(shù)組，里面有若干個(gè)數(shù)，想要找出最大數(shù)和最小數(shù)，該怎么實(shí)現(xiàn)呢？下面我們就來(lái)看看VB6.0編程實(shí)現(xiàn)搜索最大(最小)數(shù)，并進(jìn)行輸出的過(guò)程：

在若干個(gè)數(shù)中求最大值，一般先假設(shè)一個(gè)較小的數(shù)為最大值的初值，若無(wú)法估計(jì)較小的值，則取第一個(gè)數(shù)為最大值的初值；然后將每一個(gè)數(shù)與最大值比較，若該數(shù)大于最大值，將該數(shù)替換為最大值；依次逐一比較。

VB 6.0中文企業(yè)版免費(fèi)下載(206M)

類型：編譯工具
大?。?/span>206MB
語(yǔ)言：簡(jiǎn)體中文
時(shí)間：2020-01-08

查看詳情

接下來(lái)就用VB6.0先隨機(jī)產(chǎn)生10個(gè)100～200之間的數(shù)，然后求最大值。

打開(kāi)VB6.0，新建一個(gè)工程，在窗體中添加兩個(gè)命令按鈕，caption分別改為“求最大值”和“求最小值”，添加一個(gè)標(biāo)簽控件，將名字改為L(zhǎng)bl1，將窗體Form1的caption屬性改為“求數(shù)組最大最小值”，將界面設(shè)置成下圖：

雙擊“求最大值”命令按鈕，進(jìn)入代碼編輯窗口，輸入如下代碼：

Max = 100 '最小值選定一個(gè)較小值
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

雙擊“求最小值”命令按鈕，進(jìn)入代碼編輯窗口，輸入如下代碼：

Min = 200 '最小值選定一個(gè)較小值
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