《VB程序设计基础》习题答案.docVIP

Visual Basic程序设计基础 P16 习题一 ? 一，判断题?? 1，错??? 2，对??? 3，错?????? 4，错???? 5，6，7，对???? ? 二，单选题?? 1，B??? 2，B??? 3，D??? 4，A???? 5，D??? 6，B???? 7，B??? 8,C??? 9,D? 三, 程序设计题 5, Private Sub Command1_Click() Form1.FontName = 宋体 Form1.Print 中文字体宋体 End Sub Private Sub Command2_Click() Form1.FontName = 楷体_GB2312 Form1.Print 中文字体楷体 End Sub Private Sub Command3_Click() Form1.FontName = 仿宋_GB2312 Form1.Print 中文字体仿宋 End Sub ??P42? 习题二 一，判断题?? ?? 1,2，3， 7，10，? 对??4，5，6，8，9，11，12，13，14????? 错二，单选题?? 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) 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* 3.14159*r +Exp(-5))* Log(x) (5) 1/( x + 1/(y+1) ) (6) k / ( 1 + a * Exp(-b*x) ) (7) 5 + 6*x / ( 3 * (x^2-1) - 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 = ; y End Sub ??? 4。? （1）? F??? （2） T???? (3) F??? (4)? T 5 . （1） 1=x And x12 （2）T+3V-2 And (T+V)100 （3） (a+b) = c or (a-c) = 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(请输入正整数a的值) b = InputBox(请输入正整数b的值) c = InputBox(请输入正整数c的值) y = (a + b + c) / 3 Print 平均值 y = ; y End Sub 2. Private Sub Form_Click() Di