VB程序设计基础习题答案.doc

程序设计基础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 SubPrivate Sub Command2_Click() Form1.FontName = 楷体_GB2312 Form1.Print 中文字体楷体End SubPrivate Sub Command3_Click() Form1.FontName = 仿宋_GB2312 Form1.Print 中文字体仿宋End SubP42 习题二 一，判断题 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. (1) 2 * Cos(alfa) * Sin(alfa/ ( 2 * a )(2) Sqr( s*(sa)*(sb )*(s - c)(3) ( A2 + 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 * (x2-1) - 2*x )(8) Sqr( y3 + 3 * (a2+b2) / (x2+y2) )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+3V-2 And (T+V)100 （3） (a+b) = c or (a-c) 0 And Int(a)=a And b0 And Int(b)=b or a0 And b0 （5） 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 = ; yEnd 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 SubP78 习题三一， 1，A 2，B 3，B 4，A 5，C 二， 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 Single, f As Single x = InputBox(输入x: ) If x -5 Then f = 3 * x * x + 2 * x - 1 ElseIf x = 0.00001 t = 1 / i / (i + 1) y = y + flag * t flag = -flag i = i + 1WendPrint y=; yEnd SubY=0.3862893854756693.Private Sub Form_Click() Dim n As Integer, i As Integer, flag As Integer, s As Single, t As Integer n = InputBox(请输入n的值：) sum = 0 t = 1 flag = -1 For i = 1 To n flag = -flag t = t * i s = s + flag * i / t Next i Print s=; sEnd Sub4.Private Sub Command1_Click() For i = 1 To 9 For j = 1 To i Print i; *; j; =; i * j; Next j Print Next iEnd Sub5.Private Sub Form_Click() For i = 1 To 5 Print Tab(6 - i); For j = 1 To 2 * i - 1 Print *; Next j Print Next i For i = 4 To 1 Step -1 Print Tab(6 - i); For j = 1 To 2 * i - 1 Print *; Next j Print Next iEnd SubP104 练习四一、 单选题1，D 2,C 3, C 4,C 5, D二、程序阅读题1， 12 10 92， 0 11 2 3 23、 div = 3三、程序填空题1、 Len(str1) Mid(str1, i, 1) p = ji p 2、 l = Len(St$) a(i) = Mid(St$, i, 1) p = s - 96 x(p) = x(p) + 13、a(1 To 4, 1 To 5) s = 0 a(i, 5) = s / 4四、程序设计题1.Private Sub Form_Click() Dim a(50) As Integer For i = 1 To 50 a(i) = Int(Rnd * 71) + 30 Print a(i); If i Mod 5 = 0 Then Print Next i Min = a(1): Max = a(1): s = 0 For i = 2 To 50 If Min a(i) Then Min = a(i) If Max a(i) Then Max = a(i) s = s + a(i) Next i Print max=; Max, min=; Min, average=; s / 50End Sub2.Private Sub Form_Click() Dim max As Integer, min As Integer Dim a() As Integer n = Val(InputBox() ReDim a(n) As Integer For i = 1 To n a(i) = Int(Rnd * 100) Print a(i); Next i For i = 1 To n If a(i) Mod 2 = 0 Then min = a(i) Else max = a(i) If min 0 And max 0 Then Exit For Next i For i = 1 To n If a(i) Mod 2 = 0 And min a(i) Then min = a(i) ElseIf a(i) Mod 2 = 1 And max a(i) Then max = a(i) End If Next i Print max=; max, min=; minEnd Sub3.冒泡法：Private Sub Form_Click() Dim a(10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Print a(i); Next i Print For i = 1 To 9 For j = 1 To 10 - i If a(j) a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t Next j Next i For i = 1 To 10 Print a(i); Next iEnd Sub选择法：Private Sub Form_Click() Dim a(10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Print a(i); Next i Print For i = 1 To 9 For j = i + 1 To 10 If a(i) = 90 Then score(1) = score(1) + 1 ElseIf a(i) = 80 Then score(2) = score(2) + 1 ElseIf a(i) = 70 Then score(3) = score(3) + 1 ElseIf a(i) = 60 Then score(4) = score(4) + 1 Else score(5) = score(5) + 1 End If Next i For i = 1 To 5 Print score(i) Next iEnd SubP126 练习五一 对： 1，2，3, 4，6，7，9错： 5，8二 1，D 2，C 3，A 4，B 5，D 6，？ 7，？ 8，D三1，1） a() As Single, m As Integer2） j = i + 1 To m3） a(i) xmax Then xmax = x(i, j): ki = i: kj = j Next jNext iEnd SubP153 练习六一， 对： 5 错： 1，2，3，4，6，7，8，9, 10二1，D 2，D 3，题目有错（应改为True）A 4，C 5，C6，D 7，C 8，D 9，与2重复 10，C11，B 12，B 13，B 14，B 三1 （1）Dim a As Integer, b As Integer（2）Str(n) + Str(n_error)（3）KeyPress（4）KeyAscii 13（5）Command1.Enabled = True 2 （1）1 To 2*i1 （2）Command2.Enabled = True （3）Command2.Enabled = False四1 GFEDCBA2 小，你好！ 小李，你好！3 您好欢迎使用Visual Basic!五1Private Sub Command1_Click(Index As Integer) Dim y As Single Select Case Index Case 0 y = Val(Text1.Text) + Val(Text2.Text) Label4.Caption = Text1.Text + + + Text2.Text + = + Str(y) Case 1 y = Val(Text1.Text) - Val(Text2.Text) Label4.Caption = Text1.Text + - + Text2.Text + = + Str(y) Case 2 y = Val(Text1.Text) * Val(Text2.Text) Label4.Caption = Text1.Text + * + Text2.Text + = + Str(y) Case 3 y = Val(Text1.Text) / Val(Text2.Text) Label4.Caption = Text1.Text + / + Text2.Text + = + Str(y) End SelectEnd SubPrivate Sub Form_Load() Text1.Text = Text2.Text = Label1.Caption = 数一 Label2.Caption = 数二 Label3.Caption = 结果表达式： Label4.Caption = Command1(0).Caption = 加 Command1(1).Caption = 减 Command1(2).Caption = 乘 Command1(3).Caption = 除End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii Asc(9) Then 判断为非数字键 KeyAscii = 0 改变键入文本框的显示为空字符，即不显示End IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii Asc(9) Then KeyAscii = 0 End IfEnd SubP176 练习七一，对：2，4，5，6，9，10错：1，3，7，8二，1，B 2，C 3，D 4，C 5，B 6，D 7，A 8，A 9，D三，1（1）List3.Clear（2）List1.ListCount 1（3）List2.ListCount 1（4）Exit For（5）j List2.ListCount2，（1）Timer1_Timer（2）Label1.Left = -Label1.Width四，1，（1）C （2）A （3）C 2，（1）B （2）D （3）D （4）D3， y=6y=144，（1）A （2）A （3）B （4）D5， n=4n=12n=286， 4567897， 上海乌鲁木齐浙江杭州北京 P207 练习八一，对：1，2，7错：3，4，5，6，8，9二，1，A 2，D 3，C 4，B 5，C 6，D 7，C 8，D 9，D 10，C三，1，（1）ScaleMode = 6（2）Scale (-ScaleWidth / 2, ScaleHeight / 2)-(ScaleWidth / 2, -ScaleHeight / 2)（3）Circle (0, 0), 30, , -3.14159 * 4 / 3, -3.14159 * 22，（1）Picture1.FillStyle = 0（2）-2 * PI, -a * x（3）vbBlue（4）K Asc(9)3，（1）b = Picture1.Point(x, y)（2）r = Int(c Mod 256)（3）Next j, I四，12 34月亮环饶太阳转P234 练习九一， 1，A 2，B 3，C 4，D 5，