用 VB 做初级程序 符合要求100分 决不食言

Question

编一个程序，生成10个两位随机数，存入到一维数组，再按反序存放后输出。程序的设计界面如图所示，程序运行时单击【生成一维数组】按钮将产生一个由10个100以内的随机整数组成的数组，并显示在第一个文本框中。单击【反序存放】按钮将把数组中的元素反序存放并显示在第二个文本框中，如图所示。

Answer 1

楼上的答案正确

For i = 0 To 9
For j = i + 1 To 9
If a(i) < a(j) Then

这里面的 For i = 0 To 9
最好改为 For i = 0 To 8

Answer 2

Private Sub Command1_Click()
For i = 1 To 10
Randomize
Do While 1 = 1
a = CStr(Int((90) * Rnd + 10))
If InStr(Text1.Text, a) = 0 Then
Text1.Text = Text1.Text & " " & a
Exit Do
End If
Loop
Next i
Text1.Text = Trim(Text1.Text)
End Sub

Private Sub Command2_Click()
If Text1.Text = "" Then MsgBox "数据不合法!"
Dim a() As String, b(0 To 10) As Long
a = Split(Text1.Text, " ")
If UBound(a) <> 9 Then MsgBox "数据不合法!"
For i = 0 To 9
For j = i + 1 To 9
If a(i) < a(j) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next j
Next i
For i = 0 To 9
Text2.Text = Trim(Text2.Text & " " & a(i))
Next
End Sub

Private Sub Command3_Click()
End
End Sub

Answer 3

Option Explicit
Dim a(9) As Integer

Private Sub Command1_Click()
Dim n As Integer
Text1.Text = ""
For n = 0 To 9
Randomize
a(n) = Int(Rnd * 90 + 10)
Text1.Text = Text1.Text & a(n) & " "
Next

End Sub

Private Sub Command2_Click()
Dim n As Integer
For n = 9 To 0 Step -1
Text2.Text = Text2.Text & a(n) & " "
Next
End Sub

Answer 4

dim rndNo(9) as integer
dim i as interger
dim y as interger
dim nok as boolean
Private Sub Command1_Click()
text1.text=""
For i = 0 To 9
Randomize
rndno(i)=int(90*rnd+10)
text1.text=text1.text & rndno(i) & " "
Next
nok=true
End Sub

Private Sub Command2_Click()
dim Fno(9) as integer
If nok Then
text2.text=""
for i=9 to 0 setp -1
text2.text=text2.text & rndno(i) & " "
fno(y)=rndno(i)
y=y+1
next
for i=0 to 9
rndno(i)=fno(i)
next
nok=false
endif
End Sub

Private Sub Command3_Click()
End
End Sub本回答被提问者采纳