程序的设计语言VB指导书作业的答案 第19题.docVIP

PAGE PAGE 12西科大网络教育《程序设计语言VB》指导书作业参考答案第1题Private Sub Command1_Click() Dim a As Long Dim n As Integer n = 0 a = Val(Text1.Text) Do If a 100000 Then a = a * 2 n = n + 1 Else Exit Do End If Loop MsgBox 共翻 n 倍End Sub第2题Private Sub Command1_Click() For i = 1 To 50 For j = 2 To 50 Step 2 For k = 5 To 50 Step 5 If i + j + k = 50 Then Print i 个1分+ j 个2分+ k 个5分 End If Next k Next j Next iEnd Sub第3题Private Sub Command1_Click() Dim prod(4) As Single Dim allprod As Single Dim max As Single Dim pos As Integer 最大数位置 allprod = 0 max = 0 pos = 0 For i = 1 To 4 prod(i) = InputBox(输入第 i 个季度的产量) allprod = allprod + prod(i) If max prod(i) Then max = prod(i) End If Next i For i = 1 To 4 Print 第 i 季度的产量占全年的百分比＝ prod(i) / allprod * 100 % If prod(i) = max Then pos = i End If Next i Print 最大产量的季度＝ posEnd Sub第4题Private Sub Command1_Click() Dim a As Single Dim n As Integer n = 0 a = Val(Text1.Text) Do a = a * 0.5 n = n + 1 If a 0.001 Then Exit Do End If Loop MsgBox 分半的次数= nEnd Sub第5题Private Sub Command1_Click() Dim score As Single Dim a, b, c, d As Integer a,b,c,d分别为各分数段的人数 For i = 1 To 6 score = Val(InputBox(请输入第 i 位学生的成绩)) If score 60 Then a = a + 1 ElseIf score = 70 Then b = b + 1 ElseIf score 100 Then c = c + 1 Else d = d + 1 End If Next i Print 不及格, 60-70, 71-99, 100 Print a, b, c, dEnd Sub第6题Private Sub Command1_Click() Dim a As Single Dim b As Single a = Val(Text1.Text) b = 0 If a = 800 And a = 2000 Then b = a * 0.02 ElseIf a 2000 Then b = a * 0.05 End If MsgBox 应收税＝ b 元End Sub第7题Private Sub