Dim k As Integer, i As Integer, j As Integer k = 0
For i = 100 To 200
'**********ERROR********** For j = 1 To i - 1
If i Mod j = 0 Then Exit For Next j
If j = i Then
'**********ERROR********** Print i; Tab(10); k = k + 1
'**********ERROR**********
If k Mod 5 = 0 Then Print ; End If Next i End Sub
'------------------------------------------------ '【程序改错】
'------------------------------------------------ '题目:输入两个正整数m和n，求其最大公约数。
'------------------------------------------------ Private Sub Form_Click()
Dim m As Integer, n As Integer, r As Integer m = InputBox(\输入m的值：\ n = InputBox(\输入n的值：\ Do While n <> 0
'**********ERROR********** r = m / n m = n
'**********ERROR********** n = m Loop
'**********ERROR**********
Print \两数的最大公约数为：\End Sub
答案：BDAADCBBDCBCBCC
错错对错错对对对错错错对对对对对对对错错
1+int(x);False;Timer;1;查看代码；2 20 3 21 4 22 5 23；M-N+1;地址 程序设计：
1. Dim i As Integer For i=1 To 100
If I Mod 2=0 Then Sun=sum+i End If
Next Print sum
2. Dim k As Integer,s As Ingeter Do
s=s+(w Mod 10)*(w Mod 10) w=Int(w/10) Loop While w<>0 If s Mod 5=0 Then
k=1
Else k=0
End If fun=k 程序改错： 1. For j=2 To i-1 Print I;Spc(10)
If k Mod 4=0 Then Print 2. r=m Mod n n=r
Print “两数的最大公约数为：”;n; 程序填空：
1. find m,n call find(m,n) s=1 s=1:p=0 p+y x*y 2. As Ingeter a()