《程序改错》由会员分享，可在线阅读，更多相关《程序改错（12页珍藏版）》请在金锄头文库上搜索。
1、程序改错GC135题目：程序功能：求1+2+3，直到其和超出3000为止，并输入结果。Private Sub Form_Click()ClsDim i As IntegerDim s As Singlei = 0*FOUND*s = 1 s = 0Do*FOUND* i = i + 2i = i + 1s = s + i*FOUND*Loop s 3000 Loop until s 3000 Print 从1 到:; i; 的和是; sEnd Sub程序改错GC136题目：程序功能为打印下列图形： * * * * *Private Sub Form_Click()ClsDim i As Int
2、egerDim j As Integer*FOUND*For i = 1 To 7 For i = 1 To 5 *FOUND* For j = 1 To 5 For j = 1 To i Print *;*FOUND* Next I Next jPrintNext iEnd Sub程序改错GC138题目：输出40以内能够被3整除的数，要求输出结果为 5个数一行。Private Sub Form_Click()ClsDim x As IntegerDim i As Integer*FOUND*i = 1 i = 0For x = 1 To 40If (x / 3) = (x 3) Then*F
3、OUND* Print x Print x ; i = i + 1 End If If i Mod 5 = 0 Then PrintEnd If*FOUND*Next I Next xEnd Sub程序改错GC143题目：该程序的功能是通过键盘给一维数组a输入10个 整数，然后将一维数组的这些数赋值给一个2行 5列的二维数组。最后在一行内输出一维数组、 在两行内输出二维数组。Private Sub Form_Click() Dim a(10), b(2, 5) As Integer Dim i As Integer, k As Integer, j As Integer For i = 1 T
4、o 10 a(i) = InputBox(请提供10个整数给数组) a(i) = Val(a(i) Next i k = 0 For i = 1 To 2 For j = 1 To 5 k = k + 1 b(i, j) = a(k) Next j Next i Print Tab(10); 数组a的值 Print Tab(10); For i = 1 To 10*FOUND* Print a(i) Print a(i) ; Next i Print Print Tab(10); 二维数组b的值是: For i = 1 To 2 Print Tab(10); For j = 1 To 5*FO
5、UND* Print b(j, i); Print b(i, j); Next j*FOUND* Paint b(i, j) print Next iEnd Sub程序改错GC144题目：下面程序的作用是产生100以内的全部素数，并 按每行5个数据输出。Private Function prime(ByVal n As Integer) Dim i As Integer prime = 1 If n = 1 Then prime = 0*FOUND* For i = 1 To n 1 For i = 2 To n - 1 If n Mod i = 0 Then prime = 0 Next i
6、End FunctionPrivate Sub Form_Click() Dim i As Integer, k As Integer k = 0 For i = 1 To 100 If prime(i) = 1 Then*FOUND* Print Tab(k Mod 5) * 8); i Print Tab(k Mod 5) * 8); i ; k = k + 1*FOUND* If k Mod 4 = 0 Then Print ; If k Mod 5 = 0 Then Print End If Next iEnd SubGC145题目：该程序的功能是求出100到200之间的全部素数， 并
7、且按每行4个、每个数据之间有10个空格的格 式输出。Private Sub Form_Click() Dim k As Integer, i As Integer, j As Integer k = 0 For i = 100 To 200*FOUND* For j = 1 To i 1 For j = 2 To i - 1 If i Mod j = 0 Then Exit For Next j If j = i Then*FOUND* Print i; Tab(10); Print i; space(10); k = k + 1*FOUND* If k Mod 5 = 0 Then Prin
8、t ; If k Mod 4 = 0 Then Print End If Next iEnd SubGc453【程序改错】题目：输入有10个正数，自小到大，存于数组A中（A（1）-A（10）， 编制程序，输入正数X，检查它是否存在于A中，若存在，显示对应下 标，若不存在，则请将X插入到A中，且不影响A中数组序列。Private Sub Command1_Click() Dim x As Integer, I As Integer, nn As Integer, A(11) As Integer, j As Integer nn = 10 I = 1 While (I = A(I - 1) Th
9、en I = I + 1 Else MsgBox (请重新输入 & Str(A(I) & Chr(13) & 必须大于 & Str(A(I - 1) End If Wend For I = 1 To nn Print A(I), If I Mod 4 = 0 Then Print Next I Print x = Val(InputBox(Input a Data to Check :) If x A(nn) Then *FOUND* A(nn) = x A(nn+1) = x For I = 1 To nn + 1 Print A(I), If I Mod 4 = 0 Then Print Next I Print Else For I = 1 To nn If x = A(I) Then Print 已经存在，序号是：; I Exit Sub Else If x A(I) And x A(I + 1) Then *FOUND* j = I j = I + 1 Exit For End If End If Next I For I = nn + 1 To j + 1 Step -1 A(I) = A(I -
