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

Private Sub Form_click Dim a9 As Integer s 0 Max 30 Min 100 For i 0 To 9 Randomize ai IntRnd 71 30 If ai Max Then Max ai If ai Min Then Min ai s s ai Print ai Next i Print Print Max Max Min Min Avg s / 10 Print End Sub Private Sub Form_click Dim a a Array56 78 98 88 76 78 For i LBounda To UBounda Print StringIntai / 5 ◆ ai Print Next i End Sub Option Base 1 Dim a20 As Integer Private Sub Command1_Click For i 1 To 20 Randomize ai IntRnd 101 Picture1.Print ai Print If i Mod 4 0 Then Picture1.Print Next i End Sub Private Sub Command2_Click For i 1 To 20 Select Case ai Case 0 To 59 n n 1 Case 60 To 69 b b 1 Case 70 To 79 c c 1 Case 80 To 89 d d 1 End Select Next i Picture2.Print 分数在059的人数有 n Picture2.Print 分数在6069的人数有 b Picture2.Print 分数在70 79的人数有 c Picture2.Print 分数在80 89的人数有 d Picture2.Print 分数在90 100的人数有 20 - n - d - b - c End Sub Private Sub Form_click Dim a9 As Integer Print Tab2 排序前 For i 0 To 9 ai IntRnd 90 10 Print ai Next i For n 0 To 8 nmax n For m n 1 To 9 If am anmax Then nmax m Next m t anmax: anmax an: an t Next n Print Print Tab2 排序前 For i 0 To 9 Print ai Next i End Sub Private Sub Form_click Dim a9 As Integer Print Tab2 排序前 For i 0 To 9 ai IntRnd 90 10 Print ai Next i For n 8 To 0 Step -1 For m 0 To n If am am 1 Then t am 1: am 1 am: am t Next m Next n Print Print Tab2 排序前 For i 0 To 9 Print ai Next i End Sub Dim A3 3 B3 3 As Integer Private Sub Command1_Click For i 0 To 3 For j 0 To 3 Randomize Ai j IntRnd 90 10 If i j Then Picture1.Print Tabj 5 Ai j Next j Next i End Sub Private Sub Command2_Click For i 0 To 3 For j 0 To 3 Randomize Bi j IntRnd 900 100 If j i Then Picture2.Print Tab6 j Bi j Next j Next i End Sub Private Sub Command3_Click For i 0 To 3 For j 0 To 3 If i j Then s s Ai j: m m Bi j Next j Next i Picture3.Print A数组主对角线元素和为 s Picture3.Print B数组主对角线元素和为 m End Sub Private Sub Picture1_Click Dim a n ValText1 ReDim a1 To n 1 To n For i 1 To n For j 1 To n If i j Or j 1 Then ai j 1 If i j And i 3 And j 1 Then ai j ai - 1 j - 1 ai - 1 j If i j Then Picture1.Print Tab4 j ai j Next j Next i End Sub Private 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 Sub Private Sub List1_Click n List1.ListIndex If List2.ListCount