求:用VB编写,谁会就告诉我吧,谢谢啊

来源：百度知道 编辑：UC知道 时间：2024/06/28 07:26:30
单击第一个按钮，生成20个〔1，50〕之间的随机整数，显示于第一个文本框中，单击第二个按钮，将这20个随机整数按从大到小排序，并将排序结果显示在另一个文本框中．
这是VB的题,可是我写完总有错,不会改

Dim data(1 To 20) As Integer
Private Sub Command1_Click()
Randomize (10)
For i = 1 To 20
data(i) = Int(Rnd * 50) + 1
Text1.Text = Text1.Text & data(i) & vbCrLf
Next
End Sub

Private Sub Command2_Click()
n = 20
For i = 1 To n - 1
iMin = i
For j = i + 1 To n
If data(j) < data(iMin) Then iMin = j
Next j
iTemp = data(i)
data(i) = data(iMin)
data(iMin) = iTemp
Next i

For i = 1 To n
Text2.Text = Text2.Text & data(i) & vbCrLf
Next
End Sub

确实很简单....
说一下思路:
第一题用个随机函数就行了,然后做下处理,满足1~50,然后用&计算显示在文本框.
第二题稍微麻烦了点.把第一题的数做个数组,然后用冒泡排序就行了.

这么简单的问题,自己看看书就可以编出来了。。

C语言会吗。会的话。在按钮上到命令打进去就行了。我是不会C语言的。正在学习中。。我还请位高手教我呢