【正文】
Visual Basic程序設(shè)計(jì)基礎(chǔ)P16 習(xí)題一 一,判斷題 1,錯(cuò) 2,對 3,錯(cuò) 4,錯(cuò) 5,6,7,對 二,單選題 1,B 2,B 3,D 4,A 5,D 6,B 7,B 8,C 9,D三, 程序設(shè)計(jì)題5, Private Sub Command1_Click() = 宋體 中文字體宋體End SubPrivate Sub Command2_Click() = 楷體_GB2312 中文字體楷體End SubPrivate Sub Command3_Click() = 仿宋_GB2312 中文字體仿宋End SubP42 習(xí)題二 一,判斷題 1,2,3, 7,10, 對4,5,6,8,9,11,12,13,14 錯(cuò)二,單選題 1,A 2,C 3,C 4,B 5,B 6,A 7,B 8,C 9,B 10,C 11,C 12,D 13,B 14,A 15,D 16,B 17,B 18,C 19,B 20,B 21,B 22,D 23,A 24,C 25,B 26,A 27,D 28,B 三,簡答題1. (1) 2 * Cos(alfa) * Sin(alfa/ ( 2 * a )(2) Sqr( s*(s–a)*(s–b )*(s c))(3) ( A^2 + B*C*(X +Y)) / (A+B)(4) ( 2* *r +Exp(5))* Log(x)(5) 1/( x + 1/(y+1) )(6) k / ( 1 + a * Exp(b*x) )(7) 5 + 6*x / ( 3 * (x^21) 2*x )(8) Sqr( y^3 + 3 * (a^2+b^2) / (x^2+y^2) )2. (1) (a+b) Mod c (2) Sqr(Abs(x))(3) Int(x) + 1 (4) Int(Rnd *101)+200 3. Private Sub Form_Click() Dim a As Integer, b As Integer Dim c As Integer, y As Long a = InputBox(請輸入a的值) b = InputBox(請輸入b的值) c = InputBox(請輸入c的值) y = a ^ 2 + 2 * b ^ 2 + 2 * c ^ 2 Print y = 。 yEnd Sub 4。 (1) F (2) T (3) F (4) T5 . (1) 1=x And x12 (2)T+3V2 And (T+V)100 (3) (a+b) = c or (ac) = c (4) a0 And Int(a)=a And b0 And Int(b)=b or a0 And b0 (5) x=y Or x=z (6) a=0 And b0 or a0 And b=0 四, 編程題 1. Private Sub Form_Click() Dim a As Integer, b As Integer Dim c As Integer, y As Single a = InputBox(請輸入正整數(shù)a的值) b = InputBox(請輸入正整數(shù)b的值) c = InputBox(請輸入正整數(shù)c的值) y = (a + b + c) / 3