vb程序设计教程第三版实验E

Private Sub Form_click()Dim a(9) As Integers = 0Max = 30Min = 100For i = 0 To 9Randomizea(i) = Int(Rnd * 71 + 30)If a(i) Max Then Max = a(i)If a(i) a(nmax) Then nmax = mNext mt = a(nmax): a(nmax) = a(n): a(n) = tNext nPrintPrint Tab(2); 排序前,For i = 0 To 9Print a(i);Next iEnd SubPrivate Sub Form_click()Dim a(9) As IntegerPrint Tab(2); 排序前,For i = 0 To 9a(i) = Int(Rnd * 90 + 10)Print a(i);Next iFor n = 8 To 0 Step -1For m = 0 To nIf a(m) = j Then Picture1.Print Tab(j * 5); A(i, j);Next jNext iEnd SubPrivate Sub Command2_Click()For i = 0 To 3For j = 0 To 3RandomizeB(i, j) = Int(Rnd * 900 + 100)If j = i Then Picture2.Print Tab(6 * j); B(i, j);Next jNext iEnd SubPrivate Sub Command3_Click()For i = 0 To 3For j = 0 To 3If i = j Then s = s + A(i, j): m = m + B(i, j)Next jNext iPicture3.Print A数组主对角线元素和为：; sPicture3.Print B数组主对角线元素和为：; mEnd SubPrivate Sub Picture1_Click()Dim a()n = Val(Text1)ReDim a(1 To n, 1 To n)For i = 1 To nFor j = 1 To nIf i = j Or j = 1 Then a(i, j) = 1If i j And i = 3 And j 1 Then a(i, j) = a(i - 1, j - 1) + a(i - 1, j)If i = j Then Picture1.Print Tab(4 * j); a(i, j);Next jNext iEnd SubPrivate Sub Form_Load()List1.AddItem Web程序设计List1.AddItem 多媒体技术与应用List1.AddItem 网络技术与应用List1.AddItem 软件技术技术基础List1.AddItem 大学计算机基础List1.AddItem C/C+程序设计List1.AddItem VB程序设计List1.AddItem 数据库技术与应用List1.AddItem 硬件技术基础End SubPrivate Sub List1_Click()n = List1.ListIndexIf List2.ListCount = 4 ThenList2.AddItem List1.List(n)List1.RemoveItem nElsei = MsgBox(超过5门课，不能再选, 0 + 64, 警告)End IfEnd SubPrivate Sub List2_DblClick()n = List2.ListIndexList1.AddItem List2.List(n)List2.RemoveItem nEnd SubPrivate Sub Combo1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenIf Not IsNumeric(Combo1.Text) Or Mid(Combo1.Text, 1, 1) = . ThenMsgBox (输入的非数字字符，请重新输入): Combo1.Text = ElseCombo1.AddItem Combo1.Text: Combo1.Text = End IfEnd IfEnd SubPrivate Sub Combo1_KeyPress(KeyAscii As Integer)Select Case KeyAscii 不能输入小数且不能排除首位数字为0的情况且当没有输入数字时按回车键简单组合框中仍会添加空字符串Case 48 To 57, 13Case ElseKeyAscii = 0End SelectIf KeyAscii = 13 Then Combo1.AddItem Combo1.Text: Combo1.Text = End SubPrivate Sub Command1_Click()n = Combo1.ListCountimin = 0imax = n - 1For i = 0 To n - 1If Val(Combo1.List(i) Val(Combo1.List(imax) Then imax = iNext it = Combo1.List(imin): Combo1.List(imin) = Combo1.List(0): Combo1.List(0) = tm = Combo1.List(imax): Combo1.List(imax) = Combo1.List(n - 1): Combo1.List(n - 1) = mEnd SubPrivate Sub Form_Load()Dim a()a = Array(23, 345, 9, 33, 98, 123, 77, 44)For i = 0 To UBound(a)Combo1.AddItem a(i)Next iEnd SubPrivate Type workmangh As Longname As String * 5gz As LongEnd TypeDim a(4) As workmanDim i%Private Sub Command1_Click()If i = 5 ThenMsgBox (最多只能输入5个学生的成绩): Text1.Text = : Text2.Text = : Text3.Text = Text1.Locked = True: Text2.Locked = True: Text3.Locked = TrueElseIf Text1 = Or Text2 = Or Text3 = Thenn = MsgBox(请认真填写职工的基本信息, 0 + 48, 提示)If Text1 = Then Text1.SetFocusIf Text2 = Then Text2.SetFocusIf Text3 = Then Text3.SetFocusElseWith a(i).gh = Val(Text1).name = Text2.gz = Val(Text3)End WithText1 = : Text2 = : Text3 = i = i + 1End IfEnd IfEnd SubPrivate Sub Command2_Click()Dim t As workmanPicture1.ClsPicture1.AutoRedraw = TruePicture1.Print Tab(3); 工号; Tab(12); 姓名; Tab(22); 工资For n = 0 To i - 2imax = nFor m = n + 1 To i - 1If a(m).gz a(ima