多行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語句
步驟閱讀
三個(gè)隨機(jī)數(shù) 輸出最大數(shù)
隨機(jī)三個(gè)數(shù)? 輸出最大數(shù)
比較三個(gè)數(shù)的大小方法一
比較三個(gè)數(shù)的大小方法
if 嵌套比較三個(gè)數(shù)大小
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 "三個(gè)隨機(jī)數(shù)是"; 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
