n = Val(Text2.Text)
' 先求m,n 的最大公约数 r = m Mod n Do While r <> 0
m = n : n = r : r = m Mod n Loop
Print Text1 & \和\的最大公约数为:\ ' 分子分母进行约分 m1 = Val(Text1.Text) / n n1 = Val(Text2.Text) / n
Print \约分后的分子为：\约分后的分母为：\
8.输入一个（0-255）之间的十进制正整数，将其转化为8位二进制数，如7转换为00000111。 ‘方法1：
Dim st As String, x%, i%, r% x = Val(Text1.Text) For i = 1 To 8
r = x Mod 2 : x = x \\ 2 : st = r & st Next i
‘方法2： Do While x < > 0 r = x Mod 2 st = r & st x = x \\ 2 Loop
Do While Len(st) < 8 st = \ Loop
Print Text1 & \转换为二进制是：\
5
第5次习题 数组和自定义类型 一、选择题 1 D 11 2 A 12 3 A 13 B 3 B 14 C 4 B 15 C 5 C 16 B 6 A 17 D 7 A 18 D 8 D 19 C 9 A 20 C 10 B 21 C 22 D 7 0 A 8 10 二、填空
1 2 3 4 5 6 7
三、改错题
1 2
第6次习题 过程 一、选择
4 2 16 1 2 3 ； 7 8 9 2 0 4 ； 4 0 6 b(i*j) num ； i+1 ； a(j)=temp Dim arr(10) 错，改为：Dim arr( ) For i=1 to 10 ‘循环3 错，改为：For i=1 to 9 1 A
2 B 3 A 4 D 5 D 6 B 7 C 8 D 9 C 二、填空
6
1 2 3 4 5 6 7
三、改错题
3 8 2 12 10 0 33 ch temp true 2 4 6 8 5 4 3 2 1 8 9 10 11 12 13 14 Call swap(a) , n=n-1 10 0 11 6 100 120 70 10 20 1 2 3 4 static n x>b Temp< >ch Max=a(1); a(k)>max;max=a(k) 四、编程题 1、Dim i%
Private Sub Command1_Click() Dim a As Long
Text1 = CStr(fun(a)) End Sub
Private Function fun(sum As Long) sum = 0
For i = 1 To 100
If i Mod 7 <> 0 Then sum = sum + i Next i fun = sum End Function 2、
Option Explicit
Dim b(4) As Integer, i%
Private Sub Command1_Click() Dim min% For i = 0 To 4
b(i) = Val(Text1(i)) Next i
min = findmin(b) Print min
7
End Sub
Private Function findmin(a() As Integer) Dim min% min = a(1)
For i = 0 To UBound(a)
If a(i) < min Then min = a(i) Next i
findmin = min End Function
第7次习题 用户界面设计 一、选择 1 B 11 A 2 A 12 B 3 C 13 A 4 A 14 A 5 D 15 C 6 D 16 C 7 A 17 D 8 C 18 C 9 C 10 A 二、填空题 1 2 3 Opt1(i).caption Button ; down ; label1.catption 100 ; line1.x1 或 line1.x2； Image1.left 500; Not Label1.visible 或者： IIf(Label1.Visible = True, False, True) 或者：IIf(Label1.Visible = false, True, False) 或者： IIf(Label1.Visible = -1, 0, -1); Timer1.Enabled = True 4
第8次习题 数据文件 一、选择
1 C
2 B 3 D 4 A 5 D 6 C 7 A 8 D 9 C 10 B 8
二、填空题
1 Output ; #1 2 EOF(1); Close #1 ; text1.text或text1 3 Input ; ch ; len(mystr) 4 For input ; as #2 ; not eof(2) 5 Op1_Click ; *3 ; Caption 6 CD1.FileName ; ch$
第9次习题 图形操作
选择题 1 2 3 (1)MouseMove B D B 填空题 (2) True
9