[计算机类试卷]VB机试模拟试卷21及答案与解析.doc

1、VB 机试模拟试卷 21 及答案与解析 一、基本操作题（ 30分） 1 注意：下面出现的 “考生文件夹 ”均为 c： wexam25160001。 请根据以下各小题的要求设计 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，位于考生文件夹 下 )，图片框的宽度与图形的宽度相同，图片框的高度任意，如图 21-2所示。编写适当的事件过程。程序运行后，

3、如果单击命令按钮，则设置垂直滚动条的如下属性： Min 100 Max 2400 LargeChang 200 SmallChange 20 之后就可以通过移动滚动条上的滚动块来放大或缩小图片框的高度。运行后的窗体如图 21-3所示。要求程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frm。二、简单应用题（ 40分） 2 注意：下面出 现的 “考生文件夹 ”均为 C： wexam25160002。 (1) 在名称为 Form1的窗体上画一个名称为 Label1，标题为 “添加项目： ”的标签；画一个名称为 Text1的文本

4、框，没有初始内容；画一个名称为 Combo1的下拉式组合框，并通过属性窗口输入若干项目 (不少于 3个，内容任意 )；再画两个命令按钮，名称分别为Command1和 Command2，标题分别为 “添加 ”和 “统计 ”。在运行时，向 Text1中输入字符，单击 “添加 ”按钮后，则 Text1中的内容作为一个列表项被添加到组合框的列表中；单击 “统计 ”按钮 ，则在窗体上显示组合框中列表项的个数，如图 23-3所示。请编写两个命令按钮的 Click事件过程。 注意：程序中不得使用变量，也不能使用循环。存盘时必须存放在考生文件夹下，工程文件名为 sjt3.vbp，窗体文件名为 sjt3.frm

5、。 (2) 在考生文件夹下有一个工程文件 sjt4.vbp，其窗体如图 23-4所示。该程序用来对在上面文本框中输入的英文字母串 (称为 “明文 ”)加密，加密结果 (称为“密文 ”)显示在下面的文本框中。加密的方法是：选中一个单选按钮，单击 “加密 ”按钮后，根据选中的单选按钮后面的数字 n，把明文中 的每个字母改为它后面的第n个字母 (“z”后面的字母认为是 “a”， “Z”后面的字母认为是 “A”)，如图所示。窗体中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不能修改程序中的其他部分和控件的属性。最后把修改后的文件按原文件名存盘。三

6、、综合应用题（ 30分） 3 注意：下面出现的 “考生文件夹 ”均为 c： wexam25160001。 去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现下述功能，但不能修改程序中的其他部分。 在窗体上有三个菜单 (名称 分别为 Read、 Calc和 Save，标题分别为 “读入数据 ”、 “计算并输出 ”和 “存盘 ”)，还有一个文本框 (名称为 Text1， MultiLine属性设置为 True， ScrollBars属性设置为 2)，如图 22-8所示。 程序运行后，如果执行 “读入数据 ”命令，则读入 datain1.txt文件中的 100个整数，放入一个数组中，数组的下

7、界为 1；如果单击 “计算并输出 ”按钮，则把该数组中可以被 3整除的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果单击 “存盘 ”按钮，则把所求得的和存入考生文件夹下 的 dataout.txt文件中。 在考生文件夹下有一个工程文件 sjt5.vbp，窗体文件中的 ReadData过程可以把 datain1.txt文件中的100个整数读入 Arr数组中；而 WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中 (整数值通过计算求得，文件名为 dataout.txt)。 注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为 sjt5.v

8、bp，窗体文件名仍为 sjt5.frm。 VB 机试模拟试卷 21 答案与解析 一、基本操作题（ 30分） 1 【正确答案】 在窗 体上建立好控件后，先设置控件的属性，再编写程序代码。 文本框的内容由 Text属性设置，命令按钮标题由 Caption属性设置，单击命令按钮触发 Click事件。程序中用到了 InputBox()，其格式为： InputBox(prompt,title,default,xpos,ypos,helpfile,context) prompt：是一个字符串，其长度不得超过 1024个字符，它是在对话框内显示的信息，用来提示用户输入。 title：字符串，它是对话框的标题

9、，显示在对话框顶部的标题区。 default：字符串，用来显示输入缓冲区的默认信息。 xpos， ypos：是两个整数值，分别用来确定对话框与屏幕左边的距离 (xpos)和上边的距离 (ypos)，它们的单位为 twip。 helpfile， context： helpfile是一个字符串变量或字符串表达式，用来表示帮助文件的名字； context是一个数值变量或表达式，用来表示相关帮助主题的帮助目录号。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 21-1。 第二步：编写程序代码。 参考代码： Option Explicit Private Sub Command

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

11、到的控件及其属性见表 21-2。第二步：编写程序代码。 参考代码： Option Explicit Private Sub Commandl_Click() VScroll1.Max=2400 VScroll1.Min=100 VScroll1.LargeChange=200 VScroll1.SmallChange=20 End Sub Private Sub VScroll1_Change() Picture1.Height=VScroll1.Value End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 二、简单应用题（ 40分） 2 【正确答案】 在窗体上建立好控件后，

12、先设置控件属性，再编写事件过程。 命令按钮和标签的标题在属性窗口的 Caption属性设置。要使 Text1的文本框没有初始内容，就在属性窗口中的 Text属性设为空。要在下拉式组合框中输入内容，通过下拉式组合框 在属性窗口的 List属性设置。 AddItem方法用来项组合框中添加一个表项，其给是为： 组合框 .Additem列表项 索引 ListCount属性返回组合框中列表项的综合。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及属性设置见表 23-3。 第二步：编写程序代码。 参考代码： Option Explicit Private Sub Command1_Click

13、() Combo1.Addltem Text1 End Sub Private Sub Command2_Click() Me.Print Combo1.ListCount End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 (2)首先要确定移动的位数，移动的位数是通过单选框来选择的，移动的值是由单选框的 Caption属性确定的，然后要确定循环的次数，循环的次数是由输入字母的个数确定的。对字符串，需要对字符进行逐个处理。使用 Mid函数取出字符串中的字符，利用 Ase函数返回字符的代码，利用 String函数将字符代码转换成字符。 Mid函数的格式为： Mid(字符串， p，

14、 n) Mid函数从第 p个字符开始，向后截取 n个字符 ， p和 n都是算术表达式。 Mid函数的第三个变量可以省略，这样将第 p个字符开始先后截取到字符串的结尾。解题步骤： 第一步：分析题目提供的代码。 Private Sub Command1_Click() Dim n As Integer, k As Integer, m As Integer Dim c As String, a As String For k=0 To 2 If Op1(k) .Value Then n=Val (Op1 (k) . ? ) End If Next k m=Len(Text1.Text) a=“ F

15、or k=1 To ? c=Mid$(Text1.Text, ?, 1) c=String(1, Asc(c) + n) If c “z“ Or c “Z“ And c “a“ Then c=String(1, ?) End If a=a+c Next k Text2.Text=a End Sub 第二步：修改程序代码。 参考代码： Private Sub Command1_Click() Dim n As Integer, k As Integer, m As Integer Dim c As String, a As String For k=0 To 2 If Op1(k) .Value

16、 Then n=Val(Op1(k) .Caption) End If Next k m=Len(Text1.Text) a=“ For k=1 To m c=Mid$(Text1.Text, k, 1) c=String(1, Asc(c) + n) If c “z“ Or c “Z“ And c “a“ Then c=String(i, Asc(c)-26) End If a=a+c Next k Text2.Text=a End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 三、综合应用题（ 30分） 3 【正确答案】 在 Visual Basic中，菜单项通过菜单编辑器来

17、建立。 程序中用到的Mod是取模的运算符，如： N Mod 3=0则说明余数为 0， N能被 3整除，否则 N不能被 3整除。对文件的操作都有 3个步骤：打开 (Open)、读写、关闭 (Close)。解题步骤： 第一步：建立菜单项、建立界面并设置控件属性。程序中用到的菜单项及其控件属性见表 22-5。 第二步：编写 程序代码。 程序提供的代码： Option Base 1 Dim Arr(100) As Integer Dim temp As Integer Sub ReadData() Open App.Path & “ & “datain1.txt“ For Input As #1 Fo

18、r i=1 To 100 Input #1, Arr(i) Next i Close #1 End Sub Sub WriteData(Filename As String, Num As Integer) Open App.Path & “ & Filename For Output As #1 Print #1, Num ?#1 End Sub Private Sub Calc_Click() Text1.?=“ For i=1 To 100 If Arr(i) Mod 3=0 Then Text1.Text=Text1.Text & Arr(i) & Space(5) temp=temp

19、+9 End If Next i Print temp End Sub Private Sub Read_Click() ReadData End Sub Private Sub Save_Click() WriteData “dataout.txt“, temp End Sub 参考代码： Option Base 1 Dim Arr(100) As Integer Dim temp As Integer Sub ReadData() Open App.Path & “ & “datain1.txt“ For Input As #1 For i=1 To 100 Input #1, Arr(i

20、) Next i Close #1 End Sub Sub WriteData(Filename As String, Num As Integer) Open App.Path & “ & Filename For Output As #1 Print #1, Num Close #1 End Sub Private Sub Calc_Click() Text1.Text=“ For i=1 To 100 If Art(i) Mod 3=0 Then Text1.Text=Text1.Text & Arr(i) & Space(5) temp=temp+Arr(i) End If Next i Print temp End Sub Private Sub Read_Click() ReadData End Sub Private Sub Save_Click() WriteData “dataout.txt“, temp End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。