VB.编写产生随机整数过程,输出N个指定范围的随机整数.
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/09/22 19:33:50
VB.编写产生随机整数过程,输出N个指定范围的随机整数.
不能用内部函数!
不用RND.
如果不行,就不要此限制回答吧
不能用内部函数!
不用RND.
如果不行,就不要此限制回答吧
你所谓的不能用内部函数是指不用rnd这一个,还是所有的都不用啊.
如果是所有的,我看好像无法实现.
再说你这是何苦不用内部函数呢.
说出原因
####################################################################
Private Sub Command1_Click()
Dim intF As Long,intL As Long,intN As Integer,intM As Integer
Dim varTmp As Variant
varTmp = InputBox("请输入随机数的范围,上界和下界用 空格 隔开!" & vbCr & "注意:我将不做正确检查.","输入","1 10")
intN = InputBox("请输入产生随机数的个数","个数",5)
intF = Split(varTmp," ")(0)
intL = Split(varTmp," ")(1)
For intM = 1 To intN
Randomize
Print CInt(Rnd * (intL - intF + 1)) + intF
Next
End Su
如果是所有的,我看好像无法实现.
再说你这是何苦不用内部函数呢.
说出原因
####################################################################
Private Sub Command1_Click()
Dim intF As Long,intL As Long,intN As Integer,intM As Integer
Dim varTmp As Variant
varTmp = InputBox("请输入随机数的范围,上界和下界用 空格 隔开!" & vbCr & "注意:我将不做正确检查.","输入","1 10")
intN = InputBox("请输入产生随机数的个数","个数",5)
intF = Split(varTmp," ")(0)
intL = Split(varTmp," ")(1)
For intM = 1 To intN
Randomize
Print CInt(Rnd * (intL - intF + 1)) + intF
Next
End Su
vb用function编写一个产生随机整数过程,输出n个指定范围的随机整数
VB:随机产生 10 个整数,求其中最小的数.若随机产生n个整数又如何实现
VB的:用随机函数产生n个三位整数,用选择法排序后将它们的值从大到小输出,n=204!
vb编写一个程序,利用随机函数生成15个80~99之间的随机整数,输出其中的最大值与最小值
VB随机产生10个10到100的整数,每行输出10个代码怎么写?
VB中要求随机产生10个在[10,30]的不同整数怎么编写程序?
vb问题利用随机函数产生80个10~99之间的随机整数,
VB 随机产生35个 20到80的随机整数
VB利用随机函数产生30个[3,99]整数,打印输出其中的素数(要求用数组存放)
Vb 随机函数产生20个10到50之间的数,放入数组,并且计算所有20个随机整数的平均值并输出
求VB 程序设计利用随机函数产生80个10~99之间的随机整数,将其中的偶数按由小到大的顺序排列并输出,将奇
vb 用随机函数产生10个[100,200]之间的随机整数向数组赋值,按降序排列并输出