本文提供了一个使用VBScript编写的简单示例程序，该程序生成两个随机整数并根据大小进行交换，确保第一个数始终大于等于第二个数。通过此示例可以了解基本的VBScript语法，包括随机数生成、变量声明及条件判断等。
Private Sub Command1_Click()
Cls
Me.Font.Size = 50
Dim a As Integer
Dim b As Integer
Dim swap As Integer
a = Int(Rnd * 1000)
b = Int(Rnd * 1000)
If a < b Then
swap = a
a = b
b = swap
End If
Print a & "," & b
End Sub
Cls
Me.Font.Size = 50
Dim a As Integer
Dim b As Integer
Dim swap As Integer
a = Int(Rnd * 1000)
b = Int(Rnd * 1000)
If a < b Then
swap = a
a = b
b = swap
End If
Print a & "," & b
End Sub
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
