用VB写有一个数组,内放10个整数,要求找出最小的数及其下标,然后把它和数组中最前面的元素对换
答案:1 悬赏:60
解决时间 2021-12-14 10:41
- 提问者网友:空白
- 2021-12-13 16:51
用VB写有一个数组,内放10个整数,要求找出最小的数及其下标,然后把它和数组中最前面的元素对换
最佳答案
- 二级知识专家网友:木子香沫兮
- 2021-12-13 18:17
Private Sub Command1_Click()
Me.Cls
Dim a(10) As Integer
Dim t As Integer
Dim n As Integer
t = 200
For i = 1 To 10
a(i) = Int(Rnd * 90 + 10)
If a(i) t = a(i)
n = i
End If
Print a(i);
Next i
If n <> 1 Then
a(n) = a(1)
a(1) = t
End If
For i = 1 To 10
Print a(i);
Next i
End Sub
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯