Question

关于VB程序设计的

程序存在若干个错误，请调试改正，并按原文件名和位置保存。
不允许增加、删除语句或改变语句先后顺序，但可以修改语句。

所修改的语句必须在句尾加上注释标记 ***********

程序1（Command1_Click()事件）：
10位学生参加2门课程的考试，在图形框内显示每个学生的2门课程的平均成绩
利用rnd产生0~100分数，程序中有1个错误，请调试改正。
Picture1.Cls
For i = 1 To 10
aver = 0
For j = 1 To 2
m = Int(Rnd * 101) '产生0~100分数
Picture1.Print m & Space(4 - Len(m)); '显示成绩
aver = aver & m
Next j
aver = aver / 2
Picture1.Print aver '显示平均成绩
Next i

程序2（Command2_Click()事件）：
输入百分制成绩mark，在Label2显示对应3级制的评定，程序中有2个错误，请调试改正。
优良：[80，100] 合格：[60，80），不及格：[0，60）
mark = Val(Text1)
If mark < 60 Then
Label2 = "不及格"
ElseIf 60 <= mark < 80 Then
Label2 = "及格"
Else
Label2.Text = "优良"
End If

程序3（Command2_Click()事件）：
在文本框Text1 输入内容，判断一个整数的奇偶性，程序中有1个错误。
Dim x As Integer, a As String
x = Val(Text1.Text)
If x Mod 2 = 2 Then '判断条件语句
a = "整数" & x & "是偶数"
Else
a = "整数" & x & "是奇数"
End If
Text2.Text = a

Answer 1

Private Sub Command1_Click()
Picture1.Cls
For i = 1 To 10
aver = 0
For j = 1 To 2
m = Int(Rnd * 101) '产生0~100分数
Picture1.Print m & Space(4 - Len(m)); '显示成绩
aver = aver + m 'aver & m是把2个数连接成1个数,&改为+
Next j
aver = aver / 2
Picture1.Print aver '显示平均成绩
Next i
End Sub

Private Sub Command2_Click()
mark = Val(Text1)
If mark < 60 Then
Label2 = "不及格"
ElseIf 60 <= mark And mark < 80 Then '原条件语句60 <= mark< 80永远为真
Label2 = "及格"
Else
Label2 = "优良" 'Label没有Text属性,去掉Text属性
End If
End Sub

Private Sub Command3_Click()
Dim x As Integer, a As String
x = Val(Text1.Text)
If x Mod 2 = 0 Then '判断条件语句:偶数除以2余数为0
a = "整数" & x & "是偶数"
Else
a = "整数" & x & "是奇数"
End If
Text2.Text = a
End Sub

Answer 2

Picture1.Print m & Space(4 - Len(str(m))); '显示成绩
aver = aver+ m
ElseIf mark>=60 && mark < 80 Then
Label2.caption = "优良"
If x Mod 2 = 0 Then

二楼你干嘛抄我的