2.编写一个程序,计算1+1/2!+1/3!+1/4!+… +1/100!的值。并输出结果

3.编写一个程序和界面,输入某学生的语文、数学、英语三门课程的成绩,单击计算可以得出该学生的平均分和总分。

4.编写一个程序,根据输入学生的成绩分数得出学生的等级“合格”、“良好”“优秀”,平均分在60分一下是不及格,60-70分是及格,70-85分以上是中等,85分以上是优秀。点击判断等级按钮,弹出该生的等级为“XX”!
3.编写一个程序和界面,输入某学生的语文、数学、英语三门课程的成绩,单击计算可以得出该学生的平均分和总分

先解答计算1+1/2!+1/3!+ … +1/100!的值问题:

Private Sub Command1_Click()
Dim n%, i%, m#, s#
s = 0
For n = 1 To 100
m = 1
For i = 1 To n
m = m / i
Next i
s = s + m
Next n
Print "1+1/2!+1/3!+...+1/100!="; s
End Sub

运行程序,点击command1命令按钮,则显示:
1+1/2!+1/3!+ … +1/100!=2.718281828459045

==============================
再解答问题3
编写一个程序和界面,输入某学生的语文、数学、英语三门课程的成绩,单击计算可以得出该学生的平均分和总分。追问

编写一个程序,根据输入学生的成绩分数得出学生的等级“合格”、“良好”“优秀”,平均分在60分一下是不及格,60-70分是及格,70-85分以上是中等,85分以上是优秀。点击判断等级按钮,弹出该生的等级为“XX”

追答

等级判断按钮的代码如下:
Private Sub Command1_Click()
Dim s%, g$ ' 变量s是成绩、变量g是等级
s = CInt(Text1.Text)
If s < 60 Then
g$ = "不及格"
Else
If s <= 70 Then
g$ = "及格"
Else
If s <= 85 Then
g$ = "中等"
Else
g$ = "优秀"
End If
End If
End If
MsgBox g$, , " "
End Sub

温馨提示:答案为网友推荐,仅供参考
相似回答