程序改错

Dim A As Integer
Dim B As Integer
Dim C As Integer
Private Sub Form_Click()
Dim nTemp As Integer
A = Val(InputBox("Please input first integer", "输入正整数"))
B = Val(InputBox("Please input second integer", "输入正整数"))
C = Val(InputBox("Please input third integer", "输入正整数"))
'**********FOUND**********
If A <= C Then
nTemp = A
A = B
B = nTemp
End If
'**********FOUND**********
If B <= C Then
nTemp = A
A = C
C = nTemp
End If
'**********FOUND**********
If A <= B Then
nTemp = B
B = C
C = nTemp
End If

Print "The integers in order is"; A; B; C
End Sub


if A <=B then
if A <=c then
if B <=C then





'------------------------------------------------
'【程序改错】
'------------------------------------------------

'题目：下面程序可输出如下图形：
' *
' ***
' *****
' *******
' *********

'------------------------------------------------
'注意：不可增加或删除程序行，也不可以更改程序结构
'------------------------------------------------

Private Sub Form_Click()
Dim m As Integer, n As Integer, s As String, i As Integer, j As Integer
n = 4
m = 1
s = "*"
For i = 5 To 1 Step -1
'**********FOUND**********
Print Spc(n)
For j = 1 To 2 * m - 1
Print s;
Next j
Print
'**********FOUND**********
n = n + 1
'**********FOUND**********
m = m - 1
Next i
End Sub


? Spc(n)
n=n-1
m=m+1



Option Explicit

'------------------------------------------------
'【程序改错】
'------------------------------------------------

'题目：求s=2!+4!+6!+8!，阶乘的计算用Function过程
' fact实现


'------------------------------------------------
'注意：不可增加或删除程序行，也不可以更改程序结构
'------------------------------------------------

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


For i = 2 to 8 Stap 2
Publc Function fact (ByVal n As integer)
fact = t




'------------------------------------------------
'【程序改错】
'------------------------------------------------

'题目：程序功能根据输入的学习成绩,分别显示优秀
' (90分以上), 良好(75分以上),及格(60分以上)
' ,不及格几个等级.

'------------------------------------------------
'注意：不可增加或删除程序行，也不可以更改程序结构
'------------------------------------------------

Private Sub Form_Click()
Cls
Dim i As Integer
i = InputBox("请输入学习成绩")
Select Case i
'*

*********FOUND**********
Case 0 < i < 100
MsgBox "成绩应该在0--100之间"
'**********FOUND**********
Case 90
Print "优秀"
Case 75 To 90
Print "良好"
Case 60 To 75
Print "及格"
'**********FOUND**********
Case
MsgBox "不及格", vbCritical
End Select
End Sub


case is >100,is <0
case 90 to 100
case else







'------------------------------------------------
'【程序改错】
'------------------------------------------------

'题目：程序功能为打印下列图形：
' *
' **
' ***
' ****
' *****

'------------------------------------------------
'注意：不可增加或删除程序行，也不可以更改程序结构
'------------------------------------------------

Private Sub Form_Click()
Cls
Dim i As Integer
Dim j As Integer
'**********FOUND**********
For i = 1 To 7
'**********FOUND**********
For j = 1 To 5
Print "*";
'**********FOUND**********
Next i
Print
Next i
End Sub


for i = 1 to 5
for j = 1 to i
next j







Option Explicit

'------------------------------------------------
'【程序改错】
'------------------------------------------------

'题目：已知C的公式表示如下:
' n!
' C=------------------
' (n-m)!*m!

'函数过程fac( )求k！函数,在Fomr_Click事件中完成运算，
'请修正程序中错误。

'------------------------------------------------
'注意：不可增加或删除程序行，也不可以更改程序结构
'------------------------------------------------


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 "C="; C
End Sub


x =1
x =x*j
C = fac(n)/fac(n-m)/fac(m)




Option Explicit

'------------------------------------------------
'【程序改错】
'------------------------------------------------

'题目：随机产生n个两位正整数（n由输入对话框输入，且n>0），
' 求出其中的偶数之和，并在标签框Label1上显示。

'------------------------------------------------
'注意：不可增加或删除程序行，也不可以更改程序结构
'------------------------------------------------
Private Sub Command1_Click()
Dim n As Integer
Dim i As Integer, sum As Long
Dim rnddat As Integer
n = Val(InputBox("Please input a integer", "Input N value"))
'**********FOUND**********
sum = n
If n > 0 Then
For i = 1 To n
'**********FOUND**********
rnddat =

Int(90 * Rnd)
Me.Print rnddat;
'**********FOUND**********
If rnddat / 2 = 0 Then
sum = sum + rnddat
End If
Next i
Label1.Caption = sum
End If
End Sub



sum =0
rnddat = 10 +int(90*rnd)
if rnddat mod 2 =0 then



Option Explicit

'------------------------------------------------
'【程序改错】
'------------------------------------------------

'题目：求s=72+102+132+……832的值。

'------------------------------------------------
'注意：不可增加或删除程序行，也不可以更改程序结构
'------------------------------------------------

Private Sub Form_Click()
Cls
Dim s As Long
Dim i As Integer
'**********FOUND**********
s = 1
'**********FOUND**********
For i = 7 To 832
s = s + i
'**********FOUND**********
Next 30
Print s
End Sub



s=0
for i = 72 to 832 step 30
next i




'------------------------------------------------
'【程序改错】
'------------------------------------------------

'题目：以下程序用于建立一个三行三列的矩阵，使其两
' 条对角线上数字为1，其余位置为0


'------------------------------------------------
'注意：不可增加或删除程序行，也不可以更改程序结构
'------------------------------------------------

Private Sub Form_Click()
Dim x(3, 3), n As Integer, m As Integer
For n = 1 To 3
For m = 1 To 3 '(1)
'**********FOUND**********
If n = m Then x(n, m) = 1 Else x(n, m) = 0 '(2)
'**********FOUND**********
Next n, m '(3)
For n = 1 To 3
For m = 1 To 3 '(4)
'**********FOUND**********
Print x(m, n);
Next m
Print '(5)
Next n
End Sub



if n = m or m = 3 + 1 - n then x(n,m) = 1 else x(n,m)=0
next m,n
? x(n,m)