第2章習(xí)題

一、單選題

1．①D，②D   

2．①A，②C           

3．A          4．B             

5．B          6．B              

7．C          8．D                  

9．B         10．B         

11．A        12．A

13．B        14．A              

15．B        16．A      

17．B

二、多選題

1．BD        2．CD               

3．AC        4. AD

三、填空題

1．

(1) Sin(50*3.14159/180)     

(2) (2+x*y)/(2–y*y)

(3) a*a–3*a*b/(3+a)        

(4) x^(3/8)+Sqr(y*y+4*a*a/(x+y^3))

2．Int(50+6*Rnd)

3．

(1)138    (2)3          

(3)214    (4) "inchina"      

(5)70     (6) "45"

(7)0         

4. "系統(tǒng)管理數(shù)據(jù)庫"

編程及上機(jī)調(diào)試

1～3題：按要求完成操作練習(xí)。

4． Private Sub Command1_Click()      '"最大化"按鈕

        Form1.WindowState = 2         '最大化

End Sub

Private Sub Command2_Click()      '"還原"按鈕

        Form1.WindowState = 0         '還原

End Sub

Private Sub Command3_Click()      '"最小化"按鈕

          Form1.WindowState = 1         '最小化

End Sub

5．在窗體上建立三個文本框Text1(第一個數(shù))、Text2(第二個數(shù))、Text3(計算結(jié)果)和一個命令按鈕Command1(“計算”)。

    Private Sub Command1_Click()

          Dim x As Single

          Dim y As Single

          x = Val(Text1.Text)

          y = Val(Text2.Text)

          Text3.Text = x * x + y * y

End Sub

6. 在窗體上建立兩個文本框Text1(輸入一串字符)、Text2(輸出結(jié)果)和一個命令按鈕Command1。

 Private Sub Command1_Click()

          Dim x As String

          x = Left(Text1.Text, 1) + Right(Text1.Text, 1)

          Text2.Text = x

End Sub