VB中随机数案例练习【VB学习笔记2020课堂版07】

简介 INTRODUCTION通过一个小游戏实战，来综合复习基础知识，特别是随机数的灵活使用

课题7 随机数案例练习

授课：刘金玉

猜猜我是几小游戏:

知识要点：

1.随机数知识

2.弹出框inputbox

3.窗体启动加载事件form_load

4.消息提示框msgbox

5.相关控件：label、commandbutton、picturebox、textbox、listbox

6.相关逻辑：if语句大小判断

思路分析步骤：

1.在form_load事件中使用inputbox用来输入密码

2.判断输入密码正确，就进入界面，否则就不能进入游戏界面

3.将生成的随机数存储到全局变量中（通用中）

4.猜解的时候，将输入的数字转为数值类型与生成的随机数比较

5.比较判断大小，将结果提示输出到日志区（picturebox）

6.每次猜解成功后，将猜解次数保存到listbox列表中

开发过程要点：

1.生成[1,1000]的随机整数，使用int(rnd*1000+1)

2.猜解逻辑伪代码

注意：如果没有猜对，需要记录猜测次数到一个变量中。

if 输入值>随机数 then

print 猜大了

else if 输入值<随机数　ｔｈｅｎ

　 print 猜小了

else

print 才对了

end if

3.记录猜解次数

声明全局变量count来记录猜解次数，每次点击猜解都+1

软件设计界面：

源代码分享：

Dim sjs%, c%

Private Sub Command1_Click()
sjs = Int(Rnd * 1000 + 1)
Command1.Enabled = False
Label1.Caption = "系统已经生产一个1至1000的随机整数"
End Sub

Private Sub Command2_Click()
c = c + 1
Dim shuru As Integer
shuru = Val(Text1.Text)

If c Mod 8 = 0 Then
    Picture1.Cls
End If

If shuru > sjs Then
    Picture1.Print "猜大了,这是第" & c & "次猜测"
ElseIf shuru < sjs Then
    Picture1.Print "猜小了,这是第" & c & "次猜测"
Else
    pictrue1.Print "恭喜你，猜对了,这是第" & c & "次猜测"
End If




End Sub

Private Sub Form_Load()
Show
Dim a$
a = InputBox("请输入密码", "密码aaa")

If a <> "aaa" Then
End
End If




End Sub

联系作者：刘金玉

长按关注公众号

编程创造城市官网：https://bcczcs.com/