在线等 求做vb题 追加分

来源：百度知道 编辑：UC知道 时间：2024/06/21 06:42:20
编写程序，通过随机产生10个数命令按钮生成10个2位随机数，将数据显示在一个 列表框 中，通过数据统计排序命令实现从小到大排序，将结果显示在一个 文本框 中，同时将最大数最小数和平均值显示在对应的 标签 中 要求在窗体标题显示自己的学号和姓名(20083170王强) 所有变量必须先声明再使用

Option Explicit
Dim a(1 To 10) As Integer

Private Sub Command1_Click()
List1.Clear
List2.Clear
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""
Dim i As Integer
For i = 1 To 10 Step 1
a(i) = CInt(Rnd() * 100 + 1)
List1.AddItem a(i)
Next i
End Sub

Private Sub Form_Load()
Me.Caption = "学号:20083170 姓名:王强"
List1.Clear
List2.Clear
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""
Command1.Caption = "产生数据"
Command2.Caption = "数据排序"
End Sub
Private Sub Command2_Click()
List2.Clear
Dim i, j, k As Integer

For i = 1 To 10 Step 1
For j = 1 To i Step 1
If a(i) < a(j) Then
k = a(i)
a(i) = a(j)
a(j) = k
End If
Next j
Next i