Question

vb 如何实现command1两次点击，依次出现不同结果

设计一个掷硬币的游戏，前后掷两次硬币，依次显示每次掷硬币的结果。
Private Sub Command1_Click()
a = Int(Rnd * 2)
If a = 0 Then Text1.Text = "反面" Else Text1.Text = "正面"
b = Int(Rnd * 2)
If b = 0 Then Text2.Text = "反面" Else Text2.Text = "正面"
End Sub
自己写的，没有依次出现的效果。
我想第一次按command1，text1显示正面或反面，text2无显示；
第二次按command1，text1不变，text2显示正面或反面；
第三次按command1，text1和text2清空；
以后依次循环，求教！

Answer 1

在command的click事件中 加入一个 static 变量，
Static num as Integer
num=num+1
然后 你通过num值去判断出现的文字。用select语句、数组结合下标都行

Answer 2

Private Sub Command1_Click()
    Randomize
    Text1.Text = Text1.Text & IIf(Int(Rnd * 2), "正", "反") & "面" & vbCrLf
    Text2.Text = Text2.Text & IIf(Int(Rnd * 2), "正", "反") & "面" & vbCrLf
End Sub

追问

自己写的，没有依次出现的效果。
我想第一次按command1，text1显示正面或反面，text2无显示；
第二次按command1，text1不变，text2显示正面或反面；
第三次按command1，text1和text2清空；
以后依次循环，求教！

追答

Private Sub Command1_Click()
    Randomize
    If Text1.Text = "" Then
        Text1.Text = IIf(Int(Rnd * 2), "正", "反") & "面"
    ElseIf Text2.Text = "" Then
        Text2.Text = IIf(Int(Rnd * 2), "正", "反") & "面"
    Else
        Text1.Text = ""
        Text2.Text = ""
    End If
End Sub