实验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 ; St & Mid (Char,I,1)
实验4-12
i\\100 ; (i Mod 100)\\10
习题
一、 选择题 1. C 2. C 3. A 4. D 5. A 6. A 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 5. 4 5 6
6 5 4 3 2 1 6. T – 1 I + 1
7. k = 6 - i – j
max = m 8. j = a
j = j - 3 9. i + 1
i = i + 1 10. 2
3 7
三 编程题
1．
Option Explicit Option Base 1
Private Sub Command1_Click() Dim a(10) As Integer
Dim i As Integer, max As Integer For i = 1 To 10
a(i) = Int(90 * Rnd) + 10 Print a(i); Next i Print i = 1 max = 0
Do While i <= 10
If a(i) Mod 3 = 0 Then If a(i) > max Then max = a(i) End If End If i = i + 1 Loop
If max = 0 Then
Print \无要找的数\ Else
Print max & \是最大的能被3整除的数\
End If End Sub 2．
Option Explicit Option Base 1
Private Sub Command1_Click() Dim A() As Integer
Dim I As Integer, m As Integer Dim K As Integer ReDim A(10) For I = 1 To 10 A(I) = I Print A(I); Next I Print
m = InputBox(\?è?m\ K = 9 + m
ReDim Preserve A(K) For I = 11 To K A(I) = A(I - 10) Next I
For I = 1 To 10
A(I) = A(I + m - 1) Next I
For I = 1 To 10 Print A(I); Next I Print End Sub 3．
Option Explicit
Private Sub Command1_Click()
Dim I As Integer, J As Integer, K As Integer Dim a() As Integer, n As Integer, p As Integer Dim s As String, Flag As Boolean p = 1
For K = 10 To 100
I = 1
Do While I <= 10 And Not Flag J = 1
Do While J <= 10 And Not Flag n = I ^ 2 + J ^ 2