西北农林科技大学 vb实习作业由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“西农vb第三章实习作业”。
第五章
(1)例 5-2
Private Sub Command1_Click()Dim sum!, n%, aver!sum = 0 n = 0 x = Val(InputBox(“请输入”))Do While x-9999 sum = sum + x n = n + 1 x = Val(InputBox(“请输入”))Loop aver = sum / n MsgBox “共输入” & n & “ 个数,平均值为:” & aver End Sub
(2)例 5-3 Private Sub Command1_Click()Dim a%(65 To 90), c As String * 1 le = Len(Text1)For i = 1 To le c = UCase(Mid(Text1, i, 1))If c >= “A” And c 0 Then Picture1.Print “”;Chr(j);“=”;a(j);“”;Next j End Sub
(3)例 5-4 Private Sub Command1_Click()Dim a$()Dim x(0 To 10)As Integer a = Split(Text1, “,”)For i = o To UBound(a)
If(a(i)0)Then
k = a(i)10
x(k)= x(k)+ 1
End If
Next i
Print “100分的有:” & x(10)& “人”
For i = 9 To 0 Step-1
Print i * 10 & “分-”;i * 10 + 9&;“分有:” & x(i)& “人”
Next i
End Sub
Private Sub Command2_Click()End End Sub
(4))输入多名学生的一门课程成绩（成绩用数组存放，要求成绩用文本框输入），统计0-
59、60-69、70-79、80-89、90-100个分数段人数。
Private Sub Command1_Click()Dim a$()Dim x(0 To 10)As Integer a = Split(Text1, “,”)For i = o To UBound(a)
If(a(i)0)Then
k = a(i)10
x(k)= x(k)+ 1
End If
Next i
Print “90-100分的有:” & x(10)+ x(9)& “人”
For i = 8 To 6 Step-1
Print i * 10 & “分-”;i * 10 + 9&;“分有:” & x(i)& “人”
Next i
For i = 0 To 5
s = x(i)+ s
Next i
Print “0-59分的有” & s;“人” End Sub
(5)例 5-6(用穷举法、辗转相除法两种方法)Private Sub Command1_Click()Dim m%, n% m = Val(InputBox(“请输入第一个数m:”))n = Val(InputBox(“请输入第二个数n:”))If m
(10)用选择法对10个学生成绩实现从低到高排序
(11)例 5-12(12)第136页第3题(13)第136页第4题(14)第136页第5题(15)第136页第7题(16)第136页第8题(17)第136页第11题
