等级考试二级VB上机试题50套解析

计算机二级VB语言程序设计考试题及答案计算机二级VB语言程序设计考试题及答案1.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：PrivateSubCommand1_Click()n=Val(Text1.Text)Ifn2=n/2Thenf=f1(n)Elsef=f2(n)EndIfPrintf;nEndSubPublicFunctionf1(ByRefx)x=x*xf1=x+xEndFunctionPublicFunctionf2(ByValx)x=x*xf2=x+x+xEndFunction程序运行后，在文本框中输入3，然后单击命令按钮，窗体上显示的是(D)(单)A.7236B.10836C.726D.2732.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()c="1234"Fori=1To4c1=Trim(Str())Printc1NextiEndSub程序运行后，单击命令按钮，要求在窗体上显示如下内容1121231234则在下划线处应填入的内容为(B)(单)A.Right(c1,i)B.Left(c1,i)C.Mid(c1,i,1)D.Mid(c1,i,i)3.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：PrivateSubCommand1_Click()n=Val(Text1.Text)Fori=2TonForj=2Tosqr(i)IfiModj=0ThenExitForNextjIfj>Sqr(i)ThenPrintiNextiEndSub该事件过程的功能是(C)(单)A.输出n以内的奇数B.输出n以内的'偶数C.输出n以内的素数D.输出n以内能被j整除的数4.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：PrivateFunctionf(mAsInteger)IfmMod2=0Thenf=mElsef=1EndIfEndFunctionPrivateSubCommand1_Click()DimiAsIntegers=0Fori=1To5s=s+f(i)NextPrintsEndSub程序运行后，单击命令按钮，在窗体上显示的是(C)(单)A.11B.10C.9D.85.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Dimarray1(10,10)AsIntegerDimiAsInteger,jAsIntegerFori=1To3Forj=2To4array1(i,j)=i+jNextjNextiText1.Text=array1(2,3)+array1(3,4)EndSub程序运行后，单击命令按钮，在文本框中显示的值是(D)(单)A.15B.14C.13D.126.VisualBasic应用程序中标准模块文件的扩展名是【BAS或.BAS】(注意不要写点)。

国家二级VB机试（上机操作）模拟试卷142(题后含答案及解析) 题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题1．在名称为Form1、标题为“欢迎”的窗体上画1个名称为Label1的标签，其标题内容为“欢迎使用本系统”，标题文字字体和字号分别为“宋体”、“三号”，标签大小能根据标题内容自动调整，效果如图所示。

程序执行时，窗体的最大化按钮不可用(如图所示)，请设置相应属性。

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

正确答案：[操作步骤]步骤1：新建一个窗体，在属性窗口中设置窗体的属性，按照表4．3所示在属性窗口中设置相应属性，其运行效果如图4．3所示。

步骤2：在窗体上添加一个标签控件，在属性窗口中设置标签的属性，按照表4．4所示在属性窗口中设置相应属性，其运行效果如图4．4所示。

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

2．在名称为Form1的窗体上，画1个名称为Label1的标签，其标题为“横坐标X”，且能根据标题内容自动调整标签的大小；再画1个名称为Text1的文本框，其中的文字显示为空白；再画1个名称为Picture1的图片框，大小适中即可。

要求：编写适当的事件过程，使得程序运行时，如果鼠标在图片框中移动，则能在文本框Text1中显示鼠标在图片框中的当前位置的横坐标，运行情况如图所示。

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

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

正确答案：[操作步骤]步骤1：新建一个窗体，在窗体上添加一个标签控件，在属性窗口中设置标签的属性，按照表4．5所示在属性窗口中设置相应属性，其运行效果如图4．5所示。

步骤2：在窗体上添加一个文本框控件，在属性窗口中设置文本框的属性，按照表4．6所示在属性窗口中设置相应属性，其运行效果如图4．6所示。

国家二级VB机试（上机操作）模拟试卷600(题后含答案及解析)题型有：1.jpg /> 步骤2：打开代码编辑窗口，在指定位置编写如下代码。

参考答案PriVate Sub Commandl_Click( ) Text2=Textl．SelLength End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。

【易错提示】SelLength属性与SelStart和SelText属性容易混淆，SelStart属性是返回／设置选定文本的起始点，SelText属性是返回／设置当前选定文本的字符串。

解析：selLength属性用于返回／设置选定的字符数，通过文本框的Name 和Caption属性设置文本框的名称和标题，通过命令按钮的Name和Cap．tion 属性设置命令按钮的名称和标题。

简单应用题3．在考生文件夹下有一个工程文件sjt3．vbp。

程序运行后，单击“读入数据”按钮，可将考生文件夹下in3．1xt文件中的所有英文单词读入，并在Textl 文本框中显示；单击“插入列表框”按钮，则按顺序将每个单词作为一项添加到List1列表框中(如图所示)。

在in3．txt文件中，每个单词之间用一个空格字符隔开，最后一个单词的后面没有空格。

已经给出了所有控件和程序，但程序不完整。

要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。

最后用原来的文件名保存工程文件和窗体文件。

正确答案：【操作步骤】步骤l：打开本题工程文件。

步骤2：打开代码编辑窗口，去掉程序中的注释符“′”，将问号改为正确的内容。

参考答案(阴影部分是需考生填入的内容) Private Sub Commandl_C1ick( ) Dim st$．ch$ Open App．Path＆＂＼in3．txt＂For In—put As#’打开文件Do While Not EOF(1)′文件指针是否到达文件末尾Input#1，ch′达到文件末尾返回true．否则返回false st=st＆ch′将读出的数据加到原有数据末尾Loop Close#1′关闭文件Textl=st′将内容显示在文本框中End Sub Private Sub Command2_Click( ) Dim st$，word$，C$ St=Textl n=Len(St) For k=1 TO n c=Mid(st，k，1)′从st 中依次取出1个字符进行比较If c＜＞＂＂Then word=word＆C E1Se Listl．AddItem word word=＂＂将word清空，为下一次作准备End If Next LiStl．AddItem word End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。

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

(1)在名称为Form1，标题为“矩形与直线”的窗体上画一个名称为Line1的直线，其X1、Y1属性分别为200、100，X2、Y2属性分别为2200，1600。

再画一个名称为Shape1的矩形，并设置适当属性，使Line1成为它的对角线，如图3－19所示。

注意：存盘时，将文件保存至考生文件夹下，窗体文件名为sjt1．ffm，工程文件名为sjt1．vbp。

(2)在名称为Form1，标题为“列表框练习”的窗体上，画一个名称为Lst1的列表框，并输入若干列表项，再画一个标题为“删除”，名称为Command1的命令按钮，如图3－20所示。

请编写适当的事件过程，使得单击“删除”按钮，就删除选中的列表项；双击某个列表项，则把该列表项内容添加到列表的最后。

注意：存盘时，将文件保存至考生文件夹下，窗体文件名为sjt2．frm，工程文件名为sjt2．vbp。

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

正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Form1中加入一个Shape形状和直线。

按表4－13设置其相关属性。

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

第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Form1中加入一个命令按钮和列表框。

按表4－14设置其相关属性。

步骤2：在打开的代码编辑窗口中，编写命令按钮的Click事件和列表框的双击DblClick事件代码。

参考代码：Private Sub Command1 Click( ) List1．RemoveItem List1．ListIndex End Sub Private Sub List1 DblClick( ) List1．AddItem List1．Text End Sub 步骤3：按要求将文件保存至考生文件夹中。

、第 50 套 上机考试试题 一、基本操作题 （1）在名称为Form1的窗体上绘制一个文本框，名称为Txt1，字体为“宋体”，文本 框中的初始内容为“二级Visual Basic”；再绘制一个命令按钮，名称为Cmd1，标题为“改 变字体为楷体”。

请编写适当事件过程，使得在运行时，单击命令按钮，则把文本框中文 字的字体改为楷体，如图50-1所示。

图 50-1 注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 vbsj1.vbp ，窗体文件名为vbsj1.frm 。

（2）在名称为Form1的窗体上绘制一个名称为Cmd1的命令按钮，其标题为“移动”， 位于窗体的左上部。

编写适当的事件过程，使程序运行后，每单击一次窗体，都使得命令 按钮同时向右、向下移动100。

程序的运行情况如图50-2所示。

图 50-2注意：不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为vbsj2.vbp ，窗体文件名为vbsj2.frm 。

二、简单应用题（1）在名称为 Form1 的窗体中绘制一个名称为 Lab1 的标签，其标题为“0”，BorderStyle 属性为 1；再添加一个名称为 Tmr1 的计时器。

请设置适当的控件属性，并编写适当的事 件过程，使得在运行时，每隔 1 秒钟标签中的数字加 1。

程序运行时效果如图 50-3 所示。

注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为vbsj3.vbp ，窗体文件名为 vbsj3.frm 。

图 50-3 （2）在考生文件夹中有一个工程文件 vbsj4.vbp 及窗体文件 vbsj4.frm 。

在名称为 Form1 的窗体上有一个名称为 Cmd1 的命令按钮，其标题为“下一个”。

要求在窗体上建立一个 单选按钮数组 Opt1，含 4 个单选按钮，标题分别为“A”、“B”“C”和“D”，初始状态 下，“A”为选中状态。

程序运行效果如图 50-4 所示。

85 （1）【考点分析】本题考点有：文本框的Name、Height、Width、Font、FontSize属性，窗体的Caption、MaxButton、MinButton属性。

【解题思路】根据题意添加控件并设置相应属性。

不显示窗体的最大化和最小化按钮只需将其MaxButton和MinButton属性设为False即可。

【操作步骤】步骤1：建立界面，添加控件并设置控件的属性。

程序中用到的控件及属性见表3.275。

步骤2：调试并运行程序，关闭程序后按题目要求存盘。

（2）【考点分析】本题考点有：图像框的Name、Picture、Stretch属性，命令按钮的Name、Caption属性。

【解题思路】图像框（Image）的Picture属性用于在设计阶段设置在图像框中显示的图片，它的Stretch（自动伸缩）属性用来设定载入其中的图片是否需要自动调整大小，以适应图像框的大小。

本题要在单击按钮时实现"向右移动"或"向下移动"的功能，应在程序中动态设置图像框的Left和Top属性。

【操作步骤】步骤1：建立界面，添加并设置控件的属性。

程序中用到的控件及属性见表3.276。

4 步骤2：编写程序代码。

参考答案Private Sub Command1_Click()Image1.Left = Image1.Left + 100End SubPrivate Sub Command2_Click()Image1.Top = Image1.Top + 100End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

（1）【考点分析】本题考点有：命令按钮的Caption属性和Click事件，直线控件的X1、X2、Y1、Y2属性，形状控件的Shape属性，Sin( )函数，Cos( )函数以及计时器的Enabled属性和Timer事件。

【解题思路】Sin( )函数和Cos( )函数分别返回变量的正弦和余弦值；通过X1、X2、Y1、Y2属性来设置直线的端点。

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

(1)在名称为Forml的窗体上画一个标签，名称为L1，标题为“业余爱好”，再画一个名称为Chl的复选框数组，含三．个复选框，它们的Index属性分别为0、1、2，标题依次为“体育”、“音乐”、“美术”，请设置复选框的属性，使其初始状态见表3一1。

运行后的窗体如图3-11所示。

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

(2)在名称为Forml的窗体上画一个文本框，名称为Text1；再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个菜单项，名称分别为Show和Hide，标题分别为“显示”、“隐藏”，请编写适当的事件过程，使得在运行时，单击“隐藏”菜单项，则文本框消失；单击“显示”菜单项，则文本框显示出来。

运行后的窗体如图3-12所示。

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

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

正确答案：第1小题本题只需按要求画出控件数组，并设置其Value属性。

【操作步骤】步骤1：新建一个“标准EXE”工程。

步骤2：在窗体Forml中加入一个标签和一个复选框，并用“复制”和“粘贴”的方法，生成包含三个元素的复选框数组。

步骤3：分别设置窗体和复选框数组中各元素的相关属性，其属性及值如表4．5所示。

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

第2小题本题需用菜单设计器建立菜单，并编写“显示”和“隐藏”菜单项的单击事件过程控制文本框的visible属性变化。

【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Forml中画一个文本框，在属性设置窗口中将其Name属性值设置为Text1。

计算机二级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。

窗体上显示有一个列表框和一个文本框，且列表框中已有若干列表项。

程序的功能是，程序运行时，当用户在列表框中单击并选中某个列表项时，该项的内容将显示到文本框中，用户可以在文本框中对相关内容进行编辑，按回车键后，能够用编辑好的内容替换被选中的列表项，并自动清空文本框;当双击某个列表项时，则从列表框中删除该列表项;当用户直接在文本框中键入文本并按回车键后，则把该文本添加为列表框的一个新列表项，添加完成后，将文本框清空。

运行窗体如图所示。

要求：程序已经给出，但不完整，请将其中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。

注意：考生不得修改窗体文件中已经存在的控件和程序。

最后程序按原文件名存盘。

一、基本操作题下面出现的“考生文件夹”均为c:\wexam\20060001。

请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。

1．在窗体上建立一个二级菜单，该菜单含有“文件”和“帮助”两个主菜单项（名称分别为vbFile和vbHelp），其中“文件”菜单包括“打开”、“关闭”和“退出”三个子菜单项（名称分别为vbOpen、vbClose和vbExit）。

只建立菜单，不必定义其事件过程。

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

2．在名称为Form1的窗体上建立两个名称分别为Cmd1和Cmd2、标题分别为“喜欢”和“不喜欢”的命令按钮。

编写适当的事件过程，要求程序运行后，如果单击“喜欢”命令按钮，则在窗体上显示“数理化”；如果单击“不喜欢”命令按钮，则在窗体上显示“政史地”。

程序中不能使用任何变量，直接显示字符串。

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

一、基本操作题答案1．【解题步骤】（1）打开“菜单编辑器”。

（2）菜单设计见表4-1。

表4-1标题名称内缩符号文件vbFile0打开vbOpen1关闭vbClose1退出vbExit1帮助vbHelp0（3）按要求设计含有“文件”和“帮助”的菜单栏。

（4）为“文件”菜单设计“打开”、“关闭”和“退出”三个子菜单项。

（5）设计完成之后，按规定方式存盘。

2．【解题步骤】（1）建立界面和控件并设置控件属性。

程序中用到的控件及其属性见表4-2。

表4-2控件属性设置值按钮Name Cmd1Caption喜欢按钮Name Cmd2Caption不喜欢（2）编写程序代码。

参考代码：Private Sub Cmd1_Click()Print"数理化"End SubPrivate Sub Cmd2_Click()Print"政史地"End Sub（3）调试并运行程序。

国家二级VB机试（上机操作）模拟试卷456(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)在名称为Form1的窗体上添加一个名称为C1、标题为“改变颜色”的命令按钮，窗体标题为“改变窗体背景色”。

编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色(&HFF&)。

运行程序后的窗体如图所示。

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

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

(2)在名称为Form1的窗体上添加一个名称为Shape1的形状控件，在属性窗口中将其形状设置为圆形。

添加一个名称为List1的列表框，并在属性窗口中设置列表项的值分别为1、2、3、4、5。

将窗体的标题设为“图形控件”。

单击列表框中的某一项，则将其值作为形状控件的填充参数。

例如，选择3，则形状控件中被竖线填充，如图所示。

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

存盘时必须存放在考生文件夹下，工程文件名保存为sjt2。

vbp，窗体文件名保存为sjt2．frm。

正确答案：(1)步骤1：建立界面，添加相应的控件并设置控件的属性。

程序中涉及的控件及属性见表3．59。

步骤2：打开代码编辑窗口，在指定位置编写如下代码。

参考答案Private Sub C1_Click( ) Form1．BackCo1or=&HFF& End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。

(2)步骤1：建立界面，将窗体Form1的Caption属性设置为“图形控制”，然后添加相应的控件并设置控件的属性。

程序中用到的控件及属性见表3．60。

步骤2：打开代码编辑窗口，在指定位置编写如下代码。

参考答案Private Sub List1_Click( ) Shape1．FiiiStyle=List1．Text End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。

全国计算机二级考试《VB》操作试题及答案全国计算机二级考试《VB》操作试题及答案全国计算机等级考试（National Computer Rank Examination，简称NCRE），是在1994年，经原国家教育委员会（现教育部）批准，由教育部考试中心主办，面向社会，用于考查应试人员计算机应用知识与能力的全国性计算机水平考试体系。

以下是店铺整理的全国计算机二级考试《VB》操作试题及答案，希望对大家有帮助。

一、基本操作题(1)请在名称为Forml的窗体上添加一个名称为H1的水平滚动条，并在属性窗口中设置它的属性值，使其满足下列要求：它的最小刻度值为1，最大刻度值为100，在程序运行时，用鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动10个刻度。

再在滚动条下面画两个名称分别为L1和L2的标签，并分别显示1和100，运行时的窗体如图所示。

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

(2)在名称为Forml的窗体上添加两个名称分别为Textl和Text2的文本框，初始内容均为空;再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个菜单项，名称分别为Copy和Clear，标题分别为“复制”、“清除”，请编写适当的事件过程，使得在程序运行时，单击“复制”选项菜单，则把Textl中的内容复制到Text2中，单击“清除”选项菜单，则清除Text2中的内容(即在Text2中填入空字符串)。

运行时的窗体如图所示。

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

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

二、简单应用题(1)在考生文件夹F有一个工程文件sjt3.vbp，窗体上已经有一个标签Labell，请添加一个单选按钮数组，名称为Opl，含三个单选按钮，它们的Index属性分别为0、1、2，标题依次为“飞机”、“火车”、“汽车”，再添加一个名称为T extl的文本框。

计算机二级《VB》上机题题库（含答案）计算机二级考试是全国计算机等级考试四个等级中的一个等级，由教育部考试中心主办，考核计算机基础知识和使用一种高级计算机语言编写程序以及上机调试的基本技能。

以下是店铺为大家收集的计算机二级《VB》上机题题库(含答案)，希望能够帮助到大家。

1.以下不具有Picture属性的对象是(B)A)窗体B)图片框C)图像框D)文本框2.双击窗体中的对象后，Visual Basic将显示的窗口是(D)A)项目(工程)窗口B)工具箱C)代码窗口D)属性窗口3.若要将窗体从内存中卸载，其实现的方法是(A)A)ShowB)UnLoadC)LoadD)Hide4.要使目录列表框(名称为Dirl)中的目录随着驱动器列表框(名称为Drivel)中所选择的当前驱动器的不同而同时发生变化，则应：(A)A)在Dirl中的Change事件中，书写语句 Dirl.Drive=Drivel.DriveB)在Dirl中的Change事件中，书写语句 Dirl.Path=Drivel.DriveC)在Drivel中的Change事件中，书写语句Dirl.Path=Drivel.DriveD)在Drivel中的Change事件中，书写语句Dirl.Drive=Drivel.Drive5.设有如下声明：Dim x As Integer如果Sgn(x)的值为-1，则表示x的值是(A)A)整数B)大于0的整数C)等于0的整数D)小于0的数6.下述说法不正确的是(B)A)变量名的长度不能超过255个字符B)变量名可以包含小数点或者内嵌的`类型声明字符C)变量名不能使用关键字D)变量名的第一个字符必须是字母7.下列可作为Visual Basic变量名的是(A)A)FilenameB)A(A+B)C)A%DD)Print8.语句Print Sgn(-6^2)+Abs(-6^2)+Int(-6^2)的输出结果是(BD)A)-36B)1C)-1D)-729.下面说法中，不正确的是(D)A)Cls清除由Print方法显示的文本或在图片框中显示的图形，并把光标移到对象的左上角(0,0)B)当前窗体是用Picture属性装入的图形时，也可以用Cls方法清除C)Move方法用来移动窗体和控件，并改变其大小D)Cls方法中的对象，可以是窗体或图片框，如果省略则清除当前窗体中显示的内容10.假定在图片框Picturel中装入了一个图形，为了清除该图形(注意，清除图形，而不是删除图片框)，应采用的正确方法是(D)A)选择图片框，然后按Del键B)执行语句 Picturel.picture=LoadPicture("")C)执行语句 Picturel.picture=""D)选择图片框，在属性窗口中选择Picture属性条，然后按回车键【计算机二级《VB》上机题题库(含答案)】。

国家二级VB机试（上机操作）模拟试卷530(题后含答案及解析)题型有：1.Width = Shape1.Width + 100 End Sub Private Sub Command2_Click( ) Shape1.Height = Shape1.Height + 100 End Sub 步骤3：按要求将文件保存至考生文件夹中。

简单应用题2．（1）考生文件夹下有工程文件sjt3.vbp，窗体上有两个标题分别为“分解”和“退出”的命令按钮。

请再画一个名称为Text1，初始值为空的文本框。

程序功能如下：①单击“分解”按钮，程序提示输入一个大于2的整数，并将该数分解为因数的乘积，最后将分解结果显示在Text1 文本框内（如图1－146所示）。

②单击“退出”按钮，则结束程序运行。

请将事件过程中的注释符去掉，把?改为正确的内容，以实现上述程序功能。

注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。

（2）考生文件夹下有工程文件sjt4.vbp，窗体上有一个名称为Cmd1的命令按钮，请对其属性进行设置，使其左边界与窗体左边框的距离为300，标题为“产生可变正方形图案”。

程序功能为：单击“产生可变正方形图案”按钮，则弹出输入框，要求输入可变数；在输入可变数后，将根据可变数在窗体上显示可变正方形图案；图案的最外圈为第1层，且每层上显示的数字与其所处的层数相同。

图1－147（a）为输入可变数6时的可变正方形图案。

图1－147（b）为输入可变数7时的可变正方形图案。

Cmd1按钮的Click事件过程已经给出，但不完整，请将事件过程中的注释符去掉，把?改为正确的内容，以实现上述程序功能。

注意：考生不得修改窗体文件中已存在的程序，最后将程序按原文件名存盘。

正确答案：第1小题【操作步骤】步骤1：打开考生文件夹中的本题工程文件sjt3.vbp，在其中画出一个名为Text1，初始内容为空的文本框。

步骤2：打开代码编辑窗口，去掉程序中的注释符“‘”，将问号“?”改为正确的内容。

国家二级VB机试（上机操作）模拟试卷500(题后含答案及解析)题型有：1.vbp，窗体文件名为sjt1.frm。

（2）在名称为Form1的窗体上画两个文本框，其名称分别为Text1、Text2，初始内容都为空，显示为三号字，且Text1 的初始状态为不可用；再画一个名称为Command1、标题为“开始”的命令按钮，如图1－7所示。

要求：编写适当的事件过程，使得单击“开始”按钮后，Text1文本框变为可用状态，且在Text1 文本框中输入字母串时，Text2文本框中用大写字母形式显示Text1 文本框中的内容。

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

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

正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。

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

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

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

参考代码：Private Sub Command1_Click( ) Text1.Enabled = True End Sub Private Sub Text1_Change( ) Text2.Text = UCase(Text1.Text) End Sub 步骤3：按要求将文件保存至考生文件夹中。

简单应用题2．（1）在考生文件夹下有一个工程文件sjt3.vbp，其功能是：①单击“读数据”按钮，则把考生文件夹下in3.dat文件中的20 个整数读入数组a 中，同时显示在Text1文本框中；②单击“变换”按钮，则数组a 中元素的位置自动对调（即第一个数组元素与最后一个数组元素对调，第二个数组元素与倒数第二个数组元素对调……），并将位置调整后的数组显示在文本框Text2 中。

国家二级VB机试（上机操作）模拟试卷144(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)在名称为Form1的窗体上添加一个名称为L1的标签，标签上标题为“请输入密码”，添加一个名称为Text1的文本框，其宽、高分别为2000和300，设置适当的属性，使得在输入密码时，文本框中品永为“*”字符，此外再把窗体的标题设置为“密码窗口”，以上这些设置都必须在属性窗口中进行，程序运行时的窗体如图所示。

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

(2)在名称为Form1的窗体上添加一个名称为P1的图片框，请编写适当的事件过程，使得程序在运行时，每单击一次图片框，就在图片框中输出“单击图片框”，每单击图片框外的窗体一次，就在窗体中输出“单击窗体”，运行时的窗体如图所示。

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

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

正确答案：(1)【操作步骤】步骤1：新建一个窗体，按照要求建立控件并设置其属性，如图3．11所示。

程序中用到的控件及属性如表3．7所示。

步骤2：调试并运行程序，效果如图3．12所示。

步骤3：关闭程序后按题目要求保存T程和窗体文件。

(2)【操作步骤】步骤1：新建一个窗体，按照题日要求建立控什并设置其属性，如图3．13所示。

步骤2：打开代码编辑窗口，存指定位置编写如下代码。

参考答案Private Sub Form_CliCk( ) Form1．Print”单击窗体”End Sub Private Sub P1_Click( ) P1．Print”单击图片框”End Sub 步骤3：凋试并运行程序，关闭程序后按题目要求存盘。

简单应用题2．(1)在考生文件央下有一个工程文件sit3．vbp，窗体中柯两个图片框，名称分别为P1、P2，其中的图片内容分别是-架航天飞机和一朵云彩，一个命令按钮，名称为C1，标题为“发射”，还有一个计时器，名称为Timer1。

全国计算机等级考试二级VB上机题库(一)图1 图2=+1400=+400=*3最后单击保存按钮，工程命名为,窗体命名为。

=LCase=UCase一、简单应用题（2小题，每小题20分，共计40分）1.在考生目录下有一个工程文件，相应的窗体文件为。

包含所有控件和部分程序，如图所示。

要求：1)利用属性窗口向列表框添加四个项目：Visual Basic,Turbo C,C++,Java;2)请编写适当的程序完成以下功能：当选择列表框中的一项和单选按钮Option1,然后单击“确定”命令按钮，则文本框中显示“XXX笔试”；当选择列表框中的一项和单选按钮Option2，然后单击“确定”命令按钮，则文本框中的一项和单选按钮Option2，然后单击“确定”命令按钮，则文本框中显示“XXX上机”。

其中“XXX”是在列表框中所选择的项目。

If =True then=+End IfIf =True then=+End If最后单击保存按钮。

2．在考生目录下有一个工程文件，相应的窗体文件为。

在窗体上已经有一个命令按钮。

其名称为Command1,标题为“计算并输出”；程序运行后，如果单击命令按钮，程序将计算500以内两个数之间（包括开头和结尾的数）所有连续数的和为1250的正整数，并在窗体上显示出来，这样的数有多组，程序输出每组开头和结尾的正整数，并用“～”连接起来,如图所示，这个程序不完整，请把它补充完整。

要求：去掉程序中的注释符，把程序中的？该为正确的内容，使其实现上述功能，但不得修改程序中的其他部分。

最后把修改的文件按原文件存盘。

Private Sub Command1_Click()Dim i As Integer, j As Integer, iSum As IntegerPrint "连续和为1250的正整数是："For i = 1 T o 500' isum = 0 赋初值For j = i To 500' iSum = j+iSum进行累加If iSum >= 1250 Then Exit ForNext' If iSum = 1250 Then 和是否为1250 Print i; " ～"; jEnd IfNextEnd Sub答案为：1）2)j+iSum 3)1250二、综合应用题（1小题，计40分）在窗体上画一个文本框，名称为Text1,初始内容为空白，并设置多行显示格式；然后再画两个命令按钮，其名称分别为Command1和Command2,标题分别为“显示”和“保存”，如图所示，编写适当的事件过程。

计算机二级VB考试题及答案计算机二级VB考试题及答案「篇一」1.以下程序段运行的结果为(B)(单)Private Sub Form_ClickMyDate = #7/21/1997#Print Format(MyDate, "m/d/yy")Print Format(MyDate,"yyyy年m月dd日")End SubA.7/21/97 1997年7月21日B.7-21-97 1997年7月21日C.97/7/21 1997年7月21日D.7/21/97 97年7月21日2.以下程序段运行的结果为(B)(单)Private Sub Form_ClickMyTime = #9:21:30 PM#MyDate = #7/21/1997#Print Tab(2); Format(MyDate, "mmmm-yy")Print Tab(2); Format(MyTime, "hh:mm:ss A/P")End SubA.July-97 9:21:30 PB.July-97 09:21:30 PC.07-97 9:21:30 PD.July-97 9:21:303.以下程序段运行的结果为(C)(单)Private Sub Form_ClickMyDate = #7/21/1997#Print Format(MyDate, "dddd,mmmm,dd,yyyy")End SubA.21,07,1997B.21,07,21,1997C.Monday,July,21,1997D.Monday,07,21,19974.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Text1_LostFocusIf Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"End IfEnd Sub当在text1文本框中输入字符"abc"之后，单击命令按钮，结果为(B)(单)A.显示对话框，提示信息为"帐号正确"B.显示对话框，提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示5.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Text1_LostFocusIf Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"End IfEnd Sub当在text1文本框中输入数字123456之后，单击命令按钮，结果为(A)(单)A.显示对话框，提示信息为"帐号正确"B.显示对话框，提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示6.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Command1_ClickDim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", 5 + vbExclamation, "输入密码")If I <> 4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"Gong"，则程序运行结果为(A)(单)A.显示对话框，提示"密码帐号正确!"B.显示对话框，提示"密码错误"C.程序出错D.没有任何提示7.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Command1_ClickDim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", 5 + vbExclamation, "输入密码")If I <>4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"gong"，则程序运行结果为(B)(单)A.显示对话框，提示"密码帐号正确!"B.显示对话框，提示"密码错误"C.程序出错D.没有任何提示8.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Command1_ClickDim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", VbRetryCancle + vbExclamation, "输入密码")If I <> 4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"123"，显示"密码错误"对话框，关于此对话框描述正确的是(A)(单)A.显示对话框中有“重试”按钮B.显示对话框中有“确定”按钮C.显示对话框中有“是”按钮D.以上说法都不正确9.在窗体中建立三个文本框，名称分别为text1、text2和text3，还有一个名称为label1的标签，一个名称为command1的命令按钮，编写如下代码：Private Sub Command1_ClickDim x, y, z, t!x = Text1y = Text2z = Text3If x < y Thent = xx = yy = tEnd IfIf y < z Thent = yz = tIf x< y Thent = xx = yy = tEnd IfEnd IfLabel1.Caption = x & "," & y & "," & zEnd Sub当在文本框text1、text2 和 text3 中分别输入5、3和8，则标签显示的结果为(C)(单)A.3,5,8B.5,3,8C.8,5,3D.3.8.510.以下程序段：Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入1，则label1的标题显示结果为(A)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.511.以下程序段：Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入2，则label1的标题显示结果为(B)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.512.以下程序段：Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的'整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入3，则label1的标题显示结果为(C)(单) A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.513.以下程序段：Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数")) Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入4，则label1的标题显示结果为(D)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.514.以下程序段的作用是(A)(单)Private Sub Picture1_ClickDim asci As Integer, i As Integeri = 0For asci = 32 To 126Picture1.Print Tab(7 * i + 2); Chr(asci); "="; asci;i = i + 1If i = 7 Then i = 0: Picture1.PrintNext asciA.打印ASCII码表，一行7个表达式B.打印九九乘法表，一行7个表达式C.打印ASCII码表，一行8个表达式D.以上说法都不正确15.我国现在人口有13亿，按人口增长0.8%计算，多少年后我国人口将超过26亿。

国家二级VB机试（上机操作）模拟试卷598(题后含答案及解析) 题型有：1.jpg />正确答案：【操作步骤】步骤I：新建一个窗体，按照题目要求建立驱动器列表框、目录列表框和文件列表框控件并设置其属性，如图4．28所示。

程序中用到的控件及属性见表4．39和表4．40。

步骤2：打开代码编辑窗口，在指定位置编写如下代码。

参考答案Private Sub Dirl_Change( ) Filel．Path=Dirl．Path’使目录列表框Dirl与文件列表框Filel同步End Sub Private Sub Drivel ( )_Change Dirl．Path=Drivel．Drive′使驱动列表框Drive 1与目录列表框Dirl同步End Sub Private Sub Filel—C1ick( ) Label2=Filel．FileName′显示Filel中的文件名End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。

【易错提示】在编写代码时，“l”(L)和1比较相似，注意不要混淆。

解析：在实际应用中，驱动器列表框、目录列表框和文件列表框通常需要同步操作，这可以通过Path属性的改变引发Change事件来实现。

简单应用题3．考生文件夹下有一个工程文件sjt3．vbp。

程序的功能是：通过键盘向文本框中输入数字，如果输入的是非数字字符，则提示输入错误，且文本框中不显示输入的字符。

单击名称为Commandl、标题为“添加”的命令按钮，则将文本框中的数字添加到名称为Combol的组合框中。

在给出的窗体文件中已经添加了全部控件，但程序不完整。

要求去掉程序中的注释符，把程序中的?改为正确的内容。

注意：不能修改程序中的其他部分和其他控件的属性。

最后把修改后的文件按原文件名存盘。

正确答案：【操作步骤】步骤1：打开本题工程文件。

步骤2：打开代码编辑窗口，去掉程序中的注释符“′”，将问号改为正确的内容。