【程序改错】'------------------------------------------------'题目：下面的程序段用于删除数组中指定位置的数字，'如果位置错误给出提示，否则分别显示删除前后'的数组元素'------------------------------------------------'注意：不可增加或删除程序行，也不可以更改程序结构'------------------------------------------------Private Sub Form_Click()Dim a(10) As Integer, x As Integer, i As Integer, k As Integer For i = 1 To 10a(i) = Int(Rnd * 90) + 10Print a(i);Next iPrintx = InputBox("请输入要删除第几位数字")'**********FOUND**********If x > 0 And x <= 10 Then 'If x > 0 Then'**********FOUND**********For k = x To 9 'For k = x To 10a(k) = a(k + 1)Next kPrint "删除后的数组:"For i = 1 To 9Print a(i);Next iElsePrint "删除位置错误"'**********FOUND**********End If 'EndEnd Sub【程序改错】'------------------------------------------------'题目：在下列程序段中，过程fb可以显示任意长度的菲'波那契数列，现要求通过键盘输入一数字，利用'该过程显示不超过指定数字大小的数列'------------------------------------------------'注意：不可增加或删除程序行，也不可以更改程序结构'------------------------------------------------Option ExplicitPrivate Sub Form_Click()Dim x As Integerx = Val(InputBox("请指定显示范围"))'**********FOUND**********Call fb(x) 'call fb yEnd SubPublic Sub fb(x As Integer)Dim i&, j%, k%j = 1i = 1Print i; j;k = i + j'**********FOUND**********Do Until k > x 'Do While k > xPrint k;i = jj = k'**********FOUND**********k = i + j 'k = i - jLoopEnd Sub'【程序改错】'------------------------------------------------'题目：下面的程序段用于实现以下功能：建立一顺序文'件，存放10名同学的学号和三门功课成绩，显示'该文件内所有记录，并同时显示其总分和平均分'------------------------------------------------'注意：不可增加或删除程序行，也不可以更改程序结构'------------------------------------------------Private Sub Form_Click()Dim no%, c1%, c2%, c3%, i As Integer'**********FOUND**********Open "c:\2.txt" For Output As #1 'Open "c:\2.txt" For Input As #1 For i = 1 To 3no = InputBox("请输入学号")c1 = InputBox("请输入数学成绩")c2 = InputBox("请输入语文成绩")c3 = InputBox("请输入外语")Write #1, no, c1, c2, c3Next iClose #1'**********FOUND**********Open "c:\2.txt" For Input As #1 'Open "c:\2.txt" For Output As #1 For i = 1 To 3'**********FOUND**********Input #1, no, c1, c2, c3 'Print #1, no, c1, c2, c3Print no, c1, c2, c3, c1 + c2 + c3, (c1 + c2 + c3) / 3Next iClose #1End Sub'【程序改错】'------------------------------------------------'题目：以下程序段用于输出100-300的所有素数'------------------------------------------------'注意：不可增加或删除程序行，也不可以更改程序结构'------------------------------------------------Private Sub Form_Click()Dim n As Integer, k As Integer, i As Integer, swit As IntegerFor n = 101 To 300 Step 2k = Int(Sqr(n))i = 2'**********FOUND**********swit = 0 'swit = 1'**********FOUND**********While swit = 1 'While swit = 0If n Mod i = 0 Thenswit = 1Else'**********FOUND**********i = i + 1 ' i = i - 1End IfWendIf swit = 0 ThenPrint n;If n Mod 7 = 0 Then PrintEnd IfNext nEnd Sub'【程序改错】'------------------------------------------------'题目：在下面的程序段中过程pd可以判断任意三个数能' 否构成三角形的三边，利用该过程的判定结果，' 对能构成三角形的计算其面积，构不成的显示"' 不能构成三角形"'------------------------------------------------'注意：不可增加或删除程序行，也不可以更改程序结构'------------------------------------------------Option ExplicitPrivate Sub Form_Click()'**********FOUND**********Dim x%, y%, z%, s!, b As Boolean, h As Single 'Dim x%, y%, z%, s%, b As Boolean, h As Single x = InputBox("请输入三角形的边长")y = InputBox("请输入三角形的边长")z = InputBox("请输入三角形的边长")b = pd(x, y, z)h = (x + y + z) / 2'**********FOUND**********If b Then 'If Not b Thens = Sqr(h * (h - x) * (h - y) * (h - z))Print "三角形面积是"; sElsePrint "不能构成三角形"End IfEnd Sub'**********FOUND**********Public Function pd(x%, y%, z%) As Boolean 'Public Function pd() As BooleanIf x > 0 And y > 0 And z > 0 And x + y > 0 And x + z > y And y + z > x Thenpd = TrueElsepd = FalseEnd IfEnd Function'【程序改错】'------------------------------------------------'题目：以下程序段用于打印如下图形式的九九乘法表：'------------------------------------------------'注意：不可增加或删除程序行，也不可以更改程序结构'------------------------------------------------Private Sub Form_Click()Dim i As Integer, j As Integer, k As IntegerPrint Tab(30); "9*9 table"Print: PrintPrint " * ";For i = 1 To 9'**********FOUND**********Print Tab(i * 6); i; 'Print Tab(i * 6); iNext iPrintFor j = 1 To 9Print j; " ";'**********FOUND**********For k = 1 To 9 'For k = 1 To 9(可能会根据图的样式更改为j To 9或1 To j) '**********FOUND**********Print Tab(k * 6); j * k; " "; 'Print Tab(j * 6); j * k; " ";Next kPrintNext jEnd Sub'【程序改错】'------------------------------------------------'题目：一个两位的正整数，如果将它的个位数与十位数' 对调，则产生另一个正整数，我们把后者叫做前' 者的对调数，现给定一个两位的正数，请找到另' 一个两位的正整数，使得这两个两位正整数之和' 等于它们各自的对调数之和。