多行if语句
Private Sub Command1_Click()
a = Text3
b = Text4
Text1.Text = Int(Rnd * (a - 1 + 1) + 1)
Text2.Text = Int(Rnd * (b - 1 + 1) + 1)
End Sub
单行else语句
步骤阅读
三个随机数 输出最大数
随机三个数 输出最大数
比较三个数的大小方法一
比较三个数的大小方法
if 嵌套比较三个数大小
Private Sub Command1_Click()
Form1.Cls
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim max As Integer
Randomize
a = Int(Rnd * 100)
b = Int(Rnd * 100)
c = Int(Rnd * 100)
Print "三个随机数是"; a; b; c
If a > b Then
If a > c Then
Print "最大值是"; a
Else
Print "最大值是"; c
End If
Else
If c < b Then
Print "最大值是"; b
Else
Print "最大值是"; c
End If
End If
End Sub
网友评论