Question

急!!!VB高手帮我做一下作业!!谢谢!!

有两道关于数组的上机练习题,虽然说是很简单,但是对于我这种没听过课的人来说很难啊!!向高手们求救一下!!

1.单击第一个按钮,生成20个[1,50]之间的随机整数,显示于第一个文本框中,单击第二个按钮,将这20个随机整数按从大到小排序,并将排序结果显示于另一个文本框中.

2.另存上题中的工程,修改界面,添加插入功能,输入某数,插入到排好序的数组中的适当位置,使得插入后的数据仍然有序,并显示插入后的结果..

请大家帮帮忙哦,小女子在此谢过啦~~
p.s.请大家尽量贴工整一些,不要把一堆的符号直接贴上来,看不懂且不好抄捏..
再一次谢谢大家啦!!

Answer 1

三个文本框，三个命令按钮
Dim arr() As Integer
Private Sub Command1_Click()
ReDim arr(19)
Text1.Text = ""
Randomize
For i = 0 To 19
arr(i) = Int(Rnd * 50) + 1
Text1.Text = Text1.Text & arr(i) & ","
Next i
End Sub

Private Sub Command2_Click()
Text2.Text = ""
For i = 0 To 19
For j = 19 To i + 1 Step -1
If arr(j) < arr(j - 1) Then
t = arr(j): arr(j) = arr(j - 1): arr(j - 1) = t
End If
Next j
Text2.Text = Text2.Text & arr(i) & ","
Next i
End Sub

Private Sub Command3_Click()
Dim n As Integer
ReDim Preserve arr(20)
n = InputBox("输入")
For i = 19 To 0 Step -1
If arr(i) > n Then
arr(i + 1) = arr(i)
Else
Exit For
End If
Next i
arr(i + 1) = n
Text3.Text = ""
For i = 0 To 20
Text3.Text = Text3.Text & arr(i) & ","
Next i
End Sub