程序调试题参考答案(新题库).doc

VB程序调试题参考答案（新题库）11. dalt0 2. dalt=0 3. Sqr(-dalt)21. start = Space(21 - i) 2. Count = 19 - 2 * i 3. Form1.Print start; 4. Form1.Print31. 5 2. num 3. Trim(Str(i); 41. For i=9 to 1 step 1 2. Form1.Print Trim(Str(i); 3. End Sub51. number(i) 2. n As Integer 3. number=number*10+761. 1 2. -1 3. x=(x+1)*271. 2 2. b = False 3. k = k + 1 4. b 或 b = True81. do while x4 or x mod 20 或者 do until x4 and x mod 2=02. if Isprime(i) and Isprime(x-i) then3. Isprime=true 4. if x mod i=0 then91. n+1 2. n Mod 3=1 and n Mod 5=1 and n Mod 7=1 3. While countN5101. isLeapYear(year) 或 isLeapYear(year)=True 2. y Mod 4 0 3. y Mod 100 = 0 4. y Mod 400 0111. for two=1 to n-one 2. if one+two*2+five*5=60 then 3. next two 4. next one121. Trim(Str(i) 2. Trim(Str(i2) 3. Right(x2,Len(x1)=x1131. i100 2. i mod 10 4. hundred3+ten3+one3=i141. factor i , n 2. if i = s then 3. for i = 2 to x -1 4. a(k) = i151. s = 1 2. Do While s 1E+16 3. i = i + 1161. s 1000 2. x 3. n + 1 4. n - 2171. sign = -12. 19 3. sign = -sign181. Dim k As Single 2. For i = 1 To 100 Step 2 3. k = -1 / (i + 1)191. temp=1 2. temp 3. nFactor(i) 4. sum201. 1 To Len(a) 2. n + fact(p) 3. fact = y211. Cmn = nFactor(m) / (nFactor(n) * nFactor(m - n) 2. nFactor= temp3. End Function 221. Len(oldsen)2. lastchar = 3. Mid(oldsen, i, 1)231. salary(i) 2. temp mod 10 或者 temp - hundred * 100 3. temp 4. totalsalary + salary(i)241. length = Len(str1)2. strleft = Mid(str1, k, 1)3. strright = Mid(str1, length - k + 1, 1)4. If strleft strright Then251. Case Is R2. Loop Until times 53. Form1.Print 正确答案为 & Str(R)261. Len(str1)2. length3. Mid(str1, i, 2) 4. sum=0271. matchCount(s1, s2)2. Len(str1)-Len(str2)+13. InStr(pos + 1, str1, str2) 4. i=pos281. m = 0 Or n = 02. m * n / Div(m, n) 3. Div = m 4. Div = Div -1291. m = 0 Or n = 0 2. div=m 3. div = div -1301. Dec Mod 2 2 Bin 3. Dec 2 4. Dec 0311. n = Len(Hex) 2. temp=Mid(Hex,n-i,1) 3. Form1.Print Hex + 转换为十进制数为 & Dec321. last_two 2. this_one 3. i=i+1 4. i-1331. For i = 0 To 9 2. n = Int(Rnd * 90) + 103. MsgBox (偶数个数： & count)341. t=1 2. a(i)0 3. j = 0351. a(i)=int(Rnd*100) 2. p=int(a(i) Mod 10) 3. x(p)=x(p)+14. Form1.print “个位数为”+str(p)+”共”+str(x(i) + 个361. n + 1 2. i - 1 3. a(j) = a(j) + a(j - 1) 4. a(j)371. pos=i 3. pos 4. a(i)=a(i+1)381. a(1) 2. 1 3. a(i) 4. i 391. Int(Rnd * 1000) + 1 2. p = j 3. pi 4. a(i) a(i - 1)401. Call Swap(a(j), a(i)2. Loop Until i = n3. For j = 1 To i - 14. Public Sub Swap(ByRef a As Integer, ByRef b As Integer)411. for j=i+1 to 10 3. Call Swap(a(i), a(j)4. a(i) 或 a(10)421. Len(x) 2. Mid(x, i, 1)3. i + 1 To k431. x(i)=int(Rnd*100) +12. If x(i) ins Then Exit For 3. x(j+1)=x(j) 4. x(pos)=ins441. Int(90*Rnd)+10 2. x(j)=x(i) 3. i = i+1 4. count=count-1 5. i = count451. sum + x(i) 2. sum / 30 3. count = count + 1 4. count Mod 5 = 0461. If ave(Line_no) ave(i) Then2. Line_no = i 3. a(1, j) = a(Line_no, j)4. sum=sum+a(i,j)471. If i j And i 6 - j Then2. Form1.Print a(i, j) ; Space(3);3. Form1.print :Form1.print481. i = j 2. a(i,j)=1 3. Form1.Print491. i-1 2. Call Swap(a(i, j), a(j, i) 3. Form1.Print a(i,j);50