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

简介 INTRODUCTION随机数案例的复习，进一步拓展...

课题8 随机数案例复习加练

授课：刘金玉

猜猜我是几小游戏:

本期为复习课，增加代码的练习。

知识要点：

1.随机数知识

2.弹出框inputbox

3.窗体启动加载事件form_load

4.消息提示框msgbox

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

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

程序注意要点：

1.随机数生成前一定要加随机数种子，randomize默认把系统时间作为随机数种子

如果不写，随机数将可能出现固定一个值的情况。

软件设计界面：

源代码分享：

代码语言：javascript复制

Dim sjs%, c%

Private Sub Command1_Click()
Randomize
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
    Picture1.Print "恭喜你，猜对了,这是第" & c & "次猜测"
    List1.AddItem "第" & (List1.ListCount   1) & "轮猜测，猜了" & c & "次"
    c = 0
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/

form label listbox picturebox textbox

0 人点赞