下载文档原格式
江苏省高等学校非计算机专业学生计算机基础知识和应用能力等级考试上机试卷(2008秋)二级Visual Basic语言(试卷代号VB01)(本试卷完成时间70分钟)一．改错题(14分)[题目]本程序的功能是：随机生成一个有n个元素的数组（n由inputBox函数），找出其中的最大元素并将它删除，再输出删除后的数组。
Option ExplicitOption Base 1Dim a() as integer,n as integerPrivate Sub Command1-Click()Dim i As Integern=InputB ox(“请输入数组个数”，10)ReDim a(n)For i=1 To na(i)=Int(Rnd*100)+1Text1=Text1&Str(a(i))Next iCall Lookup(a)For i=1 To nText2=Text2 &Str(a(i))Next iEnd SubPrivate Sub Lookup(a() As Integer)Dim Maxv As Integer,maxp As Integer ,i As IntegerMaxv=a(1):maxp=1For i= 2 To nif a(i)>Maxv ThenMaxv=a(i): maxp=iEnd IfNext iCall move_f(a,maxp)End SubPrivate Sub move_f(a() As Integer,k As Integer)Dim i As IntegerFor i=k+1 to UBound(a)a(i)=a(i+1)Next iReDdim a(UBound(a)-1)End Sub[要求]1.新建工程，输入上述代码，改正程序中的错误；2.改错时，不得增加或删除语句，但可适当调整语句位置；3.将窗体文件和工程文件分别命名为F1和P1，并保存到T盘的根目录下。
国家二级VB机试（上机操作）模拟试卷498(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画一个名称为Comb01的组合框，其宽度为1200，其类型如图3－188所示(即简单组合框)。
要求如下：①请按图中所示，通过属性窗口输入“北京”、“上海”、“广州”、“深圳”。
②设置适当的属性，使得运行时，窗体的最大化按钮和最小化按钮消失。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上画两个文本框，名称分别为Text1、Text2，再画两个命令按钮，名称分别为Command1、Command2，标题分别为“左”、“右”，如图3－189。
要求：编写适当的事件过程，使得程序运行时，单击“左”按钮，则焦点位于Text1上；单击“右”按钮，则焦点位于Text2上。
注意：程序中不得使用变量，事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。
步骤2：按要求将文件保存至考生文件夹中。
第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。
步骤2：双击“左”命令按钮，打开代码编辑窗口，在按钮的Click事件过程中输入代码。
步骤3：从代码编辑窗口的“对象”下拉列表中选择Command2，从“事件”下拉列表选择Click，编写以下事件过程。
参考代码：Private Sub Command1_Click( ) Text1．SetFOCUS End Sub Private Sub Command2_Click( ) Text2．SetFOCUS End Sub 步骤4：按要求将文件保存至考生文件夹中。
国家二级VB机试（上机操作）模拟试卷410(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)请在名称为Form1的窗体上添加一个名称为H1的水平滚动条，并在属性窗口中设置它的属性值，使其满足下列要求：它的最小刻度值为1，最大刻度值为100，在程序运行时，用鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动10个刻度。
再在滚动条下面画两个名称分别为L1和L2的标签，并分别显示1和100，运行时的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上添加两个名称分别为Text1和Text2的文本框，初始内容均为空；再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个菜单项，名称分别为Copy和Clear，标题分别为“复制”、“清除”，请编写适当的事件过程，使得在程序运行时，单击“复制”选项菜单，则把Text1中的内容复制到Text2中，单击“清除”选项菜单，则清除Text2中的内容(即在Text2中填入空字符串)。
运行时的窗体如图所示。
要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为Sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：(1)【操作步骤】步骤1：打开Visual Basic开发环境，按照题目的要求新建窗体并添加一个水平滚动条控件，如图3．1所示。
步骤2：在属性窗口中，按照题目的要求设置水平滚动条的相关属性，如图3．2所示。
步骤3：按照题目的要求，在窗体上添加两个标签控件，如图3．3所示。
步骤4：按照题目的要求设置两个标签的相关属性，如图3．4所示。
程序中用到的控件及属性见表3．1。
步骤5：按下键盘上的F5键运行程序，程序运行后的窗体界面如图3．5所示。
步骤6：按题目要求保存工程和窗体，如图3．6所示。
(2)在考生文件夹下有一个工程文件sjt4.vbp。
在其窗体中"待选城市"下的List1列表框中有若干个城市名称。
程序运行时，选中List1中若干个列表项，如图4(a)所示，单击"选中"按钮则把选中的项目移到List2中；单击"显示"按钮，则在Text1文本框中显示这些选中的城市，如图4(b)所示。
已经给出了所有控件和程序，但程序不完整。
要求：请去掉程序中的注释符，把程序中的？改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。
最后用原来的文件名保存工程文件和窗体文件。
(a) (b)图4【操作步骤】步骤1：打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符"'"，将问号"?"改为正确的内容。
参考代码：For k = List1.ListCount - 1 To 0 Step -1List2.AddItem List1.List(k)List1.RemoveItem kText1 = Text1 & " " & List2.List(k)步骤2：按要求将文件保存至考生文件夹中。
(2)在考生文件夹下有一个工程文件sjt4.vbp。
窗体中已经给出了所有控件，如图3所示。
运行时，单击"发射"按钮，航天飞机图标将向上运动，速度逐渐加快，全部进入云中后则停止，并把飞行距离(用坐标值表示)、所用时间(单位为秒)分别显示在标签Label1和Label2中；单击"保存"按钮，则把飞行距离、所用时间存入考生文件夹下的out4.txt 文件中。
文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。
注意：不能修改程序的其他部分和控件属性。
最后把修改后的文件按原文件名存盘。
2009秋计算机等级考试（二级）Visual Basic 程序设计 第二部分第二部分 Visual Basic 程序设计一．单选题21.要将焦点设置在某个控件上，以下四个选项中正确的是 21 。
A. 只能使用鼠标直接点击控件B. 只能使用Tab 键将焦点移到该控件C. 只能在程序中调用该控件的SetFocus 方法D. A 、B 、C 三选项中涉及的方法均可使用22.在下列属性中，属于CommandButton 控件、ListBox 控件共有的是 22 。
A. Caption 、TextB. Visible 、FontC. Caption 、VisibleD. List 、Visible23. 数学表达式y x e yx Sin +︒+++π2ln )30(对应的Visual Basic 表达式是 23 。
A. Sin(30*3.14159/180)+Sqr(Log(x)+y)/2*3.14159+Exp(x+y)B. (Sin(30*π/180)+Sqr(Ln(x)+y))/(2*π+Exp(x+y))C. Sin(30*180/3.14159)+Sqr(Log(x)+y)/(2*3.14159+e^(x+y))D. (Sin(30*3.14159/180)+Sqr(Log(x)+y))/(2*3.14159+Exp(x+y))24. 下面的关系表达式中，运算结果为True 的是 24 。
A. CInt(1.5)=Int(1.5)B. Fix(1.5)=Int(1.5)C. Fix(-1.5)=CInt(-1.5)D. Fix(-1.5)=Int(-1.5)25. 下面有关数组的叙述中，不正确的是 25 。
① 在过程中用ReDim 语句定义的动态数组，其下标的上下界可以是变量 ② 数组作为形式参数时，传递的是每个数组元素的值③ 在窗体模块的通用声明处可以用Public 说明一个全局数组④ 数组定义语句中可以用负数或小数来指定某一维的维下界或维上界的值A. ②③B. ①③④C. ①②③④D. ③④26. 以下关于文件的叙述中，错误的是 26 。
计算机二级VB上机操作练习题及答案计算机二级VB上机操作练习题及答案Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，下面店铺为为大家带来计算机二级VB上机操作练习题及答案，希望大家喜欢！一、基本操作题(1)在名称为Forml、标题为“球类项目”且没有最大化和最小化按钮的窗体上画1个名称为Combol的组合框。
组合框中的文本内容为空，表项内容有“乒乓球”、“羽毛球”和“网球”3项。
运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl.vbp，窗体文件名为sjtl.frm。
(2)在名称为Forml、标题为“转换”的窗体上，画1个名称为Shapel、边框宽度为3的形状。
再画两个标题分别为“椭圆”和“圆”的命令按钮。
如下图所示。
要求：编写适当的事件过程，使得单击“椭圆”按钮时，Shapel 的形状变换为椭圆;单击“圆”按钮时，Shapel的形状变换为圆。
程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjr2.vbp，窗体文件名为sjr2.frm。
二、简单应用题(1)考生文件夹中有工程文件sjt3.vbv。
窗体上显示有一个列表框和一个文本框，且列表框中已有若干列表项。
程序的功能是，程序运行时，当用户在列表框中单击并选中某个列表项时，该项的内容将显示到文本框中，用户可以在文本框中对相关内容进行编辑，按回车键后，能够用编辑好的内容替换被选中的列表项，并自动清空文本框;当双击某个列表项时，则从列表框中删除该列表项;当用户直接在文本框中键入文本并按回车键后，则把该文本添加为列表框的一个新列表项，添加完成后，将文本框清空。
运行窗体如图所示。
要求：程序已经给出，但不完整，请将其中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序。
最后程序按原文件名存盘。
VB上机考试1、利用随机函数产生25个100到999之间的整数，构成5 5的矩阵，输出该矩阵。
Dim a(1 To 5, 1 To 5)Private Sub Form_Click()RandomizeFor i = 1 To 5For j = 1 To 5a(i, j) = Int(Rnd * (999 - 100 + 1) + 100)Print a(i, j);Next jPrintNext iEnd Sub2、利用随机函数产生25个10到99之间的整数，求其平均值(要求保留3位小数，第4位四舍五入)。
Private Sub Form_Click()For i = 1 To 25a = Int(Rnd * (99 - 10 + 1) + 10)Print a;s = s + aNext iPrintAvg = s / 25Print AvgEnd Sub3、在窗体上按下鼠标的右键，记录其坐标。
Private Sub Form_Load() Label1.BorderStyle = 1Label1.Alignment = 2End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenLabel1.Caption = X & "," & YEnd IfEnd Sub4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。
Dim a(1 To 25)Private Sub Form_Click()ClsFor i = 1 To 25a(i) = Int(Rnd * (99 - 10 + 1) + 10)Print a(i);Next iPrintFor i = 1 To 25 - 1For j = 1 To 25 - iIf a(j) > a(j + 1) Then tmp = a(j): a(j) = a(j + 1): a(j + 1) = tmp Next jNext iFor i = 1 To 25Print a(i);Next iEnd Sub5、利用随机函数产生50个 [1,6] 之间的整数, 分别统计出1的个数，2的个数，3的个数，4的个数，5的个数和6的个数。
江苏计算机等级考试2009秋VB考试真题第一部分:计算机基础知识1.下列关于个人移动通信的叙述中,错误的是____A.第1代个人移动通信(简称1G)采用的通信技术是数字通信技术B.目前广泛使用的GSM手机采用的通信技术属于第2代移动通信技术(简称2G)C.第3代移动通信技术(简称3G)将无线通信与互联网、多媒体通信相结合D.3G有多个国际技术标准,其中也有我国自主制定的3G技术标准。
2.在下列有关集成电路的叙述中,正确的是2。
A.现代集成电路所使用的半导体材料都是硅B.所有的集成电路都是数字集成电路C.Moore定律认为单块集成电路的集成度平均每年翻一番D.Intel公司微处理器产品Core 2 Duo,其集成度已高达数千万个电子元件3.与十六进制数AB等值的八进制数是3 。
A. 253B.254C.171D.1724.在下列有关PC机CPU的叙述中,错误的是4。
A.CPU中包含几十个甚至上百个寄存器,用来临时存放数据、指令和控制信息B.所有PC机的CPU都具有相同的指令系统,因而PC机可使用相同的软件C.一台计算机至少包含1个CPU,也可以包含2个、4个、8个甚至更多个CPUD.Intel公司是国际上研制和生产CPU的主要公司,我国也能生产CPU5.在下列有关PC机主板上部件的叙述中,错误的是5 。
A.BIOS保存在主板上的一个闪存中,其内容在关机后通常不会改变B.CMOS中保存有用户设置的开机口令,关机后主板上的电池继续给CMOS供电C.启动CMOS设置程序可以重新设置CMOS中的数据,该程序是BIOS的组成部分D.网卡通常集成在主板上,由主板上独立的IC实现其功能,与芯片组无关6.从PC机存储器的层次结构来看,下列存储器中存取速度最快的是6 。
A.Cache存储器B.RAM和ROMC.寄存器D.硬盘和优盘7.在下列4种PC机常用I/O接口中,数据传输速率最高的是7。
A.PS/2B.SATAC.IEEE-1394bB 2.08.在下列有关I/O操作、I/O总线和I/O接口的叙述中,错误的是8。
江苏省高等学校非计算机专业学生
计算机基础知识和应用能力等级考试上机试卷（2009秋）
二级Visual Basic语言（试卷代号 VB04）
（本试卷完成时间 70分钟）
一、改错题（14分）
【题目】本程序的功能是：找出所有的四位超级素数，并统计它们的个数。
所谓超级素数是指本身为素数，从右向左依次去掉1位数字后的数据仍为素数的数。
例如：2393是素数，239、23、2也都是素数，所以2393是超级素数。
（注意：1不是素数）。
Option Explicit
Private Sub Command1_Click()
Dim n As Integer, s As String, i As Integer, k As Integer
For n = 1000 To 9999
s = Str(n)
For i = 1 To Len(s)
If Not prime(Val(Left(s, i))) Then
Exit For
End If
Next i
If i < Len(s) Then
k = k + 1
List1.AddItem n
End If
Next n
Text1 = k
End Sub
Private Function prime(n As Integer) As Boolean
Dim i As Integer
If n <> 1 Then
For i = 2 To Sqr(n)
If n Mod i = 0 Then
Exit Function
End If
Next i
End If
prime = True
End Function
【要求】
1. 新建工程，输入上述代码，改正程序中的错误；
2. 改错时，不得增加或删除语句，但可适当调整语句位置；
3. 将窗体文件和工程文件分别命名为F1和P1，并保存到T盘的根目录下。
二、编程题（26分）
【题目】编写程序。
输入一个已按字母从小到大排列好的字符串，再输入1个任意字符，若字符串已含有该字符，则将字符串中的这个字符删除，否则，将该字符按序插入到字符串的适当位置。
【编程要求】
1. 程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体
及界面元素大小适中，且均可见；
2. 运行程序，首先在“原字符串”文本框中输入用于测试程序的字符串，再在“指定
字符”文本框中输入一个字符，按“执行”按钮，接受输入并进行相关处理，处理结果输出到“处理结果”文本框中；按“清除”按钮，将“指定字符”文本框与“处理结果”文本框清空，焦点置于“指定字符”文本框上；按“结束”按钮，结束程序运行；
3. 程序中应定义一个通用过程，用于将指定字符插入到原字符串的适当位置。
【要求】
将窗体文件和工程文件分别命名为F2和P2，并保存到T盘的根目录下。
