vb程序的设计基础复习题答案.docxVIP

Visual Basic 程序设计基础 P16 习题一 2 ，对 3 ， ，判断题 1 ，错 错 4，错 5，6，7， 对 二 ，单选题 1 ，B 2，B 3， D 4， A 5 ， D 6 ， B 7， B 8,C 9,D * J 程序设计题 5, Private Sub Command1_Click() Form1.FontName = 宋体 Form1.Print 中文字体宋体 End Sub Private Sub Command2_Click() Form1.FontName = 楷体 _GB2312 Form1.Print 中文字体楷体 End Sub ( A2 + B*C*(X +Y)) / (A+B) ( 2* 3.14159*r +Exp(-5))* Log(x) 1/( x + 1/(y+1) ) k / ( 1 + a * Exp(-b*x) ) 5 + 6*x / ( 3 * (xA2-1) - 2*x ) Sqr( yA3 + 3 * (日人2+匕人2) / (xA2+yA2) ) (1) (a+b) Mod c (2) Sqr(Abs(x)) (3) Int(x) + 1 (4) Int(Rnd *101)+200 Private Sub Form_Click() Dim a As Integer, b As Integer Dim c As Integer, y As Long TOC \o 1-5 \h \z a = InputBox( 请输入 a 的值 ) b = InputBox( 请输入 b 的值 ) c = InputBox( 请输入 c 的值 ) y = a A 2 + 2 * b A 2 + 2 * c A 2 Print y = ; y Form1.FontName = 仿宋 _GB2312 Form1.Print 中文字体仿宋 4。 （1） F ( 2)T (3) End Sub F (4) T 5 . （1） 1=x Andx12 (2)T+3V-2 Private Sub Command3_Click() End Sub P42 习题二 And (T+V)100 ，判断题 ( 3) (a+b) = c or (a-c) = c 1,2 ，3， 7 ，10， 对 ( 4) a0 And Int(a)=a And b0 And 4，5，6，8， 9，11 ，12，13，14 错 Int(b)=b or a0 And b0 二 ，单选题 ( 5) x=y Or x=z 1 ，A 2，C 3，C 4， ( 6) a=0 And b0 or a0 And b=0 B 5，B 四 , 编程题 6，A 7，B 8，C 9， 1. Private Sub Form_Click() B 10， C Dim a As Integer, b As Integer 11 ，C 12 ，D 13 ，B 14， Dim c As Integer, y As Single A 15，D a = InputBox（ 请输入正整数 a 的值 ) 16，B 17，B 18 ，C 19， b = InputBox（ 请输入正整数 b 的值 ) B 20 ，B c = InputBox（ 请输入正整数 c 的值 ) 21 ， B 22 ，D 23 ，A 24， y = (a + b + c) / 3 C 25 ， B Print 平均值 y = ; y 26，A 27，D 28 ，B End Sub 三 ，简答题 2. Private Sub Form_Click() 1. (1) 2 * Cos(alfa) * Sin(alfa/ ( 2 * Dim r As Integer, s As Single a ) Const Pi = 3.14159 ⑵ Sqr( s*(s - a)*(s - b )*(s - c)) r = InputBox( 输入圆半径 , 输入 , P78 P78 习题三 1，A 2，B 3 ，B 4， A 5，C 10) s = Pi * r * r MsgBox 圆面积 Area = Str(s) End Sub 二， 1 ， 37 ， 55， 64， 28， 19 2 ， y=KIGECA 3， 1 121 12321 1234321 123454321 12345654321 4 ， cHINA ！ 三， 1 ， t As Double s=1 Abs(t)=1e-5 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 Sing