VB计算:随机产生20个1~100的正整数放入数组中,显示产生的数,并求出其最大值
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/18 23:50:37
VB计算:随机产生20个1~100的正整数放入数组中,显示产生的数,并求出其最大值
楼主看看这个: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
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
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之间的随机整数,显示他们的最大值,最小值和