vb输入某班某门课课程的成绩共三十人,请统计出不及格人数
1个回答
展开全部
简单的写一个
Dim a(30)
Dim n
n=0
For i = 0 To 29
a(i) = InputBox("输入成绩")
If a(i) < 60 Then n = n + 1
Next
MsgBox (n)
Dim a(30)
Dim n
n=0
For i = 0 To 29
a(i) = InputBox("输入成绩")
If a(i) < 60 Then n = n + 1
Next
MsgBox (n)
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
