作业帮 > 综合 > 作业

vb 在一定范围内,输出固定的随机数.

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/16 04:58:54
vb 在一定范围内,输出固定的随机数.
有4个文本,text1,text2,text3,text4 .和一个命令按钮,command1.
text1 为输入 所要显示的随机数 个数;
text2 为输入 产生随机数的下限;
text3 为输出 产生随机数的下限;
text4 为按照 条件输出的随机数;
command1,点击,输出随机数.
如,text1输入1000,text2输入888,text3输入8888,当点击command1时,在text4中输出 1000个随机数,范围在888----8888之间.可以出现重复的数.
其中,text4 中的显示方式,为每行1个数.如下:
889
1002
7534
text2 为填写 产生随机数的下限;
text3 为填写 产生随机数的上限;
Option Explicit
'设计时要设置text4的multiline属性为T
'设计时要设置text4的scrollbars属性为2
Private Sub Command1_Click()
Dim i As Long
Dim Count As Long
Dim BL As Long
Dim UL As Long
Text4.Text = ""
Count = Val(Text1.Text)
BL = Val(Text2.Text)
UL = Val(Text3.Text)
Randomize
For i = 1 To Count
Text4.Text = Text4.Text & (BL + Int(Rnd * (UL - BL + 1))) & vbCrLf
Next i
End Su