今天用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 可調整自己要的字

完成後如下

創作者介紹
創作者 ip612256374 的頭像
ip612256374

↖Ι n V a D e R ╮

ip612256374 發表在 痞客邦 留言(0) 人氣()