2.【解析】
本题主要考查复选框的使用。在Visual Basic中,复选框用来表示状态,在程序运行期间可以改变其状态。复选框的标题通过Caption属性来设置,复选框的Value属性用来表示它的状态。其取值见表6-4所示。
表6-4
Value |
含义 |
0 | 表示复选框未被选中 |
1 | 表示选中该复选框 |
2 | 表示该复选框被禁止(灰色) |
在文本框中显示信息,使用它的TeXt属性以及单击窗体触发的Form_Click事件。
(1)建立界面并设置控件属性。程序中用到的控件及其属性见表6-5。
表6-5
控件 |
属性 | 设置值 | |||
文本框 | Name | Text1 | |||
Name | Ch1 | ||||
复选框 | Caption | 英语班 | |||
Nanle | Ch2 | ||||
复选框 | Caption | 计算机班 |
(2)打开代码窗口,程序提供的代码如下:
(3)研读并找出需要修改的代码,然后改正。
①请看下面的if判断语句:
该判断语句的作用是:如果选中“英语班”复选框,则将它赋给文本框。Value属性值为1,表示选中该复选框。即:
②再看下面的if判断语句:
该判断语句的作用是:如果选中“计算机班”复选框,则在将它赋给文本框之前,需要判断是否选中复选框1。如果选中,则要在两个课程之间加上一个“和”字,否则输出结果如图6-2所示。
图6-2
由此可知,这条语句应该改为:
If Text1.Text<>…""ThenText1.Text=Text1.Text+“和”
(4)修改后的参考代码如下:
(5)调试并运行程序,注意验证功能是否符合要求。
(6)按题目要求存盘。
三、综合应用题
【解析】在窗体上建立控件后,先设置控件属性,再研读提供的代码,找出问题后,修改事件过程以满足题目要求。
文本框显示的内容通过Text属性设置;按钮的标题通过Caption属性设置,单击命令按钮触发Click事件;本题中涉及到了文件的操作,读入顺序文件以顺序韵方式打开,用“Input#”语句读取数据。需要注意的是,对文件操作结束后,一定要关闭文件。
(1)文本框显示的内容通过Text属性设置,Muldline属性决定文本框是否可以多行显示。如果需要多行显示,必须将Multiline属性设置为True,将Scrollbars属性值设置为2。
(2)建立界面并设置控件属性。按钮的标题通过Caption属性设置,单击命令按钮触发Click事件。程序中用到的控件及属性设置见表6-6。
表6-6
控件 |
属性 | 设置值 |
Name | Text1 | |
文本框 | Scrollbars | 2 |
Multiline | Tme | |
Name | Cmd1 | |
命令按钮 | Caption | 读入数据 |
Name | Cmd2 | |
命令按钮 | Caption | 计算保存 |
责任编辑:小草