第2章习题
一、单选题
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. "系统管理数据库"
编程及上机调试
1～3题：按要求完成操作练习。
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(第一个数)、Text2(第二个数)、Text3(计算结果)和一个命令按钮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(输出结果)和一个命令按钮Command1。
Private Sub Command1_Click()
Dim x As String
x = Left(Text1.Text, 1) + Right(Text1.Text, 1)
Text2.Text = x
End Sub
