VB编写随机产生一个数组,并且将数组元素逆序存放。(一维数组)

 我来答
sxqiufeng
2012-11-26 · TA获得超过644个赞
知道小有建树答主
回答量:647
采纳率:100%
帮助的人:489万
展开全部
逆序:从大到小,还是,从小到大,还是什么?
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
iisheng
推荐于2017-09-12 · TA获得超过308个赞
知道小有建树答主
回答量:531
采纳率:100%
帮助的人:478万
展开全部
Private Sub Command8_Click()
Dim b(0 To 10) As Integer, mp As Integer, i As Integer, x As Integer
Randomize
For i = 0 To 10
b(i) = Int(Rnd * (100 - 1 + 1) + 1)
Print b(i)
Next
Print
For i = 0 To UBound(b)
For x = i + 1 To UBound(b)
If b(x) > b(i) Then
mp = b(i)
b(i) = b(x)
b(x) = mp
End If
Next
Print b(i)
Next

End Sub
本回答被提问者和网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
原野hace049f
2012-11-26
知道答主
回答量:5
采纳率:0%
帮助的人:7626
展开全部
Private Sub Command1_Click()
Dim a%(80)
Open "num1.txt" For Output As #1
Randomize
a(1) = Int(Rnd * 90 + 10)
k = 1
Do While k < 80
x = Int(Rnd * 90 + 10)
f = 0
For i = 1 To k
If x = a(i) Then
f = 1
Exit For
End If
Next i
If f = 0 Then
k = k + 1
a(k) = x
End If
Loop

n = 0
For i = 1 To 80
Write #1, a(i)
Text1.Text = Text1.Text & a(i) & " "
n = n + 1
Next i
Close #1
Private Sub Command2_Click()

Open "num1.txt" For Input As #1
k = 0
n = 0
For i = 1 To 80
Input #1,a( i)

For i = 1 To n - 1
For j = i + 1 To n
If a(i) >a(j) Then
t = a(i): a(i) = a(j): a(j) = t
End If
Next j
Next i
For j = 1 To n
Text2.Text = Text2.Text & a(j) & " "
k = k + 1

Next j
Close #1

End Sub

End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式