国家二级VB机试（上机操作）模拟试卷591
基本操作题
1.在名称为Forml的窗体上添加一个名称为Commandl的命令按钮，标题为“打开文件”，再添加一个名称为CD1的通用对话框。程序运行后，如果单击命令按钮，则弹出打开文件对话框，请按下列要求设置属性和编写代码：
①设置适当属性，使对话框的标题为“打开文件”；
②设置适当属性，使对话框的“文件类型”下拉式组合框中有两项可供选择：“文本文件”、“所有文件”(如图所示)，默认的类型是“所有文件”；
③编写命令按钮的事件过程，使得单击按钮可以弹出“打开文件”对话框。
要求：程序中不得使用变量，事件过程中只能写入一条语句。
【操作步骤】
步骤1：新建一个窗体，按照要求建立控件并设置其属性，如图4．21所示。程序中用到的控件及属性见表4．13。
[*]
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
PriVate Sub Command1_Click()
CD1．ShowOpen′显示打开文件对话框
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【易错提示】对话框的属性设置不仅可以在属性窗口中设置，也可以在属性页对话框中设置。打开“属性页”对话框的方法是在窗体上的通用对话框控件上单击鼠标右键，在弹出的快捷菜单中选择“属性”命令。通用对话框控件“属性页”对话框中有5个选项卡，因此要注意对不同类型的对话框设置属性，就要选择不同的选项卡。
解析：通用对话框是一种ActiveX控件，在一般情况下，启动Visual Basic后，在工具箱中没有通用对话框控件。为了把通用对话框控件加到工具箱中，其操作步骤如下：执行“工程”菜单中的“部件”命令，打开“部件”对话框，在对话框中，选择“控件”选项卡，然后在控件列表框中，选择“MicrosoftCommon Dialog Contml 6．0”，再单击“确定”按钮，通用对话框立即被加到工具箱中。通用对话框的属性可以在属性窗口中直接设置。
2. 在名称为Forml的窗体上添加一个名称为Commandl的命令按钮，其标题为“移动本按钮”，如图所示。
要求编写适当的事件过程，使得程序运行时，每单击按钮一次，按钮向左移动100。
要求：程序中不得使用变量，事件过程中只能写入一条语句。
【操作步骤】
步骤l：新建一个窗体，按照要求建立控件并设置相应属性如表4．14所示。
[*]
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
PriVate Sub Commandl_Click()
Cornanandl．Left=Conlmandl．Left_100
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析：在Visual Basic中，通过代码使命令按钮向左移动100，需要用到按钮的Left属性，使其值在每单击一次按钮时减去100。
简单应用题
3.在名称为Forml的窗体上添加一个名称为Label1、标题为“添加项目”的标签；添加一个名称为Textl的文本框，初始内容为空；添加一个名称为Combol的下拉式组合框，并通过属性窗口输入若干项目(不少于3个，内容任意)；再添加两个命令按钮，名称分别为Commandl、Command2，其标题分别为“添加”、“统计”。在程序运行时，向Textl中输入字符，单击“添加”按钮后，则将Textl中的内容作为一个列表项被添加到组合框的列表中；单击“统计”按钮，则在窗体空白处显示组合框中列表项的个数，如图所示。请编写两个命令按钮的Click事件过程。
【操作步骤】
步骤l：新建一个窗体，按照题目要求建立控件并设置控件属性，如图4．22所示。
[*]
程序中用到的控件及属性设置见表4．15
[*]
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
PriVate Sub Commandl_Click()
Combol．AddItem Textl
End Sub
PriVate Sub Command2_Click()
Print Comb01．ListCount
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析：命令按钮和标签的标题用属性窗口中的Caption属性设置。要使TextI的文本框没有初始内容，需要将属性窗口中的Text属性设为空。要在下拉式组合框中输入内容，可以在属性窗口中对下拉式组合框的List属性进行设置。
4. 在考生文件夹下有一个工程文件sjT4．vbp，其窗体如图所示。该程序用来对在上面的文本框中输入的英文字母串(称为“明文”)加密，加密结果(称为“密文”)显示在下面的文本框中。加密的方法为：选中一个单选按钮，单击“加密”按钮后，根据选中的单选按钮后面的数字n，将“明文”中的每个字母改为它后面的第n个字母(“z”后面的字母认为是“a”，“Z”后面的字母认为是“A”)，如图所示。窗体中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。
【操作步骤】
步骤l：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“′”，将问号改为正确的内容。
参考答案(阴影部分是需考生填入的内容)
PriVate Sub Commandl_Click()
Dim n As Integer， k As Integer， m
As Integer
Dim c As String，a As String
For k=0 To 2
If Opl(k)．Value Then
n=Val(Opl(k)． Caption )
End If
Next k
m=Len(Textl．Text)
a=＂＂
For k=1 To m
c=Mid$(Textl．Text， k ，1)
c=String(1，Asc(c) +n)
If c＞＂z＂Or c＞＂Z＂And c＜＂a＂Then
本文档预览：3600字符，共5947字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
