vb 在一定范围内,输出固定的随机数.有4个文本,text1,text2,text3,text4 .和一个命令按钮,command1.text1 为输入 所要显示的随机数 个数;text2 为输入 产生随机数的下限;text3 为输出 产生随机数的下限
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/29 00:38:30
![vb 在一定范围内,输出固定的随机数.有4个文本,text1,text2,text3,text4 .和一个命令按钮,command1.text1 为输入 所要显示的随机数 个数;text2 为输入 产生随机数的下限;text3 为输出 产生随机数的下限](/uploads/image/z/4092984-0-4.jpg?t=vb+%E5%9C%A8%E4%B8%80%E5%AE%9A%E8%8C%83%E5%9B%B4%E5%86%85%2C%E8%BE%93%E5%87%BA%E5%9B%BA%E5%AE%9A%E7%9A%84%E9%9A%8F%E6%9C%BA%E6%95%B0.%E6%9C%894%E4%B8%AA%E6%96%87%E6%9C%AC%2Ctext1%2Ctext2%2Ctext3%2Ctext4+.%E5%92%8C%E4%B8%80%E4%B8%AA%E5%91%BD%E4%BB%A4%E6%8C%89%E9%92%AE%2Ccommand1.text1+%E4%B8%BA%E8%BE%93%E5%85%A5+%E6%89%80%E8%A6%81%E6%98%BE%E7%A4%BA%E7%9A%84%E9%9A%8F%E6%9C%BA%E6%95%B0+%E4%B8%AA%E6%95%B0%EF%BC%9Btext2+%E4%B8%BA%E8%BE%93%E5%85%A5+%E4%BA%A7%E7%94%9F%E9%9A%8F%E6%9C%BA%E6%95%B0%E7%9A%84%E4%B8%8B%E9%99%90%EF%BC%9Btext3+%E4%B8%BA%E8%BE%93%E5%87%BA+%E4%BA%A7%E7%94%9F%E9%9A%8F%E6%9C%BA%E6%95%B0%E7%9A%84%E4%B8%8B%E9%99%90)
vb 在一定范围内,输出固定的随机数.有4个文本,text1,text2,text3,text4 .和一个命令按钮,command1.text1 为输入 所要显示的随机数 个数;text2 为输入 产生随机数的下限;text3 为输出 产生随机数的下限
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 为填写 产生随机数的上限;
vb 在一定范围内,输出固定的随机数.有4个文本,text1,text2,text3,text4 .和一个命令按钮,command1.text1 为输入 所要显示的随机数 个数;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 Sub