第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í)行該事件過(guò)程

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í)行該事件過(guò)程

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)語(yǔ)句是：

   產(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)")