UC知道vb问题，小弟想请教一下各位
来源：百度知道 编辑：UC知道 时间：2024/05/02 09:02:39
遇见一个的问题
Private Sub Command1_Click()
Dim i, a
Randomize
For i = 1 To 100
a = Int(Rnd * 81 + 20)
Picture1.Print a;
If i Mod 10 = 0 Then Picture1.Print
b = a
If c < b Then b = c: c = a
Label1 = c
Next i
End Sub
本人想要建立一个 label2，并且在label2 中输出这100 个数字中最小的一个 请问如何写代码
Private Sub Command1_Click()
Dim i, a
Randomize
For i = 1 To 100
a = Int(Rnd * 81 + 20)
Picture1.Print a;
If i Mod 10 = 0 Then Picture1.Print
b = a
If c < b Then b = c: c = a
Label1 = c
Next i
End Sub
本人想要建立一个 label2，并且在label2 中输出这100 个数字中最小的一个 请问如何写代码
Private Sub Command1_Click()
Dim i, a, min
Randomize
min = 200
For i = 1 To 100
a = Int(Rnd * 81 + 20)
Picture1.Print a;
If i Mod 10 = 0 Then Picture1.Print
If a < min Then min = a
b = a
If c < b Then b = c: c = a
Label1 = c
Next i
Label2.Caption = min
End Sub
Private Sub Command1_Click()
Dim i As Integer, a As Integer, Mi As Integer
Randomize
For i = 1 To 100
a = Int(Rnd * 81 + 20)
If i = 1 Then Mi = a
If a < Mi Then Mi = a
Picture1.Print a;
If i Mod 10 = 0 Then Picture1.Print
Next i
Label2.Caption = Str(Mi)
End Sub
真可笑,两个一样