Else
e1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / 2 * a e2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / 2 * a
Print \该方程的解为x1=\End If End Sub
（4）用多分枝结构统计百分制成绩中：优、良、中、及格、不及格人数。60分以下为不及格，60-69分为及格，70-79为中等，80-89为良好，90分以上为优秀。 If mark >= 90 Then Print “优” ElseIf mark >= 80 Then Print “良” ElseIf mark >= 70 Then Print “中” ElseIf mark >= 60 Then Print “及格” Else
Print “不及格” End If
2. 用循环结构写出实现下列功能的语句： （1）、求：1+2+3+??+1000的和。 Dim n As Integer, s As Integer n = 1 s = 0
While s < 1000 s = s + n n = n + 1 Wend
MsgBox \最小n是:\
（2）、求出1-200之间5的倍数或7的倍数的和 Dim x As Integer, sum As Integer sum = 0
For x = 1 To 200
If x Mod 5 = 0 Or x Mod 7 = 0 Then sum = sum + x End If Next x
Print \之间5的倍数或7的倍数的和是:\
（3）编程求1×2×3×??×n<1000成立时的最大n值并求其积。 Dim I!, s! I = 1 s = 1
Do While s < 1000 I = I +1 s = s * I Loop
Print s / I , I – １
（4）一个炊事员上街采购，用500元买了90只鸡，其中母鸡一只15元，公鸡一只10元，小鸡一只5元，正好把钱用完。问母鸡、公鸡、小鸡各买多少只？
For X = 1 To 33
For Y = 1 To 50 Z = 90 - X - Y
If X * 15 + Y * 10 + Z * 5= 500 Then Print X, Y, Z End If Next Y
Next X
3.利用数组实现下列功能：
（1）输入若干名学生的成绩，计算平均分。
Dim score( ) As Single,n As Integer,s As Single N=Val(Text1.Text) ReDim score(1 to n) For I=1 to N
score(i)=Val(InputBox(“输入”)) s=s+score(i) Next i
Label1.Caption=“平均分:” & S/n
（2）我们要求一个班100个学生的平均成绩，然后统计高于平均分的人数。 Private Sub Command1_Click( )
Dim mark (1 to 100 ) as integer， aver!, Overn%, I% For I=1 to 100
Mark(i)=InputBox(“输入”) Aver=aver+mark(i) Next I
Aver=aver/100 For I=1 to 100
If mark(i)>aver Then overn=overn+1 Next I
Print aver,overn End Sub