if k/4 = int(k/4) then Print 第73题 （1.0分）
'------------------------------------------------ '【程序改错】
'------------------------------------------------
'题目：求s=2!+4!+6!+8!，阶乘的计算用Function过程 ' fact实现
'------------------------------------------------ Option Explicit
Private Sub Form_Click() Dim i As Integer, s As Long '**********FOUND********** For i = 2 To 8 s = s + fact(i) Next i Print s End Sub
'**********FOUND********** Public Function fact() Dim t As Long Dim i As Integer t = 1
For i = 1 To n t = t * i Next i
'**********FOUND********** fact = i End Function 答案：
=======(答案1)======= For i = 2 To 8 Step 2
=======(答案2)=======
Public Function fact(ByVal n As Integer) =========或=========
Public Function fact(n As Integer) =========或========= Public Function fact(n%)
=========或========= Public Function fact(n) =========或=========
Public Function fact(ByVal n%) =========或=========
Public Function fact(ByVal n)
=======(答案3)======= fact = t
第76题 （1.0分）
'------------------------------------------------ '【程序改错】
'------------------------------------------------
'题目:下面的程序用“冒泡”法完成数组a中的10个整数 ' 按升序排列，请修正程序中错误。
'------------------------------------------------ Option Explicit
Private Sub Command1_Click() Dim a
Dim i As Integer, j As Integer, a1 As Integer a = Array(-2, 5, 24, 58, 43, -10, 87, 75, 27, 83) For i = 1 To 9
'**********FOUND********** For j = i To 9
'**********FOUND********** If a(j) >= a(i) Then a1 = a(i) a(i) = a(j)
'**********FOUND********** a(j) = a(i) End If Next j Next i
For i = 0 To 9 Print a(i) Next i End Sub 答案：
=======(答案1)=======
For j = i + 1 To 9 =========或========= For j = 1 + i To 9
=======(答案2)======= If a(i) >= a(j) Then
=======(答案3)======= a(j) = a1
第77题 （1.0分）
'------------------------------------------------ '【程序改错】
'------------------------------------------------
'题目:输入一个字符串，将所有的小写字母都转换为大写字母。
'------------------------------------------------ Option Explicit
Private Sub Form_Click()
Dim s1 As String, s2 As String, i As Integer, t As String s1 = InputBox(\输入字符串，#号结束\ i = 1
'**********FOUND********** s1 = Mid(s1, i, 1) While t <> \
'**********FOUND**********
If t >= \ s2 = s2 + t i = i + 1
t = Mid(s1, i, 1) Wend
'**********FOUND********** Print \新字符串为：\End Sub 答案：
=======(答案1)======= t = Mid(s1, i, 1)
=======(答案2)=======
If t >= \
=======(答案3)======= Print \新字符串为:\第79题 （1.0分）
'------------------------------------------------ '【程序改错】
'------------------------------------------------
'题目:设窗体中有图片框Pic1，现要求在其中绘制10个同心圆， ' 然后将此图以Test.BMP作文件名存入磁盘。
'------------------------------------------------ Option Explicit
Private Sub Command1_Click() Dim X As Integer Dim Y As Integer Dim I As Integer Dim rad(9) As Integer X = Pic1.ScaleWidth / 2 Y = Pic1.ScaleHeight / 2 '**********FOUND********** For I = 1 To 9
rad(I) = 500 * Rnd Next I I = 9
'**********FOUND********** Do Until I < 1
Pic1.Circle (X, Y), rad(I), RGB(256 * Rnd, 256 * Rnd, 256 * Rnd) '**********FOUND********** I = I + 1 Loop
SavePicture Pic1.Image, \End Sub 答案：
=======(答案1)======= for i=0 to 9 =========或========= for i=0 to 9 step 1
=======(答案2)======= Do Until I < 0 =========或=========
do until 0>i
=======(答案3)======= I = I - 1
=========或========= i=-1+i
第80题 （1.0分）
'------------------------------------------------ '【程序改错】
'------------------------------------------------
'题目：已知C的公式表示如下: ' n!
' C=------------------ ' (n-m)!*m!
'函数过程fac( )求k！函数,在Fomr_Click事件中完成运算， '请修正程序中错误。
'------------------------------------------------ Option Explicit
Private Function fac(k As Integer) As Single Dim x As Single, j As Integer '**********FOUND********** x = 0
For j = 1 To k
'**********FOUND********** x = x ^ j Next j fac = x End Function
Private 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) Print \End Sub 答案：