VB计算:随机产生20个1~100的正整数放入数组中,显示产生的数,并求出其最大值
来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/06/30 20:23:55
VB计算:随机产生20个1~100的正整数放入数组中,显示产生的数,并求出其最大值
![VB计算:随机产生20个1~100的正整数放入数组中,显示产生的数,并求出其最大值](/uploads/image/z/7232229-45-9.jpg?t=VB%E8%AE%A1%E7%AE%97%EF%BC%9A%E9%9A%8F%E6%9C%BA%E4%BA%A7%E7%94%9F20%E4%B8%AA1%EF%BD%9E100%E7%9A%84%E6%AD%A3%E6%95%B4%E6%95%B0%E6%94%BE%E5%85%A5%E6%95%B0%E7%BB%84%E4%B8%AD%2C%E6%98%BE%E7%A4%BA%E4%BA%A7%E7%94%9F%E7%9A%84%E6%95%B0%2C%E5%B9%B6%E6%B1%82%E5%87%BA%E5%85%B6%E6%9C%80%E5%A4%A7%E5%80%BC)
楼主看看这个:Private Sub Command1_Click()
Dim aNum(19) As Long, V As Long
Dim nMax As Long, i As Long
Randomize
Me.Cls: nMax = 0
Print "这20个数是:"
For i = 0 To 19 '产生10个数据
V = 1 + 99 * Rnd() '1到100
aNum(i) = V
Print V;
If (V > nMax) Then nMax = V
If (i Mod 10 = 9) Then Print
Next
Print
Print "最大数是:" & nMax
End Sub![](http://img.wesiedu.com/upload/f/95/f955228dfe6476b2f3ce8925a99c25a5.jpg)
Dim aNum(19) As Long, V As Long
Dim nMax As Long, i As Long
Randomize
Me.Cls: nMax = 0
Print "这20个数是:"
For i = 0 To 19 '产生10个数据
V = 1 + 99 * Rnd() '1到100
aNum(i) = V
Print V;
If (V > nMax) Then nMax = V
If (i Mod 10 = 9) Then Print
Next
Print "最大数是:" & nMax
End Sub
![](http://img.wesiedu.com/upload/f/95/f955228dfe6476b2f3ce8925a99c25a5.jpg)
VB计算:随机产生20个1~100的正整数放入数组中,显示产生的数,并求出其最大值
编一VB程序,随机产生10个30~100(包括30,100)的正整数,求最大值,最小值和平均值,并显示整个数组的值和结果
Vb 随机函数产生20个10到50之间的数,放入数组,并且计算所有20个随机整数的平均值并输出
怎样用VB做随机产生10个1-100以内的整型数,求出其的最大值,最小值,平均值
利用随机函数产生10个30~100之间的随机正整数,求最大值,最小值 平均值,并显示数组的值和结果
VB随机产生10个任意的两位正整数存放在一维数组中,求数组的最大值、平均值、能实现将数据升序排列,并且
随机产生20个1-50的之间的正整数放入数组A中,输入这组随机数.
(1)VB 用随机函数产生20个两位数的整数,存于4行5列的二维数组中,并求出其中的最大元素及它的行、列坐标,将数组按行
VB随机产生一个M×N二维数组(M,N缺省为4,数组元素为100以内的正整数),计算其
vb 随机产生20个三位正整数存入一维数组A中,找出其中升序数,回文数
C语言编程随机产生10个10到50的正整数存放到数组中,并求数组中的所以元素最大值、最小值、平均值及各元素
vb语言中利用随机函数产生20个50~100之间的随机整数,显示他们的最大值,最小值和