第五章习题参考答案

三、填空题

1、上下左左

2、缇无关

3、& +

4、Enabled

5、MaxLength

6、Text1.SetFocus

7、MultiLine

8、Visible

9、Alignment

10、AutoSize

11、ForeColor

12、0或1

13、True

14、 1

15、AddItem

16、 1

17、List1.Clear

18、文本框列表框

19、下拉式组合框简单组合框下拉式列表框

20、Scroll

21、Value

22、Change

23、定时器不起作用

24、Timer

25、65535

四、程序阅读题

程序1、

116

程序2、

8

23451

34512

程序4、

小，你好！

小李，你好！

程序5、

您好

欢迎使用Viusal Basic!

程序6、

李子

苹果

橘子

葡萄

柚子

香蕉

程序7、

y=6

y=14

程序8、

n=1

n=3

n=5

五、程序填空题

1、（1）a(i)=Mid(str1,I,1) (2) p=j (3) a(i)=a(p) (4) Command2.Enabled=True

2、(1) 1 To 2*i-1 (2) Command2.Enabled=True (3) Command2.Enabled=False

3、(1) Text2.Enabled=False (2) p=2 (3) Print i (4) Val(Text1.Text)<=1 (5) KeyAscii=13

4、(1) List1.ListCount (2) List1.RemoveItem i (3) i=i+1

5、(1) Timer1.Enabled=True (2) x\3600 (3) (x Mod 3600)\60 (4) x=x+1

6、(1)Label1.Left (2) Label1.Left=-Label1.Width

六、程序设计题（略）

其中第9题进制转换参考程序如下：

Dim n As Integer

Private Sub Form_Load()

Option1.Caption = "八进制"

Option2.Caption = "十六进制"

Option3.Caption = "二进制"

Text1 = ""

Text2 = ""

End Sub

Private Sub Option1_Click()

n = 8

Text2 = trans(Val(Text1), n)

Label2 = "八进制"

End Sub

Private Sub Option2_Click()

n = 16

Text2 = trans(Val(Text1), n)

Label2 = "十六进制"

End Sub

Private Sub Option3_Click()

n = 2

Text2 = trans(Val(Text1), n)

Label2 = "二进制"

End Sub

Private Function trans(x As Integer, n As Integer) As String Dim y As String, k As Integer

Do Until x = 0

k = x Mod n

x = x \ n

If k >= 10 And k <= 15 Then

y = y & Chr(55 + k)

Else

y = y & CStr(k)

End If

Loop

trans = y

End Function