第3章习题
一、单选题
1．C 2．B 3．D
4．D 5．B 6．C
7．B 8．D 9．D
10．A 11．A 12．C
13．C 14．B 15．(1)A (2)C
16．A 17．B
18．(1)D (2)B (3)C
19．D
二、多选题
1．AC
2．AC
3．ABCF
三、填空题
1. $000,124
2．Label1.Caption="a*b="
3．Height，Width
4．2
5．Text1.SetFocus
6．Multiline, ScrollBars, 2
7．编程技术，程序设计
8．Private Sub Text2_Change() ´当文本框Text2中的文本内容发生变动时，执行该事件过程
Label1.Caption=Text1.Text ´把文本框Text1中的文本内容作为标签Label1的标题
End Sub
Private Sub Text1_GotFocus() ´当文本框Text1获得焦点时，执行该事件过程
Text1.SelStart = 0 ´选定文本框Text1中的所有文本内容
Text1.SelLength=Len(Text1.Text)
End Sub
编程及上机调试
1．在窗体上建立一个文本框Text1(输入n值)、三个标签Label1(第一个随机数)、Label2(第二个随机数)和Label3(第三个随机数)，以及一个命令按钮Command1。
Private Sub Command1_Click()
n = Val(Text1.Text)
Randomize
x = Int(1 + n * Rnd)
Label1.Caption = "第一个随机数" + Str(x)
x = Int(1 + n * Rnd)
Label2.Caption = "第二个随机数" + Str(x)
x = Int(1 + n * Rnd)
Label3.Caption = "第三个随机数" + Str(x)
End Sub
2．在窗体上建立了四个文本框Text1、Text2、Text3和Text4，以及一个命令按钮Command1(“交换”)和Command2(“合并”)。
Private Sub Command1_Click() '“交换”
t = Text1.Text
Text1.Text = Text2.Text
Text2.Text = Text3.Text
Text3.Text = t
End Sub
Private Sub Command2_Click() '“合并”
t = Text1.Text + Text2.Text + Text3.Text
Text4.Text = t
End Sub
3.
(1) Rnd * 9000 + 1000
(2) Str(x)
(3) Mid(s, 3, 1) + Mid(s, 2, 1) + Left(s, 1)
4. Private Sub Command1_Click() '往左
Text1.Left = 0
End Sub
Private Sub Command2_Click() '往右
Text1.Left = Form1.Width - Text1.Width
End Sub
Private Sub Command3_Click() '居中
Text1.Left = (Form1.Width - Text1.Width) / 2
End Sub
5. Private Sub Cmd1_Click()
Lab1.Visible = True
Lab1.Caption = "您已下达显示命令"
End Sub
Private Sub Form_Click()
Cmd1.Visible = True
End Sub
6. Private Sub Form_KeyPress(KeyAscii As Integer)
Show
Print "输入字符："; Chr(KeyAscii), "ASCII码为;"; KeyAscii
End Sub
Private Sub Form_DblClick()
Cls
End Sub
7. 产生这三个消息框的相应语句是：
产生第1个消息框：x = MsgBox("在这里显示提示信息", 4 + 0, "请确认")
产生第2个消息框：x = MsgBox("在这里显示" + Chr(13) + "提示信息",3 + 0,"请确认")
产生第3个消息框：x = MsgBox("在这里显示"+Chr(13)+"提示信息",2 + 16 + 0,"请确认")
