vb问题 高手请进随机产生50个整数(范围20..50),求之中能被3整除的最小数并与数组中的第一个元素交换位置,输出交换后的位置(每行10个),最小数
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/21 10:02:18
![vb问题 高手请进随机产生50个整数(范围20..50),求之中能被3整除的最小数并与数组中的第一个元素交换位置,输出交换后的位置(每行10个),最小数](/uploads/image/z/15035221-37-1.jpg?t=vb%E9%97%AE%E9%A2%98+%E9%AB%98%E6%89%8B%E8%AF%B7%E8%BF%9B%E9%9A%8F%E6%9C%BA%E4%BA%A7%E7%94%9F50%E4%B8%AA%E6%95%B4%E6%95%B0%EF%BC%88%E8%8C%83%E5%9B%B420..50%EF%BC%89%2C%E6%B1%82%E4%B9%8B%E4%B8%AD%E8%83%BD%E8%A2%AB3%E6%95%B4%E9%99%A4%E7%9A%84%E6%9C%80%E5%B0%8F%E6%95%B0%E5%B9%B6%E4%B8%8E%E6%95%B0%E7%BB%84%E4%B8%AD%E7%9A%84%E7%AC%AC%E4%B8%80%E4%B8%AA%E5%85%83%E7%B4%A0%E4%BA%A4%E6%8D%A2%E4%BD%8D%E7%BD%AE%2C%E8%BE%93%E5%87%BA%E4%BA%A4%E6%8D%A2%E5%90%8E%E7%9A%84%E4%BD%8D%E7%BD%AE%EF%BC%88%E6%AF%8F%E8%A1%8C10%E4%B8%AA%EF%BC%89%2C%E6%9C%80%E5%B0%8F%E6%95%B0)
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