n = Val(InputBox(\请输入一个整数n(n<=m)\ Loop While m < n '必须保证输入的两个数m>=n '****** 错误1 ******
Cmn = nFactor(m) / nFactor(n) * nFactor(m - n) Form1.Print \排列组合数为\End Sub
Public Function nFactor(ByVal n As Integer) As Double '该函数过程用于计算n!。 Dim i As Integer Dim temp As Double temp = 1
For i = 1 To n
temp = temp * i Next i
'******错误 2 ****** nFactor(n) = temp '****** 错误3 ****** End Sub 题解01
1：dalt > 0 2: dalt = 0 3：sqr(-dalt) 题解02
1：Len(oldsen)
2：” ” 注意：双引号中间有空格 3：mid(oldsen,I,1) 题解03
错误1：Dim k As Integer 改为：dim k as single
错误2：For i = 1 To 100 改为：for I=1 to 100 step 2 错误3：k = 1 / i + 1 改为：k=-1/(I+1) 题解04
1：trim(str(i)) 2：trim(str(I^2))
3：right(x2,len(x1))=x1 题解05 1：I\\100 2：i mod 10
3：I=hundred^3+ten^3+one^3 题解06 1：sign=-1
2：for I=2 to 19 3：sign=-sign 题解07 1：1 2：-1
3：x=2*(x+1)
53
题解08
1：last_two 2：this_one 3：I=I+1 4：I-1 题解09
1：len(str1) 2：length
3：mid(str1,I,2) 4：sum=0 题解10
1：m<=0 or n<=0 2：div=m
3：div=div -1 题解11
错误1：length = Val(str1) 改为：length = len (trim(str1)) 错误2：strleft = Left(str1, k) 改为：strleft = mid(str1, k,1)
错误3：strright = Right(str1, k) 改为：strright = mid(str1, length+1-k,1) 错误4：If strleft = strright Then 改为：If strleft <> strright Then 题解12
1：Dec mod 2 2：Bin 3：Dec\\2 4：Dec >= 1 题解13
错误1：Case Is < R 改为：Case Is > R
错误2：Loop While times > 5 改为：Loop While times <= 5
错误3：Form1.Print \正确答案为\改为：Form1.Print \正确答案为\题解14 1：s = 1
2：do while s <= 1E + 16 3：I = I + 1 题解15 1：n=n+7
2：(n mod 3=1) and (n mod 5=1) 3：while countN<5 题解16 1：t/n 2：term+t 3：str(term) 题解17 1：s<1000 2：x 3：n+1 4：n-2 题解18
54
错误1：For i = 9 To 1 改为：For i = 9 To 1 step -1 错误2：Form1.Print I 改为：Form1.Print trim(str(i)) 错误3：End Function 改为：End sub 题解19 1：5 2：num
3：trim(str(i))； 题解20 1：2
2：b = false 3：k=k+1 4：b = true 题解21
1：sum + x(i) 2：sum / 30
3：count = count + 1 4：count mod 5 = 0 题解22 1：pos = i 2：pos
3：a(i) = a(I+1) 题解23
错误1：For I = 1 To 10 改为：For I = 0 To 9
错误2：n = Int(Rnd * 90) 改为：n = Int(Rnd * 90) + 10
错误3：msgbox(\偶数个数：\改为：msgbox(\偶数个数：\题解24
1：k = Len(Trim(x)) 2：Mid(x,I,1) 3：I + 1 to k 题解25
1：int(rnd*1000) + 1 2：p = j 3：P <> i 4：a(i) 题解26 1：n + 1 2：I - 1
3：a(j) = a(j-1) + a(j) 4：a(j) 题解27 1：i - 1
2：swap a(I,j) , a(j,I) 3：Print a(I,j)； 题解28
错误1：If i <> j Or i <> 6 - j Then 改为：If i <> j and i + j <> 6 Then 错误2：Form1.Print a(i, j) + Space(3); 改为：Form1.Print a(i, j) & Space(3);
55
错误3：Form1.Print: Form1.Cls 改为：Form1.Print: Form1.Print 题解29 1：j >= i 2：a(I,j) = 1 3：Print 题解30 1：1
2：a(i) < 0 3：j = 0
Private Sub Form_Click() Call SCSJ Call TJ End Sub 题解31 1：a(1) 2：1 3：a(i) 4：i 题解32
错误1：If ave(Line_no) >= ave(i) Then 改为：If ave(Line_no) <= ave(i) Then 错误2：Line_no = ave(i) 改为：Line_no = i
错误3：a(Line_no, j) = a(1, j) 改为：a(1, j) = a(Line_no, j) 错误4：sum = a(i, j) 改为：sum = sum + a(i, j)
Private Sub Form_Click() Call DataProduce Call Average Call MaxLine End Sub 题解33
1：for j = I + 1 to 10 2：swap a(i) , a(j) 3：a(10) 题解34
错误1：Swap (a(j), a(i)) 改为：Swap a(j), a(i) 错误2：Loop While i = n 改为：Loop While i < n 错误3：For j = 1 To I 改为：For j = 1 To I - 1
错误4：Public Sub Swap(ByVal a As Integer, ByVal b As Integer) 改为： Public Sub Swap( a As Integer, b As Integer)
Private Sub Form_Click() Call GenerateData Call BubbleSort End Sub 题解35
56
1：isLeapYear(Year) 2：y mod 4 <> 0 3：y mod 400 <> 0 4：y mod 100 = 0 题解36
1：number(i) 2：n as integer
3：number = number + 7*10^(k-1) 题解37
1：matchCount(s1,s2) 2：len(str1)
3：InStr(str1,str2)
4：str1 = Right(str1, Len(str1) - pos - Len(str2) + 1) 或 str1=mid(str1,pos+len(str2)) 题解38
1：temp = 1 2：temp
3：nFactor(i) 4：sum 题解39
1：1 to len(a) 2：n + fact(p) 3：fact = y 题解40
错误1：n = Val(Hex) 改为：n = len(trim(Hex))
错误2：temp = Mid(Hex, i, 1) 改为：temp = Mid(Hex, n - i, 1) 错误3：Form1.Print Hex + \转换为十进制数为\改为：
Form1.Print Hex + \转换为十进制数为\
题解41
1：m < 0 or n < 0 2：m * n \\ div(m , n) 3：div = m
4：div = div - 1 题解42
错误1：Cmn = nFactor(m) / nFactor(n) * nFactor(m - n) 改为： Cmn = nFactor(m) /（ nFactor(n) * nFactor(m - n)） 错误2：nFactor(n) = temp 改为：nFactor = temp 错误3：End Sub 改为：End Function
57