一道关于分数区间划分VB题目要求编写程序,统计总人数,同时统计不及格、6069、7079、8089及90100各分数段的人数,将统计结果显示在相应的文本框中.正确答案的代码：Ifarr(i)<60ThenText2=Val(

Question

一道关于分数区间划分VB题目
要求编写程序,统计总人数,同时统计不及格、60 69、70 79、80 89及90 100各分数段的人数,将统计结果显示在相应的文本框中.
正确答案的代码：
If arr(i) < 60 Then
Text2 = Val(Text2) + 1
ElseIf arr(i) >= 60 And arr(i) < 70 Then
Text3 = Val(Text3) + 1
ElseIf arr(i) >= 70 And arr(i) < 80 Then
Text4 = Val(Text4) + 1
ElseIf arr(i) >= 80 And arr(i) < 90 Then
Text5 = Val(Text5) + 1
ElseIf arr(i) >= 90 And arr(i)

Answer 1

两段代码都没错,前者按由低到高的顺序选,后者由高到低选,都是可以的.
但是,两段代码都可以简化：

If arr(i) < 60 Then
Text2 = Val(Text2) + 1
ElseIf arr(i) < 70 Then '由于= 60 了
Text3 = Val(Text3) + 1
ElseIf arr(i) < 80 Then '同上,下同
Text4 = Val(Text4) + 1
ElseIf arr(i) < 90 Then
Text5 = Val(Text5) + 1
Else '这时候剩下的就只有>=90的了,就无需再判断了
Text6 = Val(Text6) + 1
End If

'下面这段代码就不解释了,原理同上
If arr(n) >= 90 Then
Text6.Text = Val(Text6.Text) + 1
ElseIf arr(n) >= 80 Then
Text5.Text = Val(Text5.Text) + 1
ElseIf arr(n) >= 70 Then
Text4.Text = Val(Text4.Text) + 1
ElseIf arr(n) >= 60 Then
Text3.Text = Val(Text3.Text) + 1
Else
Text2.Text = Val(Text2.Text) + 1
End If


两段代码的唯一区别就是前者用的是变量i,后者用的是变量n