vb问题 高手请进随机产生50个整数(范围20..50),求之中能被3整除的最小数并与数组中的第一个元素交换位置,输出交换后的位置(每行10个),最小数

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/29 18:28:50
vb问题 高手请进随机产生50个整数(范围20..50),求之中能被3整除的最小数并与数组中的第一个元素交换位置,输出交换后的位置(每行10个),最小数
xݓ]KPǿʃ:iKo s”~-IW:ҁZe]}^+vnJy?9bs4v!8uWV^svu֩t{ZoDZuVoUuW~,`w՗܃E纆Iw%0䝟ۭE|z#}7׽m:Prl {UD:|@*6X"%Y|צ2+[T0?(cq<$1Z<)d`VHS4c" H qnibrc,`L`29T+CT4jtz^24epS☀ cyC qMQC06i6)s?: (\ l 2oE/lM4U3 }aRF; ZeD!rxCtØl

vb问题 高手请进随机产生50个整数(范围20..50),求之中能被3整除的最小数并与数组中的第一个元素交换位置,输出交换后的位置(每行10个),最小数
vb问题 高手请进
随机产生50个整数(范围20..50),求之中能被3整除的最小数并与数组中的第一个元素交换位置,输出交换后的位置(每行10个),最小数

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之间的整数,编程求出最大值,最小值,和平均