15问答网 > VB 用 Do While 语句编写随机产生10个100-200之间的数,求最大值.

VB 用 Do While 语句编写随机产生10个100-200之间的数,求最大值.

2025-04-13 18:00:55

推荐回答（1个）

回答1：

Private Sub Form_Click()
    Dim n, a, max As Integer
    n = 1
    max = Int(Rnd * 101 + 100)
    Print max;
    Do
        n = n + 1
       a = Int(Rnd * 101 + 100)
       Print a;
       If a > max Then max = a
    Loop While n < 10
    Print
    Print max
End Sub

VB 用 Do While 语句 编写 随机产生10个100-200之间的数,求最大值.

VB 用 Do While 语句编写随机产生10个100-200之间的数,求最大值.