VB计算并显示出这十个数中最小的数据在数组中的位置。

Question

一、新建工程，实现功能：
1、从键盘上接收任意输入10个整数。输入的同时在屏幕上显示出来。
2、窗体的标题为自己学号和姓名。
3、计算并显示出这十个数中最小的数据在数组中的位置。
考试中，十万火急

Answer 1

打开VB6.0，新建一个工程，在窗体中添加两个命令按钮，caption分别改为“升序排列”和“降序排列”，添加两个个标签控件，将名字分别改为Lbl1和Lbl2，将窗体Form1的caption属性改为“选择法数组排序”，将界面设置成下图：

首先产生10个随机数在标签中显示。
双击窗体，在Load事件中写入如下代码：
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 101 + 100)
Lbl1.Caption = Lbl1.Caption & a(i) & " "
Next i

在通用对话框对数组进行定义，使其成为窗体级变量：
Dim a(1 To 10) As Integer

双击“升序排列”命令按钮，进入代码编辑窗口，输入如下代码：
For i = 1 To 9
Min = a(i)
For j = i + 1 To 10
If a(j) < Min Then
Min = a(j)
t = a(i): a(i) = a(j): a(j) = t
End If
Next j
Next i
Lbl2.Caption = ""
For i = 1 To 10
Lbl2.Caption = Lbl2.Caption & a(i) & " "
Next i

双击“降序排列”命令按钮，进入代码编辑窗口，输入如下代码：
For i = 1 To 9
Max = a(i)
For j = i + 1 To 10
If a(j) > Max Then
Max = a(j)
t = a(i): a(i) = a(j): a(j) = t
End If
Next j
Next i
Lbl2.Caption = ""
For i = 1 To 10
Lbl2.Caption = Lbl2.Caption & a(i) & " "
Next i

关闭代码窗口，按下F5运行程序，产生10个随机数，标签中显示10个数：

单击“升序排列”命令按钮，标签一中的数组按升序排列在标签二中显示，如图：

单击“降序排列”命令按钮，标签一中的数组按降序排列在标签二中显示，如图：

Answer 2

可惜。你已经考完了。朋友。

Answer 3

考试才着急，是不是晚了点？