第3章習(xí)題
一、單選題
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．編程技術(shù)，程序設(shè)計(jì)
8．Private Sub Text2_Change() ′當(dāng)文本框Text2中的文本內(nèi)容發(fā)生變動(dòng)時(shí)，執(zhí)行該事件過程
Label1.Caption=Text1.Text ′把文本框Text1中的文本內(nèi)容作為標(biāo)簽Label1的標(biāo)題
End Sub
Private Sub Text1_GotFocus() ′當(dāng)文本框Text1獲得焦點(diǎn)時(shí)，執(zhí)行該事件過程
Text1.SelStart = 0 ′選定文本框Text1中的所有文本內(nèi)容
Text1.SelLength=Len(Text1.Text)
End Sub
編程及上機(jī)調(diào)試
1．在窗體上建立一個(gè)文本框Text1(輸入n值)、三個(gè)標(biāo)簽Label1(第一個(gè)隨機(jī)數(shù))、Label2(第二個(gè)隨機(jī)數(shù))和Label3(第三個(gè)隨機(jī)數(shù))，以及一個(gè)命令按鈕Command1。
Private Sub Command1_Click()
n = Val(Text1.Text)
Randomize
x = Int(1 + n * Rnd)
Label1.Caption = "第一個(gè)隨機(jī)數(shù)" + Str(x)
x = Int(1 + n * Rnd)
Label2.Caption = "第二個(gè)隨機(jī)數(shù)" + Str(x)
x = Int(1 + n * Rnd)
Label3.Caption = "第三個(gè)隨機(jī)數(shù)" + Str(x)
End Sub
2．在窗體上建立了四個(gè)文本框Text1、Text2、Text3和Text4，以及一個(gè)命令按鈕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 = "您已下達(dá)顯示命令"
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. 產(chǎn)生這三個(gè)消息框的相應(yīng)語句是：
產(chǎn)生第1個(gè)消息框：x = MsgBox("在這里顯示提示信息", 4 + 0, "請(qǐng)確認(rèn)")
產(chǎn)生第2個(gè)消息框：x = MsgBox("在這里顯示" + Chr(13) + "提示信息",3 + 0,"請(qǐng)確認(rèn)")
產(chǎn)生第3個(gè)消息框：x = MsgBox("在這里顯示"+Chr(13)+"提示信息",2 + 16 + 0,"請(qǐng)確認(rèn)")
