本文提供了一个VBScript示例代码，展示了如何生成两个随机整数并比较它们的大小。通过简单的界面输出，帮助初学者理解条件语句和随机数生成的基本用法。
Private Sub Command1_Click()
Cls
Me.Font.Size = 70
Dim a As Integer, b As Integer
a = Int(Rnd * 1000)
b = Int(Rnd * 1000)
If a < b Then
Me.Text1.Text = "a<b"
Else
End If
Print a & "," & b
End Sub
Cls
Me.Font.Size = 70
Dim a As Integer, b As Integer
a = Int(Rnd * 1000)
b = Int(Rnd * 1000)
If a < b Then
Me.Text1.Text = "a<b"
Else
End If
Print a & "," & b
End Sub
扫一扫
3661
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
