[模拟] 计算机二级（VB）机试79
一、基本操作题
第1题：
在名为Form1的窗体上绘制一个名为HS1的水平滚动条，请在属性窗口中设置它的属性值，满足以下要求：它的最大刻度值为20。，最小刻度值为100，在运行时鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动10个刻度。再在滚动条下面绘制两个名称分别为Lab1和Lab2的标签，并分别显示100和200，运行时的窗体如下图所示。
注意：
文件必须存放在考生文件夹中，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
参考答案：
第一步：新建一个名为Form1的窗体； 第二步：单击工具箱中的HScrollBar控件图标，在窗体上拖拉出一个水平滚动条，在属性窗口设置该水平滚动条名称为HS1，Max为200，Min为100，
LargeChange为10； 第三步：单击工具箱中的Labe1控件图标，在窗体上拖拉出两个标签，在其属性窗口设置名称分别为Lab1和Lab2，Caption属性分别为100和200； 第四步：按要求保存文件即完成本题。
详细解答：
第2题：
在窗体上绘制两个标签，名称分别为Lab1和Lab2，标题分别为“请输入一个正整数N”和“1+2+3+…+N=”；绘制两个文本框，名称分别为Text1和Text2，内容都设为空白；绘制一个命令按钮，名为Cmd1，标题为“计算”。编写适当的程序，使程序运行时，在Text1中输入一个正整数N，单击“计算”按钮，计算出1+2+3+…+N的和显示在Text2中。程序运行结果如下图所示。
注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。
参考答案：
第一步：新建一个名为Form1的窗体： 第二步：单击工具箱中的Labe1控件图标，在窗体上拖拉出两个标签．在其属性窗口设置名称分别为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, iAs 3 Single, S As Single 4 N=Val(Text1 Text) 5 For i=1ToN 6 S=S+i 7 Next i 8 Text2. Text=S 9 End Sub 第六步：按要求保存文件即完成本题。
详细解答：
二、简单应用题
第3题：
在考生文件夹中有工程文件djks01 6.vbp及其窗体文件djks016.frm，该程序是不完整的。请
在有?的地方填入正确内容，然后删除?及所有注释符(´)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下：窗体上有一个名称为Text1的文本框；两个复选框，名称分别为Ch1和Ch2，标题分别为“中国国情研究中心”和“中国经济研究中心”；一个按钮，标题为“报考”。要求程序运行后，如果只选中Ch1，单击按钮，则在文本框中显示“报考中国国情研究中心”；如果只选中Ch2，然后单击按钮，则在文本框中显示“报考中同经济研究中心”；如果同时选中Ch1和Ch2，单击窗体，则在文本框中显示“报考冲突”；如果Ch1和Ch2都不选取，在单击窗体后，则在文本框中什么都不显示。窗体显示如下图所示。
[试题源程序]
1 Private Sub Commandl Click( )
2 Text1.Text=""
3 If ? Then
4 Text1. Text="报考冲突"
5 Else If Ch2. Value=1 Then
6 Text1. Text=?
7 Else If Ch1. Value=1 Then
8 Text1. Text="报考中国国情研究中心"
9 End If
10 End Sub
参考答案：
第一步：启动Visual Basic，打开考生文件夹下的工程文件sit3. vbp。 第二步：双击窗体中的任何位置，进入代码编辑窗口，填写代码如下： 第一个?处填Ch1. Value=1 AndCh2. Value=1 第二个?处填“报考中国经济研究中心” 第三步：填写完毕，调试成功后，以原文件名保存。
详细解答：
第4题：
在窗体上有一个名为Labe11的标签控件和3个单选按钮，均没有标题，请利用“属性”窗口为单选按钮依次添加标题为“汉语”、“英语”、“德语”；再添加一个标题为“输出”的命令按钮，如图所示。程序的功能是：运行时，如果选中一个单选按钮后，单击“输出”按钮，则根据单选按钮的选中情况，在Labe1显示“我的母语是汉语”、“我的母语是英语”或“我的母语是德语”。
要求：
依次添加单选按钮标题为“汉语”、“英语”、“德语”；设初始选中的是“汉语”，添加命令按钮标题为“输出”；去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按sjt3.vbp和sjt3.frm文件名存盘。
参考答案：
第一步：启动Visual Basic，新建一个工程文件。 第二步：将3个单选按钮控件、1个命令按钮和1个标签添加到窗体中。单选按钮的名称分别为Option1、Option2和Option3，Caption
属性分别为“汉语”、“英语”和“德语”；命令按钮的名称为Command1，Caption属性为“输出”；标签的名称为Labe11，Caption属性为空。 第三步：编辑源程序代码： 1 Private Sub Command1_Click( ) 2 If Option1. Value=True Then 3 Labe11. Caption=“我的母语是”+Option1. Caption 4 Else 5 If Option2. Value=True Then 6 Labe11. Caption=“我的母语是”+Option2. Caption 7 Else 8 Labe11. Caption=“我的母语是”+Option3. Caption 9 End If 10 End If 11 End Sub 第四步：调试并运行程序，运行正确后按要求保存。
详细解答：
三、综合应用题
第5题：
在考生文件夹下有一个工程文件sjt5.vbp，其窗体上有两个文本框，名称分别为Text1和Text2，Text2可以多行显示；有一个名称为Command1的通用对话框；还有3个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“打开文件”、“删除”和“保存”。程序运行时窗体界面如下图所示。
命令按钮的功能是：单击“打开文件”按钮，弹出打开文件对话框，默认打开文件的类型为“Text Files(*.txt)”。选择考生文件夹下的文件后，该文件中的内容显示在Text1中；单击“删除”按钮，程序将把Text1中的所有与Text2中相同的字符串删除，并将结果显示在Text1中；单击“保存”按钮，把Text1中的内容存入考生文件夹下的文件中。在窗体中已经给出了部分程序。
要求：请去掉程序中的注释符，把程序中的?改为正确的内容。但不能修改程序中的其他部分，也不能修改控件的属性。编写“删除”按钮的Click事件过程，最后把修改后的文件按原文件名存盘。
注意：考生不得修改已有的程序和控件的属性，必须对考生文件夹下的文件进行转换，并把转换结果通过“保存”按钮存入考生文件夹下的文件中，否则无成绩。
参考答案：
第一步：启动Visual Basic，打开考生文件夹下的工程文件sjt5.vbp。 第二步：将2个Text控件、3个Command控件和1个CommonDialog控件添加到窗体上。Text的名称分别为Text1和
Text2，Text属性为空；Command的名称分别为Command1、Command2和Command3，Caption属性分别为“打开文件”、“删除”和“保存”；ComrnonDialog控件需要选择“工程”→“部件”命令，或在左侧工具箱中单击鼠标右键，选择“部件”菜单，打开“部件”对话框，将Microsoft CommonDialog Control 6.0前面的复选按钮勾上，单击“确定”按钮，则添加成功，再与其他控件一样添加到窗体上，其名称为Common1。双击窗体中的任何位置，进入程序编辑窗口，填写代码如下： 1 Dim str As String 2 Private Sub Command1_Click( ) 3 Dim tmp As String 4 str="" 5 Common1. DialogTitle="打开" ´设置CommonDialog对话框标题 5 Common1. InitDir=".\" ´设置起始目录 7 Common1．Filter="Text Files(*.txt)|*.txt" ´设置选取的文件类型 8 Common1. FileName="" ´文件名为空 9 Common1. ShowOpen ´打开CommonDialog 10 If Common1. FileName＜＞""Then 11 Open Common1. FileName For Input As#1 ´如果文件存在则进行读取 12 While EOF(1)=False 13 Input#1, tmp ´判断是否读取完成 14 str=str+tmp ´将读取的字符串放入str 15 Wend 16 End If 17 Close #1 18 Text1. Text=str ´在Text1中显示读取的字符串 19 End Sub 20 21 Private Sub Command2_Click( ) 22 Dim tmp As String 23 Dim rel As String 24 Dim i As Integer 25 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+tmp 31 i=i+Len(Text2. Text)-1 ´并向后移动Text2的长度减1位 32 Else 33 rel=rel+Mid(tmp，1，1) 34 End If 35 Next i 36 Text1. Text=rel ´在Text1中显示修改后的字符串字符串 37 End Sub 38 39 Private Sub Command3_Click( ) 40 Open". \out5. txt" For Output As#1 41 Print #1. Text1. Text \将修改后的字符串写入文件中文件中 42 Close#1 43 End Sub 第三步：程序编写完毕，调试正确后，运行并将结果保存，最后以原文件名保存到考生文件夹下。
计算机二级vb