1、二级 VISUAL+BASIC 机试-4 及答案解析(总分：100.00，做题时间：90 分钟)1.在考生文件夹下完成如下基本操作。1创建名称为 Form1 的窗体，在该窗体上创建两个单选按钮，名称和标题一致，分别为 Option1 和Option2，编写一个事件过程，使得选择 Option1 时，Option2 变灰。程序运行结果如图 9 所示。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 ylcl.vbp，窗体文件名为 ylcl.frm。（分数：25.00）_2.新建一个工程，在窗体中创建一个单选按钮数组，名称为 Option1。该数组含有四个单选按钮，其标题依
2、次为“选项 1”、“选项 2”、“选项 3”和“选项 4”，其下标分别为 1， 2，3，4。默认选择为“选项 3”。运行结果如图 10 所示。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 ylc2.vbp，窗体文件名为 ylc2.frm。（分数：25.00）_3.新建一个工程，在窗体中创建一个水平滚动条，名称为 HS1，Min 属性为 0，Max 属性为 200，以及一个命令按钮，名称为“Command1”，标题为“显示位置”。编写一个事件过程，要求程序运行后将滚动块移到某个位置后，如果单击“显示”按钮，则在窗体上显示滚动框当前所在位置的值。程序中不得使用任何变量。
3、程序运行结果如图 11 所示。（分数：25.00）_4.新建一个工程，在窗体中创建两个文本框，其名称分别为 Text1 和 Text2。编写一个事件过程，实现在程序运行后，若在文本框 Text1 中输入一个字符串。若该字符串超过 15 个字符后，超出部分在文本框Text2 中显示。如图 12 所示程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 ylc4.vbp，窗体文件名为 ylc4.frm。（分数：25.00）_二级 VISUAL+BASIC 机试-4 答案解析(总分：100.00，做题时间：90 分钟)1.在考生文件夹下完成如下基本操作。1创建名称为 Form1
4、的窗体，在该窗体上创建两个单选按钮，名称和标题一致，分别为 Option1 和Option2，编写一个事件过程，使得选择 Option1 时，Option2 变灰。程序运行结果如图 9 所示。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 ylcl.vbp，窗体文件名为 ylcl.frm。（分数：25.00）_正确答案：(Visual Basic 集成环境中，执行“文件”“新建工程”命令，选择“标准 Exe”。创建窗体 Form1。(2)在工具箱中选择标签控件，在窗体中要求位置画出两个标签，其 Caption 属性分别为 Option1 和Option2。双击 Opt
5、ion1 弹出代码编写窗口，添加如下代码：Private Sub Option1_Click()Option2.Enabled=FalseEnd Sub(3)按 F5 键运行程序。如图 9 所示。(4)执行“文件”“保存工程”命令，将工程文件命名为 ylcl.vbp；窗体文件命名为 ylcl.frm。)解析：解析 (1)第 1 小题中要使用 Enable 属性来控制选择控件的变灰与否。2.新建一个工程，在窗体中创建一个单选按钮数组，名称为 Option1。该数组含有四个单选按钮，其标题依次为“选项 1”、“选项 2”、“选项 3”和“选项 4”，其下标分别为 1， 2，3，4。默认选择为“选项
6、 3”。运行结果如图 10 所示。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 ylc2.vbp，窗体文件名为 ylc2.frm。（分数：25.00）_正确答案：(1)Visual Basic 集成环境中，执行“文件”“新建工程”命令，选择“标准 Exe”。创建窗体 Form1。(2)在工具箱中选择单选按钮控件，在窗体中要求位置画出两个单选按钮，第一个按钮的名称为Option1，第二个按钮的名称也设为 Option1，这时系统会提示是否建立单选按钮数组。选择“确定”，并建立另外两个单选按钮。将所有按钮的 Caption 属性依次设置为“选项 1”、“选项 2”、“选
7、项 3”和“选项 4”。(3)将“选项 3”的 Value 属性设置为 True，设为默认选项。(4)按 F5 键运行程序。如图 10 所示。(5)执行“文件”“保存工程”命令，将工程文件命名为 ylc2.vbp，窗体文件命名为 ylc2.frm。)解析：解析 (2)第 2 小题主要考查了按钮数组的建立。在 Visual Basic 中控件数组的设置方式都相同。3.新建一个工程，在窗体中创建一个水平滚动条，名称为 HS1，Min 属性为 0，Max 属性为 200，以及一个命令按钮，名称为“Command1”，标题为“显示位置”。编写一个事件过程，要求程序运行后将滚动块移到某个位置后，如果单击
8、“显示”按钮，则在窗体上显示滚动框当前所在位置的值。程序中不得使用任何变量。程序运行结果如图 11 所示。（分数：25.00）_正确答案：(1)Visual Basic 集成环境中，执行“文件”“新建工程”命令，选择“标准 Exe”。创建窗体 Form1。(2)在工具箱中选择水平滚动条控件，在其属性窗口中设置名称为 HS1，Min 属性为 0， Max 属性为 200。(3)在工具箱中选择命令按钮控件，将其 Caption 属性值设置为“显示位置”。双击“显示”按钮弹出代码窗口，添加如下代码：Private Sub Command1_Click()Print VS1.ValueEnd Sub(
9、4)按 F5 键运行程序。如图 11 所示。(5)执行“文件”“保存工程”命令，将工程文件命名为 ylc3.vbp，窗体文件命名为 ylc3.frm。)解析：解析 (3)第 3 小题主要考查了水平滚动条控件的 Value 属性。4.新建一个工程，在窗体中创建两个文本框，其名称分别为 Text1 和 Text2。编写一个事件过程，实现在程序运行后，若在文本框 Text1 中输入一个字符串。若该字符串超过 15 个字符后，超出部分在文本框Text2 中显示。如图 12 所示程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 ylc4.vbp，窗体文件名为 ylc4.frm。（
10、分数：25.00）_正确答案：(Visual Basic 集成环境中，执行“文件”“新建工程”命令，选择“标准 Exe”。创建窗体 Form1。(2)在工具箱中选择文本框控件，在窗体上创建两个文本框。双击文本框 Text1，弹出代码窗口，添加如下代码：Private Sub Text1_Change()If Len(Text1.Text)=15 ThenText2.SetFocusEnd IfEnd Sub(3)按 F5 键运行程序。如图 12 所示。(4)执行“文件”“保存工程”命令，将工程文件命名为 ylc4.vbp，窗体文件命名为 ylc4frm。)解析：解析 (4)第 4 小题中利用了 SetFocus 来控制焦点。当 Text1 窗口中的字符串超过长度时，焦点转移到文本框 Text2 中。
