↖Ι n V a D e R ╮

今天用VB 做了一個 猜數字的小程式

需要 一個 按鈕 就夠了 其他可自行附加


以下為程式碼
Public Class 猜數字

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Guess As Integer
Guess = Val(InputBox("請輸入數字1-100"))
Do Until Guess = 66 '66為答案
If Guess > 66 Then
MsgBox("猜小一點") '猜太大了，提示使用者猜小一點
Guess = Val(InputBox("請輸入數字1-100"))
Else
MsgBox("猜大一點") '猜太小了，提示使用者猜大一點
Guess = Val(InputBox("請輸入數字1-100"))
End If
Loop
MsgBox("恭喜，猜中了")
MsgBox("浤珉說，很強歐")
End Sub
End Class

密碼預設為 66
MsgBox 可調整自己要的字

完成後如下