《VB程序设计基与VBA应用》1-5章答案.docVIP

《VB程序设计基础与VBA应用》 P28 习题一 二，单选题?? 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 ?P57 习题二 一，判断题 对1, 3， 7，10，14???错2，4，5，6，8，9，11，12，13?二，单选题?? 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*A + 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 Cos alfa ^ 2 + Atn alfa 8 Sqr y^3 + 3 * a*a+b*b / x*x+y*y 2. 1 a+b Mod c 2 Sqr Abs x 3 Int x + 1 4 Int Rnd *101 +200 3。? （1）? F??? （2） T 3 F 4 ? T（1）（2）（）（）（）（）Private Sub Form_Click Dim a As Integer, b As Integer, c As Integer Dim y As Single a InputBox 请输入正整数a的值 b InputBox 请输入正整数b的值 c InputBox 请输入正整数c的值 y a + b + c / 3 Print 平均值: ; y End Sub 2． Private Sub Command1_Click Dim a As Integer, b As Integer, c As Integer Dimy As Single a Val Text1.Text b Val Text2.Text c Val Text3.Text y a + b + c / 3 Label1.Caption Str y End Sub 3. Private Sub Form_Click Dim r As Integer, s As Single Const Pi 3.14159 r InputBox 输入圆半径 s Pi * r * r MsgBox 圆面积 Area + Str s End Sub P114 习题三?一，? 1，A??? 2，B??? 3，B??? 4，A 5，C 二，1，??? 37，55，64，28，19 2，??? y KIGECA 3， 1 121 12321 1234321 1座机电话号码 1座机电话号码21 4，?? cHINA！ 三，??? 1，? t? As? Double s 1 Abs t 0.00001 s s+t 2,?? s+c -1 s 3,?? m n m To n Sum Sum+j Sum i 四， 1， Private Sub Form_Click Dim x As Single, f As Single x InputBox 输入x: If x -5 Then f 3 * x * x + 2 * x - 1 ElseIf x 5 Then f x * Sin x + 2 ^ x Else f Sqr x - 5 + Log x / Log 10 End If Label1.Caption f End Sub 2. Private Sub Form_Click Dim n As Integer, i As Integer, flag As Integer, s As Single,