铁道出版社重庆计算机VB程序设计第八章实战套题上机答案

实战一六、程序设计题（每小题10分，共20分）1.Private Sub Command1_Click()Dim a(0 To 9) As Integers = Text1.TextFor i = 1 To Len(s)c = Val(Mid(s, i, 1))a(c) = a(c) + 1Next iFor j = 0 To 9Label1.Caption = Label1.Caption & j & "出现的次数= " & a(j) & Chr(13) & Chr(10) Next jEnd Sub2.Private Sub Form_Click()Dim house As Single, m As Single, w As Single, y As Integerhouse = 70 * 3.0479m = 0w = 0.5y = 0Do While m < housem = m + w * 12w = w * 1.05house = house * 1.03y = y + 1LoopPrint yEnd Sub8.1.2实战套题一上机试卷11.Private Sub Form_Click()RandomizeClsDim x(1 To 5)For k = 1 To 5 ' 产生随机数x(k) = Int(Rnd * 9000 + 1000)Next kScale (-0.5, 10100)-(6, -2000) ' 自定义坐标系Line (0, 10000)-(0, -0) ' 画纵轴Line (0, 0)-(5.5, 0) ' 画横轴For k = 1 To 5 ' 画直方图Line (k - 0.5, x(k))-(k, 0), , BFNext kCurrentY = -200For k = 1 To 5 ' 标横轴的数字CurrentX = (k - 0.5)Print x(k);Next kEnd Sub2.Private Sub Command1_Click()Taxi = Val(Text1.Text)If Taxi <= 3 ThenFee = 7ElseIf Taxi <= 15 ThenFee = 7 + 1.2 * (Taxi - 3)ElseFee = 7 + 1.2 * 12 + 1.8 * (Taxi - 15)End IfLabel2.Caption = "应付出租车费：" & Fee & "元"End Sub3.Private Sub Form_Click()Dim a As Variant, b As Varianta = Array(85, 77, 92, 66, 44)b = Array("黄玉梅", "朱明霞", "孙家宝", "赵天明", "杨百万")Max = a(0)student = b(0)For i = 1 To 4If a(i) > Max ThenMax = a(i)student = b(i)End IfNext iPrint "成绩最好的学生是："; student; " 考试成绩为："; Max; "分" End Sub8.1.3实战套题一上机试卷21.Dim x1 As Single, y1 As Single, x2 As Single, y2 As SinglePrivate Sub Form_Load()ScaleMode = 6End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Clsx1 = Xy1 = YEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) x2 = Xy2 = YLine (x1, y1)-(x2, y2), , Bs = Abs(x1 - x2) * Abs(y1 - y2)PrintPrint "矩形的宽度* 高度= " & Round(x2 - x1, 2) & " * " & Round(y2 - y1, 2) & "(毫米)"Print "矩形的面积为= " & Round(s, 2) & "(平方毫米)"End Sub2.Private Sub Command1_Click()chip = Val(Text1.Text)price = 8If chip <= 100 ThenFee = chip * priceElseIf chip > 100 And chip <= 300 ThenFee = 100 * price + (chip - 100) * price * 0.9ElseFee = 100 * price + 200 * price * 0.9 + (chip - 300) * price * 0.8End IfLabel2.Caption = "采购" & chip & "片芯片总共应付" & Fee & "元"End Sub3.Private Sub Form_Click()Dim score As Variantscore = Array(93.88, 91.77, 92.66, 94.55, 90.99, 96.11, 97.22)Max = score(0)Min = score(0)Sum = score(0)For i = 1 To 6If score(i) > Max Then Max = score(i)If score(i) < Min Then Min = score(i)Sum = Sum + score(i)Next iaverage = (Sum - Max - Min) / 5Print "参赛选手的实际得分："; averageEnd Sub实战二：六、程序设计题（每小题10分，共20分）1.Private Sub Form_Click()For i = 1 To 25score = i * 4 - (25 - i) * 1If score = 60 Then Exit ForNext iPrint "何平阳同学共答对了" & i & "道题" End Sub2.Private Sub Form_Click()For i = 1 To 32black = iwhite = 32 - iIf black * 5 = white * 3 Then Exit For Next iPrint "黑色皮块="; black, "白色皮块="; white End Sub8.2.2 实战套题二上机试卷11.Private Sub Form_Click()Dim a(20) As IntegerPrint "数字序列：";For i = 1 To 20a(i) = Int(Rnd * 90 + 10)Print a(i);Next iPrintPrint "峰值位置：";For j = 2 To 19If a(j) > a(j - 1) And a(j) > a(j + 1) ThenPrint Tab(4 * j + 8); "↑";End IfNext jEnd Sub2.Private Sub Command1_Click()s1 = Text1.Texta = Split(s1, " ")Max = Len(a(0))s2 = a(0)For i = 1 To UBound(a)If Len(a(i)) > Max ThenMax = Len(a(i))s2 = a(i)End IfNext iLabel1.Caption = "最长的单词是：" + s2 End SubPrivate Sub Command2_Click()EndEnd Sub3.Option ExplicitPrivate Sub Form_Click()Dim s As LongDim x As SingleDim a As VariantDim i As Integers = 0a = Array(37, 92, 58, 63, 21, 73, 77, 84, 55, 49)For i = LBound(a) To UBound(a)s = s + a(i)Next ix = s / (UBound(a) - LBound(a) + 1)x = Round(x, 2)Print "平均值="; xEnd Sub8.2.3 实战套题二上机试卷21.Private Sub Command1_Click()n = Val(Text1.Text)a1 = Val(Text2.Text)a2 = Val(Text3.Text)price = Val(Text4.Text)area = a1 + a2 - n * 60If area > 0 Thentax = area * price * 0.7 * 0.004Elsetax = 0End IfLabel5.Caption = Label5.Caption & taxEnd Sub2.Private Sub Command1_Click()s = Text1.TextFor i = 1 To Len(s)c = Mid(s, i, 1)If c >= "a" And c <= "z" Then m = m + 1If c >= "A" And c <= "Z" Then n = n + 1Next iText2.Text = "大写字母有" & n & "个小写字母有" & m & "个" End Sub3.Private Sub Form_Click()ClsDim c(1 To 10) As Integeri = 1Do While i <= 10c(i) = Int(Rnd * 90) + 10r = TrueFor j = 1 To i - 1If c(j) = c(i) Then r = FalseNextIf r = True ThenPrint c(i);i = i + 1End IfLoopEnd Sub实战三六、程序设计题（每小题10分，共20分）1.Private Sub Command1_Click()n = Val(Text1.Text)For i = 2 To n / 2If Prime(i) And Prime(n - i) ThenLabel2.Caption = n & " = " & i & " + " & n - iExit ForEnd IfNext iEnd SubPrivate Function Prime(ByVal number) As BooleanPrime = TrueFor i = 2 To Sqr(number)If number Mod i = 0 ThenPrime = FalseExit ForEnd IfNext iEnd Function2.Private Sub Form_Click()Dim a(20) As IntegerFor i = 1 To 20a(i) = Int(Rnd * 90 + 10)Print a(i);Next iPrintpeak = 0For j = 2 To 19If a(j) > a(j - 1) And a(j) > a(j + 1) Thenpeak = peak + 1End IfNext jPrint "序列中峰值有" & peak & " 个"End Sub8.3.2 实战套题三上机试卷11.Dim sum As IntegerPrivate Sub Command1_Click()Picture1.Print "总价= "; sum; "元"End SubPrivate Sub List1_Click()s = List1.Textn = InStr(s, " ")price = Val(Mid(s, n))Picture1.Print ssum = sum + priceEnd Sub2.'设置Label1的AutoSize属性为True，Timer1的Interval属性为50 Dim X As IntegerPrivate Sub Form_Load()Label1.AutoSize = TrueLabel1.Caption = "学无止境"Timer1.Interval = 50Label1.Left = (Form1.ScaleWidth - Label1.Width) / 2X = 1End SubPrivate Sub Timer1_Timer()If Label1.Width > Form1.ScaleWidth Then X = -XIf Label1.FontSize < 6 Then X = -XLabel1.FontSize = Label1.FontSize + XLabel1.Left = (Form1.ScaleWidth - Label1.Width) / 2End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)EndEnd SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then EndEnd Sub3.Private Sub Form_Click()n = Val(InputBox("请输入一个大于2的正整数："))For i = -n To nPrint Tab(n + Abs(i));number1 = 2 * (n - Abs(i)) + 1string1 = Trim(Str(Abs(i)))Print String(number1, string1)Next iEnd Sub8.3.3 实战套题三上机试卷21.Private Sub Command1_Click()Picture1.Clss = Text1.TextNumber = 0For i = 0 To List1.ListCount - 1If InStr(List1.List(i), s) > 0 ThenPicture1.Print List1.List(i)Number = Number + 1End IfNext iPicture1.Print "满足检索条件的有："; Number; "本"End Sub2.Dim direction As IntegerPrivate Sub Form_KeyPress(KeyAscii As Integer)Timer1.Enabled = Not Timer1.EnabledEnd SubPrivate Sub Form_Load()Picture1.Width = 1000Picture1.Height = 600Timer1.Interval = 10direction = 20Me.KeyPreview = TrueEnd SubPrivate Sub Timer1_Timer()Picture1.Left = Picture1.Left + directionIf Picture1.Left >= Me.ScaleWidth - Picture1.Width Then direction = -direction If Picture1.Left <= 0 Then direction = -directionEnd Sub3.Dim s1 As StringPrivate Sub Form_Load()Label1.AutoSize = TrueLabel1.Caption = "重庆市高等院校计算机等级考试"Timer1.Interval = 50s1 = 50End SubPrivate Sub Timer1_Timer()Label1.Left = Label1.Left - s1If Label1.Left < -Label1.Width ThenLabel1.Left = Me.WidthEnd IfEnd Sub实战四六、程序设计题（每小题10分，共20分）1.Private Sub Form_Click()Print "定价", "收入"guest = 80income = guest * (160 - 40)For price = 180 To 2000 Step 20guest = guest - 3temp = guest * (price - 40)If temp > income Then income = tempPrint price, tempIf temp < income Then Exit ForNext pricePrint "客房定价为" & price - 20 & "元时，达到收入最大化"End Sub2.Dim a(10) As IntegerPrivate Sub Form_Activate()RandomizePrint "随机序列：";For i = 1 To 10a(i) = Int(Rnd * 90 + 10)Print a(i);Next iPrintEnd SubPrivate Sub Form_Click()Print "单击窗体：";temp = a(1)For i = 1 To 9a(i) = a(i + 1)Print a(i);Next ia(10) = tempPrint a(10)End Sub8.4.2 实战套题四上机试卷11.Private Sub Command1_Click()r = Val(Text1.Text)v = (4 / 3) * 3.14159 * r ^ 3s = 4 * 3.14159 * r ^ 2If Check1.Value = 1 ThenText2.Text = vElseText2.Text = ""End IfIf Check2.Value = 1 ThenText3.Text = sElseText3.Text = ""End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub2.Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ClsX1 = IIf(X < Me.ScaleWidth - X, X, Me.ScaleWidth - X) - Me.TextHeight("*")Y1 = IIf(Y < Me.ScaleHeight - Y, Y, Me.ScaleHeight - Y) - Me.TextHeight("*")r = IIf(X1 < Y1, X1, Y1)pi = 3.14156For i = 0 To 360 Step 15CurrentX = X + r * Cos(i * pi / 180)CurrentY = Y - r * Sin(i * pi / 180)Print "*"Next iEnd Sub3.Private Sub Command1_Click()x = Val(Text1.Text)i = 1q = 0Do While i <= Len(x)p = Val(Mid(x, i, 1))q = q * 2 + pi = i + 1LoopLabel2.Caption = "转换成的十进制数：" & q End Sub8.4.3 实战套题四上机试卷21.Private Sub Command1_Click()r = Val(Text1.Text)v = 3.14159 * r ^ 2s = 2 * 3.14159 * rIf Check1.Value = 1 ThenText2.Text = vElseText2.Text = ""End IfIf Check2.Value = 1 ThenText3.Text = sElseText3.Text = ""End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub2.Private Sub Form_Click()Const d = 3.14159 / 180s = "Visual Basic Programming"n = Len(s) + 1p = 360 / nx = Me.ScaleWidth \ 2y = Me.ScaleHeight \ 2For i = 0 To n - 1CurrentX = x + 1000 * Cos((i * p + 180) * d)CurrentY = y - 1000 * Sin((i * p + 180) * d)Print Mid(s, n - i, 1)Next iEnd Sub3.Private Sub Form_Click()Dim a(10) As IntegerFor i = 1 To 10a(i) = Int(Val(InputBox("请输入第" & i & "个整数", "输入"))) Next iIf a(1) > a(2) Then d = 1 Else d = 0For i = 2 To 9If d = 0 And a(i) > a(i + 1) Then Exit ForIf d = 1 And a(i) < a(i + 1) Then Exit ForNext iIf i < 10 ThenPrint "输入数据序列不是有序序列！"ElseIf d = 1 ThenPrint "输入数据序列是从大到小的有序序列！"ElsePrint "输入数据序列是从小到大的有序序列！"End IfEnd IfEnd Sub实战五六、程序设计题（每小题10分，共20分）1.Private Sub Command1_Click()m = Val(Text1.Text)n = Val(Text2.Text)If m > n Thentemp = mm = nn = tempEnd IfSum = 0For i = m To nSum = Sum + iNext iLabel3.Caption = "从" & Text1.Text & "到" & Text2.Text & "的累加和= " & Sum End Sub2.Private Sub Command1_Click()s = Text1.Textn = 0For i = 1 To Len(s)c = Mid(s, i, 1)If c >= "A" And c <= "Z" Thenn = n + 1End IfNext iLabel1.Caption = "输入字符串中包含的大写字母有" & n & "个"End Sub8.5.2 实战套题五上机试卷11.Private Sub Command1_Click()X1 = Val(Text1.Text)X2 = Val(Text2.Text)Sum = 0If X1 < X2 Then n = 1 Else n = -1For i = X1 To X2 Step nIf i Mod 2 <> 0 ThenSum = Sum + iEnd IfNext iLabel3.Caption = "从" + Text1.Text + "到" + Text2.Text + "之间所有奇数的累加和＝" + Str(Sum)End Sub2.Private Sub Command1_Click()Dim student As Variantstudent = Split(Text1.Text)fat = 0Order = 0Max = 0For i = 0 To UBound(student) - 2 Step 3fat = Val(student(i + 2)) / Val(student(i + 1))If fat > Max ThenMax = fatOrder = iEnd IfNext iLabel2.Caption = "最胖的人是：" & student(Order)End Sub3.Private Sub Form_Click()Dim a(1 To 20)RandomizeFor i = 1 To 20a(i) = Int(Rnd * 90 + 10)Print a(i);If i Mod 10 = 0 Then PrintNext iPrintMax = 0: Min = 100For i = 1 To 20If a(i) > Max Then Max = a(i): posmax = iIf a(i) < Min Then Min = a(i): posmin = iNext iPrint "最大值="; Max, "最大值位置："; posmaxPrint "最小值="; Min, "最小值位置："; posminEnd Sub8.5.3 实战套题五上机试卷21.Private Sub Option1_Click()father = Val(Text1.Text)mother = Val(Text2.Text)child = Round((father + mother) * 1.08 / 2, 2)Label3.Caption = Option1.Caption & "长大后的预计身高为：" & child & "cm" End SubPrivate Sub Option2_Click()father = Val(Text1.Text)mother = Val(Text2.Text)child = Round((father * 0.923 + mother) / 2, 2)Label3.Caption = Option2.Caption & "长大后的预计身高为：" & child & "cm" End Sub2.Private Sub Command1_Click()Dim student As Variantstudent = Split(Text1.Text)x = Trim(Text2.Text)c = 0For i = 0 To UBound(student)If Left(student(i), 1) = x Thenc = c + 1End IfNext iText3.Text = "姓" & x & "的有" & c & "位"End Sub3.Private Sub Form_Click()Dim a(1 To 20) As IntegerDim ave As Single, sum As SingleClsRandomizeFor i = 1 To 20a(i) = Int(Rnd * 90 + 10)Print a(i);If i Mod 10 = 0 Then Printsum = sum + a(i)Next iPrintave = sum / 20Print "大于平均值的数是："For i = 1 To 20If a(i) > ave ThenPrint a(i);End IfNext iEnd Sub。