【计算机类职业资格】二级VISUAL+BASIC机试-115及答案解析.doc

1、二级 VISUAL+BASIC 机试-115 及答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：2，分数：30.00)1.在名为 Form1 的窗体上绘制一个名为 HS1 的水平滚动条，请在属性窗口中设置它的属性值，满足以下要求：它的最大刻度值为 200，最小刻度值为 100，在运行时鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动 10 个刻度。再在滚动条下面绘制两个名称分别为 Lab1 和 Lab2 的标签，并分别显示100 和 200，运行时的窗体如下图所示。（分数：15.00）_2.在窗体上绘制两个标签，名称分别为 Lab1 和 Lab2，

2、标题分别为“请输入一个正整数 N”和“1+2+3+N=”；绘制两个文本框，名称分别为 Text1 和 Text2，内容都设为空白；绘制一个命令按钮，名为 Cmd1，标题为“计算”。编写适当的程序，使程序运行时，在 Text1 中输入一个正整数 N，单击“计算”按钮，计算出 1+2+3+N 的和显示在 Text2 中。程序运行结果如下图所示。（分数：15.00）_二、2 简单应用题(总题数：2，分数：40.00)3.在考生文件夹中有工程文件 djks01 6.vbp 及其窗体文件 djks016.frm，该程序是不完整的。请在有?的地方填入正确内容，然后删除?及所有注释符()，但不能修改其他部分

3、。存盘时不得改变文件名和文件夹。本题描述如下：窗体上有一个名称为 Text1 的文本框；两个复选框，名称分别为 Ch1 和 Ch2，标题分别为“中国国情研究中心”和“中国经济研究中心”；一个按钮，标题为“报考”。要求程序运行后，如果只选中 Ch1，单击按钮，则在文本框中显示“报考中国国情研究中心”；如果只选中 Ch2，然后单击按钮，则在文本框中显示“报考中同经济研究中心”；如果同时选中 Ch1 和 Ch2，单击窗体，则在文本框中显示“报考冲突”；如果 Ch1 和 Ch2 都不选取，在单击窗体后，则在文本框中什么都不显示。窗体显示如下图所示。（分数：20.00）_4.在窗体上有一个名为 Labe

4、11 的标签控件和 3 个单选按钮，均没有标题，请利用“属性”窗口为单选按钮依次添加标题为“汉语”、“英语”、“德语”；再添加一个标题为“输出”的命令按钮，如图所示。程序的功能是：运行时，如果选中一个单选按钮后，单击“输出”按钮，则根据单选按钮的选中情况，在Labe1 显示“我的母语是汉语”、“我的母语是英语”或“我的母语是德语”。（分数：20.00）_三、3 综合应用题(总题数：1，分数：30.00)5.在考生文件夹下有一个工程文件 sjt5.vbp，其窗体上有两个文本框，名称分别为 Text1 和Text2，Text2 可以多行显示；有一个名称为 Command1 的通用对话框；还有 3

5、个命令按钮，名称分别为Command1、Command2 和 Command3，标题分别为“打开文件”、“删除”和“保存”。程序运行时窗体界面如下图所示。（分数：30.00）_二级 VISUAL+BASIC 机试-115 答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：2，分数：30.00)1.在名为 Form1 的窗体上绘制一个名为 HS1 的水平滚动条，请在属性窗口中设置它的属性值，满足以下要求：它的最大刻度值为 200，最小刻度值为 100，在运行时鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动 10 个刻度。再在滚动条下面绘制两个名称分别

6、为 Lab1 和 Lab2 的标签，并分别显示100 和 200，运行时的窗体如下图所示。（分数：15.00）_正确答案：(第一步：新建一个名为 Form1 的窗体；第二步：单击工具箱中的 HScrollBar 控件图标，在窗体上拖拉出一个水平滚动条，在属性窗口设置该水平滚动条名称为 HS1，Max 为 200，Min 为 100，LargeChange 为 10；第三步：单击工具箱中的 Labe1 控件图标，在窗体上拖拉出两个标签，在其属性窗口设置名称分别为Lab1 和 Lab2，Caption 属性分别为 100 和 200；第四步：按要求保存文件即完成本题。)解析：解析 本题主要考查 H

7、ScrollBar 控件属性的设置。2.在窗体上绘制两个标签，名称分别为 Lab1 和 Lab2，标题分别为“请输入一个正整数 N”和“1+2+3+N=”；绘制两个文本框，名称分别为 Text1 和 Text2，内容都设为空白；绘制一个命令按钮，名为 Cmd1，标题为“计算”。编写适当的程序，使程序运行时，在 Text1 中输入一个正整数 N，单击“计算”按钮，计算出 1+2+3+N 的和显示在 Text2 中。程序运行结果如下图所示。（分数：15.00）_正确答案：(第一步：新建一个名为 Form1 的窗体：第二步：单击工具箱中的 Labe1 控件图标，在窗体上拖拉出两个标签在其属性窗口设置

8、名称分别为Lab1 和 Lab2，Caption 属性分别为“请输入一个正整数 N：”和“1+2+3+N=”；第三步：单击工具箱中的 CommandButton 控件图标，在窗体上拖拉出一个命令按钮，在属性窗口设置该命令按钮名称为 Cmd1，Caption 为“计算”；第四步：单击工具箱中 TextBox 控件图标，在窗体上拖拉出两个文本框，在属性窗口将文本框的名称分别设置为 Text1 和 Text2，Text 属性设置为空；第五步：打开代码窗口输入如下代码：1 Private Sub Cmd1 Click( )2 Dim N As Single, iAs3 Single, S As Sin

9、gle4 N=Val(Text1 Text)5 For i=1ToN6 S=S+i7 Next i8 Text2. Text=S9 End Sub第六步：按要求保存文件即完成本题。)解析：解析 本题主要考查 Labe1 控件图标、CommandButton 控件图标、TextBox 控件属性的设置。二、2 简单应用题(总题数：2，分数：40.00)3.在考生文件夹中有工程文件 djks01 6.vbp 及其窗体文件 djks016.frm，该程序是不完整的。请在有?的地方填入正确内容，然后删除?及所有注释符()，但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：窗体上有一个名称为

10、 Text1 的文本框；两个复选框，名称分别为 Ch1 和 Ch2，标题分别为“中国国情研究中心”和“中国经济研究中心”；一个按钮，标题为“报考”。要求程序运行后，如果只选中 Ch1，单击按钮，则在文本框中显示“报考中国国情研究中心”；如果只选中 Ch2，然后单击按钮，则在文本框中显示“报考中同经济研究中心”；如果同时选中 Ch1 和 Ch2，单击窗体，则在文本框中显示“报考冲突”；如果 Ch1 和 Ch2 都不选取，在单击窗体后，则在文本框中什么都不显示。窗体显示如下图所示。（分数：20.00）_正确答案：(第一步：启动 Visual Basic，打开考生文件夹下的工程文件 sit3. vb

11、p。第二步：双击窗体中的任何位置，进入代码编辑窗口，填写代码如下：第一个?处填 Ch1. Value=1 AndCh2. Value=1第二个?处填“报考中国经济研究中心”第三步：填写完毕，调试成功后，以原文件名保存。)解析：解析 根据题意当复选框 Ch1 与 Ch2 都被选中时，文本框显示“报考冲突”，故第一个?处填 Ch1. Value=1 And Ch2. Value=1，表示两者同时被选中。对于复选框，Value 值为 1 表示复选框被选中。在第二个?处填“报考中国经济研究中心”，表示此时显示“报考中国经济研究中心”。4.在窗体上有一个名为 Labe11 的标签控件和 3 个单选按钮，

12、均没有标题，请利用“属性”窗口为单选按钮依次添加标题为“汉语”、“英语”、“德语”；再添加一个标题为“输出”的命令按钮，如图所示。程序的功能是：运行时，如果选中一个单选按钮后，单击“输出”按钮，则根据单选按钮的选中情况，在Labe1 显示“我的母语是汉语”、“我的母语是英语”或“我的母语是德语”。（分数：20.00）_正确答案：(第一步：启动 Visual Basic，新建一个工程文件。第二步：将 3 个单选按钮控件、1 个命令按钮和 1 个标签添加到窗体中。单选按钮的名称分别为Option1、Option2 和 Option3，Caption 属性分别为“汉语”、“英语”和“德语”；命令按钮

13、的名称为Command1，Caption 属性为“输出”；标签的名称为 Labe11，Caption 属性为空。第三步：编辑源程序代码：1 Private Sub Command1_Click( )2 If Option1. Value=True Then3 Labe11. Caption=“我的母语是”+Option1. Caption4 Else5 If Option2. Value=True Then6 Labe11. Caption=“我的母语是”+Option2. Caption7 Else8 Labe11. Caption=“我的母语是”+Option3. Caption9 End

14、 If10 End If11 End Sub第四步：调试并运行程序，运行正确后按要求保存。)解析：解析 单选按钮的标题由 Caption 属性设置，判断单选按钮的状态通过 Value 属性来实现。如果单选按钮被选中，则 Value 值为 1；没选中，Value 值为 0。三、3 综合应用题(总题数：1，分数：30.00)5.在考生文件夹下有一个工程文件 sjt5.vbp，其窗体上有两个文本框，名称分别为 Text1 和Text2，Text2 可以多行显示；有一个名称为 Command1 的通用对话框；还有 3 个命令按钮，名称分别为Command1、Command2 和 Command3，标题

15、分别为“打开文件”、“删除”和“保存”。程序运行时窗体界面如下图所示。（分数：30.00）_正确答案：(第一步：启动 Visual Basic，打开考生文件夹下的工程文件 sjt5.vbp。第二步：将 2 个 Text 控件、3 个 Command 控件和 1 个 CommonDialog 控件添加到窗体上。Text 的名称分别为 Text1 和 Text2，Text 属性为空；Command 的名称分别为 Command1、Command2 和 Command3，Caption属性分别为“打开文件”、“删除”和“保存”；ComrnonDialog 控件需要选择“工程”“部件”命令，或在左侧工

16、具箱中单击鼠标右键，选择“部件”菜单，打开“部件”对话框，将 Microsoft CommonDialog Control 6.0 前面的复选按钮勾上，单击“确定”按钮，则添加成功，再与其他控件一样添加到窗体上，其名称为 Common1。双击窗体中的任何位置，进入程序编辑窗口，填写代码如下：1 Dim str As String2 Private Sub Command1_Click( )3 Dim tmp As String4 str=“5 Common1. DialogTitle=“打开“ 设置 CommonDialog 对话框标题5 Common1. InitDir=“./“ 设置起始目

17、录7 Common1Filter=“Text Files(*.txt)|*.txt“ 设置选取的文件类型8 Common1. FileName=“ 文件名为空9 Common1. ShowOpen 打开 CommonDialog10 If Common1. FileName“Then11 Open Common1. FileName For Input As#1 如果文件存在则进行读取12 While EOF(1)=False13 Input#1, tmp 判断是否读取完成14 str=str+tmp 将读取的字符串放入 str15 Wend16 End If17 Close #118 Tex

18、t1. Text=str 在 Text1 中显示读取的字符串19 End Sub2021 Private Sub Command2_Click( )22 Dim tmp As String23 Dim rel As String24 Dim i As Integer25 rel=“26 For i=1 To Len(str)-Len(Text2. Text)27 tmp=Mid(str, i，Len(Text2.Text) 读取其中的字符串28 If Text2. Text=tmp Then 如果该段字符串与 Text2 输入的相同29 tmp=“ 则将该段置为“30 rel=tel+tmp3

19、1 i=i+Len(Text2. Text)-1 并向后移动 Text2 的长度减 1 位32 Else33 rel=rel+Mid(tmp，1，1)34 End If35 Next i36 Text1. Text=rel 在 Text1 中显示修改后的字符串字符串37 End Sub3839 Private Sub Command3_Click( )40 Open“. /out5. txt“ For Output As#141 Print #1. Text1. Text /将修改后的字符串写入文件中文件中42 Close#143 End Sub第三步：程序编写完毕，调试正确后，运行并将结果保存，最后以原文件名保存到考生文件夹下。)解析：解析 本题主要考查数据的输入输出。