二级VISUAL BASIC机试真题2008年04月

二级VISUAL BASIC机试真题2008年04月

1 基本操作题

请根据以下各个小题的要求设计Visual Basic应用程序(包括界面和代码)。

1、在名为Form1的窗体上绘制一个名为HS1的水平滚动条，请在属性窗口中设置它的属性值，满足以下要求：它的最大刻度值为200，最小刻度值为100，在运行时鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动10个刻度。再在滚动条下面绘制两个名称分别为Lab1和Lab2的标签，并分别显示

100和

200,运行时的商体如下图所示。

注意：

文件必须存放在考生文件夹中，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

2、在窗体上绘制两个标签，名称分别为Lab1和Lab2，标题分别为“请输入一个正整数N”和“1+2+3+ +N=”；绘制两个文本框，名称分别为Text1和Text2，内容都设为空白；绘制一个命令按钮，名为Cmd1，标题为“计算”。编写适当的程序，使程序运行时，在Text1中输入一个正整数N，单击“计算”按钮，计算出1+2-3+ +N的和显示在Text2中。程序运行结果如下图所示。

注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。

2 简单应用题

1、在考生文件夹中有工程文件djks016.vbp及其窗体文件djks016.frm，该程序是不完整的。请在有?的地方填入正确内容，然后删除?及所有注释符(')，但不能修改其他部分。存盘时不得改变文件名和文件夹。

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

[试题源程序]

1 Private Sub Commmnd1_Click()

2 Text1.Text=""

3 'If ? Then

4 Text1.Text="报考冲突"

5 Else If Ch2.Value=1 Then

6 ' Text1.Text=?

7 ElseIf Ch1.Value=1 Then

8 Text1.Text=“报考中国国情研究中心”

9 End If

10 End Sub

2、在窗体上有一个名为Label1的标签控件和3个单选按钮，均没有标题，请利用“属性”窗口为单选按钮依次添加标题为“汉语”、“英语”、“德语”；再添加一个标题为“输出”的命令按钮，如图所示。程序的功能是：运行时，如果选中一个单选按钮后，单击“输出”按钮，则根据单选按钮的选中情况，在Label显示“我的母语是汉语”、“我的母语是英语”或“我的母语是德

语”。

要求：

依次添加单选按钮标题为“汉语”、“英语”、“德语”；设初始选中的是“汉语”，添加命令按钮标题为“输出”；去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按sjt3.vbp和sjt3.frm文件名存盘。

3 综合应用题

1、在考生文件夹下有一个工程文件sjt5.vbp，其窗体上有两个文本框，名称分别为Text1和Text2，Text2可以多行显示；有一个名称为Command1的通用对话框；还有3个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“打开文件”、“删除”和“保存”。程序运行时窗体界面如下图所示。

命令按钮的功能是：单击“打开文件”按钮，弹出打开文件对话框，默认打开文件的类型为“Text Files(*.txt)”。选择考生文件夹下的in5.txt文件后，该文件中的内容显示在Text1中；单击“删除”按钮，程序将把Text1中的所有与Text2中相同的字符串删除，并将结果显示在Text1中；单击“保存”按钮，把Text1中的内容存入考生文件夹下的out5.txt文件中。在窗体中已经给出了部分程序。

要求：请去掉程序中的注释符，把程序中的?改为正确的内容。但不能修改程序中的其他部分，也不能修改控件的属性。编写“删除”按钮的Click事件过程，最后把修改后的文件按原文件名存盘。

注意：考生不得修改已有的程序和控件的属性，必须对考生文件夹下的in5.txt文件进行转换，并把转换结果通过“保存”按钮存入考生文件夹下的out5.txt文件中，否则无成绩。

答案:

1 基本操作题

1、第一步：新建一个名为Form1的窗体；

第二步：单击工具箱中的HScrollBar控件图标，在窗体上拖拉出一个水平滚动条，在属性窗口设置该水平滚动条名称为HS1，Max为200，Min为100，LargeChange为10；

第三步：单击工具箱中的Label控件图标，在窗体上拖拉出两个标签，在其属性窗口设置名称分别为Lab1和Lab2，Caption属性分别为100和200； 第四步：按要求保存文件即完成本题。

(1)

[解析]

本题主要考查HScrollBar控件属性的设置。

2、第一步：新建一个名为Form1的窗体；

第二步：单击工具箱中的Label控件图标，在窗体上拖拉出两个标签，在其属性窗口设置名称分别为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

第六步：按要求保存文件即完成本题。

(2)

[解析]

本题主要考查Label控件图标、CommandButton控件图标、TextBox控件属性的设置。

2 简单应用题

1、第一步：启动Visual Basic，打开考生文件夹下的工程文件sjt3.vbp。 第二步：双击窗体中的任何位置，进入代码编辑窗口，填写代码如下：

第一个?处填Ch1.Value=1 And Ch2.Value=1

第二个?处填“报考中国经济研究中心”

第三步：填写完毕，调试成功后，以原文件名保存。

(1)

[解析]

根据题意当复选框Ch1与Ch2都被选中时，文本框显示“报考冲突”，故第一个?处填Ch1.Value=1 And Ch2.Value=1，表示两者同时被选中。对于复选框，Value值为1表示复选框被选中。在第二个?处填“报考中国经济研究中心”，表示此时显示“报考中国经济研究中心”。

2、第一步：启动Visual Basic，新建一个工程文件。

第二步：将3个单选按钮控件、1个命令按钮和1个标签添加到窗体中。单选按钮的名称分别为Option1、Option2和Option3，Caption属性分别为“汉语”、“英语”和“德语”；命令按钮的名称为Command1，Caption属性为“输出”；标签的名称为Label1，Caption属性为空。

第三步：编辑源程序代码：

1 Private Sub Command1_Click()

2 If Option1.Value=True Then

3 Label1.Caption=“我的母语是”+Option1.Caption

4 Else

5 If Option2.Value=True Then

6 Label1.Caption=“我的母语是”+Option2.Caption

7 Else

8 Label1.Caption=“我的母语是”+Option3.Caption

9 End If

10 End If

11 End Sub

(2)

[解析]

单选按钮的标题由Caption属性设置，判断单选按钮的状态通过Value属性来实现。如果单选按钮被选中，则Value值为1；没选中，Value值为0。 3 综合应用题

1、第一步：启动Visual Basic，打开考生文件夹下的工程文件sjt5.vbp。 第二步：将2个Text控件、3个Command控件和1个CommonDialog控件添加到窗体上。Text的名称分别为Text1和Text2，Text属性为空；Command的名称分别为Command1、Command2和Command3，Caption属性分别为“打开文件”、“删除”和“保存”；CommonDialog控件需要选择“工程”→“部件”命令，或在左侧工具箱中单击鼠标右键，选择“部件”菜单，打开“部件”对话框，将Microsoft Common Dialog 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对话框标题 6 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中显示读取的字符串

10 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=i 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=rel+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

第三步：程序编写完毕，调试正确后，运行并将结果保存，最后以原文件名保存到考生文件夹下。

[解析]

本题主要考查数据的输入输出。

本文来源：https://www.bwwdw.com/article/ds84.html