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

《【计算机类职业资格】二级VISUAL+BASIC机试53及答案解析.doc》由会员分享，可在线阅读，更多相关《【计算机类职业资格】二级VISUAL+BASIC机试53及答案解析.doc（9页珍藏版）》请在麦多课文档分享上搜索。

1、二级 VISUAL+BASIC 机试 53 及答案解析(总分：100.00，做题时间：90 分钟)一、B1 基本操作题/B(总题数：1，分数：30.00)1.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。 请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1) 在名称为 Form1 的窗体上画两个标签，名称分别为 Label1 和Label2，标题分别为“身高”和“体重”，两个文本框，名称分别为 Text1 和 Text2，Text 属性均为空白，一个命令按钮，名称为 Command1，标题为“输入”。然后编写命令按钮的 Click

2、 事件过程，程序运行后，如果单击命令按钮，则先后显示两个输入对话框，在两个输入对话框中分别输入身高和体重，并分别在两个文本框中显示出来。程序运行界面如图 21-1 所示。要求程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1.vbp，窗体文件名为 sjt.frm。 (2) 在名称为 Form1 的窗体上画一个图片框，名称为 Picture1，一个垂直滚动条，名称为 VScroll1，一个命令按钮，名称为Command1，标题为“设置属性”。通过“属性”窗口在图片框中装入一个图形(文件名为 pic1.jpg，位于考生文件夹下)，图片框的宽度与图形的宽度相同，图片

3、框的高度任意，如图 21-2 所示。编写适当的事件过程。程序运行后，如果单击命令按钮，则设置垂直滚动条的如下属性： Min 100 Max 2400 LargeChang 200 SmallChange 20 之后就可以通过移动滚动条上的滚动块来放大或缩小图片框的高度。运行后的窗体如图 21-3 所示。要求程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为 sjt2.frm。 （分数：30.00）_二、B2 简单应用题/B(总题数：1，分数：40.00)2.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。 (1) 在

4、考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件名为 sjt3.frm，请装入该文件，在窗体上画两个命令按钮，名称分别为Command1 和 Command2，标题分别为“添加项目”和“删除项目”，再画一个列表框和一个文本框，名称分别为 List1 和 Text1，如图 21-4 所示。 编写适当的事件过程。程序运行后，如果单击“添加项目”命令按钮，则从键盘上输入要添加到列表框中的项目(内容任意，不少于三个)；如果单击“删除项目”命令按钮，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如图 21-5 所示。提供的窗体文件可以实现上述功能，但这个程序不完整，请把它补充完

5、整。 要求：去掉程序中的注释符，把程序中的?改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (2) 在考生文件夹下有一个工程文件 sjtt4.vbp，相应的窗体文件名为 sjt4.frm，其功能是通过调用过程 FindMax 求数组的最大值，请装入该文件。程序运行后，在 4 个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的最大值，并在窗体上显示出来，如图 21-6 所示。这个程序不完整，请把它补充完整，并能正确运行。 要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原

6、文件名存盘。 （分数：40.00）_三、B3 综合应用题/B(总题数：1，分数：30.00)3.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。 在窗体上有三个菜单，名称分别为Read、Calc 和 Save，标题分别为“读入数据”、“计算并输出”和“存盘”，一个文本框，名称为Text1，MultiLine 属性设置为 Tree，ScrollBars 属性设置为 2，如图 21-7 所示。 程序运行后，如果执行“读入数据”命令，则读入 datain1.txt 文件中的 100 个整数，放入一个数组中，数组的下界为 1；如果单击“计算并输出”按钮，则把该数组中下标为奇数的

7、元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果单击“存盘”按钮，则把所求得的和存入考生文件夹下的dataout.txt 文件中。 在考生文件夹下有一个工程文件 sjt5.vbp，窗体文件中的 ReadData 过程可以把datain1.txt 文件中的 100 个整数读入 Air 数组中；而 WriteData 过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得，文件名为 dataout.txt)。请将程序中有问号的地方用相应的代码补完整，将注释号()去掉。 注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为 sjt5.vbp，窗

8、体文件名仍为 sjt5.frm。 （分数：30.00）_二级 VISUAL+BASIC 机试 53 答案解析(总分：100.00，做题时间：90 分钟)一、B1 基本操作题/B(总题数：1，分数：30.00)1.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。 请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1) 在名称为 Form1 的窗体上画两个标签，名称分别为 Label1 和Label2，标题分别为“身高”和“体重”，两个文本框，名称分别为 Text1 和 Text2，Text 属性均为空白，一个命令按钮，名称为 Comma

9、nd1，标题为“输入”。然后编写命令按钮的 Click 事件过程，程序运行后，如果单击命令按钮，则先后显示两个输入对话框，在两个输入对话框中分别输入身高和体重，并分别在两个文本框中显示出来。程序运行界面如图 21-1 所示。要求程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1.vbp，窗体文件名为 sjt.frm。 (2) 在名称为 Form1 的窗体上画一个图片框，名称为 Picture1，一个垂直滚动条，名称为 VScroll1，一个命令按钮，名称为Command1，标题为“设置属性”。通过“属性”窗口在图片框中装入一个图形(文件名为 pic1.jpg，

10、位于考生文件夹下)，图片框的宽度与图形的宽度相同，图片框的高度任意，如图 21-2 所示。编写适当的事件过程。程序运行后，如果单击命令按钮，则设置垂直滚动条的如下属性： Min 100 Max 2400 LargeChang 200 SmallChange 20 之后就可以通过移动滚动条上的滚动块来放大或缩小图片框的高度。运行后的窗体如图 21-3 所示。要求程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为 sjt2.frm。 （分数：30.00）_正确答案：()解析：解析 在窗体上建立好控件后，先设置控件的属性，再编写程序代码。文本框的

11、内容由 Text 属性设置，命令按钮标题由 Caption 属性设置，单击命令按钮触发 Click 事件。程序中用到了 InputBox()，其格式为：InputBox(prompt,title,default,xpos,ypos,helpfile,context)prompt：是一个字符串，其长度不得超过 1024 个字符，它是在对话框内显示的信息，用来提示用户输入。title：字符串，它是对话框的标题，显示在对话框顶部的标题区。default：字符串，用来显示输入缓冲区的默认信息。xpos，ypos：是两个整数值，分别用来确定对话框与屏幕左边的距离(xpos)和上边的距离(ypos)，它们

12、的单位为 twip。helpfile，context：helpfile 是一个字符串变量或字符串表达式，用来表示帮助文件的名字；context是一个数值变量或表达式，用来表示相关帮助主题的帮助目录号。解题步骤：第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 21-1。表 21-1 控 件 属 性 设 置 值标签 Name Cption Label 身高标签 Name Cption Label 体重文本框 Name Text1文本框 Name Text2命令按钮 Name Cption Command1 输入第二步：编写程序代码。参考代码：Option ExplicitPrivat

13、e Sub Command1_Click()Text1.Text=InputBox(“请输入身高“)Text2.Text=InputBox(“请输入体重“)End Sub第三步：调试并运行程序。第四步：按题目要求存盘。(2) 解析 在窗体上建立好控件后，先设置控件属性，再编写程序代码。控制图片的大小，就是调节图片框 Width 属性和 Height 属性的值，Width 属性和 Height 分别决定控件的宽和高。要使滚动条的 Value 值改变影响图片框的大小，需要将滚动条的 Value 值和图片框的高联系起来，滚动条的 Value 属性值改变时触发 Change 事件。解题步骤：第一步：建

14、立界面并设置控件属性。程序中用到的控件及其属性见表 21-2。表 21-2 控 件 属 性 设 置 值命令 Name Cption Command1 设置属性图片框 Name Picture Picture1 pic1.jpgHscrollbar Name VScroll1第二步：编写程序代码。参考代码：Option ExplicitPrivate Sub Commandl_Click()VScroll1.Max=2400VScroll1.Min=100VScroll1.LargeChange=200VScroll1.SmallChange=20End SubPrivate Sub VScro

15、ll1_Change()Picture1.Height=VScroll1.ValueEnd Sub第三步：调试并运行程序。第四步：按题目要求存盘。二、B2 简单应用题/B(总题数：1，分数：40.00)2.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。 (1) 在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件名为 sjt3.frm，请装入该文件，在窗体上画两个命令按钮，名称分别为Command1 和 Command2，标题分别为“添加项目”和“删除项目”，再画一个列表框和一个文本框，名称分别为 List1 和 Text1，如图 21-4 所示。 编写适当的

16、事件过程。程序运行后，如果单击“添加项目”命令按钮，则从键盘上输入要添加到列表框中的项目(内容任意，不少于三个)；如果单击“删除项目”命令按钮，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如图 21-5 所示。提供的窗体文件可以实现上述功能，但这个程序不完整，请把它补充完整。 要求：去掉程序中的注释符，把程序中的?改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (2) 在考生文件夹下有一个工程文件 sjtt4.vbp，相应的窗体文件名为 sjt4.frm，其功能是通过调用过程 FindMax 求数组的最大值，请装入该文件。程序运行

17、后，在 4 个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的最大值，并在窗体上显示出来，如图 21-6 所示。这个程序不完整，请把它补充完整，并能正确运行。 要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 （分数：40.00）_正确答案：()解析：解析 使用 AddItem 方法向列表框中添加列表项目，其格式为：列表.AddItem 项目字符串,索引值AddItem 方法把“列表字符串”的文本内容放入“列表框”中。如果省略“索引值”则文本本放在列表框的尾部。“索引值”可以指定插入项在列表框中的位置

18、，表中的项目从 0 开始计数，“索引值”不能大于表中的项数减 1。该方法只能单个的项列表框中添加项目。使用 RemoveItem 方法从列表框中删除列表项目其格式为：列表.RemoveItem 索引值RemoveItem 方法从列表框中删除以“索引值”为地址的项目，该方法每次只能删除一个项目。解题步骤：第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 21-3。表 21-3 控 件 属 性 设 置 值istbox Name List1命令按钮 Name Picture Command1 添加项目命令按钮 Name Picture Command2 删除项目文本框 Name Text

19、1第二步：编写程序代码。程序提供的代码：Private Sub Command1_Click()Text1.Text=InputBox(“请输入要添加的项目“)List1.AddItem ?End SubPrivate Sub Command2_Click()Text1.Text=InputBox(“请输入要删除的项目“)For i=0 To ?If List1.List(i)= ? ThenList1.RemoveItem ?End IfNext iEnd Sub参考代码：Private Sub Command1_Click()Text1.Text=InputBox(“请输入要添加的项目“)

20、List1.AddItem Text1.TextEnd SubPrivate Sub Command2_Click()Text1.Text=InputBox(“请输入要删除的项目“)For i=0 To List1.ListCount-1If List1.List(i)=Text1.Text ThenList1.RemoveItem iEnd IfNext iEnd Sub第三步：调试并运行程序。第四步：按题目要求存盘。(2) 解析 文本框里的内容(包括数字)默认都是当作字符串来处理的，如果要参与数据运算则需先用 Val()函数将其转化为数字(如：Va1(Text1.Text)。这里需要指出的

21、是利用 Array 对数组各元素赋值，声明数组的类型只能是 Variant。数组的上下界可用 LBound 函数和 UBound 函数分别获得：程序中变量 Max 保存最大数，最初把数组的第一个元素赋给Max，然后将其后的元素依次与之比较，如果大于 Max 的值则与之交换，后面又将 Max 作为标杆，依次类推，最终 MAX 中的元素就是最大值。在窗体上打印信息可以通过 Print 方法来实现，其形式为：对象. Print 要显示的内容解题步骤：第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 21-4。表 21-4 控 件 属 性 设 置 值命令按钮 Name Picture Co

22、mmand1 求最大值文本框 Name Text1文本框 Name Text2文本框 Name Text3文本框 Name Text4第二步：编写程序代码。程序中提供的代码：Option Base 1Private Function FindMax(a() As Integer)Dim Start As IntegerDim Finish As Integer, i As IntegerStart=?(a)Finish=?(a)Max=?(start)For i=Start To FinishIf a(i) ? Max Then Max= ?Next iFindMax=MaxEnd Funct

23、ionPrivate Sub Command1_Click()Dim arr1Dim arr2(4) As Integerarr1=Array(Val(Text1.Text) , Val(Text2.Text) , Val(Text3.Text) , Val(Text4.Text) )For i=1 To 4arr2(i)=CInt(?)Next iM=FindMax(?)Print “最大值是：“; MEnd Sub参考代码：Option Base 1Private Function FindMax(a() As Integer)Dim Start As IntegerDim Finish

24、As Integer, i As IntegerStart=LBound(a)Finish=UBound(a)Max=a(Start)For i=Start To FinishIf a(i)Max Then Max=a(i)Next iFindMax=MaxEnd FunctionPrivate Sub Command1_Click()Dim arr1Dim art2(4) As Integerarr1=Array(Val(Text1.Text) , Val(Text2.Text) , Val(Text3.Text) , Val(Text4.Text) )For i=1 To 4arr2(i)

25、=CInt(arr1(i) )Next iM=FindMax (arr2)Print “最大值是：“; MEnd Sub第三步：调试并运行程序。第四步：按题目要求存盘。三、B3 综合应用题/B(总题数：1，分数：30.00)3.注意：下面出现的“考生文件夹”均为 c：/wexam/25160001。 在窗体上有三个菜单，名称分别为Read、Calc 和 Save，标题分别为“读入数据”、“计算并输出”和“存盘”，一个文本框，名称为Text1，MultiLine 属性设置为 Tree，ScrollBars 属性设置为 2，如图 21-7 所示。 程序运行后，如果执行“读入数据”命令，则读入 da

26、tain1.txt 文件中的 100 个整数，放入一个数组中，数组的下界为 1；如果单击“计算并输出”按钮，则把该数组中下标为奇数的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果单击“存盘”按钮，则把所求得的和存入考生文件夹下的dataout.txt 文件中。 在考生文件夹下有一个工程文件 sjt5.vbp，窗体文件中的 ReadData 过程可以把datain1.txt 文件中的 100 个整数读入 Air 数组中；而 WriteData 过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得，文件名为 dataout.txt)。请将程序中有问号的

27、地方用相应的代码补完整，将注释号()去掉。 注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为 sjt5.vbp，窗体文件名仍为 sjt5.frm。 （分数：30.00）_正确答案：()解析：解析 使用 Open 方法和 Close 方法打开和关闭文件，使用循环语句把整数赋给数组。在计算输出时，先定义一个变量，用来保存奇数的和；计算时找出数组中下标为奇数的数进行累加，将结果在文本框中显示出来。在窗体上打印内容可以用 Print 方法来实现。解题步骤：第一步：建立菜单项、建立界面并设置控件属性。程序中用到的菜单项及其控件属性见表 21-5。表 21-5 标 题 名 称 内 缩 符

28、 号读入数据 Read 0计算并输出 Calc 0存盘 Save 0Text Name Text1第二步：编写程序代码。程序提供的代码：Option Base 1Dim Arr(100) As IntegerDim temp As IntegerSub ReadData()Open App.Path & “/“ & “datain1.txt“ For Input As #1For i=1 To 100Input #1, Arr(i)Next i? #1End SubSub WriteData(Filename As String, Num As Integer)Open App.Path &

29、“/“ & Filename For Output As #1Print #1, NumClose #1End SubPrivate Sub Calc_Click()Text1.?=“For i=1 To 100 Step 2Text1.Text=Text1.Text & Arr(i) & Space(5)temp=temp+Arr(i)Next iPrint ?End SubPrivate Sub Read_Click()ReadDataEnd SubPrivate Sub Save_Click()WriteData “dataout.txt“, tempEnd Sub参考代码：Option

30、 Base 1Dim Arr(100) As IntegerDim temp As IntegerSub ReadData()Open App.Path & “/“ & “datain1.txt“ For Input As #1For i=1 To 100Input #1, Arr(i)Next iClose #1End SubSub WriteData(Filename As String, Num As Integer)Open App.Path & “/“ & Filename For Output As #1Print #1, NumClose #1End SubPrivate Sub Calc_Click()Text1.Text=“For i=1 To 100 Step 2Text1.Text=Text1.Text & Arr(i) & Space(5)temp=temp+Arr(i)Next iPrint tempEnd SubPrivate Sub Read_Click()ReadDataEnd SubPrivate Sub Save_Click()WriteData “dataout.txt“, tempEnd Sub第三步：调试并运行程序。第四步：按题目要求存盘。