vb如何比較多個數字的大小

例如，比較A、B、C和D四個數字的大小，取Xmin=最小的數字。例如:1，2，3，4，則xmin = 1；如果1，2，0，3，Xmin=1，當全為零時，Xmin=0。

構建新項目

在上面構建了壹個text1並制作了三個副本，生成了控制數據。

只需按另壹個按鈕並復制以下代碼。測試中沒有問題。

dim a（4）‘定義了壹個數組

私有子命令1_Click（）

對於j = 1到4

a（j）= text 1（j-1）。

min = a（1）

flag = 1

對於i = 2到4

a（I）= text 1（I-1）。文本

if Min》gt；那麽是我

如果最小值= 0，則

min = a（I）

如果…就會結束

如果a（I）= 0，則

最小值=最小值

如果…就會結束

min = a（I）

flag = i

如果…就會結束

接下來我

下壹個j

MsgBox最小值

末端接頭

測試沒有問題。

如果不想使用控件數組，請構建四個文本框並編寫壹個（1）= text 1 . text。

a（2）= text 2 . text……