1、VB 机试-试卷 73 及答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.在名为 Form1 的窗体上建立一个名为 Lab1 的标签：两个名称分别为 Cmd1 和 Cmd2，标题分别为“显示广和“显示 2”的命令按钮。编写适当的事件过程，使程序运行后、若单击“显示广命令按钮，则在标签卜显示字符串 Cmd；如果单击“显示 2”命令按钮，则在标签上显示字符串 Cmd2。如下图所示。（分数：2.00）_二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.在名为 Form1 的窗体
2、中绘制一个名为 Text1 的文本框，其初始值为“0”；再添加一个名为 Timer1 的计时器。请设置适当的控件属性，并编写适当的事件过程，使得在运行时，每隔一秒钟文本框中的数字加1。如下图所示的是程序刚启动时的情况。 （分数：2.00）_三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_6.在考生文件夹下有一个工程文件 sj5vbp，其窗体上有一个文本框，名称为 Textl，可以多行显示；还有 3 个命令按钮，名称分别为 Command1、Command2 和 Command3，标题分别为“打开文件”、“大写”和“保存”。程序运行时的窗体界面如图 245 所示
3、。 （分数：2.00）_VB 机试-试卷 73 答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_解析：2.在名为 Form1 的窗体上建立一个名为 Lab1 的标签：两个名称分别为 Cmd1 和 Cmd2，标题分别为“显示广和“显示 2”的命令按钮。编写适当的事件过程，使程序运行后、若单击“显示广命令按钮，则在标签卜显示字符串 Cmd；如果单击“显示 2”命令按钮，则在标签上显示字符串 Cmd2。如下图所示。（分数：2.00）_正确答案：(正确答案： )解析：二、简单应用题(总题数：2，分数：4.00)3.简单
4、应用题（）（分数：2.00）_解析：4.在名为 Form1 的窗体中绘制一个名为 Text1 的文本框，其初始值为“0”；再添加一个名为 Timer1 的计时器。请设置适当的控件属性，并编写适当的事件过程，使得在运行时，每隔一秒钟文本框中的数字加1。如下图所示的是程序刚启动时的情况。 （分数：2.00）_正确答案：(正确答案： )解析：三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_解析：6.在考生文件夹下有一个工程文件 sj5vbp，其窗体上有一个文本框，名称为 Textl，可以多行显示；还有 3 个命令按钮，名称分别为 Command1、Command2
5、和 Command3，标题分别为“打开文件”、“大写”和“保存”。程序运行时的窗体界面如图 245 所示。 （分数：2.00）_正确答案：(正确答案： 本题主要考查通用对话框使用、顺序文件的打开和 Ucase()函数的使用。 通用对话框(CommonDialog)提供打开文件、保存文件、设置打印选项、选择颜色和字体、显示帮助等操作的一组标准对话框，该控件运行时不可见。其 Action 属性用于设置被打开对话的类型，Filter(过滤器)属性用于指定在对话框的文件列表中显示文件的类型。例如，过滤器为*txt 表示显示所有的文本文件。语法为“对象名Filter=“描述|文件扩展名”。 首先要根据
6、ASCII 码来判断是否为小写字母，然后再用 Ucase 函数将小写字母转换为大写字母，补充后的具体代码如下： Dim str AS String Private Sub Commandl_Click() Dim tmp As String str=“ CommonlFilter=“文本文件(*txt)|*txt“ Commonl ShowOpen If CommonlFileName“Then Open Commonl FileName For Input As#1 如果文件存在则进行读取 While EOF(1)=False判断是否读取完成 Input #1 ，trap str=str+tmp将读取的字符串放入 str Wend End If Close#1 TextlText=str在 Textl 中显示读取的字符串 End Sub Private Sub Command2_Click() TextlText=UCase(TextlText) End Sub Private Sub Command3_Click() Open“AppPath&out5txt“For Output As#1 Print#1，TextlText将修改后的字符串写入文件中 Close#1 End Sub 单击 )解析：
