15问答网 > 随机产生N个两个正整数，求出其中的最大值和最小数，并在标签上显示最大值和最小值的差（用VB）

随机产生N个两个正整数，求出其中的最大值和最小数，并在标签上显示最大值和最小值的差（用VB）

求详细解答编程和每一个步骤的讲解谢谢啦

2025-04-02 07:00:17

推荐回答（1个）

回答1：

Dim a As Integer
Dim b As Integer
Private Sub Command1_Click()
    Randomize
    a = Int(Rnd * 100 + 10)
    Randomize
    b = Int(Rnd * 100 + 10)
    If a > b Then
        MsgBox "大的数字是" & a & ",小的数字是" & b
    Else
        MsgBox "大的数字是" & b & ",小的数字是" & a
    End If
    Label1.Caption = Abs(a - b)
End Sub