vb题库3(2)

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()

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库vb题库3(2)在线全文阅读。