1、二级 VISUAL+BASIC 机试-113 及答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：2，分数：30.00)1.在窗体上拖拉出一个列表框，名称为 Lst1，通过属性窗口向列表框中添加四个项目，分别为“aaaaa”、“bbbbb”、“ccccc”和“ddddd”。同时，画一个名称为 Cmd1、标题为“清除”命令的按钮(如图所示)。编写适当的事件过程，使程序运行后，如果单击“清除”命令按钮，则列表框内容消失。程序运行时的窗体界面如下图所示。（分数：15.00）_2.在 Form1 的窗体上画一个文本框，其名称为 Text1；再画两个命令按钮，其名称分别为
2、Command1 和Command2、标题分别为“显示”和“清空”，编写适当的事件过程。程序运行后，如果单击“显示”按钮，则在文本框中显示“模拟考试”，并使“清空”按钮可用。此时如果单击“清空”按钮，则清空文本框，同时该按钮变为不可用。程序中不得使用任何变量。程序运行时的窗体界面如下图所示。（分数：15.00）_二、2 简单应用题(总题数：2，分数：40.00)3.在名称为 Form1 的窗体上画一个名称为 Command1 的命令按钮，标题为“打开文件”，再画一个名称为CD1 的通用对话框。程序运行后，如果单击命令按钮，则弹出打开文件对话框，如下图所示。（分数：20.00）_4.在考生目录下
3、有一个工程文件 sjt4.vbp，及窗体文件 sjt4.frm，该程序是不完整的，请根据下面的描述，编写 Select 分支结构的 Case 语句部分，以满足题目的要求。注意：不得增行或减行，也不能更改程序的结构。存盘时不得改变文件名和文件夹。本题捕述如下：在窗体 Form1 上有 6 个标签、6 个文本框以及 1 个控制按钮。标签、文本框和控制按钮都使用默认的 Name 属性，标签与控制按钮的标题如下图所示。窗体上所有控件的属性都在程序代码中设置。本程序运行时使用随机数模拟掷骰子(六面，分别为 1 点、2 点、3 点、4 点、5 点、6 点)计算出现 1 点、2 点、3 点、4 点、5 点、
4、6 点朝上的概率。（分数：20.00）_三、3 综合应用题(总题数：1，分数：30.00)5.在名称为 Form1 的窗体上建立一个文本框，名称为 Text1，可以多行显示文本，具备垂直滚动条，再建立两个命令按钮，名称分别为 Cmd1 和 Cmd2，标题分别为“读入数据”和“计算保存”。要求程序运行后，如果单击“读入数据”按钮，则读入 in010。txt 文件中的 100 个整数，放入一个数组中，数组下界为1。同时在文本框中显示出来。如果单击“计算保存”按钮，则计算小于或等于 100 的所有数之和，并把求和结果在文本框 Text1 中显示出来，同时把该结果存入考生文件夹中的文件 out010.
5、txt 中。在考生文件夹下有标准模块文件 mode010.bas 添加到自己的工程中，直接调用此过程。注意：文件必须存放在考生文件夹下，窗体文件名为 djks010.frm，工程文件名为 djks010.vbp，计算结果存入out010.txt 文件，否则没有成绩。程序运行时的窗体界面如下图所示。（分数：30.00）_二级 VISUAL+BASIC 机试-113 答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：2，分数：30.00)1.在窗体上拖拉出一个列表框，名称为 Lst1，通过属性窗口向列表框中添加四个项目，分别为“aaaaa”、“bbbbb”、“cccc
6、c”和“ddddd”。同时，画一个名称为 Cmd1、标题为“清除”命令的按钮(如图所示)。编写适当的事件过程，使程序运行后，如果单击“清除”命令按钮，则列表框内容消失。程序运行时的窗体界面如下图所示。（分数：15.00）_正确答案：(第一步：建立丁程和添加窗体单击考试界面的“功能”选项，从弹出的菜单中选择“启动应用程序”选项。启动 Visual Basic 后，在“新建工程”对话框中选择“新建”项日中的“标准 EXE”，然后单击“打开”按钮，建立一个新的工程文件，里面会同时自动建立一个名为。Form1 的窗体文件。第二步：设计窗体单击工具箱中的 ListBox 控件图标，在窗体上拖拉出一个列表
7、框。在其对应的属性窗口中，将它的 Name属性设为 Lst1；单击 List 属性右端的箭头，在下拉方框中，输入“aaaaa”然后按 Ctr1+Enter 键换行，输入“bbbbb”，依此类推，添加“ccccc”、“ddddd”，然后按回车键，所输入的项目就会出现在列表框中。单击工具箱中的 CommandBox 控件图标，在窗体上添加一个命令按钮。在其对应的属性窗口中，Name 属性设为“Cmd1”，Caption 属性设为“清除”。第三步：编写代码双击 Cmd1 命令按钮，在弹出的代码窗口中，输入单击事件的程序代码：1 Private sub Cmd1_Click( )2 Lst1.Clea
8、r3 End Sub第四步：保存)解析：解析 本题中 Clear 方法用来清除列表框中的全部内容，格式为：列表框.Clear其中要注意 Clear 方法的执行是由命令按钮的单击事件触发的。列表框的 List 属性用来列出表项的内容。2.在 Form1 的窗体上画一个文本框，其名称为 Text1；再画两个命令按钮，其名称分别为 Command1 和Command2、标题分别为“显示”和“清空”，编写适当的事件过程。程序运行后，如果单击“显示”按钮，则在文本框中显示“模拟考试”，并使“清空”按钮可用。此时如果单击“清空”按钮，则清空文本框，同时该按钮变为不可用。程序中不得使用任何变量。程序运行时的
9、窗体界面如下图所示。（分数：15.00）_正确答案：(第一步：启动 Visual Basic，新建一个工程文件。第二步：将一个文本框控件和两个命令按钮添加到窗体中，文本框的名称为 Text1、Text 属性为“模拟考试”，命令按钮的名称分别为 Command1 和 Command2、Caption 属性分别为“显示”和“清空”。第三步：编写程序源代码：1 Private Sub Command1_Click( )2 Text1.Text=“模拟考试“ 在 Text1 中显示“模拟考试”3 Command2. Enabled=True 将“清空”按钮变为可用4 End Sub56 PriVate
10、 Sub Command2_Click( )7 Text1.Text=“ 单击“清空”，则清空 Text.1 中的文本8 Command2.Enabled= alse 将“清空”按钮变为不可用9 End Sub第四步：调试并运行程序，程序设计完成经调试无误后进行存盘。以 sjt2.vbp 和 sjt2.frm 进行保存。)解析：解析 本题主要考查文本控件 Text 的赋值，enable 属性的应用。二、2 简单应用题(总题数：2，分数：40.00)3.在名称为 Form1 的窗体上画一个名称为 Command1 的命令按钮，标题为“打开文件”，再画一个名称为CD1 的通用对话框。程序运行后，如
11、果单击命令按钮，则弹出打开文件对话框，如下图所示。（分数：20.00）_正确答案：(第一步：启动 Visual Basic，新建一个工程文件。第二步：单击工具箱上的“命令按钮”控件，在窗体上画一个命令按钮，将其 Caption 属性设置为“打开文件”，Name 属性设置为 Command1。第三步：在“工程”菜单下选择“部件”，在弹出的对话框中选择“MicrosoftCommon Dialog Control”，单击“确定”按钮，然后在工具箱中选择“Common Dialog”控件，在窗体上画一个通用对话框，在属性窗口中将其 Name 属性设置为 CD1，Dialog Title 属性设置为“
12、打开文件”，Filter 属性设置为“所有文件|*.*|文本文件|*.txt”。第四步：编写程序源代码：1 Private Sub Command1_Click( )2 Me.CD1.ShowOpen3 End Sub第五步：调试并运行程序，运行正确后按要求保存。)解析：解析 本题主要考查了文件对话框的使用，文件对话框在使用之前必须首先通过在“工程”菜单下选择“部件”，在弹出的对话框中选择“Microsoft Common Dialog Control”，单击“确定”后加载到工具箱中，然后才可使用。文件对活框在窗体开始运行时是不可见的，只有通过某一事件的触发使其显示出来，完成相应操作。所以本题
13、中在 Command 的 Click 事件过程中调用其 ShowOpen 事件使其显示。4.在考生目录下有一个工程文件 sjt4.vbp，及窗体文件 sjt4.frm，该程序是不完整的，请根据下面的描述，编写 Select 分支结构的 Case 语句部分，以满足题目的要求。注意：不得增行或减行，也不能更改程序的结构。存盘时不得改变文件名和文件夹。本题捕述如下：在窗体 Form1 上有 6 个标签、6 个文本框以及 1 个控制按钮。标签、文本框和控制按钮都使用默认的 Name 属性，标签与控制按钮的标题如下图所示。窗体上所有控件的属性都在程序代码中设置。本程序运行时使用随机数模拟掷骰子(六面，分
14、别为 1 点、2 点、3 点、4 点、5 点、6 点)计算出现 1 点、2 点、3 点、4 点、5 点、6 点朝上的概率。（分数：20.00）_正确答案：(第一步：启动 Visual Basic，打开考生文件夹下的工程文件 T502.vbp。第二步：双击窗体的任何部分，进入程序编写窗口，补充 Select 语句中的程序如下：1 Case 12 n1=n1+13 Me.Text1.Text.= Format(n1/n.“0.00“)4 Case 25 n2=n2+16 Me.Text2.Text=Format(n2/n，“0.00“)7 Case 38 n3=n3+19 Me.Text3.Tex
15、t= Format(n3/n“0.00“)10 Case 411 n4=n4+112 Me.Text4.Text= Format(n4/n，“0.00“)13 Case 514 n5=n5+115 Me.Text5.Text=Format(n5/n，“0.00“)16 Case 617 n6=n6+118 Me.Text6.Text=Format (n6/n，“0.00“)笫三步：补充完毕，调试程序，确定正确后，将工程与窗体以原文件名保存在考生文件夹下。)解析：解析 本题主要考查了 Select Case 语句的使用。本题中，由于有六种情况，故 Case 语句中共有六个分支，对应不同的六面。F
16、ormat( )函数用以返回指定格式的字符串。0 表示一个数字位，多余的位以 0 补齐；小数点与 0 结合使用，可以放在显示区段的任何位置，根据格式字符串的位置，小数部分多余的数字按四舍五入处理。三、3 综合应用题(总题数：1，分数：30.00)5.在名称为 Form1 的窗体上建立一个文本框，名称为 Text1，可以多行显示文本，具备垂直滚动条，再建立两个命令按钮，名称分别为 Cmd1 和 Cmd2，标题分别为“读入数据”和“计算保存”。要求程序运行后，如果单击“读入数据”按钮，则读入 in010。txt 文件中的 100 个整数，放入一个数组中，数组下界为1。同时在文本框中显示出来。如果单
17、击“计算保存”按钮，则计算小于或等于 100 的所有数之和，并把求和结果在文本框 Text1 中显示出来，同时把该结果存入考生文件夹中的文件 out010.txt 中。在考生文件夹下有标准模块文件 mode010.bas 添加到自己的工程中，直接调用此过程。注意：文件必须存放在考生文件夹下，窗体文件名为 djks010.frm，工程文件名为 djks010.vbp，计算结果存入out010.txt 文件，否则没有成绩。程序运行时的窗体界面如下图所示。（分数：30.00）_正确答案：(第一步：单击考试界面的“功能”选项，从弹出的荣单中选择“启动应用程序”选项。Visual Basic 启动后，新
18、建一个工程文件。打开考生文件夹下的 Mode010.bas 文件。第二步：单击工具箱的命令按钮，在窗体上拖拉出两个命令按钮，Name 属性分别为 Cmd1 和Cmd2，Caption 属性分别为“读入数据”和“计算保存”。再单击工具箱中的文本框控件，Name 属性为Text1，Text 属性为空，ScrollBars 属性为 2，MultiLine 属性为 True。第三步：双击窗体的任何部分，进入程序编写窗口，补充程序如下：在窗体模块中编写如下代码：1 Option Explicit2 Option Base 13 Dim t a(100)4 Dim i As Integer5 Dim n
19、As Integer6 Dim f As Integer7 Dim s As Long8 Private Sub Cmd1 Click( )9 Open App Path &“/in010.txt“For Input As #110 For i=1 To 10011 Input #1, n12 a(i)=n13 Text1.Text=Text1. Text &a(i) &“14 Next i15 Close #116 End Sub17 Private Sub Cmd2 Click( )18 For i=1 To 10019 If a(i)=100 Then s=s+a(i)20 Next i
20、21 Call WriteData(“out010.txt“，s)22 Text1.Text=s23 End Sub第四步：填写完毕，调试程序，确定无误后，将工程与窗体按照 djks010 的文件名保存在考生文件夹下，并执行一次操作，将程序运行得到的结果存到考生文件夹的 out010.txt 文件中。)解析：解析 Visual Basic 中文件的打开方式主要有 Output、Append、Input、Random 等几种方式。Output、Append、Input 方式打开的文件进行的读写操作都是以顺序方式进行的。其中 Output、Append打开的文件主要用来输出数据，与 Print #
21、、Write #等方法配合使用；以 Input 方式打开的文件主要用来输入数据它与 Input#与 Line Input#语句配合使用。本题的 Cmd1 的事件过程中，使用 Input 语句读入数据，由于 Input 读入数据时按照数据项来读入，这一点与 Line Input 不同，故可以使用 For 循环来逐一接收读入的数据项，并将这些数据项逐一赋给一个数组。本题赋给了数组 a。在 Cmd2 的事件过程中，再次使用 For 循环逐一判断 a 数组中的元素，使得该元素小于等于 100 的时候就累加到 s 中，最后调用窗体模块中 WriteData 过程，保存结果。可见，数据项的读入与 For 循环联系紧密。特别是当读入一组数据并将这组数据赋给一个数组时，使用For 循环相当方便。
