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

<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三, 程序设计题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，B6，A 7，B 8，C 9，B 10，C11，C 12，D 13，B 14，A 15，D16，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) ( 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)+2003. Private Sub Form_Click()Dim a As Integer, b As IntegerDim c As Integer, y As Longa = InputBox("请输入a的值")b = InputBox("请输入b的值")c = InputBox("请输入c的值")y = a ^ 2 + 2 * b ^ 2 + 2 * c ^ 2Print " y = "; yEnd Sub4。

（1） F （2）T (3) F (4) T5 . （1）1<=x And x<12 （2）T+3<>V-2 And (T+V)>100（3）(a+b) >= c or (a-c) <= c（4）a>0 And Int(a)=a And b>0 AndInt(b)=b or a<0 And b<0（5）x<=y Or x>=z（6）a=0 And b<>0 or a<>0 And b=0 四, 编程题1. Private Sub Form_Click()Dim a As Integer, b As IntegerDim c As Integer, y As Singlea = InputBox("请输入正整数a的值")b = InputBox("请输入正整数b的值")c = InputBox("请输入正整数c的值")y = (a + b + c) / 3Print " 平均值y = "; yEnd Sub2. Private Sub Form_Click()Dim r As Integer, s As SingleConst Pi = 3.14159r = InputBox("输入圆半径", "输入", 10)s = Pi * r * rMsgBox "圆面积Area =" & Str(s)End SubP78 习题三一，1，A 2，B 3，B 4，A 5，C二，1，37，55，64，28，192，y=KIGECA3， 1121123211234321123454321123456543214，cHINA！三，1，t As Doubles=1Abs(t)>=1e-5s=s+t2, s+c-1s3, m=nm To nSum=Sum+jSum=i四，1，Private Sub Form_Click()Dim x As Single, f As Singlex = InputBox("输入x: ")If x < -5 Thenf = 3 * x * x + 2 * x - 1ElseIf x <= 5 Thenf = x * Sin(x) + 2 ^ xElsef = Sqr(x - 5) + Log(x) / Log(10) End IfLabel1.Caption = fEnd Sub2.Private Sub Form_Click()Dim i As Integer, flag As IntegerDim t As Double, y As Doubley = 0flag = 1t = 0.5i = 1While Abs(t) >= 0.00001t = 1 / i / (i + 1)y = y + flag * tflag = -flagi = 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 Integern = InputBox("请输入n的值：")sum = 0t = 1flag = -1For i = 1 To nflag = -flagt = t * is = s + flag * i / tNext iPrint "s="; sEnd Sub4.Private Sub Command1_Click()For i = 1 To 9For j = 1 To iPrint i; "*"; j; "="; i * j;Next jPrintNext iEnd Sub5.Private Sub Form_Click()For i = 1 To 5Print Tab(6 - i);For j = 1 To 2 * i - 1Print "*";Next jPrintNext iFor i = 4 To 1 Step -1Print Tab(6 - i);For j = 1 To 2 * i - 1Print "*";Next jPrintNext iEnd SubP104 练习四一、单选题1，D 2,C 3, C 4,C 5,D二、程序阅读题1，12 10 92，011 2 323、div = 3三、程序填空题1、Len(str1)Mid(str1, i, 1)p = ji <> p2、l = Len(St$)a(i) = Mid(St$, i, 1)p = s - 96x(p) = x(p) + 13、a(1 To 4, 1 To 5)s = 0a(i, 5) = s / 4四、程序设计题1.Private Sub Form_Click()Dim a(50) As IntegerFor i = 1 To 50a(i) = Int(Rnd * 71) + 30Print a(i);If i Mod 5 = 0 Then PrintNext iMin = a(1): Max = a(1): s = 0For i = 2 To 50If Min > a(i) Then Min = a(i)If Max < a(i) Then Max = a(i)s = s + a(i)Next iPrint "max="; Max, "min="; Min, "average="; s / 50End Sub2.Private Sub Form_Click()Dim max As Integer, min As IntegerDim a() As Integern = Val(InputBox(""))ReDim a(n) As IntegerFor i = 1 To na(i) = Int(Rnd * 100)Print a(i);Next iFor i = 1 To nIf a(i) Mod 2 = 0 Then min = a(i) Else max = a(i)If min <> 0 And max <> 0 Then Exit For Next iFor i = 1 To nIf a(i) Mod 2 = 0 And min > a(i) Thenmin = a(i)ElseIf a(i) Mod 2 = 1 And max < a(i) Thenmax = a(i)End IfNext iPrint "max="; max, "min="; minEnd Sub3.冒泡法：Private Sub Form_Click()Dim a(10) As IntegerFor i = 1 To 10a(i) = Int(Rnd * 90) + 10Print a(i);Next iPrintFor i = 1 To 9For j = 1 To 10 - iIf a(j) < a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = tNext jNext iFor i = 1 To 10Print a(i);Next iEnd Sub选择法：Private Sub Form_Click()Dim a(10) As IntegerFor i = 1 To 10a(i) = Int(Rnd * 90) + 10Print a(i);Next iPrintFor i = 1 To 9For j = i + 1 To 10If a(i) < a(j) Then t = a(i): a(i) = a(j): a(j) = tNext jNext iFor i = 1 To 10Print a(i);Next iEnd Sub4、Private Sub Form_Click()Dim a(20) As Integer, score(5) As IntegerFor i = 1 To 20a(i) = Int(Rnd * 101)Print a(i);Next iPrintFor i = 1 To 20If a(i) >= 90 Thenscore(1) = score(1) + 1ElseIf a(i) >= 80 Thenscore(2) = score(2) + 1ElseIf a(i) >= 70 Thenscore(3) = score(3) + 1ElseIf a(i) >= 60 Thenscore(4) = score(4) + 1Elsescore(5) = score(5) + 1End IfNext iFor i = 1 To 5Print 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) < a(j)4）Call pf(b, n)2，1）Int(Rnd * 21) + 302）For j = i + 1 To 103）Call Swap(a(i), a(j))4）a(10)3，1）If Isprime(i) = True And Isprime(x - i) = True Then2）Isprime = True3）If x Mod i = 0 Then四，1．9 762， 4-93， 6 4 648 36 424，269五、1、Private Sub Command1_Click()Dim a() As Single, n As Integer, s As Single Dim v As Single, i As Integern = InputBox("请输入n的值")ReDim a(n)For i = 1 To na(i) = InputBox("")Next iv = f(a, n)For i = 1 To ns = s + (a(i) - v) ^ 2Next is = Sqr(s) / nPrint sEnd Sub2、Private Function fsum(a() As Single, n As Integer) As SingleDim i As IntegerFor i = 1 To nfsum = fsum + a(i)Next iEnd Function3、Private Sub ff(x() As Single, m As Byte, n As Byte, xmax As Single, ki As Byte, kj As Byte)Dim i As Integer, j As Integerxmax = x(1, 1): ki = 1: kj = 1For i = 1 To mFor j = 1 To nIf x(i, j) > xmax Then xmax = x(i, j): ki = i: kj = jNext 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 AsInteger（2）Str(n) + Str(n_error)（3）KeyPress（4）KeyAscii <> 13（5）Command1.Enabled = True2．（1）1 To 2*i–1（2）Command2.Enabled = True（3）Command2.Enabled = False四．1．GFEDCBA2．小，你好！小李，你好！3．您好欢迎使用Visual Basic!五．1．Private Sub Command1_Click(Index As Integer) Dim y As SingleSelect Case IndexCase 0y = Val(Text1.Text) + Val(Text2.Text)Label4.Caption = Text1.Text + "+" + Text2.Text + "=" + Str(y)Case 1y = Val(Text1.Text) - Val(Text2.Text)Label4.Caption = Text1.Text + "-" + Text2.Text + "=" + Str(y)Case 2y = Val(Text1.Text) * Val(Text2.Text)Label4.Caption = Text1.Text + "*" + Text2.Text + "=" + Str(y)Case 3y = 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("0") Or KeyAscii > Asc("9") Then '判断为非数字键KeyAscii = 0 '改变键入文本框的显示为空字符，即不显示End IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii < Asc("0") Or KeyAscii > Asc("9") ThenKeyAscii = 0End 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）C2，（1）B （2）D （3）D （4）D3，y=6y=144，（1）A （2）A （3）B （4）D 5，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("0") Or K > Asc("9")3，（1）b = Picture1.Point(x, y)（2）r = Int(c Mod 256)（3）Next j, I四，1．2．3．4．月亮环饶太阳转P234 练习九一，1，A 2，B 3，C 4，D 5，B 6，B 7，A二，1，m1.Visible = False FalseCommonDialog1.ColorCommonDialog1.FontItalic PopupMenu m1, 2 2，Static i As Integer Button = 1P251 练习十一，1，B 2，D 3，A 4，B 5，B二，NO 1 3NO 2 4NO 3 7NO 4 11NO 5 18三、1. list1.clearinput #1, nprime(n as integer) as boolean2. Filter=“文本文件|*.txt”not eof(1)四、3.Private Sub Command2_Click()Open "g:\myfile1.txt" For Input As #1Open "g:\myfile2.txt" For Output As #2Do While Not EOF(1)Input #1, c$, n1%, n2%, n3%Sum% = n1% + n2% + n3%ave% = Sum / 3Write #2, c$, n1%, n2%, n3%, Sum%, ave% LoopCloseEnd SubPrivate Sub Command1_Click()Text1.Text = ""Open "g:\myfile1.txt" For Input As #1Do While Not EOF(1)Line Input #1, sText1.Text = Text1.Text & s & Chr(13) & Chr(10)LoopClose #1End Sub。