求1到100之间所有偶数之和.doc

求1到100之间所有偶数之和
1、求1到100之间所有偶数的和。
Private Sub Command1_Click() Dim i As Integer, sum As Integer sum = 0
For i = 2 To 100 Step 2 sum = sum + i
Next i
Print sum
End Sub
2、设计一个程序，程序名为“PRG2，功能是根据分数>=90,>=80,>=60,<60,返回优秀，良好，
及格，不及格。
Private Sub Command1_Click() Dim grade As Single, result As String
grade = Val(InputBox("请输入成绩:", "成绩输入")) Select Case grade
Case Is >= 90
result = "优秀"
Case Is >= 80
result = "良好"
Case Is >= 60
result = "及格"
Case Is < 60
result = "不及格"
End Select
MsgBox "该生的成绩等级为:" & result, , "成绩等级" End Sub
或者
Private Sub Command1_Click()
a = Val()
If <> "" Then If a >= 90 And a <= 100 Then Print "优秀"
ElseIf a >= 80 And a < 90 Then Print "良好"
ElseIf a >= 70 And a < 80 Then Print "一般"
ElseIf a >= 60 And a < 70 Then Print "及格"
Else: Print "不及格"
End If
Else
MsgBox "请输入学生成绩", 0 + 32, "错误～"
End If
End Sub
Private Sub Form_Load() = ""
End Sub