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

会计考友

知识点：程序问答（四）
1 O/ R; w$ C. @6 y- U/ F本应用程序包含一个窗体Form1和一个标准模块Module1。窗体中三个文本框构成控件数组Text1，自左至右依次为Text1(0)、Text1(1)、Text1(2)。标题为“升序排序”的命令按钮的单击事件为：
+ J3 w0 ]/ k9 s' @! r: `4 D9 zPrivate Sub Command1_Click()
    Dim a(2)
    For i = 0 To 2
$ ?: I- h6 [& x7 x/ N- U      a(i) = Text1(i).Text
  S+ |" I* ~7 z& N9 B    Next i
    Call abc(a(0), a(1), a(2))
    Print a(0), a(1), a(2)
End Sub
' f& H4 T, @* c0 _标准模块Module1内容如下：
Sub abc(a, b, c)
! X! C3 \$ E/ m2 R  ?0 V    If a > b Then swap a, b
7 [# ]( L+ @5 l$ Z3 ?# _    If b > c Then swap b, c
% s2 k* Q/ J% q9 w2 v1 Z5 ?$ l. Z' v    If a > b Then swap a, b
End Sub
( g4 _8 c0 B% w: _! H# hPrivate Sub swap(x, y)
    If x > y Then t = x: x = y: y = t
1 t& v3 k6 [/ ^5 ]+ O& uEnd Sub
; F! @& v% F- |7 v! S问题5：运行程序时，如图所示输入三个数据后单击命令按钮，窗体上将显示什么结果？
5 p- H* Y' n+ @5 M; `问题6：如果要求显示结果 3   22   111 （按数值升序排序），应修改命令按钮单击事件中的哪一行？如何修改？(只允许修改一行)
问题7：请分别指出自定义过程abc和swap的作用域。