欧美一区精品二区三区|不卡国产丝袜在线观看|亚洲色中文字幕无码av|欧美色综合高清视频在线|亚洲欧美日韩丝袜另类一区|无码国产手机在线a√片无|国产精品主播福利大秀小视频|精品国产一区二区三区无码动图

VB小程序,猜數(shù)字游戲!

2021-02-27 06:40:54  閱讀:-  來源:

VB小程序,關(guān)注我有更多的有趣的VB小程序

實現(xiàn)功能:程序啟動時隨機產(chǎn)生1個到500之內(nèi)的正整數(shù),在Textbook框內(nèi)輸入你猜的數(shù)字,試試看你能幾次猜中,如果10次沒有猜中,Command按鈕就變換灰色

控件:一個TextBox文本框,兩個Label標(biāo)簽,一個Command命令按鈕

界面:

VB小程序,猜數(shù)字游戲

VB小程序,猜數(shù)字游戲

代碼:

Option Explicit

Dim num As Integer

Dim i As Integer

Private Sub Command1_Click()

If i > 10 Then

Command1.Enabled = False

MsgBox "你已猜了多次,游戲結(jié)束,沒有猜中"

Exit Sub

End If

If Text1.Text = "" Or Not IsNumeric(Text1.Text) Then‘text1為空或者非數(shù)字就進行提示

MsgBox "請輸入數(shù)字!"

Else

If Val(Text1.Text) > num Then

Label2.Caption = "太大了,請重新輸入!"

Text1.Text = ""

i = i + 1

ElseIf Val(Text1.Text) = num Then

Label2.Caption = "恭喜你,你猜對了!" & "你共猜了" & Str(i) & "次"

i = i + 1

Else

Label2.Caption = "太小了,請重新輸入!"

i = i + 1

Text1.Text = ""

Text1.SetFocus

End If

End If

End Sub

Private Sub Form_Load()

Command1.Caption = "猜數(shù)"

Randomize’每次啟動時生成的隨機數(shù)不一樣

i = 0

num = Int(Rnd * 500) + 1‘生成隨機數(shù)

End Sub

想得到更多的VB小程序,請關(guān)注我,點擊下方的廣告可以更好的支持和鼓勵我哦!