西科大网络教育《程设计语言VB》指导书作业参考答案.docVIP

西科大网络教育《程序设计语言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 i End Sub 第3题 Private Sub Co