1、二级 VISUAL+BASIC 机试-33 及答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：1，分数：30.00)1.在窗体上画 1 个水平滚动条(名称为 HS1，最小值为 0，最大值为 80)和 3 个命令按钮(名称分别为C1、C2、C3，标题分别为“左端”、“居中”和“右端”)，然后编写适当的事件过程。程序运行后，如果单击“左端”命令按钮，则滚动框位于滚动条最左端处；如果单击“居中”命令按钮，则滚动框位于滚动条中间；如果单击“右端”命令按钮，则滚动框位于滚动条最右端处。程序的运行情况如图 11 所示(单击“左端”命令按钮)。存盘时，工程文件名为 sjt1.
2、vbp，窗体文件名为 sjt1.frm。2请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。在窗体上画一个命令按钮，其名称为 C1，标题为“清除”，编写适当的事件过程。程序运行后，如果单击命令按钮，则清除窗体的标题，程序运行结果如图 12 所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frm。（分数：30.00）_二、2 简单应用题(总题数：1，分数：40.00)2.在考生文件夹下有一个工程文件 sjt3.vbp，请在窗体上画两个框架，其名称分别为 F1 和 F2，标题分别为“交通工具”和“到达目标”。在 F1
3、 中画两个单选按钮，名称分别为 Op1 和 Op2，标题分别为“飞机”和“火车”。在 F2 中画两个单选按钮，名称分别为 Op3 和 Op4，标题分别为“广州”和“昆明”。然后画一个命令按钮，其名称为 C1，标题为“确定”。再画一个文本框，其名称为 Text1。编写适当事件过程。程序运行后，选择不同单选按钮时产生的显示结果见下表 1。表 1选中的单选按钮交通工具 到达目标单击“确定”按钮后产生的结果(文本框中显示的内容) 第一种情况 飞机 广州 坐飞机去广州第二种情况 飞机 昆明 坐飞机去昆明第三种情况 火车 广州 坐火车去广州第四种情况 火车 昆明 坐火车去昆明存盘时，工程文件名为 sjt3
4、.vbp，窗体文件名为 sjt3.frm。2在窗体上画 2 个单选按钮(名称分别为 Op1 和 Op2，标题分别为“加法”和“乘法”)、3 个文本框(名称分别为 Text1、Text2、Text3，高度和宽度均为 400 和 1500)和 1 个命令按钮(名称为 C1，标题为“计算”，高度为 400，宽度为 1000)，如图 21 所示，编写适当的事件过程。程序运行后，在 Text1 和Text2 中分别输入 12 和 22 两个整数，并选择一个单选按钮，单击“计算”按钮后，可根据所选择的单选按钮进行加法或乘法运算，并把结果在 Text3 中显示出来，同时把加法结果存入文件 out431.tx
5、t 中，乘法结果存入文件 out432.txt 中。程序的运行情况如图 22 所示。存盘时，工程文件名为 sjt4.vbp，窗体文件名为 sjt4.frm。（分数：40.00）_三、3 综合应用题(总题数：1，分数：30.00)3.在考生文件夹下有一个工程文件 sjt5.vbp，窗体上有两个命令按钮和一个文本框，命令按钮的名称分别为 Cmd1 和 Cmd2，标题分别为“计算”和“存盘”，文本框为空，如图 31 所示。程序的功能是在运行时，单击“计算”命令按钮，系统随机产生 20 个只有两位数的正整数，将其存入到一个数组中，再将这 20 个数相加的结果在文本框中显示出来。单击“存盘”命令按钮，将
6、相加的结果存入“out5.txt”文件中。（分数：30.00）_二级 VISUAL+BASIC 机试-33 答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：1，分数：30.00)1.在窗体上画 1 个水平滚动条(名称为 HS1，最小值为 0，最大值为 80)和 3 个命令按钮(名称分别为C1、C2、C3，标题分别为“左端”、“居中”和“右端”)，然后编写适当的事件过程。程序运行后，如果单击“左端”命令按钮，则滚动框位于滚动条最左端处；如果单击“居中”命令按钮，则滚动框位于滚动条中间；如果单击“右端”命令按钮，则滚动框位于滚动条最右端处。程序的运行情况如图 11
7、所示(单击“左端”命令按钮)。存盘时，工程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm。2请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。在窗体上画一个命令按钮，其名称为 C1，标题为“清除”，编写适当的事件过程。程序运行后，如果单击命令按钮，则清除窗体的标题，程序运行结果如图 12 所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frm。（分数：30.00）_正确答案：(按以下步骤操作： 启动 Visual Basic，在窗体上画 1 个水平滚动条和 3 个命令按钮。 按 F4 键激活属性窗口，
8、在属性窗口中设置 3 个命令按钮的属性，见表 1。 编写 3 个命令按钮的事件过程；Private sub C1_Click()HS1.ValueHS1.MinEnd SubPrivate sub C2_Click()HS1.Value=HS1.Max/2End SubPrivate sub C3_Click()HS1.Value=HS1.MaxEnd Sub表 1控件 属性 设置值水平滚动条名称MinMaxHS1080命令按钮 名称Caption C1左端命令按钮 名称Caption C2居中 命令按钮 名称Caption C3右端 2 对象主要属性设置如表 2 所示。表 2对象 对象名 属
9、性名 属性值窗体 Form1 Caption Form1命令按钮 C1 Caption 清除 分析：按试题要求在窗体上画一个命令按钮，并将它的属性按表 2 的内容进行设置。 Caption 属性用来定义对象的标题，将空字符串赋值给 Caption，即可清除 Caption 中的内容。 编程代码：Private Sub C1_Click()Form1.Caption“End Sub)解析：二、2 简单应用题(总题数：1，分数：40.00)2.在考生文件夹下有一个工程文件 sjt3.vbp，请在窗体上画两个框架，其名称分别为 F1 和 F2，标题分别为“交通工具”和“到达目标”。在 F1 中画两个
10、单选按钮，名称分别为 Op1 和 Op2，标题分别为“飞机”和“火车”。在 F2 中画两个单选按钮，名称分别为 Op3 和 Op4，标题分别为“广州”和“昆明”。然后画一个命令按钮，其名称为 C1，标题为“确定”。再画一个文本框，其名称为 Text1。编写适当事件过程。程序运行后，选择不同单选按钮时产生的显示结果见下表 1。表 1选中的单选按钮交通工具 到达目标单击“确定”按钮后产生的结果(文本框中显示的内容) 第一种情况 飞机 广州 坐飞机去广州第二种情况 飞机 昆明 坐飞机去昆明第三种情况 火车 广州 坐火车去广州第四种情况 火车 昆明 坐火车去昆明存盘时，工程文件名为 sjt3.vbp，
11、窗体文件名为 sjt3.frm。2在窗体上画 2 个单选按钮(名称分别为 Op1 和 Op2，标题分别为“加法”和“乘法”)、3 个文本框(名称分别为 Text1、Text2、Text3，高度和宽度均为 400 和 1500)和 1 个命令按钮(名称为 C1，标题为“计算”，高度为 400，宽度为 1000)，如图 21 所示，编写适当的事件过程。程序运行后，在 Text1 和Text2 中分别输入 12 和 22 两个整数，并选择一个单选按钮，单击“计算”按钮后，可根据所选择的单选按钮进行加法或乘法运算，并把结果在 Text3 中显示出来，同时把加法结果存入文件 out431.txt 中，乘
12、法结果存入文件 out432.txt 中。程序的运行情况如图 22 所示。存盘时，工程文件名为 sjt4.vbp，窗体文件名为 sjt4.frm。（分数：40.00）_正确答案：( 打开题目提供的工程文件，建立控件和设置控件属性。程序中用到的控件如下表 3 所示表 3控件 属性 设置值框架 NameCaption F1“交通工具” 框架 NameCaption F2“到达目标”单选按钮 NameCaption Op1“飞机”单选按钮 NameCaption Op2“火车”单选按钮 NameCaption Op3“广州”单选按钮 NameCaption Op4“昆明”单选按钮 NameCapti
13、on C1“确定”文本框 Name Text1 编写程序代码题目提供的程序代码：Private Sub Form Unload(Cancel As Integer)Open“out.txt“For Output As #1Print #1,Op1.Value,Op2.Value,Op3. Value, Op4. Value, Text1.TextClose #1End Sub参考代码：Private Sub C1_Click()Dim str1 As StringDim str2 As StringIf Op1 Thenstr1=Op1.CaptionElsestr1Op2.CaptionEn
14、d IfIf Op3 Thenstr2=Op3.CaptionElsestr2=Op4.CaptionEnd IfText1.Text“坐“ & str1 & “去“ &str2End Sub 按题目要求存盘并进行相应的操作。2按以下步骤操作： 启动 Visual Basic，在窗体上面 3 个文本框、2 个单选按扭和 1 个命令按钮。 按 F4 键激活属性窗口，在属性窗口中设置各控件的属性，见表 4。表 4控件 属性 设置值文本框名称HeightWidthText14001500文本框名称HeightWidthText24001500文本框名称HeightWidthText34001500单
15、选按钮 名称标题 Op1加法 单选按钮 名称标题 Op2乘法 单选按钮名称CaptionHeightWidth C1计算4001000 执行“工程”菜单中的“添加文件”命令(或按 Ctrl+D)，打开“添加文件”对话框，在当前目录下找到 m1.bas，把它添加到当前工程中。该模块中 putdata 过程的代码如下：Sub putdata1(x As Integer)Open“./out431.txt“For Output As #1Print #1,xClose #1End SubSub putdata2(x As Integer)Open“./out432.txt“For Output As
16、 #1Print #1,xClose #1End Sub两个过程的操作基本相同，只是输出的文件名不一样。 编写命令按钮的 Click 事件过程：Private Sub C1_Click()Dim a As Integer,b As IntegeraText1.TextbText2.TextIf Op1.Value=True ThenText3.Texta+bputdata1 Text3.TextElseText3.Text=a*bputdata2 Text3.TextEnd IfEnd Sub)解析：三、3 综合应用题(总题数：1，分数：30.00)3.在考生文件夹下有一个工程文件 sjt5.
17、vbp，窗体上有两个命令按钮和一个文本框，命令按钮的名称分别为 Cmd1 和 Cmd2，标题分别为“计算”和“存盘”，文本框为空，如图 31 所示。程序的功能是在运行时，单击“计算”命令按钮，系统随机产生 20 个只有两位数的正整数，将其存入到一个数组中，再将这 20 个数相加的结果在文本框中显示出来。单击“存盘”命令按钮，将相加的结果存入“out5.txt”文件中。（分数：30.00）_正确答案：( 对象主要属性设置如表 5 所示。表 5对象 对象名 属性名 属性值窗体 Form1 Caption Form1命令按钮 Cmd1 Caption 计算命令按钮 Cmd2 Caption 存盘文本
18、框 Text1 分析：窗体上有两个命令按钮和一个文本框，它们的属性按表 5 的内容进行设置。 f1 为逻辑变量，在程序中起到一个开关作用，其初值为 False。变量 sum 为整型窗体变量，用它存放各数组值之和，其初值为第一个产生的随机数。WriteData 过程有两个参数，其中第一个参数的作用是传递文件名。在该程序中，从第二个随机数开始，每产生一个随机数，都要与数组中原有的数据进行比较，若有重复，重新产生一个，直到与每一个数据都不重复为止。 编程代码：Option Base 1Dim sum As IntegerPrivate Sub Cmd1_Click()Dim arr(20)As In
19、tegerDim f1 As BooleanRandomizeart(1)=Int (Rnd * 90)+10sum=arr (1)For i=2 To 20Doa=Int(Rnd * 90) +10f1=FalseFor j=1 To i1If arr(j)=a Then f1=True:Exit ForNext jLoop While f1arr(i)=asum=sum+arr(i)Next iText1.Text=sumEnd SubPrivate Sub Cmd2_Click()Call WriteData (“ Out5. txt “,sum)End SubSub WriteData (Filename As String,Num As Integer)Open App. Path & “/“ & FilenameFor Output As #1Print #1,NumClose #1End Sub)解析：
