久久综合给合久久狠狠狠974色|亚洲成熟丰满熟妇高潮xxxxx|国产又黄又黄又大又粗又爽的视频|日韩久久久精品无码一区二区三区|中文字幕无码乱人伦一区二区三区|国产成人无码区免费内射一片色欲|亚洲av无码久久精品一区二区三区

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)注我,點擊下方的廣告可以更好的支持和鼓勵我哦!