《5.3 经典例题.pptVIP

第三节 程序示例 世界会向那些有目标和远见的人让路 分析下列程序的输出结果 Dim i As Integer For i = 1 To 6 If i Mod 3 = 0 Then Print *; Else Print #; End If Next i Dim i As Integer, j As Integer For j = 1 To 5 For i = 1 To 6 If i Mod 3 = 0 Then Print *; Else Print #; End If Next i Print Next j 第三题 Private Sub Command1_Click() Dim m As Integer, n As Integer, k As Integer n = -3 For m = 6 To 1 Step n m = m + 1 n = n - m k = k + 1 Next m Print k; Print n End Sub 第四题 Private Sub Command1_Click() Dim s As String, i As Integer Const ch As String = 0123456789. s = 2L0A09U.0SI3V.24 For i = 1 To Len(s) If InStr(ch, Mid(s, i, 1)) = 0 Then st1 = Mid(s, i, 1) st1 Else st2 = st2 Mid(s, i, 1) End If Next i Print st1: Print st2 End Sub 第五题 Private Sub Form_click() Dim a As Integer, b As Integer a = 1: b = 0 Do While a = 5 b = a * a a = a + 1 Loop Print a, b End Sub 第六题 Private Sub Form_click() Dim ch As String, I As Integer ch = DEF For I = 1 To Len(ch) ch = Mid(ch, 2 * I - 1, 1) Left(ch, Len(ch)) Print ch Next I End Sub 第七题 Private Sub Form_click() Dim p As Integer, I As Integer p = 1 For I = 1 To 5 p = p + (2 * I - 1) / (2 * I + 1) If p = 20 Then Exit For Next I Print I, p End Sub 第八题 Private Sub Form_click() Dim p As Integer, I As Integer, n As Integer p = 2: n = 20 For I = 1 To n Step p p = p + 2 n = n - 3 I = I + 1 If p = 10 Then Exit For Next I Print I, p, n End Sub 程序填空：统计随机产生的十个两位正整数中偶数与奇数的个数，并求出偶数与奇数各自的总和 第十题：统计字符串中“O”的个数 Private Sub Command1_Click() a = THERE IS A BOOK ON THE DESK m = (1) For i = 1 To m b = (2) If b = O Then (3) Next i Print nu