vb问题 高手请进随机产生50个整数(范围20..50),求之中能被3整除的最小数并与数组中的第一个元素交换位置,输出交换后的位置(每行10个),最小数
来源:学生作业帮助网 编辑:作业帮 时间:2024/05/30 01:20:35
vb问题 高手请进
随机产生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 Sub
vb问题 高手请进随机产生50个整数(范围20..50),求之中能被3整除的最小数并与数组中的第一个元素交换位置,输出交换后的位置(每行10个),最小数
产生50~55的随机整数,VB表达式
VB:随机产生 10 个整数,求其中最小的数.若随机产生n个整数又如何实现
VB:随机产生30个[100,500]区间的随机整数,求其和及平均值.
vb中怎么随机产生3个整数,整数范围不定
vb编程题.随机产生10个【50,300】之间的整数,求最大的偶数和最小的奇数.
VB编程 随机产生50个10~200的整数,统计能被5整除的数的个数
Vb 随机函数产生20个10到50之间的数,放入数组,并且计算所有20个随机整数的平均值并输出
急求VB编程“利用随机函数产生10个50-100之间的随机整数,求它们的最大值和平均值,要求用数组做”,
vb语言中利用随机函数产生20个50~100之间的随机整数,显示他们的最大值,最小值和
写VB代码利用随机函数产生20个50~100之间的随机整数,显示它们的最大值、最小值、和平均值
VB 最大值的序号随机产生20个50到350的整数,求上面所产生20个随机整数中的最大值,以及最大值的在这20个数中的序号.
VB 随机产生10个0~100之间的随机整数,去掉最大值与最小值,剩下8个数的和与平均数.VB
vb问题利用随机函数产生80个10~99之间的随机整数,利用随机函数产生80个10~99之间的随机整数,将其中的偶数按由小到大的顺序排列并输出,将奇数按由大到小的顺序排列并输出在两个文本框
随机产生任意个20个50~100的整数,求最大值、最小值,平均值,并统计高于平均值的个数.用VB语言
VB随机产生10个两位数整数(正整数),要求分别用选择排序法和冒泡排序法将这10个数降序排列输出在窗体上是编程问题用VB编程
VB随机产生10个10到100的整数,每行输出10个代码怎么写?必须是基数
VB用数组保存随机产生的10个介于20到50之间的整数,编程求出最大值,最小值,和平均