1.①D,②D 2.①A,②C 3.A 4.B B B 9, 12.A 14,A 二、多选题 三、填空题 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+y3)) Int(50+6*Rnd) 3.(1)138 (3)214 (4)"inchina 4."系统管理数据库 编程及上机调试 1~3题:按要求完成操作练习 4. Private Sub Commandl Click 最大化"按钮 Forml WindowState =2 最大化 End sub rivate sub Command2_ Click’"还原”按钮 Forml WindowState =0 还原 End sub Private Sub Command3 Click 最小化"按钮 Forml Windowstate = l 最小化 End sub 5.在窗体上建立三个文本框Text1(第一个数)、Text2(第二个数)、Text3(计算结果)和一个命令按 钮 Command1(“计算”)。 Private Sub Commandl Click o Dim x As Single Dim y As single Text3 Text =x*x+y *y End sub 6.在窗体上建立两个文本框 TextI(输入一串字符)、Text2(输出结果)和一个命令按钮 Commandl Private Sub Commandl Click O Dim x As strin x= Left(Textl. Text, 1)+ Right(Textl. Text, 1) End sub 第3章习题 2.B 4.D 10.A 12.C 15.(1)A(2)C 17.B 18.(1)D(2)B(3)C 多选题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 第 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 二、多选题