2009年3月全国计算机二级VB上机试题内容
第1题：
在考生文件夹下有一个工程文件sjt5.vbp，其窗体上有一个文本框，名称 为Text1；还有两个命令按钮，名称分别为C1、C2，标题分别为"计算"、 "存盘"，如图所示。并有一个函数过程 isprime可以在程序中直接调用， 其功能是判断参数 a 是否为素数，如果是素数，则返回 True，否则返回 False。 请编写适当的事件过程，使得在运行时，单击"计算"按钮，则找出小于 18000的最大的素数，并显示在Text1中；单击"存盘"按钮，则把 Text1 中的计算结果存入考生文件夹下的out5.txt文件中。
本题的考查主要有两个,一个是循环,一个是文件的访问。
由于在小于18000中寻找最大素数,并且判断素数的函数已经给出,只要使用一个循环在18000以下寻找,没有找到减一再寻找,找到记录在Text1.Text中,在结构化的程序中不再提倡GoTo以及从结构体中退出（例如Exit For等）,使用While判断是一个较好的选择。
第2题：
在考生文件夹下有一个工程文件sjt4.vbp，窗体上已经有两个文本框，名 称分别为Text1、Text2；和一个命令按钮，名称为C1，标题为"确定"； 请画两个单选按钮，名称分别为 Op1、Op2，标题分别为 "男生"、"女 生"；再画两个复选框，名称分别为 Ch1、 Ch2，标题分别为"体育"、 "音乐"。请编写适当的事件过程，使得在运行时，单击"确定"按钮后实 现下面的要求：
1）根据选中的单选按钮，在Text1中显示"我是男生"或"我是女生"。
2）根据选中的复选框，在Text2中显示"我的爱好是体育"或"我的爱好是 音乐"或"我的爱好是体育音乐"。如图所示。
注意： 不得修改已经给出的程序和已有控件的属性。在结束程序运行之前，必 须选中一个单选按钮和至少一个复选框，并单击"确定"按钮。必须使用 窗体右上角的关闭按钮结束程序，否则无成绩。
分析：单选按钮OptionButton和选择框CheckBox的简单应用OptionButton控件和CheckBox控件功能相似，但是二者间也存在着重要差别。在选择一个OptionButton时，同组中的其它OptionButton控件自动无效。相反，可以选择任意数量的CheckBox控件。
只要注意了这一点本题可以在C1_Click事件中判断他们的选中情况OptionButton的Value为True表示选中,CheckBox的Value=1时表示选中。
第3题：
在名称为 Form1 的窗体上画一个标签，名称为 L1，标签上显示"请输入 密码"， 在标签的右边画一个文本框，名称为 Text1 ，其宽、高分别为 2000和300，设置适当的属性使得在输入密码时，文本框中显示"*"字符， 此外再把窗体的标题设置为"密码窗口"，以上这些设置都只能在属性窗 口中进行设置，运行时的窗体如图所示。 *注意： 存盘时必须存放在考生文件夹下，工程文件名为 sjt1.vbp，窗体文件 名为sjt1.frm。
分析：创建的对象设置属性。属性窗口（选中对按[F4]调出）给出了设置所有的窗体对象属性的简便方法。在"视图"菜单中选择"属性窗口"命令、单击工具栏上的"属性窗口"按钮或使用控件的上下文菜单，都可以打开属性窗口。在本题中要求对于密码框的设定,只要为Text1的PasswordChar属性设置为*即可完成
第4题：
在考生文件夹下有一个工程文件 sjt3.vbp，窗体上已经有一个标签 L1， 请画一个单选按钮数组，名称为Op1， 含三个单选按钮，它们的Index属性 分别为0、1、2，标题依次为"飞机"、"火车"、"汽车"，再画一个名 称为Text1的文本框。窗体文件中已经给出了Op1的Click事件过程，但不完 整，要求去掉程序中的注释符，把程序中的 ？改为正确的内容，使得在运 行时单击"飞机"或"火车"单选按钮时，在Text1中显示"我坐飞机去"或"我坐火车去"，单击"汽车"单选按钮时，在Text1中显示"我开汽车 去"，如图所示。 注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
本题考查对于OptionButton 控件的了解,OptionButton控件显示一个可以打开或者关闭的选项,判断它是否被选中使用的是value属性,选中为True,反之为False。
一般在使用OptionButton控件使大多数人喜欢使用控件数组,在第一题中Select Cas 语句是根据表达式的值，来决定执行几组语句中的其中之一。根据后续的语句我们可以知道,这里需要根据用户的选择进行分流,分流的依据是用户选择了那一个OptionButton,这个可以由Index得到,这里填入Index,第二个空白,我们只要知道OptionButton数组从零开始,不难判断Op1（1).Caption是"火车",我们只能"坐",填入a即可。
第5题：
在考生文件夹下有一个工程文件sjt5.vbp，窗体上有两个图片框，名称为
P1、P2，分别用来表示信号灯和汽车，其中在 P1 中轮流装入"黄灯.ico"、 "红灯.ico"、"绿灯.ico"文件来实现信号灯的切换；还有两个计时器Timer1 和Timer2，Timer1用于变换信号灯，黄灯1秒，红灯2秒，绿灯3秒；Timer2用于 控制汽车向左移动。运行时，信号灯不断变换，单击"开车"按钮后。 汽车开 始移动，如果移动到信号灯前或信号灯下，遇到红灯或黄灯，则停止移动， 当 变为绿灯后再继续移动。在窗体中已经给出了全部控件和程序，但程序不完整，
要求阅读程序并去掉程序中的注释符，把程序中的 ？改为正确的内容，使其实 现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。 最后把 修改后的文件以原文件名存盘。
本题中涉及三个事件
点击开车按钮C1_Click,汽车开始启动,由题面知道汽车的开动由Timer2控制,那么这里必须启动Timer2,所以填入Timer2.Enable=True
红绿灯由Timer1控制,在Timer1的事件Timer1_Timer中根据时间a来更换P1.Picture的图像,达到红绿灯转换的效果,如果看到其他灯已经有了,这里填入"绿灯.ioc"是简单的选择,仔细分析要在绿灯有三秒,也必须这样填写
最后是汽车的移动,已知是由Timer2操作的,在它的事件Timer2_Timer中要移动汽车,使用了picture的Move方法,平行向右移动,改变Left值,这里填入picture1.Left即可实现。
其他关于Timer控件以及picture控件的属性方法事件请自己参阅有关资料。
第6题：
在考生文件夹下有一个工程文件sjt5.vbp，请在窗体上画两个框架，其名 称分别为F1和F2，标题分别为"交通工具"和"到达目标"。在F1中画两 个单选按钮，名称分别为Op1和Op2，标题分别为"飞机"和"火车"。在 F2中画两个单选按钮，名称分别为Op3和Op4，标题分别为"广州"和"昆 明"。画一个文本框，其名称为Text1。编写适当事件过程。程序运行后， 选择不同单选按钮时产生的显示结果见下表
程序的运行情况如图所示。存盘时，工程文件名为sjt5.vbp，窗体文件名 为sjt5.frm。
单选按钮的Value属性：
Value属性用来表示单选按钮的状态，可以取True和False两种值，取值为True时，单选按钮是"打开"的，按钮中心有一个圆点；取值为False时，单选按钮是"关闭"的，按钮是一个圆圈。
设置单选按钮Value属性的语法是：
单选按钮名.Value = True（-1)或False（0)
由于Value属性是单选按钮的缺省属性，因此在设置该属性的值的时候，可以省略属性名。
解题方法：
打开工程文件sjt5.vbp，点击工具箱中的Frame控件图标，然后在窗体上拖拉出两个框架，通过属性窗口分别设置其Name属性为"F1"和"F2"，Caption属性为"交通工具"和"到达目标"。
点击工具箱中的OptionButton控件图标，然后在F1中拖拉出两个单选按钮，通过属性窗口分别设置其Name属性为"Op1"和"Op2"，Caption属性为"飞机"和"火车"。
点击工具箱中的OptionButton控件图标，然后在F2中拖拉出两个单选按钮，通过属性窗口分别设置其Name属性为"Op3"和"Op4"，Caption属性为"广州"和"昆明"。
点击工具箱中的TextBox控件图标，然后在窗体上拖拉出一个文本框。
打开代码窗口，输入如下的代码：
Private Sub Form_Click（)
If Op1.Value = True Then
If Op3.Value = True Then
Text1.Text = "坐飞机去广州"
ElseIf Op4.Value = True Then
Text1.Text = "坐飞机去昆明"
End If
ElseIf Op2.Value = True Then
If Op3.Value = True Then
Text1.Text = "坐火车去广州"
ElseIf Op4.Value = True Then
Text1.Text = "坐火车去昆明"
End If
End If
End Sub
第7题：
在考生文件夹下有一个工程文件sjt6.vbp，请在窗体上画三个文本框，其 名称分别为Text1、Text2和Text3，文本框内容分别设置为"等级考试"、 "计算机"和空白。然后画两个单选按钮，其名称分别为Op1和Op2，标题 分别为"交换"和"连接"（如图所示），编写适当的事件程序。程序运 行后，如果选中"交换"单选按钮并单击Text3文本框，则Text1文本框中 内容与Text2文本框中内容进行交换，并在Text3文本框中显示"交换成 功"；如果选中"连接"单选按钮并单击 Text3 文本框，则把 Text1 和 Text2的内容按Text1、Text2的顺序连接起来，并在Text3文本框中显示连 接后的内容。存盘时，工程文件名为sjt6.vbp，窗体文件名为sjt6.frm。
解题方法：
打开工程文件sjt6.vbp，点击工具箱中的TextBox控件图标，然后在窗体上拖拉出三个文本框，通过属性窗口分别设置其Text属性为"等级考试"、"计算机"和""。
点击工具箱中的OptionButton控件图标，然后在窗体中拖拉出两个单选按钮，通过属性窗口分别设置其Name属性为"Op1"和"Op2"，Caption属性为"交换"和"连接"。
打开代码窗口，输入如下的代码：
Private Sub Text3_Click()
If Op1.Value Then
Text1.Text = "计算机"
Text2.Text = "等级考试"
Text3.Text = "交换成功"
Else
Text3.Text = Text1.Text + Text2.Text
End If
End Sub
第8题：
在Form1的窗体上画一个文本框，其名称为Text1；再画两个命令按钮，
其名称分别为C1和C2，标题分别为"显示"和"退出"，编写适当的事件 过程。程序运行后，在窗体加载时使"退出"按钮不可用，如果单击"显 示"按钮，则在文本框中显示"等级考试"，并使"退出"按钮可用，此 时如果单击"退出"按钮，则结束程序，程序运行情况如图所示。
解题方法：
新建一个名为Form1的窗体，点击工具箱中的CommandButton控件图标，然后在窗体上拖拉出两个命令按钮，通过属性窗口分别设置其Name属性为"C1"和"C2",Caption属性为"显示"和"退出"。
点击工具箱中的TextBox控件图标，然后在窗体上拖拉出一个文本框。
打开代码窗口，输入如下的代码：
Private Sub C1_Click（)
C2.Enabled = True
Text1.Text = "等级考试"
End Sub
Private Sub C2_Click（)
End
End Sub
第9题：
在Form1的窗体上画一个命令按钮，其名称为C1，标题为"显示"；再画
一个文本框，其名称为Text1，编写适当的事件过程。程序运行后，在窗 体加载时使文本框不可见，如果双击窗体，则文本框出现；此时如果单击 命令按钮，则在文本框中显示"等级考试"。程序运行情况如图所示。
解题方法：
新建一个名为Form1的窗体，点击工具箱中的CommandButton控件图标，然后在窗体上拖拉出一个命令按钮，通过属性窗口设置其Name属性为"C1"，Caption属性为"显示"。
点击工具箱中的TextBox控件图标，然后在窗体上拖拉出一个文本框。
打开代码窗口，输入如下的代码：
Private Sub C1_Click（)
Text1.Text = "等级考试"
End Sub
Private Sub Form_DblClick（)
Text1.Visible = True
End Sub
Private Sub Form_Load（)
Text1.Visible = False
End Sub
第10题：
在窗体上画一个文本框，其名称为Text1，Text属性为空白。再画一个命 令按钮，其名称为C1，Visible属性为False。编写适当的事件过程。程序 运行后，如果在文本框中输入字符，则命令按钮出现。程序运行情况如图 所示。
解题方法：
新建一个窗体，点击工具箱中的TextBox控件图标，然后在窗体上拖拉出一个文本框，通过属性窗口设置其Text属性为""。
点击工具箱中的CommandButton控件图标，然后在窗体上拖拉出一个命令按钮，通过属性窗口设置其Name属性为"C1",Visible属性为False。
打开代码窗口，输入如下的代码：
Private Sub Text1_Change（)
C1.Visible = True
End Sub
按要求保存文件即完成本题。
VB上机操作题
第1题没拍全，以下给出第2题解答：Dim intArray() As Integer, intM As Integer, intN As IntegerPrivate Sub Command1_Click() intM = InputBox("请输入行数", "数组行数", 4) intN = InputBox("请输入列数", "数组列数", 5) ReDim intArray(1 To intM, 1 To intN) For i = 1 To intM For j = 1 To intN intArray(i, j) = Int(Rnd(i * j) * 90 + 10) Picture1.Print CStr(intArray(i, j)) + Space(1); Next j Picture1.Print Next i End SubPrivate Sub Command2_Click() Dim singleAverage() As Single ReDim singleAverage(1 To intM) For i = 1 To intM For j = 1 To intN singleAverage(i) = singleAverage(i) + intArray(i, j) Next j Text1.Text = Text1.Text + CStr(singleAverage(i) / intN) + vbCrLf Next i Text2.Text = CStr(Max(singleAverage))End SubPrivate Function Max(a() As Single) As Single Dim singleMax As Single singleMax = a(1) For i = 2 To intM If a(i) > singleMax Then singleMax = a(i) End If Next i Max = singleMax / intNEnd FunctionPrivate Sub Command3_Click() Picture1.Cls Text1.Text = "" Text2.Text = ""End Sub
计算机二级vb上机题库及答案
2009年全国计算机二级VB精选上机考试试题(2)一、基本操作题
下面出现的“考生文件夹”均为c：＼wexam＼20060001。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画一个水平滚动条，其名称为HScmll1，然后通过属性窗口设置窗体和滚动条的属性，实现如下功能：窗体标题为“设置滚动条属性”；滚动条所能表示的最小值和最大值分别为0和200，滚动框的初始位置为100。程序运行后，单击滚动条两端的箭头时，滚动框移动的增量值为2，单击滚动框前面或后面的部位时，滚动框移动的增量值为10。程序的运行界面如图32-1所示。要求：不要编写任何代码。
图32-1
注意：存盘时必须存放在考生文件夹下，工程文件名为kt1.vbp，窗体文件名为kt1.frm。
(2)在名称为Form1的窗体上画一个文本框，其名称为Text1，如图32－2所示。编写适当的事件过程，使程序运行后，如果单击窗体，则可使文本框移到窗体的左上角；而如果在文本框中输入信息，则可使文本框移到窗体的右上角。程序的运行界面如图32-3所示。
要求：不得使用任何变量；只允许通过修改属性的方式移动文本框。
注意：存盘时必须存放在考生文件夹下，工程文件名为kt2.vbp，
窗体文件名为kt2.frm。
图32-2
图32-3
二、简单应用题
下面出现的“考生文件夹”均为c：＼wexamL20060001。
(1)在考生文件夹下有一个工程文件kt3.vbp，相应的窗体文件为kt3.frm。其功能是产生20个0～1000的随机整数，放入一个数组中，然后输出这20个整数中大于500的所有整数之和。程序运行后，单击命令按钮(名称为Command1，标题为“输出大于500的整数之和”)，即可求出这些整数的和，并在窗体上显示出来，如图32-4所示。这个程序不完整，请把它补充完整，并能正确运行。
图32-4
要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件kt4.vbp，相应的窗体文件为kt4.frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出0～100范围内不能被7整除的所有整数的和，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算不能被7整除的整数之和的操作在通用过程Fun中实现，请编写该过程的代码。要求请勿改动程序中的任何内容，只在Ftrnction Fun()和 End Function之间填入所编写的若干语句。最后把修改后的文件按原文件名存盘。
三、综合应用题
下面出现的“考生文件夹”均为c：＼wexam＼20060001。
在名为Form1的窗体上建立一个名为Text1的文本框，将MultiLine属性设置为True，ScrollBars属性设置为2。再建立两个名称分别为Cmd1、Cmd2和Cmd3命令按钮，标题分别为“读数”、“排序”和“保存”，如图32-5所示。
程序运行后，如果单击“读数”按钮，则读入in7.txt文件中的100个整数，放入一个数组中(数组下界为1)；如果单击“排序”按钮，则对100个整数按从大到小进行排序；如果单击“保存”按钮，则把排序后的全部数据在文本框Text1中显示出来，然后存入考生文件夹中的文件out7.txt中(在考生文件夹下有标准模块mode1.bas过程可以把指定个数的数组元素存入out17.txt文件，考生可以把该模块文件添加到自己的工程中)。
注意：保存时必须存放在考生文件夹中，窗体文件名为kt5.frm，工程文件名为kt5.vbp，
排序结果存入out17.txt，否则没有成绩。
图32-5
全国计算机二级vb考试具体考什么内容？
一、对于笔试： 二级VB考试的考题内容很细，没有复杂的算法题，最多只是一些看起来复杂（其实很有规律）的循环题。那么，我们要做的是： 1：按照大纲读懂（理解）教材上的的内容。 2：做一些历年的考试题目，根据作者的经验，每年的考题中都会有一些重复或相似的考题。当然最主要的是做完最近几年的几套考题后，自己就会对考试内容“胸有成竹”，自然就会知道哪是重点，哪些该复习，有的放矢。 3：针对特殊题型和重点内容做题。 二、对于机试: 两个字，做题。可以把过去两到四次内的考题拿过来做。 当然，我们在做题是要端正心态，因为谁也不敢保证您将来考的一定会在您现在做的题（当然总有那么一半的人有这运气，呵呵），做题是因为一门课程内容太多，做题可以帮助理解，毕竟考题很活。 简单分析一下： 基本操作(30分两小题)：考核重点一般集中在：工程新建与保存、控件的一些基本属性的设置（如：名称、标题、大小、位置、值等）、基本方法的使用（如：Print等） 简单应用(40分两小题)：考核重点一般集中在：简单算法(如：求最大数、素数、排序等)、通过代码窗口操作对象属性、控件数组的建立与通过循环访问等。 综合应用(30分一小题)：考核重点一般集中在：顺序文件的读写操作、读文件一般都会用到循环或数组。 一、关于计算机二级考试的目的及内容 计算机二级考试内容包括 C 语言， Q Basic ， Foxbase, Visual FoxPro 和 Visual Basic 。考生从中选出一项作为考试项目。考试分两部分，上机和笔试。笔试就是一些基本的操作方法，编程方法，上机就是要亲自编程。报名时可以购买复习资料，包括：考试大纲，二级教材以及模拟考试光盘。听起来好像挺玄，其实考试方式以及内容都是极其简单的 —— 如果真的仔细看过复习资料。 二、计算机二级考试的准备过程 可以说，有了模拟考试的光盘，弄懂并且做熟练了以后，最后的上机考试就变成了完全没有意义的反射运动了。 关键是要肯拿出一点时间来练习。 计算机等级考试的报名时间大约是每年的 1 月和 6 月，分别对应 4 月和 9 月的考试。我选择的是第一次进入考试内容的 Visual Basic 。因为以前多少在计算机课上学过一点，对其内容和界面有所了解。大三结束放暑假前，我下定决心一定要在这个暑假里攻破二级的 VB 。真到放假了才知道放假前立下的宏志实在是很脆弱。放暑假后没几天我就跑到成都玩去了：那里有太多吸引我的东西：山水，小吃，还有朋友。临行前我还装模作样地往行李中放了一本二级教材，结果那个东西除了用来夹了几张我的照片以外就再没有发挥任何作用。 八月中旬后我才算是能安下心来准备那倒霉的考试了，打开书，我一页一页仔仔细细地看了一遍，对每一章每一节的 课后习题也作了思考。半个月过去了，其实中间也有偷懒了的几天，不过一本书算是看完了，感觉豁然开朗。于是开学以后放下书本，做了做模拟光盘。上机编程部分的题目完全说不上难，模拟题比数学的练习题要简单得多。但是总是在软件判分的时候得不到好的结果。仔细察看才知道，原来只有自己编的程序和所谓 " 正确答案 " 一模一样的，才能得到满分。但是，编写程序完全可以有不同的方法得到相同的结果。这下我知道了为什么上机考试如此困难了。应对的方法就只有 仔细分析所给的答案，体会出一些技巧和规律性的东西，通过考试应该是完全没有问题的。可以说，有了模拟考试的光盘，弄懂并且做熟练了以后，最后的上机考试就变成了完全没有意义的反射运动了。 关键是要肯拿出一点时间来练习。 三、考试实战篇 先说笔试 。包括选择和填空，都是一些基本的概念和编程方法。只要仔细地看过一遍书的人，笔试决不会出现不能通过的现象。我所知道的一些参加过考试的人也普遍认为笔试是很容易的。我进入考场的时候很镇静，看到卷子以后放眼望去都是自己十分熟悉的名词和内容，做起来也十分顺手。做的时候还是要认真的，不可轻敌。考场上一片寂静，大家都奋笔疾书，埋头苦干。考试时间过了不到一半，我已经将所有题做完了。我耐心地坐在位子上从头到尾检查了一遍，此时离考试结束时间还太远，我等不及了，于是交了卷子，离开了教室。两个字 —— 不难。 再说上机考试 。现在考场外领取考试座位号，听老师叙述考试规则，然后进入考场。每人一台电脑，题目从题库中随机抽取，每人题目各不相同，所以监考老师任务并不重。但是这也就造成了考场气氛比较混乱，少不了周围的人都在交头接耳。克服这种混乱的干扰，集中精力在自己的题目上是很必要的。考试开始，我比较小心地开始做题，要尽量按照模拟考试光盘答案的思路。不过题型是熟悉得不能再熟悉了，和光盘上的没什么两样。我三下五除二就把八道题做完了。两个小时的考试，我四十分钟就走出考场。其中一个监考老师走出来叫住我，我还想呢，我没有违反考试纪律啊，他却和蔼地走上来问我复习的经验等等。其实我也没什么经验，就是看书，做题 2. 二级VB考试的考题内容很细，没有复杂的算法题，最多只是一些看起来复杂（其实很有规律）的循环题。那么，我们要做的是： 1：按照大纲读懂（理解）教材上的的内容。 2：做一些历年的考试题目，根据作者的经验，每年的考题中都会有一些重复或相似的考题。当然最主要的是做完最近几年的几套考题后，自己就会对考试内容“胸有成竹”，自然就会知道哪是重点，哪些该复习，有的放矢。 3：针对特殊题型和重点内容做题。 二、对于机试: 两个字，做题。可以把过去两到四次内的考题拿过来做。 当然，我们在做题是要端正心态，因为谁也不敢保证您将来考的一定会在您现在做的题（当然总有那么一半的人有这运气，呵呵），做题是因为一门课程内容太多，做题可以帮助理解，毕竟考题很活。 简单份析一下： 基本操作(30分两小题)：考核重点一般集中在：工程新建与保存、控件的一些基本属性的设置（如：名称、标题、大小、位置、值等）、基本方法的使用（如：Print等） 简单应用(40分两小题)：考核重点一般集中在：简单算法(如：求最大数、素数、排序等)、通过代码窗口操作对象属性、控件数组的建立与通过循环访问等。 综合应用(30分一小题)：考核重点一般集中在：顺序文件的读写操作、读文件一般都会用到循环或数组。 3. 1、开考之前，先运行一下vb和看一下输入法是否符合自己的习惯。另外，最好设置文件显示扩展名，考试的时候可以打开文件夹方便看一下存盘是否正确，有时会有生成文件，也可去看一下文件是否生成正确。 2、记得保存一份试题目录中的所有文件，以免出错或去掉注释符后自己都不知道自己改了什么。 3、注意一些算法：排序、素数、九九表、指针转动等。 4、注意大题中上半年新出现的随机文件。 5、别忘了做不出来的时候有msdn，联机帮助这是允许的。但你没有用过的话可能一时摸不着门道，可能浪费时间，自己把握好啊。 6、调试程序的时候可以自己设变量显示中间值看正不正确，可以用print,msgbox，正常后记得去掉多余的语句。 7、出现异常应该举手报告监考老师，他们有各种密码，包括抽题密码、重抽密码和延时密码。 4. vb考试的上机情况： 1.大家在做题时候，尽量保持语句的简洁性，如果一句语句可以表达就不要再画蛇添足，现在引用本版快某lz的说法：“题目是要我把text1移动到最左边，就应该是text1.left=o,结果我还多了一句text1.top=0，这样写会不会得分啊？”虽然影响不是很大，但是至少让我们在心理上有一种担 2.真正上机的时候如果突然对莫一块知识点不是很清晰，如忘记了text中的某些方法的表达，不要惊慌，我们大多数的vb软件中都有msdn，它会帮你走出困境（只适合突然对某些知识点有些记忆不清楚的同志们） 3.如果上机程序中只要求你修改属性，记住千万不要在修改代码或者添加代码，那样很可能出错，如一位网友的贴子（源于本板块）——“我在做基础操作题目时遇到了这样的一个题目：要求拖出一个滚动条，最大刻度为100 ，最小刻度为1，使得单击滚动框以外的地方（不包括滚动条两头按钮），使滚动条的值增加10个刻度。 我在属性窗口上，设置为max=100 min=1 largechange=10，然后由于太紧张一至于还编了代码如下： private sub h1_click() h1.=h1.+10 end sub结果运行中没有出错信息，我就保存了！注明一点就是题目中没有明确要求说“考生不得编写程序代码”，就什么都没说？color=blue]请问在这种情况下能得几分？ ” 4.至于考试成绩的公布大家不要着急，大体每年都是一样的，考试结束后1个半月至2个半月不等 。 5.保存的时候，一定要注意窗体和工程都要保存，而且存在要求的考生文件下，否则会没有分的.. 4.06.4.1题型汇总： （1）有a,b,c三个变量，范围分别是1－60,问满足勾股（a^2+b^2=c^2)定理的组合有多少种？ 答案：private sub form_click() dim a as integer dim b as integer dim c as integer dim n for a = 1 to 60 for b = a to 60 for c = 1 to 60 if a ^ 2 + b ^ 2 = c ^ 2 then n = n + 1 end if next next next print n end sub （2）有一个时间控件，一个水平滚动条、一个图像框。在一个图像框中闪烁显示一个图像。闪烁的速度由滚动条的值决定。要求使用隐藏和显示来作。 提示：隐藏用unload显示用show ；timer事件应该是enable为真是动为假时不动 。 （3）在题目上绘一个姓名、电话号码、邮政编码。定义了一个结构体。随机的从in5.txt读出第三条记录显示在三个文本里。写读出的过程 。通常为填空题（因为网友在发贴时候也没有说清楚，只好把大体情况介绍一下，给大家提供开阔一下眼界） （4）简单应用：1.编写求回文数字的 过程 2.一个文本框，里面的数组的删除和重排……用inputbox如果输入的数是数组中的，不是则弹出对话框 3.文本框中选中的字符中出现次数最多的字母写在文本框中… （5）单击窗口打印如下图案 ┌———————— ├———————— │ * │ *** │ ***** │ ******* │ ********* │ ******* │ ***** │ *** │ * └——————— private sub form_click() dim i,j as integer for i=1 to ? for i=1 to 5 ’for j=1 to ? for j=1 to 6-i print " "; next ’for j=1 to ? for j=1 to i*2-1 print "*"; next print next for i=1 to 4 ’for j=1 to ? for j=1 to i print " "; next ’for j=1 to ? for j=1 to 9-i*2 print "*"; next print next end sub （6）把窗口的标题改为“圆角矩形”,在form中添加一个圆角矩形的shape1,并设置填充颜色为&hff00，高1000，宽2000 ┌———————— ├———————— │ │ ┏————┓ │ │ │ │ │ │ │ ┕————┛ │ └——————— 属性设置: name │ 属性 │ 值 ———┼————┼————— form1 │caption │圆角矩形 ———┼————┼————— │backstyle │1-opaque shape1│backcolor │&hff00 │width │2000 │height │1000 │shape │4-rounded rectangle （7）在窗口中已经添加了所有控件，单击开始通话按钮，则在text1中显示通话时间(通话时间每秒加1),单击停止通话按扭，停止计时，单击计算话费按扭调用sub1过程,要求： _]I0sUcv}D€Lc B-ow (1)每个事件只能写一条语句 (2)不能使用变量 属性设置: name │ 属性 │ 值 ———┼————┼————— timer1 │enabled │false │interval │ 1000 代码： ’开始通话按钮 private sub command1_click() timer1.enabled = true end sub ’停止通话按钮 private sub command2_click() timer1.enabled = false end sub ’计算话费 private sub command3_click() call sub1 end sub ’计时器 private sub timer1_timer() text1.text = val(text1.text) + 1 end sub (8)-------------------------------------------------------------------------------- 不用变量，如何将两图片框中的图片交换？ 提示： p1.picture = loadpicture("文件名 ") p2.picture = loadpicture(" 文件名")'/
加分加分！！！谁有2010年9月的计算机二级VB的上机题库啊要带答案的啊，在线急等啊
一、选择题（每小题2分，共70分）
1-5 BCDAA 6-10 DDCBA
11-15 ADDBB 16-20 BCABA
21-25 CDBDC 26-30 ACDAD
31-35 DCCBA
二、填空题（每空2分，共30分）
【1】12345DCBA
【2】n-1
【3】25
【4】结构化
【5】物理设计
【6】array
【7】lbound(city) 或 1
【8】city(i)
【9】fun
【10】276
【11】len
【12】p(i).gName
【13】picFile
【14】CD1.FileName
【15】Visible
注：以上英文字母不区分大小写。
一、选择题（每小题2分，共70分）
（1）下列叙述中正确的是
B）线性表的链式存储结构所需要的存储空间一般要多于顺序存储结构
（2）下列叙述中正确的是
C）在栈中，栈底指针不变，栈中元素随栈顶指针的变化而动态变化
（3）软件测试的目的是
D）发现程序中的错误
（4）下面叙述中，不属于软件危机表现的是
A）软件过程不规范
（5）软件生命周期是指
A）软件产品从提出、实现、使用维护到停止使用退役的过程
（6）面向对象方法中，继承是指
D）类之间共享属性和操作的机制
（7）层次型、网状型和关系型数据库划分原则是
D）数据之间的联系方式
（8）一个工作人员可以使用多台计算机，而一台计算机可被多个人使用，则实体工作人员与实体计算机之间的联系是
C）多对多
（9）数据库设计中反映用户对数据要求的模式是
B）概念模式
（10）有三个关系R、S和T如下：
R S T
A B C A D A B C D
a 1 2 c 4 c 3 1 4
b 2 1
c 3 1
则由关系R和S得到关系T的操作是
A）自然连接
（11）在Visual Basic集成环境中，要添加一个窗体，可以单击工具栏上的一个按钮，这个按钮是
A）
（12）在Visual Basic集成环境的设计模式下，用鼠标双击窗体上的某个控件打开的窗口是D）代码窗口
（13）下列叙述错误的是
D）组合框有Text属性，而列表框没有
（14）设窗体上有一个命令按钮数组，能够区分数组中各个按钮的属性是
B）Index （15）滚动条可以响应的事件是
B）Scroll
（16）设a=5，b=6，c=7，d=8，执行语句x=Iif((a>b) and (c>d),10,20)后，x的值是
B）20
（17）语句Print Sgn(-6^2) Abs(-6^2) Int(-6^2)的输出结果是
C）-1
（18）在窗体上画一个图片框，再在图片框中画一个命令按钮，位置如图所示。则命令按钮的Top属性值是
A）200
（19）在窗体上画一个名称为Command1的命令按钮。单击命令按钮时执行如下事件过程：
Private Sub Command1_Click()
a$ = "software and hardware"
b$ = Right(a$, 8)
c$ = Mid(a$, 1, 8)
MsgBox a$, , b$, c$, 1
End Sub
则在弹出的信息框标题中显示的标题是
B）hardware
（20）在窗体上画一个文本框（名称为Text1）和一个标签（名称为Label1），程序运行后，如果在文本框中输入文本框，则标签立即显示相同的内容。以下可以实现上述操作的事件过程是
A）Private Sub Text1_Change()
Label1.Caption=Text1.Text
End Sub
（21）以下说法中错误的是
C）命令按钮只能识别单击（Click）事件
（22）以下关于局部变量的叙述中错误的是
D）过程执行完毕后，该过程中用Dim或Static语句声明的变量即被释放。
（23）以下程序段的输出结果是
x=1
y=4
Do Until y>4
x=x*y
y=y 1
Loop
Print x
B）4
（24）如果执行一个语句后弹出如图所示的窗口，则这个语句是
D）x=InputBox(“请输入VB数据”,”输入框”)
（25）有如下事件过程：
Private Sub Form_Click()
Dim n As Integer
x = 0
n = InputBox("请输入一个整数")
For i = 1 To n
For j = 1 To i
x = x 1
Next j
Next i
Print x
End Sub
程序运行后，单击窗体，如果在输入对话框中输入5，则在窗体上显示的内容是
C）15
（26）请阅读程序：
Sub SubP(b() As Integer)
For i=1 To 4
b(i)=2*i
Next i
End Sub
Private Sub Command1_Click()
Dim a(1 To 4) As Integer
a(1)=5 : a(2)=6 : a(3)=7 : a(4)=8
subP a()
For i=1 To 4 Print a(i) Next i End Sub 运行上面的程序，单击命令按钮，则输出结果是
A）2
4
6
8
（27）Fibonacci数列的规律是：前2个数为1，从第3个数开始，每个数是它前2个数之和，即：1，1，2，3，5，8，13，21，34，55，89，…。某人编写了下面的函数，判断大于1的整数x是否是Fibonacci数列的某个数，若使，则返回True，否则返回False。
Function Isfab(x As Integer) As Boolean
Dim a As Integer, b As Integer, c As Integer, flag As Boolean
flag = False
a = 1: b = 1
Do While x < b
c = a b
a = b
b = c
If x = b Then flag = True
Loop
Isfab = False
End Function
测试时发现对于所有正整数x，函数都返回False，程序需要修改。下面的修改方案中正确的是
C）把Do While xb
（28）在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a$, b$, c$, k%
a = "ABCD"
b = "123456"
c = ""
k = 1
Do While k <= Len(a) Or k <= Len(b)
If k <= Len(a) Then
c = c & Mid(a, k, 1)
End If
If k <= Len(b) Then
c = c & Mid(b, k, 1)
End If
k = k 1
Loop
Print c
End Sub
运行程序，单击命令按钮，输出结果是
D）A1B2C3D456
（29）请阅读程序：
Private Sub Command1_Click()
m = 1
For i = 4 To 1 Step -1
Print Str(m);
m = m 1
For j = 1 To i
Print "*";
Next j
Print
Next i
End Sub
程序运行后，单击窗体，则输出结果是
A）1****
2***
3**
4*
（30）在窗体上画一个命令按钮（其名称为Command1），然后编写如下代码：
Private Sub Command1_Click()
Dim a
a = Array(1, 2, 3, 4) i = 3: j = 1 Do While i >= 0 s = s a(i) * j i = i - 1 j = j * 10 Loop Print s End Sub 运行上面的程序，单击命令按钮，则输出结果是
D）1234
（31）下列可以打开随机文件的语句是
D）Open “file1.dat” For Random As #1 Len=20
（32）有弹出式菜单的结构如右表，程序运行时，单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一个功能的是
C）Private Sub Form_Click()
PopupMenu edit
End Sub
（33）请阅读程序：
Option Base 1
Private Sub Form_Click()
Dim Arr(4, 4) As Integer
For i = 1 To 4
For j = 1 To 4
Arr(i, j) = (i - 1) * 2 j
Next j
Next i
For i = 3 To 4
For j = 3 To 4
Print Arr(j, i);
Next j
Print
Next i
End Sub
程序运行后，单击窗体，则输出结果是
C）7 9
8 10
（34）下面函数的功能是：删除字符串str中所有与变量ch相同的字符，并返回删除后的结果。例如：若str=”ABCDABCD”，ch=”B”，则函数的返回值为：“ACDACD”。
Function delchar(str As String, ch As String) As String
Dim k As Integer, temp As String, ret As String
ret = ""
For k = 1 To Len(str)
temp = Mid(str, k, 1)
If temp = ch Then
ret = ret & temp
End If
Next k
delchar = ret
End Function
但实际上函数有错误，需要修改。下面的修改方案中正确的是
B）把If temp=ch Then 改为 If temp ch Then
（35）在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，在属性窗口中把窗体的KeyPreview属性设置为True，然后编写如下程序：
Dim S1 As String, S2 As String
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text1.Enabled = False
Text2.Enabled = False
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
S2 = S2 & Chr(KeyCode)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
S1 = S1 & Chr(KeyAscii)
End Sub
Private Sub Command1_Click()
Text1.Text = S1 Text2.Text = S2 S1 = "" S2 = "" End Sub 程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为：
A）abc和ABC
二、填空题（每空2分，共30分）
（1）一个栈的初始状态为空。首先将元素5、4、3、2、1依次入栈，然后退栈一次，再将元素A，B，C，D依次入栈，之后将所有元素全部退栈，则所有元素退栈（包括中间退栈的元素）的顺序为【1】12345DCBA。
（2）在长度为n的线性表中，寻找最大项至少需要比较【2】n-1次。
（3）一棵二叉树有10个度为1的结点，7个度为2的结点，则该二叉树共有【3】25个结点。
（4）仅有顺序、选择（分支）和重复（循环）结构构成的程序是【4】结构化 程序。
（5）数据库设计的四个阶段：需求分析、概念设计、逻辑设计和【5】物理设计。
（6）窗体上有一个名称为Combo1的组合框，其初始内容为空，有一个名称为Command1、标题为“添加项目”的命令按钮。程序运行后，如果单击命令按钮，会将给定数组中的项目添加到组合框中，如图所示。请填空。
Option Base 1
Private Sub Command1_Click()
Dim city As Variant
city =【6】 Array("北京", "天津", "上海", "武汉", "重庆", "西宁")
For i = 【7】LBound(city) 或1 To UBound(city)
Combo1. AddItem 【8】city(i)
Next
End Sub
（7）窗体上有一个名称为Text1的文本框和一个名称为Command1、标题为“计算”的命令按钮，如图所示。函数fun及命令按钮的单击事件过程如下，请填空。
Private Sub Command1_Click()
Dim x As Integer
x = Val(InputBox("输入数据"))
Text1 = str(fun(x) fun(x) fun(x))
End Sub
Private Function fun(ByRef n As Integer)
If n Mod 3 = 0 Then
n = n n
Else
n = n * n
End If
【9】fun = n
End Function
当单击命令按钮，在输入对话框中输入2时，文本框中显示的是【10】276。
（8）窗体上有一个名称为List1的列表框，一个名称为Picture1的图片框。Form_Load事件过程的作用是，把Data1.txt文件中物品名称添加到列表框中。运行程序，当双击列表框中的物品名称时，可以把该商品对应的图片显示在图片框中，如图所示。以下是类型定义及程序，请填空。
Private Type Pic
gName As String * 10 '物品名称
picFile As String * 20 '物品图片的图片文件名
End Type
Dim p(4) As Pic, pRec As Pic
Private Sub Form_Load()
Open "Data1.txt" For Random As #1 【11】Len = Len(pRec)
For i = 0 To 4
Get #1, i 1, p(i)
List1.AddItem p(i).gName
Next i
Close #1
End Sub
Private Sub List1_DblClick()
For i = 0 To 4
If RTrim(List1.List(i)) = RTrim(【12】p(i).gName) Then
Picture1.Picture = LoadPicture(p(i).【13】picFile)
Exit For
End If
Next
End Sub
（9）窗体上有一个名称为CD1的通用对话框。通过菜单编辑器建立如图1所示的菜单。程序运行时，如果单击“打开”菜单项，则执行打开文件的操作，当选定了文件（例如：G:\VB\2010-9\in.txt）并打开后，该文件的文件名会被添加到菜单中，如图2所示。各菜单项的名称和标题等定义如下表。
以下是单击“打开”菜单项的事件过程，请填空。
Dim mnuCounter As Integer
Private Sub mnuOpen_Click() CD1.ShowOpen If CD1.FileName "" Then Open 【14】CD1.FileName For Input As #1 mnuCounter = mnuCounter 1 Load FName(mnuCounter) FName(mnuCounter).Caption = CD1.FileName FName(mnuCounter).【15】Visible = True End If End Sub
求VB上机操作的题目！求VB上机操作的题目！
朋友，给你一道VB程序题：
要求放入3个单选按钮(OptionButton)和一个文本框（TextBox），单选按钮的caption设为中国，美国，日本，选择后文本框分别出现“中国是个人口大国”“美国是个军事强国”“日本是个经济强国”，想一下看看会不会，来对对答案，代码如下：
Private Sub option1_click()
Text1.Text = "中国是个人口大国"
End Sub
VB上机练习题
第一题的答案：
Private
Sub
Command1_Click()
Dim
a,
b,
c,
d,
sum
As
Integer
Dim
avg
As
Double
a
=
Val(InputBox("请输入第一个数"))
b
=
Val(InputBox("请输入第二个数"))
c
=
Val(InputBox("请输入第三个数"))
d
=
Val(InputBox("请输入第四个数"))
sum
=
0
sum
=
a
+
b
+
c
+
d
avg
=
sum
/
4
Print
"4个数和为"
&
sum
Print
"4个数平均值为"
&
avg
End
Sub
第二题：
Private
Sub
Command1_Click()
Dim
y,
f,
h,
x
As
Integer
f
=
Val(InputBox("请输入第一个数"))
h
=
Val(InputBox("请输入第二个数"))
y
=
f
/
2
-
h
x
=
2
*
h
-
f
/
2
Print
"兔子"
&
y
Print
"鸡"
&
x
End
Sub
VB上机考试习题
先说For j = 1 To 6 - i
Print " ";
功能是输出上面5行最前面的空格。公式：空格个数＝6－行号。例如第2行要输出6－2＝4个空格。
再说For j = 1 To i + 1
Print " ";
功能是输出下面4行最前面的空格。把第6行的行号看作1，那么公式：空格个数＝行号＋1.例如第6行输出2个空格。
你要是不理解，可以删除你不理解的代码，发现前面的空格都没了，你就理解了。
VB 数组赋值、定义。
数组必须先定义(声明)，然后才能赋值。
下面全面讲解数组的相关知识：
数组的概念
1．引例
求100个学生的平均成绩及超过平均成绩的人数。
如果用一般变量来表示成绩，需要用100个变量，如：mark1、mary2、……mark100。若用数组，可以只用一个来表示mark（1
To 100）。
2．基本概念
数组：是同类型变量的一个有序的集合。
如：A（1To 100），表示一个包含100个数组元素的名为A的数组。
数组元素： 即数组中的变量。用下标表示数组中的各个元素。
表示方法：数组名（P1，P2，……）
其中P1、P2表示元素在数组中的排列位置，称为“下标”。
如：A（3，2）代表二维数组A中第3行第2列上的那个元素。
数组维数： 由数组元素中下标的个数决定，一个下标表示一维数组，二个下标表示二维数组。
VB中有一维数组、二维数组、……最多60维数组。
下标： 下标表示顺序号，每个数组有一个唯一的顺序号，下标不能超过数组声明时的上、下界范围。下标可以是整型的常数、变量、表达式，甚至又是一个数组元素。
下标的取值范围是：下界 To 上界 ，缺省下界时，系统默认取0。
3．数组声明
数组必须先声明后使用。声明数组就是让系统在内存中分配一个连续的区域，用来存储数组元素。
声明内容：数组名、类型、维数、数组大小。
一般情况下，数组中各元素类型必须相同，但若数组为Variant时，可包含不同类型的数据。
静态数组：声明时确定了大小的数组。
动态数组： 声明时没有给定数组大小（省略了括号中的下标），使用时需要用ReDim语句重新指出其大小。
静态数组及声明
1． 一维数组
静态一维数组的声明形式：
Dim 数组名（下标） [As 类型]
说明：（1）下标必须为常数，不可以为表达式或变量；
（2）下标下界最小为-32768，最大上界为32767；省略下界，其默认值为为0，一维数组的大小为：上界-下界+1
（3） 如果省略类型，则为变体型
例： （1） Dim A（10） As Integer
声明了A是数组名、整型、一维数组、有11个元素，下标的范围是0～10。
（2） Dim B（-3 To 5） As String*3
声明了B是数组名、字符串型、一维数组、有9个元素，下标的范围是-3～5，每个元素最多存放3个字符。
2．多维数组
静态多维数组的声明形式：
Dim 数组名（下标1[，下标2…]） [As 类型]
说明： （1）下标个数决定数组的维数，最多60维。
（2）每一维的大小=上界-下界+1；数组的大小=每一维大小的乘积。
例：Dim C（-1To 5， 4） As Long
声明了C是数组名、长整型、二维数组、第一维下标范围为-1～5，第二维下标的范围是0～4，占据7x 5个长整型变量的空间。
3．注意事项
（1）在有些语言中，下界一般从1开始，为了便于使用，在VB的窗体层或标准模块层用Option Base n 语句可重新设定数组的下界，如Option Base 1。
（2） 在数组声明中的下标关系到每一维的大小，是数组说明符，而在程序其他地方出现的下标为数组元素，两者写法相同，但意义不同。
（3） 在数组声明时的下标只能是常数，而在其他地方出现的数组元素的下标可以是变量。
动态数组及声明
1． 动态数组的建立与声明
建立动态数组的方法是：利用Dim、Private、Public语句声明括号内为空的数组，然后在过程中用ReDim语句指明该数组的大小。语法是：
ReDim 数组名（下标1[，下标2…]） [As 类型]
其中下标可以是常量，也可以是有了确定值的变量，类型可以省略，若不省略，必须与Dim中的声明语句保持一致。
例： Dim D（） As Single
Sub Form_Load（）
……
ReDim D（4，6）
……
End Sub
2．注意事项
（1）在动态数组ReDim语句中的下标可以是常量，也可以是有了确定值的变量；
（2）在过程中可以多次使用ReDim来改变数组的大小，也可改变数组的维数。
（3）每次使用ReDim语句都会使原来数组中的值丢失，可以在ReDim语句后加Preserve参数来保留数组中的数据，但使用Preserve只能改变最后一维的大小，前面几维大小不能改变。
使用动态数组的优点是根据用户需要，有效地利用存储空间，它是在程序执行到ReDim语句时才分配存储单元，而静态数组是在程序编译时分配存储单元。
