《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?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，???? 27，D??? 28，B??? 三，简答题–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（1）（2）（）（）（）（）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() Dim r As Integer, s As Single Const Pi = 3.14159 r = InputBox(输入圆半径, 输入, 10) s = Pi * r * r MsgBox 圆面积 Area = Str(s) End Sub P78 习题三?一，? 1，A??? 2，B??? 3，B??? 4，A????? 5，C??? 二，?? 1，??? 37，55，64，28，19?????? 2，??? y=KIGECA?