VB实验指导书课后习题答案2016版 下载本文

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