![](https://csdnimg.cn/release/download_crawler_static/70856615/bg3.jpg)
Next m
Print a, b, c, d, e, f, g, h, i, j
3、我国有 13 亿人口,按照人口年增长 0.8%计算,多少年以后我国人口超过 26 亿。
Dim x As Double '人数一定要定义成双精度的
Dim n As Integer
x = 1300000000
n = 0
Do While x <= 2600000000#
x = x * 1.008
n = n + 1
Loop
Print n; "年以后,我国人口将超过 26 亿"
4、编写一个程序求一元二次方程的根,要求对输入系数的合法性进行验证,并规范输出结
果(保留两位小数)。(上机指导 P44)
Dim a!, b!, c!, d!, x1!, x2!
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = b * b - 4 * a * c
If a = 0 Then
MsgBox "a 不能为 0" '判断是否能构成一元二次方程
ElseIf d >= 0 Then
x1 = (-b + Sqr(d)) / (2 * a) '求方程的两个根
x2 = (b + Sqr(d)) / (2 * a)
x1 = Format(x1, ".##") '对根规范化输出
x2 = Format(x2, ".##")
End If
Print x1, x2
5、某次歌手大奖赛,共有 10 名选手,有 10 名评委打分。要求评委给 10 位选手打分,去
掉一个最高分,去掉一个最低分,求出该选手的平均分。
Dim i As Integer
Dim j As Integer
Dim max As Single, min As Single, sum As Single, aver As Single
For i = 1 To 10 '十个选手的成绩
max = 0
min = 100
sum = 0
For j = 1 To 10 '十个评委的分数
x = Rnd * 101 '产生 0-100 的分数
If x > max Then max = x
If x < min Then min = x
sum = sum + x
Next j
aver = (sum - max - min) / 8