高校等考试题天天练二级VB]11月4日

会计考友

知识点：程序问答（四）
本应用程序包含一个窗体Form1和一个标准模块Module1。窗体中三个文本框构成控件数组Text1，自左至右依次为Text1(0)、Text1(1)、Text1(2)。标题为“升序排序”的命令按钮的单击事件为：
* N8 p+ u. V! o4 s& `2 HPrivate Sub Command1_Click()
7 |7 _# ]$ W/ f  z. S$ E    Dim a(2)
: W; x& `+ j0 a- Y; [& U9 q; q  N    For i = 0 To 2
      a(i) = Text1(i).Text
9 u" d( V6 |+ v6 k4 x& V+ t# h2 T    Next i
4 @' c2 Z3 c6 L    Call abc(a(0), a(1), a(2))
    Print a(0), a(1), a(2)
. d+ d/ B4 H: x- W, OEnd Sub
标准模块Module1内容如下：
$ N, f4 g5 H, O. X( ESub abc(a, b, c)
    If a > b Then swap a, b
8 g8 Z6 }) x* r, I$ ^2 X    If b > c Then swap b, c
6 x/ g7 n* ~/ r* z    If a > b Then swap a, b
. y. j/ h0 [2 e. J# v8 p$ gEnd Sub
# [: b! |) k( w: \4 [6 DPrivate Sub swap(x, y)
    If x > y Then t = x: x = y: y = t
; a* w  k, z" n! F7 ~7 rEnd Sub
: ~" j$ ]" k4 @, h/ L8 e% _6 w& f问题5：运行程序时，如图所示输入三个数据后单击命令按钮，窗体上将显示什么结果？
问题6：如果要求显示结果 3   22   111 （按数值升序排序），应修改命令按钮单击事件中的哪一行？如何修改？(只允许修改一行)
问题7：请分别指出自定义过程abc和swap的作用域。