作业帮 > 综合 > 作业

用VB做 1.随机产生10个正整数,求其中的最小值,并将原始数据和最小值显示在窗体中.

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/05/17 00:59:58
用VB做 1.随机产生10个正整数,求其中的最小值,并将原始数据和最小值显示在窗体中.
Private Sub Form_Click()
Randomize
Min = 1000
For i = 1 To 10
a = Int(Rnd() * 100)
If Min > a Then Min = a
Print a;
If i Mod 5 = 0 Then Print
Next
Print "这些数中的最小数是:"; Min
End Su