11.6 猜数字VBA代码

笨巧果发表于: 2010-11-06 21:58 来源: 扑奔PPT网

Dim temp As Integer
Private Sub 开始_Click()
If 开始.Caption = "开始" Then
开始.Caption = "猜一猜"
数字.Text = ""
大小.Caption = ""
Randomize
temp = Int(Rnd * 100)
Else
If 数字.Text = "" Then MsgBox "您没有输入内容！": Exit Sub
      If temp > Val(数字.Text) Then
         大小.Caption = "小了！"
      ElseIf temp < Val(数字.Text) Then
         大小.Caption = "大了！"
      Else
         大小.Caption = "正确！"
         开始.Caption = "开始"
      End If
End If
End Sub

大家对 11.6 猜数字VBA代码的评论

jack0421 发表于 2010-11-06 22:00:26: Dim temp As Integer
Private Sub 开始_Click()
If 开始.Caption = "开始" Then
      开始.Caption = "猜一猜"
      数字.Text = ""
      大小.Caption = ""
      Randomize
      temp = Int(Rnd * 100)
Else
      If 数字.Text = "" Then MsgBox "您没有输入内容！": Exit Sub
      If temp > Val(数字.Text) Then
         大小.Caption = "小了！"
      ElseIf temp < Val(数字.Text) Then
         大小.Caption = "大了！"
      Else
         大小.Caption = "正确！"
         开始.Caption = "开始"
      End If
End If
End Sub
tangqingfu 发表于 2011-4-12 19:06:40: 谢谢二位的分享！