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 为填写 产生随机数的上限;
有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
'设计时要设置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
vb 在一定范围内,输出固定的随机数.
matlab在一定范围内生成随机数
VB:产生30个1-100之间的随机数,统计并输出其中奇数和偶数的个数
VB 随机输入一个3位数正整数,然后逆序输出,产生的随机数与逆序数同时显示
如何用VB产生一个每次都不一样的随机数啊,用rnd的话只能产生一个固定的数字
VB产生随机数问题Rnd(1)可以是可以产生随机数只不过它产生的随机数是固定的比如我第一次单击按钮一产生随机数0.755
VB 编写一段程序能够输出10个14至19之间的可带有一位小数的随机数,并输出平均值.
vb中如何生成不同的随机数
VB生成不重复的随机数
VB如何产生一组在一定范围内一定个数的任意选择保留小数的数
一道VB的题:随机产生一个三位正整数按后逆序输出,产生的随机数与逆序数同时显示?
Excel 如何产生固定的随机数