2011春vb上机3

2011年3月全国计算机等级考试二级vb笔试试卷（考试时间 90分钟，满分100分）一、选择题（每小题2分，共70分）下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。

（1）下列关于栈叙述正确的是A）栈顶元素最先能被删除 B）栈顶元素最后才能被删除C）栈底元素永远不能被删除 D）以上三种说法都不对答案：A解析：栈的特点是“先进后出，后进先出”的线性结构，进栈又称为入栈最先进入栈的数据元素会被压入栈底，最后进入栈的元素所在位置称为栈顶，出栈又称为退栈即将元素从栈中删除，将元素退栈是先将栈顶的元素退栈，对于栈的运行原理可参考快动网公共基础知识视频教程。

所以上边选项正确的是A。

（2）下列叙述中正确的是A）有一个以上根结点的数据结构不一定是非线性结构B）只有一个根结点的数据结构不一定是线性结构C）循环链表是非线性结构D）双向链表是非线性结构B）【解析】在数据结构中，树这类的的数据结构只有一个根结点，但它不是线性结构。

解析：A错误，符合线性结构的特点是：（1）有且只有一个根结点（2）每一个结点最多只有一个前件，也最多只有一个后件，根据题意不一定是非线性结构即指的是线性结构，那么根据线性结构的特点只有一个根结点，所以选项A叙述错误。

B正确，比如二叉树是一个非线性结构，二叉树就是一个根结点，所以该选数正确。

C和D叙述错误，循环链表和双向链表都是线性结构。

（3）某二叉树共有7个结点，其中叶子结点只有1个，则该二叉树的深度为（假设根结点在第1层）A）3 B）4 C）6 D）7D）【解析】根据二叉树的性质，度为0的结点（即叶子结点）总是比度为2的结点多一个。

题目中的二叉树的叶子结点为1，因此度为2的结点的数目为0，因而这个二叉树的深度为7。

解析：根据二叉树的性质，叶子结点即度为0的结点个数总比度为2的结点个数多1，根据题目内容可知度为2的结点个数为0，因为叶子结点只有1个，由于二叉树的结点类型有三种：度为0，度为1，度为2，根据题目内容可知二叉树共有7个结点所以度为1的结点个数是6，度为1表示结点只有一个分支，这个分支可以是左子树或右子树，我们画一下该二叉树的图为：（4）在软件开发中，需求分析阶段产生的主要文档是A）软件集成测试计划 B）软件详细设计说明书C）用户手册 D）软件需求规格说明书D）【解析】在软件开发过程中，需求分析阶段产生的主要文档是软件需求规格说明书。

2011年春季江苏省二级VB考试真题第一部分计算机基础知识1．下列有关通信技术的叙述中，错误的是___(1)___ 。

A．无论是模拟通信还是数字通信，目前都是通过载波技术实现远距离的信息传输 B．多路复用技术可以降低信息传输的成本，常用的多路复用技术有TDM和FDM C．卫星通信属于微波通信，它是微波接力通信技术和空间技术相结合的产物D．目前3G移动通信有多种技术标准，我国三大电信运营商均采用同一标准2．使用存储器存储二进位信息时，存储容量是一项很重要的性能指标。

存储容量的单位有多种，下面不是存储容量单位的是___(2)___ 。

A． TBB． XBC． GBD． MB3．设有补码表示的两个单字节带符号整数a=01001110和b=01001111。

则a-b的结果用补码表示为___(3)___ 。

A． 11111111B． 10011101C． 00111111D． 101111114．下列有关PC机主板上BIOS和CMOS的叙述中，错误的是___(4)___ 。

A． BIOS芯片是一块闪烁存储器，其存储的信息关机后不会丢失B． BIOS中包含加电自检程序、系统自举程序等C． CMOS芯片属于易失性存储器，它使用电池供电D． CMOS中存放着与硬件相关的一些配置信息，以及CMOS设置程序5．下列有关PC机中央处理器(CPU)和内存(内存条)的叙述中，错误的是___(5)___ 。

A．目前PC机所使用的Pentium和Core 2微处理器的指令系统有数百条不同的指令 B．所谓双核CPU或四核CPU，是指CPU由两个或四个芯片组成C． DDR内存条、DDR2内存条在物理结构上有所不同，例如它们的引脚数目不同 D．通常台式机中的内存条与笔记本电脑中的内存条不同，不能互换6．下列有关PC机I／O总线与I／O接口的叙述中，正确的是___(6)___ 。

A．PC机中串行总线的数据传输速率总是低于并行总线的数据传输速率B． SATA接口主要用于连接光驱，不能连接硬盘c．通过USB集线器，一个USB接口理论上可以连接127个设备D． IEEEl394接口的连接器与USB连接器完全相同，均有6根连接线7．蓝光光盘(BD)是全高清影片的理想存储介质，其单层盘片的存储容量大约为___(7)___ 。

国家二级VB机试（上机操作）模拟试卷3(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

在名称为Forml的窗体上画一个名称为Labell、标题为”列表框的使用”的标签。

再画一个名称为Listl的列表框，列表中含有5个表项，表项内容分别为”北京”、“山西”、”辽宁”、”浙江”和”广东”，并且可以在列表中同时选择多个表项。

运行后的窗体如图2-39所示。

要求：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。

正确答案：步骤1：新建一个”标准EXE”工程。

步骤2：在窗体Forml中加入一个列表框和一个标签，并分别如表3-20设置它们的相关属性。

步骤3：按要求将文件保存至考生文件夹中。

2．在名称为Forml的窗体上画一个名称为Imagel的图像框，其高、宽分别为2000、3000，且不随图片大小而变化；再画两个命令按钮，标题分别是”显示图片”和”隐藏图片”，名称分别为Cmdl、Cmd2，如图2-40所示。

需编写两个命令按钮的Click事件过程，使得当单击”显示图片”按钮时，将当前文件夹下的图片文件”图片．jpg”显示在图像框中；而如果单击”隐藏图片”按钮，则清除图像框中的图片。

要求：程序中不得使用变量，每个事件过程中只能写一条语句。

存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。

正确答案：步骤1：新建一个”标准EXE”工程，如表3-21在窗体中画出控件并设置其相关属性。

步骤2：打开代码编辑窗口，编写两个命令按钮的单击事件过程。

参考代码：Private Sub Cmdl_Cl ick( )Imaqel．Picture=LoadPicture(“图片．j pg”)End Sub Private Sub Cmd2_Click( )Imagel．Picture =LoadPicture( ) End Sub步骤3：按要求将文件保存至考生文件夹中。

2011VB专科期末上机练习题1、求10个三位正整数中的偶数之和，正整数用随机函数Rnd产生，或由InputBox函数输入。

2、求10个三位正整数中的奇数之和，正整数用随机函数Rnd产生，或由InputBox函数输入。

3、编写程序，打印如图1所示图形。

图14、1—100之间自然数的平方和，程序参考界面如图2所示：图25、输入时间（小时、分和秒）然后使用输出消息框输出总计多少秒。

使用文本框输入数据，使用消息框输出计算结果，程序运行界面如图3、4所示：图3 图46、找出在1～1000中同时满足被7除余5、被5除余3、被3除余2条件的数，界面自定。

7、编程，输入x，求下列分段函数f(x)的值。

用InputBox函数输入x，计算结果f(x)输出到Text控件。

1-x2x<=5F(x)=(x-5)4x>58、设计一个函数计算器，程序界面如图5所示，其功能要求如下：1.单击“InputBox”按钮，弹出一对话框，提示输入姓名，当用户输入后，再将输入的内容显示在文本框中；2.单击“Date”按钮在文本框中显示系统日期；3.单击“Sin、Asc”按钮，将文本框中的数据作为函数的输入参数，同时在文本框中显示函数值。

图59、设计一个函数计算器，程序界面如图6所示，其功能要求如下：4.单击“MsgBox”按钮，将文本框中的内容通过一信息框显示出来；5.单击“Time”按钮在文本框中显示系统时间；6.单击“Sqr、Chr”按钮，将文本框中的数据作为函数的输入参数，同时在文本框中显示函数值。

图610、编写程序：输入x、y、z三个数，按从小到大的次序显示，界面自定。

11、新建一个工程，完成“添加与删除”程序的设计，具体要求如下：1.窗体的标题为“添加与删除”，固定边框；2.程序界面如图7所示。

在窗体中引入一个文本框（Text1），在文本框的下面引入一个列表框（List1），列表框中内容有四项，分别为“Word、Excel、PowerPoint、Outlook”；3.单击“添加”按钮（Command1），将文本框中的内容加入列表框中的第一项，如果文本框中没有内容，则给出提示“没有内容，不予添加！”；4.单击“删除”按钮（Command2），将选中表项删除，如果没有选择要删除的表项，则给出提示“请选择要删除的项目！”。

安华职2011年春《VB》会考模拟试卷一、选择题（30题）60分1、与传统的程序设计语言相比，Visual Basic最突出的特点是（）。

A）结构化程序设计B）程序开发环境C）事件驱动编程机制D）程序调试技术2、Visual Basic 6.0集成环境的主窗口中不包括（）。

A）标题栏B）菜单栏C）状态栏D）工具栏3、Visual Basic窗体设计器的主要功能是（）。

A）建立用户界面B）编写源程序代码C）画图D）显示文字4、假设已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应执行的操作时（）。

A）单击窗体上没用控件的地方B）单击任一个控件C）不执行任何操作D）双击窗体的标题栏5、为了把窗体上的某个控件变为活动的，应执行的操作是（）。

A）单击窗体的边框B）单击控件的内部C）双击该控件D）双击窗体6、确定一个控件在窗体上的位置的属性是（）。

A）Width 或Height B）Width 和HeightC）Top 或Left D）Top 和Left7、确定一个窗体或控件的大小的属性是（）。

A）Width 或Height B）Width 和HeightC）Top 或Left D）Top 和Left8、为了同时改变一个活动控件的高度和宽度，正确的操作是（）。

A）拖动控件4个角上的某个小方块B）只能拖动位于控件右下角上的小方块C）只能拖动位于控件左下角上的小方块D）不能同时改变控件的高度和宽度9、假设窗体的名称（Name属性）为Form1，则把窗体的标题设置为“VB Test”的语句为（）。

A）Form1=“VB Test”B）Caption=“VB Test”C）Form1.Text=“VB Test”D）=“VB Test”10、下列不能打开代码窗口的操作是（）。

A）双击窗体的某个控件B）双击窗体C）按F7键D）单击窗体或控件11、为了使窗体的大小可以改变，必须把它的BorderStyle属性设置为（）A）1 B）2C）3 D）412、下列可作为Visual Basic的变量名的是( )。

第二部分Visual Basic 程序设计一、选择题（用答题卡答题，答案依次填在21～30答题号内）21．以下说法中，正确的是21 。

A. 属性是对象的特征，所有的对象都有相同的属性B. 属性值只能在属性窗口中设置C. 在程序中可以用赋值语句给对象的任何一个属性赋值D. 对象的运行时属性不出现在对象属性窗口中22．下面4个语句中，错误的是22 。

A．N = InputBox("输入N：", , 5) B．InputBox ("输入N：", , 5) C．MsgBox "请回答" D．K = MsgBox("请回答")23．若设X=1，Y=2，则不能在窗体上显示出“A= 3”的语句是23 。

A．Print A = X + Y B．Print "A="; X + YC．Print "A=" + Str(X + Y) D．Print "A= " & X + Y24．表达式InStr(4, "abcabca", "c") + Int(2.5)的值为24 。

A. 7B. 8C. 5D. 925．以下有关数组的说法中，错误的是25 。

A. 用ReDim语句重新定义动态数组时，其下标的上下界可以使用赋了值的变量B. 用ReDim语句重新定义动态数组时，不能改变已经说明过的数组的数据类型C. 使用ReDim语句一定可以改变动态数组的上下界D. 定义数组时，数组维界值可以不是整数26．以下有关过程的说法中，错误的是26 。

A．不论在Function过程中是否给函数名赋过值，都会返回一个值B．不能在Function与Sub过程内部，再定义Function或Sub过程C．Function过程与Sub过程，都可以是无参过程D．过程名可以和主调过程的局部变量同名27．下列关于菜单的说法中，错误的是27 。

全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】考前复习必看资料：PiaoMo整理—1—第一套上机题题干166一、基本操作题请根据以下各小题的要求设计Visual Basic 应用程序(包括界面和代码)。

(1)在名称为Form1的窗体上建立一个名称为Command1的命令按钮数组，含三个命令按钮，它们的Index 属性分别为0、1、2，标题依次为"是"、"否"、"取消"，每个按钮的高、宽均为300、800。

窗体的标题为"按钮窗口"。

运行后的窗体如图1所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp ，窗体文件名为sjt1.frm 。

图1【操作步骤】步骤1：新建一个"标准EXE"工程，如表1在窗体中用"复制"和"粘贴"画出控件数组并设置属性。

表1(2)在名称为Form1的窗体上画一个名称为Sha1的形状控件，然后建立一个菜单，标题为"形状"，名称为shape0，该菜单有两个子菜单，其标题分别为"正方形"和"圆形"，其名称分别为shape1和shape2，如图2所示，然后编写适当的程序。

程序运行后，如果选择"正方形"菜单项，则形状控件显示为正方形；如果选择"圆形"菜单项，则窗体上的形状控件显示为圆形。

注意：程序中不能使用变量，每个事件过程中只能写一条语句。

保存时必须存放在考生文件夹下，工程文件名为sjt2.vbp ，窗体文件名为sjt2.frm 。

图2【操作步骤】步骤1：新建一个"标准EXE"工程，在窗体Form1中画一个名为Sha1的形状控件。

步骤2：选择【工具】→【菜单编辑器】命令，打开菜单设计器，如表2中的设置建立菜单项。

国家二级VB机试（上机操作）模拟试卷432(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)在名称为Form1、标题为“输入”、最大化按钮失效的窗体上画一个名称为Labe11的标签控件，其标题为“输人密码”；再向窗体内画一个名称为Text1的文本框控件，并清空其中的文本。

程序执行时，用户在文本框中最多可输入由6个字符组成的密码，密码字符在文本框中显示为“*”，其画面如图所示，请设置相应属性。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。

(2)在名称为Form1的窗体上，画一个名称为Shapel的形状控件，将其形状设置为圆、背景样式设置为不透明；再向窗体上画一个名称为HScrol11的水平滚动条控件，并将滚动条所能表示的最小值设置为0、所能表示的最大值设置为255。

要求：编写适当的事件过程，使得程序运行时，当单击水平滚动条HScroll1两端的箭头时，能将Shape1中的背景颜色设置为由红、绿、蓝三原色组合形成的一种颜色，其中，红色的分量值为滚动条中滚动框当前位置所表示的值，绿色、蓝色的分量值都为0。

程序运行示意图如图所示。

提示：系统库函数RGB可将红、绿、蓝三原色组合，并返回组合后的颜色值。

注意：要求程序中不能使用变量，每个事件过程中只能写一条语句(不得使用选择语句或循环语句)。

保存时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。

正确答案：(1)【操作步骤】步骤1：新建一个窗体，根据表4．8设置窗体的相关属性步骤2：向窗体中添加一个标签控件，根据表4．9设置控件的相关属性步骤3：向窗体中添加一个文本框控件，根据表4．10设置控件的相关属性，设置后窗体的效果如图4．8所示步骤4：调试并运行程序，关闭程序后按题目要求存盘。

(2)【操作步骤】步骤1：新建一个窗体，在窗体上添加一个Shape控件，并按照表4．11设置控件的相关属性。

2011年（春）上机 Visual Basic （VB02）答案一、改错【题目】本程序的功能是，找出使用公式412+-m m （m=1~100）生成的一个数据序列中的所有非素数，分别输出这些非素数的全部真因子。

所谓数据n 的真因子是指除1和n 之外的因子。

Option ExplicitPrivate Sub Command1_Click()Dim m As Integer, p As LongDim st1 As String'st1 = "" 'err 位置错For m = 1 To 100p = m * m - m + 41st1 = ""If Not prime(p) ThenCall fac(p, st1)List1.AddItem "第" & m & "项 " & p & ":" & st1End IfNext mEnd SubPrivate Function prime(n As Long) As BooleanDim k As IntegerFor k = 2 To Sqr(n)If n Mod k = 0 Then Exit Function 'err ForNext kprime = TrueEnd FunctionPrivate Sub fac(n As Long, st As String)Dim i As IntegerFor i = 2 To n \ 2If n Mod i = 0 Thenst = st & i & ","End IfNext ist = Left(st, Len(st) - 1) 'err RightEnd Sub二、编程题【题目】编写程序，在一个数组中找出比第一个数组元素值大的数组元素中最小的元素值。

国家二级VB机试（上机操作）模拟试卷353(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)在名称为Form1的窗体上画两个名称分别为Framel、Frame2的框架，标题分别为“字号”、“修饰”；在Framel中画两个单选按钮，名称分别为Optionl、Option2，标题分别为“10号字”、“20号字”，且标题显示在单选按钮的左边；在Frame2中画一个名称为Checkl的复选框，标题为“下划线”。

运行后的窗体如图3．174所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。

(2)在名称为Form1的窗体上从上到下画两个文本框，名称分别为Text1、Text2；再画一个命令按钮，名称为Command1，标题为“选中字符数是”。

程序运行时，在Text1中输入若干字符，选中部分内容后，单击“选中字符数是”按钮，则在Text2中显示选中的字符个数(如图3．175所示)。

请编写按钮的Click事件过程。

要求：不得使用变量，事件过程中只能写一条语句。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。

正确答案：(1)步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。

步骤2：按要求将文件保存至考生文件夹中。

(2)步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性，步骤2：打开代码编辑窗口，编写以下事件过程。

参考代码：Private Sub Command1 Click( )Text2．Text=Form1．Text1．SelLengthEnd Sub 步骤3：按要求将文件保存至考生文件夹中。

解析：(1)本题只需按题目在窗体中画出控件，并设置相关属性即可。

(2)要在Text2中显示Text1中选中的字符个数，需编写语句将Text1的SelLength属性返回值赋值给Text2。

江苏省高等学校非计算机专业学生计算机基础知识和应用能力等级考试上机试卷(2011春)二级Visual Basic语言(试卷代号VB01)(本试卷完成时间70分钟)【考试须知】1．改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；2．答题完成后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3．程序代码应缩行书写(呈锯齿形)。

一、改错题(14分)【题目】本程序的功能是：找出100～999之间的10进制数为升序数，且其对应的8进制数也是升序数的整数。

所谓升序数是指该数的十位数字小于个位数字，百位数字值小于十位数字值。

Option ExplicitPrivate Sub Command1_Click()Dim n As Integer, s8 As StringFor n = 100 To 999s8 = d2q(n)If sx(n) And sx(V al(s8)) ThenList1.AddItem n & "D==>" & s8 & "Q"End IfNext nEnd SubPrivate Function d2q(n As Integer) As StringDim p As IntegerDop = n Mod 8d2q = d2q & CStr(p)n = n \ 8Loop Until n = 0End FunctionPrivate Function sx(ByV al n As Integer) As BooleanDim num() As Integer, k As Integer, t As IntegerDim i As Integert = Len(CStr(n))ReDim num(t)For k = 1 To tnum(k) = V al(Mid(CStr(n), k, 1))Next kFor i = 1 To UBound(num) - 1If num(i) >= num(i + 1) Then Exit ForNext isx = TrueEnd Function【要求】1．新建工程，输入上述代码，改正程序中的错误；2．改错时，不得增加或删除语句，但可适当调整语句位置；3．将窗体文件和工程文件分别命名为F1和P1，并保存到T盘的根目录下。

2011春江苏省二级VB上机1真题及答案江苏省二级Visual Basic上机试卷1(本试卷完成时间为70分钟)考试说明:1.改错题的界面不作要求,主要用来调试程序,若题目中有参考界面,则仅作参考。

2.考试结束后,文件必须存放在指定位置,否则适当扣分；考试盘中若无指定文件,则不予评分。

3.程序代码书写应呈锯齿形。

一、改错题(14分)【题目】本程序的功能是:找出100～999之间的十进制数为升序数,且其对应的八进制数也是升序数的整数。

所谓升序数,是指该数的十位数字值大于个位数字值,百位数字值大于十位数字值。

Option ExplicitPrivate Sub CmdFind_Click()Dim n As Integer,s8 As StringFor n=100 To 999s8=d2Q(n)If sx(n) And sx(Val(s8)) ThenList1.AddItem n & "D==>" & s8 & "Q"End IfNext nEnd SubPrivate Function d2Q(n As Integer) As String Dim p As IntegerDop=n Mod 8d2Q=d2Q & CStr(P)n=n\8Loop Until n=0End FunctionPrivate Function sx(ByVal n As Integer)As Boolean Dim num() As Integer,k As Integer,t As Integer Dim i As Integert=Len(CStr(n))ReDim num(t)For k=1 To tnum(k)=Val(Mid(CStr(n),k,1))next kFor i=1 To UBound(num)-1If num(i)>=num(i+1) Then Exit ForNext isx=TrueEnd Function【要求】1.新建工程,输入上述代码,改正程序中的错误。

国家二级VB机试（上机操作）模拟试卷304(题后含答案及解析)题型有：1.jpg />(2)在名称为Form1的窗体上画一个名称为Label1、标题为“口令”的标签；画一个名称为Text1的文本框；再画三个命令按钮，名称分别为Command1、Command2、Command3，标题分别为“显示口令”、“隐藏口令”、“重新输入”。

程序运行时，在Text1中输入若干字符，单击“隐藏口令”按钮，则只显示同样数量的“*”，如图3—157(b)所示；单击“显示口令”按钮，则显示输入的字符，如图3—157(a)所示，单击“重新输入”按钮，则清除Text1中的内容，并把光标定位到Text1中。

要求：请画出所有控件，编写命令按钮的Click事件过程，程序中不得使用变量，在“显示口令”按钮、“隐藏口令”按钮的事件过程中只能写一条语句。

存盘时必须存放在考生文件夹下，工程文件名为sit2．vbp，窗体文件名为sjt2．frm。

正确答案：第1小题步骤1：新建一个“标准EXE”工程，画出控件并设置相应属性。

步骤2：按要求将文件保存至考生文件夹中。

第2小题步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。

步骤2：在代码编辑窗口，分别编写三个按钮的单击事件过程。

参考代码：Private Sub Command1_Click( )Text1．PasswordChar=““End SubPrivate Sub Command2_Click( )Text1．PasswordChar=“*”End SubPrivate Sub Command3_Click( )Text1=““Text1．SetFocusEnd Sub步骤3：按要求将文件保存至考生文件夹中。

解析：第1小题：本题只需要在窗体上画出控件并相应设置其属性即可。

第2小题：PasswordChar属性用于设置屏蔽文本框中内容的字符，要去掉对文本框中输入内容的屏蔽，需将其PasswordChar属性值清空，使用SetFocus方法可使文本获得焦点。

实验一Form1.print “程序设计基础教程”End subPrivate sub form_dblclick()Form1.clsEnd subDim a as single,b as single,c as single a=val(text1.text)b=val(text2.text)c=a*btext3.text=str(c)end subDim n as integer,a as singlen=val(text1.text)a= n^(1/3)text2.text=str(a)end subText1.text=“visual basic 程序设计”end subPrivate Sub Command2_click()Text1.text=“”end subText2.text=left(text1.text,5)end subPrivate Sub Command2_click()Text3.text=len(text1.text)end subForm1.Move 0, 0End SubPrivate Sub Command2_Click()Form1.Height = Form1.Height * 1.2Form1.Width = Form1.Width * 1.2End Sub7.Const pi as single=3.14159Command1_click()Dim a as single,b as single,c as single,s as single a=val(text1.text)b=val(text2.text)c=val(text3.text)s=a*b*sin((c*pi)/180)/2text4.text=round(s ,2)end sub实验二顺序Const pi as single=3.14159Private Sub Command1_click()Dim r as single,v as singler=val(text1.text)v=4/3 *pi*r^3label1.caption=format(v, “0.00”)end subDim a as single,b as single,c as single,d as single a=val(text1.text)b=val(text2.text)c=val(text3.text)d=(a+b+c)/3text4.text=format(d, “0.00”)end subText1.locked=falseEnd subPrivate Sub Text1_changeCommand2.enable=trueEnd subPrivate Sub Command_click()Text1.locked=trueCommand2.enable=falseEnd subText1.text=“欢迎光临”End subCommand2_click()Text1.text=“谢谢再见”End subText1.selstart=8Text1.sellength=9End subCommand2_click()Label2.caption=text1.seltext End subConst pi as single=3.14159Dim r as single,h as singlePrivate Sub Command click()Dim s as singler=text1.texth=text2.texts=2*pi*r^2+2*pi*r*htext3.text=format(s, “0.000”) end subPrivate Sub command2 click()dim v as singlev=pi*r^2*htext4.text=format(v, “0.000”) end subDim a as string,b as stringPrivate Sub Command1_click()a=text1.textb=text2.texttext3.text=“a” & “b”end subPrivate Sub command2_click()dim t as stringa=text1.textb=text2.textt=aa=bb=ttext1.text=atext2.text=blabel1.caption=“交换成功”end sub实验三选择Dim n as integerIf (n mod 3=0 )and (n mod 7=0 ) then Label2.caption=“Yes”ElseLabel2.caption=“No”End ifEnd subDim x as single,y as singlex=text1.texty=text2.textif x>0 and y>0 thentext3.text=“第一象限”elseif x<0 and y>0 thentext3.text=“第二象限”elseif x<0 and y<0 thentext3.text=“第三象限”else x>0 and y<0 thentext3.text=“第四象限”end ifend subDim a as single,b as single,c as single,d as single a=text1.textb=text2.textc=text3.textd=a+b+cif d>=270 thenif d>=285 thentext4.text=“Gold Medal”elsetext4.text=“Silver Medal”end ifelseif d>240 thentext4.text=“Bronze Medal”elseif a>95 or b>95 or c>95 thentext4.text=“Honor Medal”elsetext4.text=“No Medal”end ifend ifend subText.text=“我是博士生”End subOption2_clickText.text=“我是硕士生”End subOption3_clickText.text=“我是本科生”End subIf Check1.Value ThenLabel1.FontUnderline = TrueElseLabel1.FontUnderline = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value ThenLabel1.FontStrikethru = TrueElseLabel1.FontStrikethru = FalseEnd IfEnd SubDim n as singlen=text1.textif n=<4 thentext2.text=format（10，“0.0”）elseif n>4 and n<=15 thentext2.text=format（10+1.2*(n-4)，“0.0”）elsetext2.text=format（1.8*n，“0.0”）end ifend subIf text1.text=“Teacher” thenIf text2.text=“123456” thenLabel3.caption=“登录成功”ElseLabel3.caption=“密码不正确”End ifElseif text1.text=“Student” thenIf text2.text=“654321” thenLabel3.caption=“登录成功”ElseLabel3.caption=“密码不正确”End ifElseLabel3.caption=“用户未注册”End ifEnd sub实验四循环Dim n As Integer, i As Integer, a As Long n = Text1.Texta = 0For i = 1 To nIf (i Mod 3 = 0) And (i Mod 7 <> 0) Thena = a + iEnd IfNext iLabel1.Caption = aEnd SubDim n As Integer, m As Integer, i As Integern = Text1.Text n=val(text1.text)m = Text2.Text m=val(text2.text)If m >= n Then for i=n to 1 step -1For i = n To 1 Step -1 if n mod i=0 and m mod i=0 then If (m Mod i = 0) And (n Mod i) = 0 Then text3.text=str(i)Text3.Text = I exit forExit For end ifEnd If next iNext iElseFor i = m To 1 Step -1If (m Mod i = 0) And (n Mod i = 0) ThenText3.Text = iExit ForEnd IfNext iEnd IfEnd SubDim n As Integer, m As Integer, i As Integer, a As Integer, s As Integer, flag AsBooleanm = Text1.Textn = Text2.Texts = 0For a = m To nflag = TrueFor i = 2 To a - 1If a Mod i = 0 Thenflag = FalseExit ForEnd IfNext iIf flag = True Then s = s + a Next aText3.Text = sEnd SubTimer1.Enabled = TrueEnd SubPrivate Sub Command2_Click() Timer1.Enabled = FalseLabel1.Left = 100End SubPrivate Sub Timer1_Timer() Label1.Left = Label1.Left + 100 End SubDim n As Single, i As Single, a As Single, s As Single n = Label1.Captions = 0For i = 1 To nFor a = 1 To is = s + aNext aNext iText1.Text = sEnd SubPrivate Sub HScroll1_Change()Label1.Caption = HScroll1.ValueEnd SubDim s As Single, n As Long, t As Long, i As Longs = Text1.Textt = 1For i = 1 To Len(s)If Right(s, 1) = "1" Thenn = n + tEnd Ift = t * 2s = Left(s, Len(s) - 1)Next iLabel1.Caption = nEnd SubPrivate Sub Command2_Click()Dim a As Long, q As Longa = Text1.TextDo While (a > 0)q = a Mod 2 & qa = a \ 2LoopLabel1.Caption = qEnd SubTimer1.Enabled = TrueCommand1.Enabled = FalseCommand1.Caption = "继续"Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click()Command2.Enabled = FalseCommand1.Enabled = TrueTimer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Label1.FontSize = Label1.FontSize * 1.1 If Label1.FontSize > 100 ThenLabel1.FontSize = 8End IfEnd Sub实验五数组Private Sub Command1_Click()Dim i As IntegerText1.text=""For i = 1 To 10a(i) = Int(Rnd * 81) + 10Text1.Text = Text1.Text & a(i) & Space(2) Next iEnd SubPrivate Sub Command2_Click()Dim i As Integer, j As Integer, t As Integer Text2.text=""For i = 1 To 9For j = i + 1 To 10If a(i) > a(j) Thent = a(j)a(j) = a(i)a(i) = tEnd IfNext jNext iFor i = 1 To 10If a(i) Mod 3 = 0 ThenText2.Text = Text2.Text & a(i) & Space(2) End IfNext iEnd SubPrivate Sub Command1_Click()Dim i As IntegerFor i = 1 To 10a(i) = Int(Rnd * 26) + 65Text1.Text = Text1.Text & a(i) & Space(2)Next iEnd SubPrivate Sub Command2_Click()Dim i As Integer, max As Integermax = a(1)For i = 2 To 10If max < a(i) Thenmax = a(i)End IfNext iText2.Text = maxText3.Text = Chr(max)End SubPrivate Sub Command1_Click()Dim i As IntegerFor i = 1 To 100a(i) = Int(Rnd * 26) + 65Text1.Text = Text1.Text & Chr(a(i)) & Space(2) Next iEnd SubPrivate Sub Command2_Click()Dim i As Integer, b As Integer, j As Integer r = 0b = Asc(Text2.Text)For i = 1 To 100If a(i) = b Thenj = j + 1End IfNext iText3.Text = jEnd SubPrivate Sub Command1_Click()Dim i As Integer, j As IntegerText1.Text = ""For i = 1 To 5For j = 1 To 5a(i, j) = Int(Rnd * 90) + 10Text1.Text = Text1.Text & a(i, j) & Space(2) Next jText1.Text = Text1.Text & vbCrLfNext iEnd SubPrivate Sub Command2_ClickDim i as Integer ,j as Integer ,s as Integer For i = 1 to 5j = 6 – is=s+a( i ,j )next iLabel1.caption =sEnd SubPrivate Sub Command1_Click()Dim n As Integer, i As Integeri = Val(Text1.Text)ReDim a(1 To i)a(1) = 1a(2) = 1For n = 3 To ia(n) = a(n - 1) + a(n - 2)Next nText2.Text = a(i)End SubPrivate Sub Command1_Click()Dim i As IntegerText1.text=""For i = 1 To 50a(i) = Int(Rnd * 90) + 10Text1.Text = Text1.Text & a(i) & Space(2) Next iEnd SubPrivate Sub Command2_Click()Dim i As IntegerText2.Text = 0For i = 1 To 50If a(i) Mod 3 = 0 And a(i) Mod 7 = 0 Then Text2.Text = Val(Text2.Text) + a(i)End IfNext iEnd SubPrivate Sub Command1_Click()Dim i As Integer, j As IntegerText1.Text = ""For i = 1 To 4For j = 1 To 4a(i, j) = Int(Rnd * 41) + 10Text1.Text = Text1.Text & a(i, j) & Space(2)Next jText1.Text = Text1.Text & vbCrLfNext iEnd SubPrivate Sub Command2_Click()Dim i As Integer,j as integerFor i=1 to 4t=a(i,1)a(i,1)=a(i,3)a(i,3)=tNext tFor i = 1 To 4For j = 1 To 4Label1.Caption = Label1.Caption & a(i, j) & Space(2) Next jLabel1.Caption = Label1.Caption & vbCrLfNext iEnd Sub实验六常用控件Private Sub Op_Click(Index As Integer)Dim a As Integer, b As Integer, c As Integera = Val(Text1.Text)b = Val(Text2.Text)Select Case IndexCase 0c = a + bCase 1c = a - bCase 2c = a * bCase 3c = a / bEnd SelectText3.Text = Str(c)End SubPrivate Sub Command1_Click()Dim n As IntegerFor n = 1 To 10a(n) = Int(Rnd * 81) + 10List1.AddItem a(n)Next nEnd SubPrivate Sub Command2_Click()Dim i As Integer, j As Integer, k As Integer, t% For i = 1 To 9For k = i + 1 To 10If a(i) > a(k) Thent = a(i)a(i) = a(k)a(k) = tEnd IfNext kNext iFor i = 1 To 10List2.AddItem a(i)Next iEnd SubPrivate Sub Command1_Click()Timer1.Enabled = FalseCommand2.Enabled = TrueCommand1.Enabled = FalseEnd SubPrivate Sub Command2_Click()Timer1.Enabled = TrueCommand1.Enabled = TrueCommand2.Enabled = FalseEnd SubPrivate Sub Command3_Click()List1.RemoveItem List1.ListIndexEnd SubPrivate Sub Timer1_Timer()List1.AddItem Int(Rnd * 90000 + 10000) End SubDim n As Integer, s As Integers = 0For n = 0 To 4If List1.Selected(n) = True Thens = s + 1End IfNext nText1.Text = sEnd SubList1.AddItem Combo1.TextEnd SubPrivate Sub List1_DblClick()List1.RemoveItem List1.ListIndexEnd SubText1.Text = Combo1.TextEnd SubPrivate Sub Command2_Click()Combo1.List(Combo1.ListIndex) = Text1.TextEnd SubPrivate Sub Timer1_TimerDim n as integerIf n>Combo1.ListCount-1 then n=0Combo1.ListIndex = nn=n+1End SubPrivate Sub Command1_ClickTimer1.Enabled =TrueCommand1.Enabled = FalseCommand2.Enabled = TrueEnd SubPrivate Sub Command2.ClickTimer1.Enabled = FalseCommand1.Enabled = TrueCommand2.Enabled =FalseEnd SubPrivate Sub Command3_Click()For j = 0 To Combo1.ListCount - 1If Combo1.List(j) = Trim(Text1.Text) Then Exit ForEnd IfNext jIf j = Combo1.ListCount ThenLabel1.Caption = "No Found"ElseLabel1.Caption = "Found"End IfEnd Sub实验七过程Dim i As Integer, n As Integer, p As Double n = Val(Text1.Text)p = 0For i = 1 To np = p + fact(i)Next iText2.Text = Str(p)End SubFunction fact(ByVal n As Integer) As Double Dim i As Integer, p As Doublep = 1For i = 1 To np = p * iNext ifact = pEnd FunctionDim x As Integer, y As Integer, z As Integer x = Val(Text1.Text)y = Val(Text2.Text)z = Val(Text3.Text)Swap x, ySwap x, zSwap y, zText4.Text = x & " " & y & Space(2) & z End SubPrivate Sub Swap(ByRef x%, ByRef y%)Dim t As IntegerIf x < y Thent = x: x = y: y = tEnd IfEnd SubDim m As Integer, n As Integerm = Val(Text1.Text)n = Val(Text2.Text)Text3.Text = m * n / Gcd(m, n)End SubFunction Gcd(ByVal m%, ByVal n%) As Integer Dim i As IntegerFor i = m To 1 Step -1If m Mod i = 0 And n Mod i = 0 ThenGcd = iExit FunctionEnd IfNext iEnd FunctionDim x As Integer, n As Integerx = Val(Text1.Text)n = Val(Text2.Text)Text3.Text = Square(x, n)End SubFunction Square(ByVal x%, ByVal n%) As Double Dim i As IntegerFor i = 0 To nSquare = Square + x ^ iNext iEnd FunctionDim m As Integer, n As Integer, i As Integer Text3.Text = ""m = Val(Text1.Text): n = Val(Text2.Text)For i = m To nIf Isprime(i) ThenText3.Text = Text3.Text & i & " "End IfNext iEnd SubFunction Isprime(n As Integer) As Boolean Dim i As IntegerIsprime = TrueFor i = 2 To n - 1If n Mod i = 0 ThenIsprime = FalseExit FunctionEnd IfNext iEnd FunctionPrivate Sub Command1_Click()Dim i As IntegerReDim a(9)Text1.Text = ""For i = 0 To 9a(i) = Int(Rnd * 90) + 10Text1.Text = Text1.Text & a(i) & Space(2) Next iEnd SubFunction sort(b() As Integer)Dim i As Integer, j As Integer, t As Integer For i = 0 To 8For j = i + 1 To 9If b(j) < b(i) Thent = b(j)b(j) = b(i)b(i) = tEnd IfNext jNext iFor i = 0 To 9sort = sort & b(i) & Space(2)Next iEnd FunctionPrivate Sub Command2_Click()Label1.Caption = sort(a())End SubDim i As Integersak = 0For i = 0 To k - 1sak = sak + a * 10 ^ iNext iEnd FunctionPrivate Sub Command1_Click()Dim i As Integer, n As Integer, s As Long, a As Integer a = Val(Text1.Text)n = Val(Text2.Text)s = 0For i = 1 To ns = sak(a, i) + sNext iText3.Text = sEnd Sub实验八图形Picture1.Picture = LoadPicture(App.Path & "\Wys.bmp") End SubPrivate Sub Command2_Click()Picture1.Picture = LoadPicture()End Sub2.If Check1.Value = 1 ThenImage1.BorderStyle = 1ElseImage1.BorderStyle = 0End IfEnd SubPrivate Sub Check2_Click()If Check1.Value = 1 ThenImage1.Picture = LoadPicture(App.Path & "\Pic.jpg") ElseImage1.Picture = LoadPicture()End IfEnd SubShape1.Shape = HScroll1.ValueEnd SubPrivate Sub VScroll1_Change()Shape1.FillStyle = VScroll1.ValueEnd SubPrivate Sub Command1_Click()Picture1.Line (0, 600)-(1600, 600)End SubPrivate Sub Command2_Click()Picture1.ClsPicture1.Circle (800, 600), 500, , , , 2End SubIf keyascii>48 or keyascii<57 ThenKeyascii=0Label1.Caption = "非法输入"ElseLabel1.Caption = "合法输入"End IfEnd SubImage1.Stretch = TrueImage1.Width = Image1.Width * Sqr(2 ^ (1 / 2)) Image1.Height = Image1.Height * Sqr(2 ^ (1 / 2)) End SubPrivate Sub Command2_Click()Image1.Stretch = TrueImage1.Width = Image1.Width * Sqr(2)Image1.Height = Image1.Height * Sqr(2)End SubPrivate Sub Command3_Click()Image1.Stretch = FalseEnd SubPicture1.backcolor=rgb(hsred.value,hsgreen.value,hsblue.value) End subHsgreen_changePicture1.backcolor=rgb(hsred.value,hsgreen.value,hsblue.value) End subHsred_changePicture1.backcolor=rgb(hsred.value,hsgreen.value,hsblue.value) End sub实验九文件Private Sub Command1_Click()Dim i As IntegerText1.Text = ""i = 1Open App.Path & "\Grade.txt" For Input As #1Do While Not EOF(1)Input #1, a(i)Text1.Text = Text1.Text & a(i) & Space(2)i = i + 1LoopClose #1End SubPrivate Sub Command2_Click()Dim i As Integer, s As Integers = 0For i = 1 To 30If a(i) = 100 Thens = s + 1End IfNext iText2.Text = sEnd SubDim s As StringText1.Text = ""Open App.Path & "\Infile.txt" For Input As #1 Do While Not EOF(1)Line Input #1, sText1.Text = Text1.Text & s & vbCrLfLoopClose #1End SubPrivate Sub Command2_Click()Dim a As Stringa = UCase(Text1.Text)Text1.Text = aOpen App.Path & "\Outfile.txt" For Output As #1 Print #1, aClose #1End SubPrivate Sub Command1_Click()Dim s As String, i As IntegerText1.Text = ""i = 1Open App.Path & "\Datain.txt" For Input As #1 Do While Not EOF(1)Input #1, a(i)Text1.Text = Text1.Text & a(i) & Space(2)i = i + 1LoopClose #1End SubPrivate Sub Command2_Click()Dim i As Integer, s As Integers = 0For i = 1 To 20If a(i) Mod 3 = 0 ThenText2.Text = Text2.Text & a(i) & Space(2)End IfNext iEnd SubDim s As StringText1.Text = ""Open App.Path & "\Dialog.txt" For Input As #1 Do While Not EOF(1)Line Input #1, sText1.Text = Text1.Text & s & vbCrLfLoopClose #1End SubPrivate Sub Command2_Click()Dim i As Integer, s As String, r As Integer r = 0For i = 1 To Len(Text1.Text)s = Mid(Text1.Text, i, 1)If Asc(s) >= 65 And Asc(s) <= 90 Thenr = r + 1End IfNext iText2.Text = rEnd SubPrivate Sub Command3_Click()Dim i As Integer, s As String, r As Integer r = 0For i = 1 To Len(Text1.Text)s = Mid(Text1.Text, i, 1)If Asc(s) >= 97 And Asc(s) <= 122 Thenr = r + 1End IfNext iText3.Text = rEnd SubFile1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click()Dim a As StringIf Right(File1.Path, 1) = "\" Thena = File1.Path + File1.FileNameElsea = File1.Path + "\" + File1.FileNameEnd IfText1.Text = aEnd Sub实验十界面设计Text1.locked=falseFSave.enable=trueEnd subFSave_clickText1.locked=tureFSave.enable=falseEnd sub2.dis_clicktext1.text=“计算机等级考试”end sub3.clea_clicktext1.text=“”end sub4.sqadd_clicklabel1.caption=(val(text1.text)^2)+(val(text2.text)^2) end subsqsub_clicklabel1.caption=(val(text1.text)^2)-(val(text2.text)^2) end submnuclean_clicktext1.text=“”text2.text=“”label1.caption=“”end sub4.Private Sub MnuRed_Click()Shape1.FillColor = vbRedEnd SubPrivate Sub MunBlue_Click()Shape1.FillColor = vbBlueEnd Sub5.Private Sub Command1_Click()Dim a As Integer, i As Integera = Text1.TextFor i = 1 To aIf Sqr(i) = Int(Sqr(i)) ThenList1.AddItem iEnd IfNext iEnd Sub制作人：102宿舍、尤昌波只供参考。

国家二级VB机试（上机操作）模拟试卷338(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)在名称为Form1的窗体上建立一个名称为cmdArray的命令按钮数组，含3个命令按钮，它们的Index属性分别为0、1、2，标题依次为“是”、“否”、“取消”，每个按钮的高、宽均为400、900。

窗体的标题为“按钮示例”。

运行后的窗体如图3．62所示。

(1)在名称为Form1的窗体上建立一个名称为cmdArray的命令按钮数组，含3个命令按钮，它们的Index属性分别为0、1、2，标题依次为“是”、“否”、“取消”，每个按钮的高、宽均为400、900。

窗体的标题为“按钮示例”。

运行后的窗体如图3．62所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为vbsjl．vbp，窗体文件名为vbsjl．frm。

(2)在名称为Form1的窗体上画一个名称为Drvl的驱动器列表框，一个名称为Dirl的目录列表框，一个名称为Filel的文件列表框，名称为Label1、标题为“文件名”的标签和名称为Label2、BorderStyle为1的标签。

窗体的标题设置为“文件系统控件”。

请编写适当的程序，使得这三个文件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时，目录列表框和文件列表框中显示的内容同时发生变化。

单击文件列表框时，将选中的文件名显示在Label2中，如图3．63所示。

注意：要求程序中不得使用变量，事件过程中只能写一条语句。

存盘时必须存放在考生文件夹下，工程文件名为vbsi2．vbp，窗体文件名为vtsji2．frm。

正确答案：(1)步骤1：新建一个“标准EXE”工程，单击工具箱中的CommandButton控件图标，在窗体Form1上拉出一个命令按钮，在属性设置窗口中该单选按钮名称设置为cmdArray，Width属性值设置为900，Height属性值设置为400。