全国等级考试资料网

高校等考试题天天练二级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的作用域。

相关文章

猜你喜欢

精选计算机