VB程序设计第三版实验E答案

VB程序 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 第三版实验E 答案 八年级地理上册填图题岩土工程勘察试题省略号的作用及举例应急救援安全知识车间5s试题及答案 （全）1 VB程序设计第三版实验E答案（全） 1 Private Sub Form_Click() Dim a(1 To 10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 71 + 30) Print a(i); " "; Next i Max = a(1) Min = a(1) Avg = a(1) For i = 2 To 10 If a(i) > Max Then Max = a(i) If a(i) < Min Then Min = a(i) Avg = Avg + a(i) Next i Avg = Avg / 10 Print Print "Max="; Max; " Min="; Min; " Avg="; Avg End Sub 2 Private Sub Form_Click() Dim a a = Array(56, 78, 98, 88, 76, 78) For i = 0 To 5 Print String(a(i) \ 5, "◆"); a(i) Print Next i End Sub 3 Dim a%(19) Private Sub Command1_Click() Picture1.Cls For i = 0 To 19 a(i) = Int(Rnd * 101) Picture1.Print a(i); " "; If (i + 1) Mod 4 = 0 Then Picture1.Print Next i End Sub Private Sub Command2_Click() Picture2.Cls Dim s(5 To 9) For i = 0 To 19 k = a(i) \ 10 Select Case k Case 0 To 5 s(5) = s(5) + 1 Case 9 To 10 '90～100分的人数 s(9) = s(9) + 1 Case 6 To 8 ' 存放其他三个分数段的下标有规律，根据K获得 s(k) = s(k) + 1 End Select Next i For i = 5 To 9 If s(i) <> 0 Then Picture2.Print "s("; i; ")的人数有 "; Format(s(i), "0"); "个" Next i End Sub 4 Private Sub Command1_Click() Picture1.Cls Dim d%(1 To 10) For i3 = 1 To 10 Randomize d(i3) = Int(Rnd * 91 + 10) Next i3 For i = 1 To 10 For j = 1 To 10 - i If d(j) < d(j + 1) Then t = d(j): d(j) = d(j + 1): d(j + 1) = t End If Next j Next i For i = 1 To 10: Picture1.Print d(i); If i Mod 5 = 0 Then Picture1.Print Next i End Sub 5 Dim a%(3, 3), b%(3, 3) Private Sub Form_Load() For i = 0 To 3 For j = 0 To 3 a(i, j) = Int(Rnd * 36 + 35) b(i, j) = Int(Rnd * 41 + 100) Next j Next i End Sub Private Sub Command1_Click() Picture1.Cls For i = 0 To 3 For j = 0 To i Picture1.Print a(i, j); " "; Next j Picture1.Print Next i End Sub Private Sub Command2_Click() Picture2.Cls For i = 0 To 3 For j = i To 3 Picture2.Print Tab(j * 6); b(i, j); Next j Picture2.Print Next i End Sub Private Sub Command3_Click() Picture3.Cls sa = 0 For i = 0 To 3 sa = sa + a(i, i) Next i sb = 0 For i = 0 To 3 sb = sb + b(i, 3 - i) Next i Picture3.Print "A数组主对角线元素和为："; sa Picture3.Print "B数组副对角线元素和为："; sb End Sub 6 Private Sub Form_Click() n = InputBox("输入n值") ReDim a6%(n + 1, n + 1) a6(0, 0) = 1: a6(1, 1) = 1: a6(1, 0) = 1 For i = 2 To n + 1 For j = 2 To i a6(i, j) = a6(i - 1, j - 1) + a6(i - 1, j) Picture1.Print a6(i, j); ""; Next j Picture1.Print Next End Sub 7 Private Sub Form_Load() List1.Clear List1.AddItem "大学计算机基础" List1.AddItem "C/C++程序设计" List1.AddItem "VB程序设计" List1.AddItem "Web程序设计" List1.AddItem "多媒体技术与应用" List1.AddItem "数据库技术与应用" List1.AddItem "网络技术与应用" List1.AddItem "硬件技术基础" List1.AddItem "软件技术技术基础" End Sub Private Sub List1_Click() If List2.ListCount >= 5 Then MsgBox ("超过5门课程，不能再选") Exit Sub Else List2.AddItem List1.Text List1.RemoveItem List1.ListIndex End If End Sub 8 Sub Combo1_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 48 To 57, 13 Case Else KeyAscii = 0 End Select If KeyAscii = 13 Then Combo1.AddItem Combo1.Text Combo1.Text = "" End If End Sub Private Sub Command1_Click() Dim min%, max% min = Val(Combo1.List(0)) max = Val(Combo1.List(0)) imin = 0 imax = 0 For i = 1 To Combo1.ListCount - 1 If Val(Combo1.List(i)) > max Then imax = i max = Combo1.List(i) ElseIf Val(Combo1.List(i)) < min Then imin = i min = Combo1.List(i) End If Next i t = Combo1.List(0) Combo1.List(0) = Combo1.List(imin) Combo1.List(imin) = t t = Combo1.List(Combo1.ListCount - 1) Combo1.List(Combo1.ListCount - 1) = Combo1.List(imax) Combo1.List(imax) = t End Sub 9 Private Sub Form_Click() For i = 0 To Screen.FontCount - 1 If Asc(Left(Screen.Fonts(i), 1)) < 0 Then Picture1.Print Screen.Fonts(i) Picture2.FontName = Screen.Fonts(i) Picture2.Print "中国同济大学" End If Next i End Sub 10 Private Type clerk number As String * 3 name As String * 5 salary As Integer End Type Dim a(0 To 4) As clerk, n% Private Sub Command1_Click() If n >= 5 Then MsgBox ("输入人数超过数组声明的个数") Else With a(n) .number = Text1 .name = Text2 .salary = Text3 Picture1.Print a(n).number, a(n).name, a(n).salary Print End With n = n + 1 Text1 = "" Text2 = "" Text3 = "" End If End Sub Private Sub Command2_Click() Dim t As clerk, i%, j% For i = 0 To n - 1 For j = i To n - 1 If a(i).salary < a(j + 1).salary Then t = a(i): a(i) = a(j + 1): a(j + 1) = t End If Next j Next i Picture1.Cls Picture1.Print "工号 姓名 工资" For i = 0 To n - 1 Picture1.Print a(i).number, a(i).name, a(i).salary Print Next i End Sub