【VB开源代码栏目提醒】：网学会员鉴于大家对VB开源代码十分关注，论文会员在此为大家搜集整理了“VB程序设计第三版实验E答案 - 编程语言”一文，供大家参考学习

VB程序设计第三版实验E答案全 1 Private Sub Form_Click Dim a1 To 10 As Integer For i 1 To 10 ai IntRnd 71 30 Print ai Next i Max a1 Min a1 Avg a1 For i 2 To 10 If ai Max Then Max ai If ai Min Then Min ai Avg Avg ai Next i Avg Avg / 10 Print Print Max Max Min Min Avg Avg End Sub 2 Private Sub Form_Click Dim a a Array56 78 98 88 76 78 For i 0 To 5 Print Stringai 5 ◆ ai Print Next i End Sub 3 Dim a19 Private Sub Command1_Click Picture1.Cls For i 0 To 19 ai IntRnd 101 Picture1.Print ai If i 1 Mod 4 0 Then Picture1.Print Next i End Sub Private Sub Command2_Click Picture2.Cls Dim s5 To 9 For i 0 To 19 k ai 10 Select Case k Case 0 To 5 s5 s5 1 Case 9 To 10 90100分的人数 s9 s9 1 Case 6 To 8 存放其他三个分数段的下标有规律根据K获得 sk sk 1 End Select Next i For i 5 To 9 If si 0 Then Picture2.Print s i 的人数有 Formatsi 0 个 Next i End Sub 4 Private Sub Command1_Click Picture1.Cls Dim d1 To 10 For i3 1 To 10 Randomize di3 IntRnd 91 10 Next i3 For i 1 To 10 For j 1 To 10 - i If dj dj 1 Then t dj: dj dj 1: dj 1 t End If Next j Next i For i 1 To 10: Picture1.Print di If i Mod 5 0 Then Picture1.Print Next i End Sub 5 Dim a3 3 b3 3 Private Sub Form_Load For i 0 To 3 For j 0 To 3 ai j IntRnd 36 35 bi j IntRnd 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 ai 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 Tabj 6 bi j Next j Picture2.Print Next i End Sub Private Sub Command3_Click Picture3.Cls sa 0 For i 0 To 3 sa sa ai i Next i sb 0 For i 0 To 3 sb sb bi 3 - i Next i Picture3.Print A数组主对角线元素和为 sa Picture3.Print B数组副对角线元素和为 sb End Sub 6 Private Sub Form_Click n InputBox输入n值 ReDim a6n 1 n 1 a60 0 1: a61 1 1: a61 0 1 For i 2 To n 1 For j 2 To i a6i j a6i - 1 j - 1 a6i - 1 j Picture1.Print a6i 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_KeyPressKeyAscii 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 ValCombo1.List0 max ValCombo1.List0 imin 0 imax 0 For i 1 To Combo1.ListCount - 1 If ValCombo1.Listi max Then imax i max Combo1.Listi ElseIf ValCombo1.Listi min Then imin i min Combo1.Listi End If Next i t Combo1.List0 Combo1.List0 Combo1.Listimin Combo1.Listimin t t Combo1.ListCombo1.ListCount - 1 Combo1.ListCombo1.ListCount - 1 Combo1.Listimax Combo1.Listimax t End Sub 9 Private Sub Form_Click For i 0 To Screen.FontCount - 1 If AscLeftScreen.Fontsi 1 0 Then Picture1.Print Screen.Fontsi Picture2.FontName Screen.Fontsi 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 a0 To 4 As clerk n Private Sub Command1_Click If n 5 Then MsgBox 输入人数超过数组声明的个数 Else With an .number Text1 .name Text2 .salary Text3 Picture1.Print an.number an.name an.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 ai.salary aj 1.salary Then t ai: ai aj 1: aj 1 t End If Next j Next i Picture1.Cls Picture1.Print 工号 姓名 工资 For i 0 To n - 1 Picture1.Print ai.number ai.name ai.salary Print Next i End Sub