程序改错.doc

程序改错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 IntegerDim 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*FOUND* 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 To 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*FOUND* 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 iEnd 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之间的全部素数， 并且按每行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 Print ; 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) Then 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 X(J) Then If X(I)= 0.01 Loop While item = 0.00000001 Form1.Print e=; eEnd SubGC460题目：已知C的公式表示如下: n! C=- (n-m)!*m! 函数过程fac( )求k！函数,在Form_Click事件中完成运算，Private Function fac(k As Integer) As Single Dim x As Single, j As Integer *FOUND* x = 0 x = 1 For j = 1 To k *FOUND* x = x j x = x * j Next j fac = xEnd FunctionPrivate Sub Form_Click() Dim C As Single Dim m As Integer, n As Integer m = Val(InputBox(请输入一个整数(m)：) n = Val(InputBox(请输入一个整数(n)：) *FOUND* C = fac(n) / fac(n - m) * fac(m) C = fac(n) / (fac(n - m) * fac(m) Print C=; CEnd SubGC462题目：请修改程序中错误，保证程序最后输出效果如图1所示。Private Sub Form_Click() Dim i As Integer For i = 1 To 7 *FOUND* Print Spc(7); Print Spc(7 - i); *FOUND* If i = 1 Then If i = 1 Then Print * Else *FOUND* Print *; Spc(2 * (i - 1); * Print *; Spc(2 * (i - 1) - 1); * End If Next iEnd SubGC464题目：歌德巴赫猜想:任何一个大于或等于六的偶数都可 以分解成两个素数之和，请修正下面程序的错误。Private Sub Command1_Click()Dim i As Integer, j As Integer, k As Integer, m As IntegerDim n As Integer, m1 As Integer, m2 As Integer, numnum = Val(InputBox(请输入要验证的整数范围最大值(MAX)For i = 6 To num Step 2 For j = 3 To i *FOUND* k = j k =int( sqr(j) For m = 2 To k *FOUND* If j Mod m = 0 Then End If j Mod n = 0 Then exit for Next m If m k Then n = i - j m1 = Int(Sqr(n) For m2 = 2 To m1 If n Mod m2 = 0 Then Exit For Next m2 *FOUND*If m2 m1 Then Print i; =; j; +; n; , If m2 m1 Then Print i; =; j; +; n; End If Next j PrintNext iEnd SubGC466题目：下边是一个小动画程序，在窗体上放一个标签Label1， 每过1秒钟标签Label1的背景颜色由红到蓝，由蓝到绿， 再由绿到红循环变化，并自动修改标签Label1的Left， Top值使其从左上角沿窗体的对角线移动到窗体的右下角， 如此往复从而实现动画。Private flag As IntegerPrivate Sub Form_click() Timer1.Enabled = TrueEnd SubPrivate Sub Form_Load() Timer1.Interval = 1000 Label1.Left = 0 Label1.Top = 0 Label1.BackColor = vbBlack Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer() If Label1.Left Left + Width And Label1.Top = a(i) Then If a(i) = a(j) Then a1 = a(i) a(i) = a(j) *FOUND* a(j) = a(i) a(j) = a1 End If Next j Next i For i = 0 To 9 Print a(i) Next iEnd SubGC481题目:下面程序的功能是将一个整数转化为数值字符串， 列如123，转化为+123,-123转化为“-123”Private Function NtoC(ByVal n As Single) Dim sign As Boolean, i%, a%, count%, temp%(100) Dim strc As String sign = False *FOUND* If n 0 Then sign = False If n 0 *FOUND* a = n / 10 a = n mod 10 n = n 10 *FOUND* count = 1 count = count + 1 temp(count) = a Loop If sign Then strc = - Else strc = + For i = count To 1 Step -1 strc = strc + Chr(Asc(0) + temp(i) Next i NtoC = strcEnd FunctionPrivate Sub Command1_Click() Print NtoC(-123)End SubGC494题目:有5个人坐在一起，问第5个人多少岁?他说比第4个 人大2岁。问第4个人岁数，他说比第3个人大