酷祥資訊部落格

關於部落格
遊戲、資訊
  • 88289

    累積人氣

  • 2

    今日人氣

    0

    訂閱人氣

猜數字遊戲



兩個Command 一個Text



Public A As Integer
Public B As Integer
Private Sub Command1_Click()
  B = 7
  Randomize
  A = Int(Rnd() * 100) + 1
End Sub
Private Sub Command2_Click()
  If A = Text1 Then
     MsgBox "答對"
  ElseIf A < Text1 Then
     B = B - 1
     MsgBox "請在小於,你還有" & B & "次"
  ElseIf A > Text1 Then
     B = B - 1
     MsgBox "請在大於,你還有" & B & "次"
  End If
  If B = 0 Then
     MsgBox "答案是" & A
     End
  End If
End Sub

Private Sub Form_Load()
Command1.Caption = "遊戲開始"
Command2.Caption = "猜數字"
Text1 = "請輸入數字"
End Sub

相簿設定
標籤設定
相簿狀態