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

《《VB程序设计基础》习题答案-.pdf》由会员分享，可在线阅读，更多相关《《VB程序设计基础》习题答案-.pdf（7页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、 程序设计基础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 Form

2、1.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.(1)2*Cos(alfa)*Sin(alfa/(2*a)(2)Sqr(s*(s a)*(s b)*(s-c)(3)(A2+B*C*(X+Y)/(A+B)(4)(2*3.1

3、4159*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(请输

4、入 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)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=InputB

5、ox(请输入正整数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 3，1 121 12321 1

6、234321 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+1 Wend Print y=;y End Sub Y=0.38

7、6289385475669 3.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=;s End Sub 4.Private Sub Command1_Click()For i=1 To 9 For j=1 To i Print i;*;j;=;i*j;Next j

8、Print Next i End Sub 5.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 i End Sub P104 练习四一、单选题1，D 2,C 3,C 4,C 5,D 二、程序阅读题1，12 10 9 2，0 1 1 2 3 2 3、div=3 三、程序填空题1、Len(str1)Mid(

9、str1,i,1)p=j i p 2、l=Len(St$)a(i)=Mid(St$,i,1)p=s-96 x(p)=x(p)+1 3、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)Th

10、en Max=a(i)s=s+a(i)Next i Print max=;Max,min=;Min,average=;s/50 End Sub 2.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 An

11、d 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=;min End Sub 3.冒泡法：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

12、 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 i End 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

13、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 i End Sub P126 练习五一对：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 Integer 2）j=i+1 To m 3）a(i)xmax T

14、hen xmax=x(i,j):ki=i:kj=j Next j Next i End Sub P153 练习六一，对：5 错：1，2，3，4，6，7，8，9,10 二1，D 2，D 3，题目有错（应改为True）A 4，C 5，C 6，D 7，C 8，D 9，与2 重复10，C 11，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*i 1（2）Command2.Enabled

15、=True（3）Command2.Enabled=False 四1GFEDCBA 2小，你好！小李，你好！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.

16、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 Select End Sub Private Sub Form_Load()Text1.Text=Text2.Text=Label1.Caption=数一 Label2.Caption=数二

17、Label3.Caption=结果表达式：Label4.Caption=Command1(0).Caption=加 Command1(1).Caption=减 Command1(2).Caption=乘 Command1(3).Caption=除 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii Asc(9)Then 判断为非数字键KeyAscii=0 改变键入文本框的显示为空字符，即不显示End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer

18、)If KeyAscii Asc(9)Then KeyAscii=0 End If End Sub P176 练习七一，对：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.ListCount 2，（1）Timer1_Timer（2）Label1.Left=-Label1.Width 四，1，（1）C（2）A（3）C 2，（1）B（2）D（3）D（4）D 3，y=6

19、y=14 4，（1）A（2）A（3）B（4）D 5，n=4 n=12 n=28 6，456789 7，上海乌鲁木齐浙江杭州北京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*2 2，（1）Picture1.FillStyle=0（2）-2*PI,-

20、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 四，1234月亮环饶太阳转P234 练习九一，1，A 2，B 3，C 4，D 5，B 6，B 7，A 二，1，m1.Visible=False False CommonDialog1.Color CommonDialog1.FontItalic PopupMenu m1,2 2，Static i As Integer Button=1 P251 练习十一，1，B 2，D 3，A 4，B 5，B 二，NO 1 3 NO 2 4 NO 3

21、7 NO 4 11 NO 5 18 三、1.list1.clear input#1,n prime(n as integer)as boolean 2.Filter=“文本文件|*.txt”not eof(1)四、3.Private Sub Command2_Click()Open g:myfile1.txt For Input As#1 Open g:myfile2.txt For Output As#2 Do While Not EOF(1)Input#1,c$,n1%,n2%,n3%Sum%=n1%+n2%+n3%ave%=Sum/3 Write#2,c$,n1%,n2%,n3%,Sum%,ave%Loop Close End Sub Private Sub Command1_Click()Text1.Text=Open g:myfile1.txt For Input As#1 Do While Not EOF(1)Line Input#1,s Text1.Text=Text1.Text&s&Chr(13)&Chr(10)Loop Close#1 End Sub 卜日区：卜，.,回回I.:Fora!日团因1噩噩丛