1.程序改错题
'''程序功能：输入每个人的考试分数（均为整数），若输入负数，则停止输入，然后输出大家的平均分。
'''操作要求：修改程序中的三个错误，使其能输出正确结果，结果要用带小数的形式表示。
Private Sub Command1_Click()
Dim N1 As Integer, C1 As Integer, S1 As Integer, A1 As Integer
Text1 = ""
C1 = 1
S1 = 0
Do While True
N1 = InputBox("输入一个整数：")
If N < 0 Then Exit Do
C1 = C1 + 1
S1 = S1 + N1
Loop
A1 = S1 / C1
Text1 = A1
End Sub

2.程序拼装
'''程序功能：输入三个整数，按从小到大顺序输出。
'''操作要求：将下面三个代码块正确插入程序中，使其能正常运行。
''''''①比较a和c两个变量中的数字大小，如果a大于c，则互换两者的数字。
'''If a > c Then
'''Temp = a
'''a = c
'''c = Temp
'''End If
''''''②比较a和b两个变量中的数字大小，如果a大于b，则互换两者的数字。
'''If a > b Then
'''Temp = a
'''a = b
'''b = Temp
'''End If
''''''③比较b和c两个变量中的数字大小，如果b大于c，则互换两者的数字。
'''If b > c Then
'''Temp = b
'''b = c
'''c = Temp
'''End If
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a = InputBox("输入第一个整数：")
b = InputBox("输入第二个整数：")
c = InputBox("输入第三个整数：")
'''在下面插入三段代码

。。。VB无力。。

好像娄山名人都玩Pascal