End Sub
第四章选择分支与循环
实验答案
实验4-1
方法一： x<=5 ; y
方法二：Is<=2 ;Case Else
实验4-2
Shape1.BackColor=vbRed; Inter=15; Inter=Inter-1; Inter;
实验4-3 b 实验4-4 方法二： s*n ; t/s<10^-5 实验4-5 方法一:m>=10^-4 ; (-1)^(n+1)*m 实验4-6 x2=x3 ; <10^-6 实验4-7 实验4-8 i+2*j+5*k=10 ; n 实验4-9 题目一：a) 5 b)i=16 p=12 n=5 c)i=9 p=8 n=1 题目二：120 10 实验4-10 N=1 ； S=N& \ 实验4-11 Len(st); Ch=Lcase(ch) ; Case Else ; Mid(Char,I,1)&St 实验4-12 i\\100 ; (i Mod 100)\\10 习题 一、 选择题 1. C 2. C 3. A 4. D 5. A 6. B 7. B 8. D 9. B 二、填空题 1． Is=0 ; 1 To 10 ; Is >10 2. 9 3. 3 ; 4 15 4. this is a book ;This Is A Book 5. 3 ; 3 ; 3 5 6. 32 0 7. 4 8. 15 1 9. 1 ; 401 ;104 10. 1 2 3 ;1 3; 1 11. (3) 12. 2 0 24 13. 10 14 14. BAABC CBAABC 15. X Mod P=0 ; X=X+1 ;Find=False 16. abs(t)<10^(-7) ; s+t 17. Mid(n,1,1)=Mid(n,2,1) And Mid(n,3,1)=Mid(n,4,1) S=S+1 18. Mid(n,i,1)>Mid(n,i+1,1) 19. \输入n\ ;Print I 第五章数组 实验 5_1 Int(90 * Rnd) + 10 a(i) = a(21 - i) a(21 - i) = t 5_2 k = x Mod 10 i = i + 1 5_3 s 5_4 max < a(i, j) row = I col = j 5_5 1 ReDim Preserve prime(m) prime(j) 5_6 d Mod 2 5_7 Exit For a(j + 1) = a(j) 5_8 N – I A(j) = A(j + 1) 5_9 A(i, 1) J Min = Max Not Flag 5_10 ch >= \P = P & ch ReDim Preserve C(k) 5_11 Private Sub Form_Click() Dim x As Integer, i As Integer, k As Integer, j As Integer Dim a() As Integer x = InputBox(\输入正整数x=\ i = 2 Print x; \的质因子为:\ Do While x >= i If x Mod i = 0 Then k = k + 1 ReDim Preserve a(k) a(k) = i x = x \\ i Else i = i + 1 End If Loop For j = 1 To UBound(a) Print a(j); Next j End Sub 习题 一 选择题 1. A 11. B 2. C 12. D 3. D 4. C 5. B 6. D 7. D 8. B 9. D 10. B 二 填空题 1. Variant 2. ReDim A(N) A(1) If M < A(I) Then M = A(I) 3. Int(26 * Rnd) + 65 Chr(t) i + 1 To 10 A(i) > A(j) 4. InStr(s, \ Right(s, Len(s) - n) s