2013年VB新增试题答案和解析

1、第21套：基本操作请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。（ 1）在名称为 Form1的窗体上画 1个名称为 Shape1的圆角矩形， 高、宽分别为 1000、2000。请利用属性窗口设置适当的属性满足以下要求：1）圆角矩形中填满绿色（颜色值为：&H0000FF00& 或 &HFF00&）；2）窗体的标题为“圆角矩形”。运行后的窗体如图所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。【微步骤】步骤 1：启动 Visual Basic系统，创建一个Form1窗体。步骤 2：

2、在该窗体上画一个形状控件，通过其属性窗口将名称设为shape1，高（ Height属性）设为 1000，宽（ Width 属性）设为 2000，Shape属性设为 4，FillStyle属性设为 0，FillColor属性设为 &HFF00&。步骤 3：激活 Form1窗体，通过其属性窗口将标题（Caption 属性）设为“圆角矩形”。步骤 4：调试并运行程序，设置工程文件名为sjt1.vbp，设置窗体文件名为sjt1.frm。（ 2）在考生文件夹下有一个工程文件sjt2.vbp。窗体中已含有除计时器外的其他控件，还有一个过程 sub1 ，其功能是按照Text1 中的通话时间计

3、算通话费，并将其显示在Text2 中。程序运行时，单击“通话开始”按钮，则在Text1 中累加通话时间（每秒加1），单击“通话结束”按钮，则停止通话时间的累加；单击“计算通话费”按钮，则调用过程sub1。要求：1）在窗体上画一个计时器（见图），并通过属性窗口设置适当属性。2）编写三个按钮的Click 事件过程。3）编写计时器的事件过程。注意：要求程序中不得使用变量，每个事件过程中只能写一条语句， “计算通话费”按钮的事件过程中只允许调用过程 sub1。 不得修改已经存在的内容和控件属性，最后把文件按原文件名存盘。【微步骤】步骤 1：启动 Visual Basic系统，打开考生文件夹下需编辑的工

4、程文件sjt2.vbp，相应的窗体文件名为sjt2.frm。步骤 2：由于所提供的窗体控件不完整，需在该窗体上画一个计时器控件，计时器开始不计时，即把（ Enabled 属性）设为 False ， Interval 属性设为 1000（每秒加 1）。步骤 3：双击“通话开始”按钮（即运行 Click 事件过程），在该 Click 事件过程中加入语句：Private Sub Command1_Click()Timer1.Enabled = TrueEnd Sub步骤 4：单击“通话结束”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command2_

5、Click()Timer1.Enabled = FalseEnd Sub步骤 5： 单击“计算通话费”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command3_Click()sub1End Sub步骤 6：计时器的 Timer 事件过程，在该Timer 事件过程中加入语句：Private Sub Timer1_Timer()Text1 = Text1 + 1End Sub步骤 7：调试并运行程序，关闭程序后按题目要求存盘。简单应用（ 1）在考生文件夹下有一个工程文件sjt3.vbp。程序运行时，单击窗体则显示如图所示的图案。请去掉程序中的注释

6、符，把程序中的？ 改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。【微步骤】步骤 1：启动 Visual Basic系统，打开考生文件夹下需编辑的工程文件的窗体文件名为sjt3.frm。步骤 2 ：进入代码编辑窗口。由于所提供的窗体程序不完整，在窗体的Form_Click()事件过程中，按以下要求修改程序中的问号。第 1个问号（ 'For i = 1 To ?）： 5第 2个问号（ 'For j = 1 To ?）： 2 * i - 1第 3个问号（ 'For j = 1 To ?）： i + 1第 4个问号（ 'For

7、 j = 1 To ?）： 9 - 2 * isjt3.vbp，相应Private Sub步骤 3：调试并运行程序，关闭程序后按题目要求存盘。（ 2）在考生文件夹下有一个工程文件sjt4.vbp，窗体中有一个矩形和一个圆，程序运行时，单击“开始”按钮，圆可以纵向或横向运动（通过选择单选按钮来决定），碰到矩形的边时，则向相反方向运动，单击“停止”按钮，则停止运动，如图所示。可以选择单选按钮随时改变运动方向。已经给出了所有控件和程序， 但程序不完整， 请去掉程序中的注释符， 把程序中的 ？改为正确的内容。注意：不得修改已经存在的内容和控件属性，最后把修改后的文件按原文件名存盘。【微步骤】步骤 1：

8、启动 Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。步骤 2：进入代码编辑窗口。由于所提供的窗体程序不完整，在“停止”按钮的PrivateSub Command2_Click() 事件过程和计时器的PrivateSub Timer1_Timer()事件过程中，按如下要求修改程序中的问号。第 1个问号（ '? = False）： Timer1第 2个问号（ 'Shape2.Top = ? + d * 50）： Shape2.Top第 3个问号（ 'IfShape2.Top <= Shape1.?

9、Or Shape2.Top + Shape2.Width>= Shape1.Top+ Shape1.Height Then）： Top第 4个问号（ 'Shape2.Left = ? + d * 50）： Shape2.Left步骤 3：调试并运行程序，关闭程序后按题目要求存盘。综合应用注意：下面出现的“考生文件夹”均为%USER%在考生文件夹下有一个工程文件sjt5.vbp。 程序运行时，单击“装入数据”按钮，则从考生目录下的in5.txt文件中读入所有城市名称和距离，城市名称按顺序添加到列表框List1 中，距离放到数组a 中；当选中列表框中的一个城市时，它的距离就显示在Te

10、xt1 中，如图所示；此时，单击“计算运费”按钮，则计算到该城市的每吨运费（结果取整，不四舍五入），并显示在Text2 中。每吨运费的计算方法是：距离× 折扣× 单价。其中：单价为0.3 。折扣为500100015002000距离 <500距离 <1000距离 <1500距离 <2000距离折扣为折扣为折扣为折扣为折扣为10.980.950.920.9单击“保存”按钮，则把距离和每吨运费存到文件out5.txt中。已经给出了所有控件和部分程序，要求：1）去掉程序中的注释符，把程序中的？改为正确的内容；2）编写列表框的Click 事件过程；3）编写“计

11、算运费”按钮的Click 事件过程；注意：不得修改已经存在的程序； 在退出程序之前， 必须至少计算一次运费， 且必须用 “保存”按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。【微步骤】步骤 1：启动 Visual Basic系统，打开考生文件夹下需编辑的工程文件的窗体文件名为sjt5.frm。步骤 2：双击“计算运费”按钮（即运行Click 事件过程），在该Click语句：sjt5.vbp ，相应事件过程中加入Private Sub Command2_Click()p = 0.3d = Int(Text1.Text / 500)Select Case dCase 0discount

12、= 1Case 1discount = 0.98Case 2discount = 0.95Case 3discount = 0.92Case Elsediscount = 0.9End SelectText2 = Int(discount * p * Text1)End Sub步骤 3：选择列表框中的某个城市（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub List1_Click()Text1 = a(List1.ListIndex + 1)End Sub步骤 4：在“装入数据”按钮的Private Sub Command1_Click()事件过程中，按以

13、下要求修改程序中的问号。第 1个问号（ 'n = n + ? ）： 1第 2个问号（ 'List1.AddItem ?）： ch$步骤 5：调试并运行程序，关闭程序后按题目要求存盘。第48套：基本操作请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。（ 1）在名称为 Form1的窗体上画 1个名称为 Cbo1的组合框，组合框的列表项分别是：北京、天津、 上海。请设置组合框的参数， 使其外观如图所示。 窗体的标题是 “使用组合框” 。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt1.frm ，工程文件名为sjt1.vbp。【微步骤】步骤

14、1：启动 Visual Basic系统，创建一个Form1窗体。步骤 2：在该窗体上画一个组合框控件，通过其属性窗口将名称设为Cbo1，高（ Height属性）设为 1000，宽（ Width 属性）设为 2000，Shape属性设为 4，FillStyle属性设为 0，FillColor属性设为 &HFF00&。步骤 3：激活 Form1窗体，通过其属性窗口将标题（Caption 属性）设为“圆角矩形”。步骤 4：调试并运行程序，设置工程文件名为sjt1.vbp，设置窗体文件名为sjt1.frm。（ 2）在名称为 Form1的窗体上画 1个名称为 P1的图片框，窗体的标题为“

15、程序设计”，如图 1所示。编写适当的事件过程，使得程序运行后，单击窗体，则在图片框中显示窗体的标题，并把窗体的标题变为“Basic ”，如图 2所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。简单应用（ 1）在考生文件夹中有一个工程文件sjt3.vbp，窗体上有 2个命令按钮、 1个水平滚动条和 1个计时器，其名称分别为Command1、 Command2、 HScroll1 和Timer1，如图 1所示。程序运行后，按钮Command1、 Command2的标题分别立即显示 " 开始 " 、 " 停止

16、" ，同时把计时器的Interval属性设置为 100，Enabled属性设置为 False 。此时如果单击" 开始 " 按钮，则该按钮变为禁用， 而标题则变为 " 继续 " ，同时滚动条的滚动框自左至右移动，每次移动 10，如图 2所示，移到右端时，自动从左端重新开始向右移动；如果单击" 停止 " 命令按钮，则该按钮变为禁用，" 继续 " 命令按钮变为有效，同时滚动框停止移动；再次单击"继续 " 命令按钮后，滚动框继续移动。已经给出了全部控件和程序，但程序不完整，请去掉程序中的注释符

17、，把程序中的？改为正确的内容。注意：考生不得修改窗体文件中已经存在的程序。最后程序按原文件名存盘。（ 2）在考生文件夹下有一个工程文件 sjt4.vbp ，窗体上有 2个名称分别为 Text1 、Text2的文本框， 有 1个名称为 Command1的命令按钮。 程序运行时， 在 Text1 文本框中输入一行单词（只含有字母或空格）， 单击命令按钮后，将把每个单词的第一个字母改为大写（如果原来已是大写字母则不变），并在Text2 文本框中显示出来，如图所示。已经给出了全部控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ？改为正确的内容。注意：不得修改原有程序和控件的属性。最后把修改

18、后的文件按原文件名存盘。综合应用注意：下面出现的“考生文件夹”均为%USER%为了验证一个正整数n（ n > 3）是否为素数，最直观的方法是，看在2 n/2 范围内能否找到一个整数 m将 n整除，若 m存在，则 n不是素数；若找不到 m，则 n为素数。在考生文件夹下有一个工程文件 sjt5.vbp ，其窗体上有 1个名称为 Text1 的文本框。 请根据上面的算法， 编写判断一个正整数是否为素数的函数 prime ，然后用这个函数找出 200 300之间的所有素数，求出这些素数的和，将该数在文本框中显示出来，并存入文件 out5.txt 中。要求：编写函数 prime 的代码，然后在Fo

19、rm_Click 事件过程中调用该函数，并计算素数的和。事件过程中已给出了把素数和保存到文件中的代码，考生不得修改。注意：请务必把求得的和在文本框中显示出来，这样才能存入文件out5.txt，否则没有成绩。第49套：基本操作请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。（ 1）在名称为 Form1的窗体上画一个名称为Image1的图像框，再画一个名称为Command1、标题为 " 退出 " 的命令按钮。通过属性窗口设置图像框的属性，将考生文件夹下的pic1.bmp文件加载到图像框，使图片的大小能够随图片框大小而改变。设置命令按钮的属性，使得程

20、序运行时，按回车键即可执行命令按钮的Click 事件过程。窗体外观如图所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。（ 2）在名称为 Form1的窗体上画一个名称为CD1的通用对话框，在属性窗口中设置CD1的属性，使得打开通用对话框时，其初始路径是"D:"。按照下表设计菜单，窗体外观及菜单如图所示。请编写程序，使得运行程序，单击" 打开文件 " 或 " 保存文件 " 菜单项时， 相应的出现 "打开 "或"保存 "对话框。要求程序中不得使用变

21、量，每个事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。简单应用（ 1）考生文件夹中有工程文件sjt3.vbp。其窗体上已有部分控件。在窗体上添加含有两个单选钮的控件数组，其名称为 Option1 ，单选按钮的下标分别为0、1，Caption 属性分别为" 驱动器为 C"及 " 列txt 文件 " ，如图所示。 运行程序时，驱动器列表框、 目录列表框和文件列表框三个控件能够同步变化。1)单击 " 驱动器为 C"单选按钮，则驱动器列表框的当前驱动器被设为"

22、;C" 。2) 单击 " 列 txt 文件 " 单选按钮，则文件列表框中只显示txt 类型的文件。3) 单击文件列表框中的某个文件时， 被选中的文件名显示在 " 当前文件 " 右侧的标签中。要求：按照题目要求添加控件， 设置有关属性， 去掉程序中的注释符， 把程序中的？改为正确的内容。注意：考生不得修改窗体文件中已经存在的程序。最后，程序按原文件名存盘。（ 2）在考生文件夹下有一个工程文件 sjt4.vbp 。窗体上已有全部控件， 如图 1所示。 要求单击标题为 " 生成矩阵 " 的命令按钮时， 随机生成由单个大写字母组成的

23、 5× 5矩阵，并显示在名称为 Text1 的文本框中。 单击 " 查找 " 按钮，找出所生成矩阵中ASCII 值最大的字母及其位置，并显示在 Text2 中（只显示一个ASCII 值最大的字母及其位置），如图2所示（ Text2 中显示的是第 2行第 5列的 "Y" ）。在给出的窗体文件中已经有了全部控件，但程序不完整。要求去掉程序中的注释符，把程序中的？改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。综合应用注意：下面出现的“考生文件夹”均为%USER%在考生文件夹下有一个工程文件sjt5.vbp。

24、程序功能如下：1) 单击 " 读数据 " 按钮，从文件中读出数据，放入二维数组a中。2) 单击 " 生成新数组 " 按钮时，依据 a数组生成 b数组；若 a数组元素为素数，则直接将 a数组元素的值赋给 b数组中相同下标的数组元素；若 a数组元素的值能被 2整除，则将该元素值的平方作为 b数组同下标的元素； 若 a数组元素为其他值， 则将该元素乘 2的值作为 b数组同下标的元素。3) 单击 " 查找最大值 " 按钮，则在 b数组中找最大值并显示在 Label2 标签上。在给出的窗体文件中已经有了全部控件， 标准模块中有判断素数的函数 I

25、sPrime 。 要求去掉程序中的注释符，把程序中的 ？改为正确的内容，并编写相应的程序，实现程序的功能。注意：不能修改程序的其他部分和控件属性。 最后把修改后的文件按原文件名存盘。 程序调试通过后，各命令按钮的事件过程必须至少各执行一次。第50套：基本操作请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。（ 1）在名称为 Form1，标题为 " 图书 " 的窗体上画 1个名称为 Cmb1的下拉式组合框。下拉列表中有 " 少儿读物 " 、 " 传记文学 " 和 " 武侠小说 "3 个表项

26、内容。运行后的窗体如图所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。【微步骤】步骤 1：启动 Visual Basic系统，创建一个步骤 2：修改属性 caption:图书步骤 3：添加控件 combo1，通过其属性窗口将Form1窗体。list输入少儿读物传纪文学武侠小说步骤 4：调试并运行程序，设置工程文件名为sjt1.vbp，设置窗体文件名为sjt1.frm。（ 2）在名称为 Form1的窗体上，画1个能根据标题内容自动调整大小的标签，其名称为Label1 ，标题为 "VisualBasic" ，字体为 &quo

27、t;Times New Roman"，字号为 14号字。再画 2个名称分别为 Command1、 Command2，标题分别为 " 放大 " 、 " 缩小 " 的命令按钮。要求：编写适当的事件过程，使得每单击 " 放大 " 按钮一次， Label1 中所显示的标题内容自动增大3个字号；每单击 " 缩小 " 按钮时， Label1 中所显示的标题内容自动缩小3个字号。注意：要求程序中不能使用变量，每个事件过程中只能写一条语句。保存时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.

28、frm。【微步骤】步骤 1：启动 Visual Basic系统，创建一个sjt2.frm窗体步骤 2：由于所提供的窗体控件不完整，需在该窗体上画一个标签控件属性 fontName: Times New RomanFontsize:14Caption: Visual BasicName:label1步骤 3：在该窗体上画一个命令按钮控件属性 :Caption:放大Name:command1Private Sub Command1_Click()Form1.Label1.FontSize = Form1.Label1.FontSize + 3End Sub步骤 4：在该窗体上画一个命令按钮控件属性

29、 :Caption:缩小Name:command2Private Sub Command2_Click()Form1.Label1.FontSize = Form1.Label1.FontSize - 3End Sub步骤 5：调试并运行程序，关闭程序后按题目要求存盘。简单应用（ 1）考生文件夹下的工程文件sjt3.vbp中有 2个标题分别是" 产生范文 " 和 " 结束 " 的命令按钮； 2个名称分别为 Text1 和 Text2 ，初始值为空的文本框。请再画1个名称为 Label3 、标题为" 正确率 " 的标签， 画 1个名称为

30、 Text3 、初始内容为空的文本框。程序功能如下：1）单击 " 产生范文 " 命令按钮，则在 Text1 文本框中随机产生由 20个字母组成的范文；2）用户可以在 Text2 文本框中依照范文输入相应字母，当输入字母达到20个之后， 禁止向Text2 输入内容，且在Text3 文本框中显示输入的正确率；3）单击 " 结束 " 命令按钮，则结束程序运行。 请将 " 产生范文 " 命令按钮的 Click 事件过程，以及 Text2 文本框的 KeyPress 事件过程中的注释符去掉，把 ？改为正确内容， 以实现上述程序功能。注意：考生不

31、得修改窗体文件中已经存在的控件和程序。最后，程序按原文件名存盘。Private Sub Command1_Click()RandomizeText2.Locked = FalseText1 = "": Text2 = "": Text3 = ""For i = 1 To 20s = Chr$(Int(Rnd * 26) + 97)Text1 = Text1 + sNextEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)Dim m As Integer, n As Intege

32、rIf Len(Text2) = 20 ThenText2.Locked = Falsem = 0: n = 0For i = 1 To 20If Mid(Text2, i, 1) = Mid(Text1, i, 1) Thenm = m + 1Elsen = n + 1End IfNextText3 = m / (m + n) * 100 & "%"End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub（ 2）考生文件夹下的工程文件sjt4.vbp中已经定义了一个学生记录类型数据StudType 。有3个标题分别为 &quo