高校等考试题天天练二级VB]11月4日
分类: 计算机
时间: 2022-07-21 05:21:35
作者: 全国等级考试资料网
知识点:程序问答(四)
本应用程序包含一个窗体Form1和一个标准模块Module1。窗体中三个文本框构成控件数组Text1,自左至右依次为Text1(0)、Text1(1)、Text1(2)。标题为“升序排序”的命令按钮的单击事件为:
Private Sub Command1_Click()
Dim a(2)
For i = 0 To 2
a(i) = Text1(i).Text
Next i
Call abc(a(0), a(1), a(2))
Print a(0), a(1), a(2)
End Sub
标准模块Module1内容如下:
Sub abc(a, b, c)
If a > b Then swap a, b
If b > c Then swap b, c
If a > b Then swap a, b
End Sub
Private Sub swap(x, y)
If x > y Then t = x: x = y: y = t
End Sub
问题5:运行程序时,如图所示输入三个数据后单击命令按钮,窗体上将显示什么结果?
问题6:如果要求显示结果 3 22 111 (按数值升序排序),应修改命令按钮单击事件中的哪一行?如何修改?(只允许修改一行)
问题7:请分别指出自定义过程abc和swap的作用域。
本应用程序包含一个窗体Form1和一个标准模块Module1。窗体中三个文本框构成控件数组Text1,自左至右依次为Text1(0)、Text1(1)、Text1(2)。标题为“升序排序”的命令按钮的单击事件为:
Private Sub Command1_Click()
Dim a(2)
For i = 0 To 2
a(i) = Text1(i).Text
Next i
Call abc(a(0), a(1), a(2))
Print a(0), a(1), a(2)
End Sub
标准模块Module1内容如下:
Sub abc(a, b, c)
If a > b Then swap a, b
If b > c Then swap b, c
If a > b Then swap a, b
End Sub
Private Sub swap(x, y)
If x > y Then t = x: x = y: y = t
End Sub
问题5:运行程序时,如图所示输入三个数据后单击命令按钮,窗体上将显示什么结果?
问题6:如果要求显示结果 3 22 111 (按数值升序排序),应修改命令按钮单击事件中的哪一行?如何修改?(只允许修改一行)
问题7:请分别指出自定义过程abc和swap的作用域。