Next m
A）5 B）6 C）4 D）8 25.根据以下程序段，判断输出结果。 Private Sub Form_Click()
Dim a As Integer, b As Integer, x As Integer a = InputBox(\ b = InputBox(\ x = a + b
If a > b Then x = a - b Print x End Sub
运行时从键盘输入5和4，输出x的值是（ ）。 A）1 B） 9 C）54 D）5
三、程序填空（18%，第空2分）
1.打印“杨辉三角“，用数组存储各行数字，运行界面如图所示：
提示：杨辉三角形的特点是第i行有j个数字；每行的第一个、后一个数均为1；其余每一个数正好等于它上一行的前一列和同一列数之和。
Private Sub Form_Click() Dim a(6, 6) For i = 1 To 6 For j = 1 to i
If i = j Or j = 1 Then a(i, j) = 1 Else
______（1）__________ End If Next j Next i
For i = 1 To 6
Print Tab(20 - 2 * i); For j = 1 To i
______（2）_______ Next j
Print Next i End Sub
2.输入10个学生成绩，求其中最高分和最底分。 (设成绩满分为100分)。
Private Sub Command1_Click() Max=0:Min=100 For i=1 To 10
N=Val(InputBox(\请输入成绩：\IF （3） Then Max=N IF ___（4）____Then Min=N Next i
Print\最高分：\；Max Print \最低分：\；Min End Sub
3.在窗体上画1个名称为Command1的命令按钮和2个名称分别为Text1、Text2的文本框，然后编写如下程序：
Function Fun(x As Integer, ByVal y As Integer) As Integer x = x + y If x < 0 Then Fun = x Else Fun = y End If End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer a = -20: b = 10
Text1.Text = Fun(a, b) Text2.Text = Fun(a, b) End Sub
程序运行后，单击命令按钮，Text1和Text2文本框显示的内容分别是 (5) 和 (6) 3. 下列程序段的作用是将三个数（x,y,z）按从小到大进行排序，请补充完该程序。 If x > y Then
t = x : x = y : y = t End If
If x > z Then
t = x : x = z : z = t End If
If （7） Then
t = y : ___（8）_____ : __（9）____ End If
Print a, b, c
四、编程题（17%，第1题7分，第2题10分）
1. 某航空公司规定：在旅游旺季7—9月份，优惠票价的5%；在旅游淡季1—5月份、10、11月份30%；其它时间订票的一律优惠20%。编写程序，通过键盘输入订票月份和机票单价，然后计算并输出应收金额。单击结束按钮，结束程序运行。程序设计界面如下图所示。（7分）
2.利用Rnd函数产生8个10到100之间的随机整数存放在数组中，然后按从大到小的顺序显示出来。（10分） 要求：
（1） 在窗体单击事件中产生随机数。（2分） （2） 用过程Sort实现排序。（6分）
（3） 排序后的数组也在窗体单击事件中输出。（2分） 程序的运行结果如下图所示：