作业帮vb问题 高手请进随机产生50个整数（范围20..50）,求之中能被3整除的最小数并与数组中的第一个元素交换位置,输出交
来源：学生作业帮 编辑：作业帮 分类：数学作业 时间：2024/11/08 16:41:03
vb问题 高手请进
随机产生50个整数（范围20..50）,求之中能被3整除的最小数并与数组中的第一个元素交换位置,输出交换后的位置（每行10个）,最小数
随机产生50个整数（范围20..50）,求之中能被3整除的最小数并与数组中的第一个元素交换位置,输出交换后的位置（每行10个）,最小数
Private Sub Form_Click()
Me.AutoRedraw = True
Dim a(1 To 50) As Integer
Dim minD As Integer
Dim tmpD As Integer
Dim j As Integer
minD = 51
Dim i As Long
For i = 1 To 50
Randomize
a(i) = Int(Rnd * 31 + 20)
If a(i) Mod 3 = 0 Then
If minD > a(i) Then minD = a(i): j = i
End If
Next
tmpD = a(1)
a(1) = a(j)
a(j) = tmpD
j = 0
For i = 1 To 50
If j Mod 10 = 0 Then Print
Print a(i);
j = j + 1
Next
Print
Print "最小数：" & minD
End Su
Me.AutoRedraw = True
Dim a(1 To 50) As Integer
Dim minD As Integer
Dim tmpD As Integer
Dim j As Integer
minD = 51
Dim i As Long
For i = 1 To 50
Randomize
a(i) = Int(Rnd * 31 + 20)
If a(i) Mod 3 = 0 Then
If minD > a(i) Then minD = a(i): j = i
End If
Next
tmpD = a(1)
a(1) = a(j)
a(j) = tmpD
j = 0
For i = 1 To 50
If j Mod 10 = 0 Then Print
Print a(i);
j = j + 1
Next
Print "最小数：" & minD
End Su
Vb 随机函数产生20个10到50之间的数,放入数组,并且计算所有20个随机整数的平均值并输出
VB编程 随机产生50个10~200的整数,统计能被5整除的数的个数
求一VB代码,用数组保存随机产生的10个介于20到50之间的整数,编程求出其中的最大数、最小数和平均值,并
vb编程：随机产生10个[10,100]的整数,求该组数的最大元素、最小元素及其位置.
VB利用随机函数产生30个[3,99]整数,打印输出其中的素数（要求用数组存放）
从键盘获取任意10个整数存放于c语言,数组a中,将其最小的数和最大的数对换,并输出交换后的数组元素.求
c语言,从键盘获取任意10个整数存放于数组a中,将其最小的数和最大的数对换,并输出交换后的数组元素.求
输入20个整数存入一数组,输出其中能被数组中其它元素整除的那些数组元素.
将30个整数存放于一维数组a中,把其中所有能同时被3和7整除的数依次存入数组b,并按每行最多3个元素格式输出b
C语言编程随机产生10个10到50的正整数存放到数组中,并求数组中的所以元素最大值、最小值、平均值及各元素
vb 用随机函数产生10个[100,200]之间的随机整数向数组赋值,按降序排列并输出
C语言 输入10个整数,找出最大与最小的数,并指出在数组中的位置