计算机vb模拟试题
全国计算机等级考试二级VB模拟试题1
⼀、选择题（每题2分，共计70分）1.数据的存储结构是指____。
A、存储在外存中的数据B、数据所占的存储空间C、数据在计算机中的顺序存储⽅式D、数据的逻辑结构在计算机中的表⽰A B C D2.下列关于栈的描述中错误的是：____。
A、栈是先进后出的线性表B、栈只能顺序存储C、栈具有记忆作⽤D、对栈的插⼊与删除操作中，不需要改变栈底指针A B C D3.对于长度为n的线性表，在最坏情况下，下列各排序法所对应的⽐较次数中正确的是____。
A、冒泡排序为n/2B、冒泡排序为nC、快速排序为nD、快速排序为n(n-1)/2A B C D4.对长度为n的线性表进⾏顺序查找，在最坏情况下所需要的⽐较次数为____。
A、log2nB、n/2C、nD、n+1A B C D5.下列对于线性链表的描述中正确的是____。
A、存储空间不⼀定是连续，且各元素的存储顺序是任意的B、存储空间不⼀定是连续，且前件元素⼀定存储在后件元素的前⾯C、存储空间必须连续，且前件元素⼀定存储在后件元素的前⾯D、存储空间必须连续，且各元素的存储顺序是任意的A B C D6.下列对于软件测试的描述中正确的是____。
A、软件测试的⽬的是证明程序是否正确B、软件测试的⽬的是使程序运⾏结果正确C、软件测试的⽬的是尽可能多地发现程序中的错误D、软件测试的⽬的是使程序符合结构化原则A B C D7.为了使模块尽可能独⽴，要求____。
A、模块的内聚程度要尽量⾼，且各模块间的耦合程度要尽量强B、模块的内聚程度要尽量⾼，且各模块间的耦合程度要尽量弱C、模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱D、模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强A B C D8.下列描述中正确的是____。
A、程序就是软件B、软件开发不受计算机系统的限制C、软件既是逻辑实体，⼜是物理实体D、软件是程序、数据与相关⽂档的集合A B C D9.数据独⽴性是数据技术的重要特点之⼀。
vb模拟试题及答案
vb模拟试题及答案1. 以下哪个选项是Visual Basic（VB）的编程语言？A. C++B. JavaC. PythonD. 答案：D2. 在中，以下哪个关键字用于声明一个类？A. FunctionB. ClassC. SubD. Module答案：B3. 在中，以下哪个属性用于获取或设置一个窗体的标题？A. TextB. TitleC. CaptionD. Label答案：C4. 在中，以下哪个方法用于启动一个新的线程？A. StartB. BeginInvokeC. ThreadD. Run答案：A5. 在中，以下哪个数据类型用于表示布尔值？A. BooleanB. StringC. IntegerD. Double答案：A6. 在中，以下哪个选项用于创建一个数组？A. Dim arr(5) As IntegerB. Dim arr As New Integer(5)C. Dim arr As Integer = 5D. Dim arr As Integer(5)答案：A7. 在中，以下哪个关键字用于实现继承？A. InheritsB. ImplementsC. InheritsFromD. Base答案：A8. 在中，以下哪个关键字用于捕获异常？A. TryB. CatchC. FinallyD. All of the above答案：D9. 在中，以下哪个方法用于将一个字符串转换为小写？A. ToLowerB. ToLowercaseC. LowerD. ConvertToLower答案：A10. 在中，以下哪个方法用于将一个字符串转换为大写？A. ToUpperB. ToUppercaseC. UpperD. ConvertToUpper答案：A。
VB机试模拟试卷127(题后含答案及解析)
VB机试模拟试卷127(题后含答案及解析)题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题（30分）1．请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。
(1)在名称为Forml的窗体上画两个文本框，其名称分别为Tcxtl和Text2，它们的高、宽分别为300、2400和1200、2400。
窗体的标题为“窗口”。
请通过属性窗口设置适当的属性满足以下要求：①Text2可以显示多行文本，且有垂直和水平两个滚动条；②运行时在Textl中输入的字符都显示为“*”。
运行后的窗体如图1-166所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。
(2)在名称为Forml的窗体上画一个图像框，名称为tmagcl，其高、宽分别为1900、1700，通过属性窗口把考生文件夹下的图像文件picl．bmp 装入图像框；再画两个命令按钮，名称分别为Cl、C2，标题分别为“放大”、“缩小”，如图1-167所示。
要求：①请编写适当的事件过程，程序运行后，如果单击“放大”按钮，则把图像框的高度、宽度均增加100；单击“缩小”按钮，则把图像框的高度、宽度均减少100。
要求程序中不得使用任何变量。
②通过属性窗口设置图像框的适当属性，使得在放大、缩小图像框时，其中的图像也自动放大、缩小。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：第1小题【操作步骤】步骤l：新建一个“标准EXE”工程，在窗体Forml中画两个文本框，并分别设置它们的相关属性，其属性及值如表2-94所示。
步骤2：按要求将文件保存至考生文件夹中。
第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表2-95在窗体中画出控件并设置其相关属性。
步骤2：打开代码编辑窗口，编写两个命令按钮的Click 事件过程。
参考代码：PriVate Sub C1_Click( ) Imagel．Width=Imagel．Width+100 Imagel．Height=Imagel．Hei．ght+100 End Sub PriVate Sub C2_Click( ) Imagel．Width=Imagel．Width一100 Imagel．Height=Imagel．Hei．ght-100 End Sub 步骤3：按要求将文件保存至考生文件夹中。
vb机试模拟试题(十五套)
附录2 Visual Basic上机模拟试题（1～10套）上机模拟试题 1一、调试程序（程序存盘文件名Test11.frm、Test11.vbp）（40分）在磁盘上有一名为“test11.vbp”的文件（程序界面如图1所示）。
其功能为：单击图片框后，则在图片框Picture1中输出如下所示的图形。
图1该程序中存在多处错误，请调试并改正之（注意：在程序调试过程中，不能删除整个语句，添加语句也不得超过2条。
）二、编程（程序存盘文件名Test12.frm、Test12.vbp）（60分）建立一个窗体，界面如图2所示。
程序功能要求如下：1、单击“查找”按钮后，查找所有四位数中满足条件“奇数位之和与偶数位之和均为素数”的数，并显示列表框list1中。
2、统计找到的满足条件的数的个数。
3、单击“存盘”按钮，将找到的数据存入数据文件“test12out.txt”中。
4、要求编写函数来判断是否是素数。
图2上机模拟试题2一、调试程序（程序存盘文件Test21.frm、Test21.vbp）（40分）在磁盘上有一名为“test21.vbp”的文件（程序界面如图1所示）。
其功能为：当在text1中输入行数和在text2中输入起始字母后，单击命令按钮command1，则在picture1中输出图形如图1所示。
要求：在text2中只能输入一个英文字母字符（大小写均可以），否则，提示错误信息，如图2所示。
图1 图2 该程序中存在多处错误，请调试并改正之（注意：在程序调试过程中，不能删除整个语句，添加语句也不得超过2条。
）二、编程（程序存盘文件名Test22.frm、Test22.vbp）（60分）建立一个成绩查询窗体，界面如图3所示。
程序功能要求如下：图31、在Form1_Load时，打开磁盘文件“test22in.txt”读取数据，并将读入的学号和姓名分别添加进两个列表框中，同时将三门课程的考试成绩读入c，d，e三个数组中（每个数组可定义为200个元素）；并默认选中第一名学生。
计算机vb语言模拟试题一含答案
模拟试题一一、单选题1. VB6.0是一种面向的编程环境。
(A) 机器(B) 对象欢迎使用本资料，祝您身体健康、万事如意，阖家欢乐。
愿同学们健康快乐的成长。
早日为祖国的繁荣昌盛奉献自己的力量(C) 过程(D) 应用2. 以下关于窗体的Name属性的叙述正确的是。
欢迎使用本资料，祝您身体健康、万事如意，阖家欢乐。
愿同学们健康快乐的成长。
早日为祖国的繁荣昌盛奉献自己的力量(A) 窗体的Name属性可以为空(B) 窗体的Name属性是显示在窗体标题栏中的文本(C) 可以在运行期间改变窗体的Name属性欢迎使用本资料，祝您身体健康、万事如意，阖家欢乐。
愿同学们健康快乐的成长。
早日为祖国的繁荣昌盛奉献自己的力量(D) 窗体的Name属性指定窗体的名称，用来标识一个窗体3. 若要使命令按钮不可操作，要对属性进行设置。
(A) EnabIed (B)Visible(C) Backcolor (D)Caption4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过事件获得输入键值的ASCII码。
(A) Change (B) LostFocus(C) KeyPress (D) GotFocus5. 下面是合法的变量名。
(A) pi (B)π(C) print (D) a+k6. 表达式Int(10*Rnd)产生的随机数的范围是。
(A) [1,9] (B) [1,10](C) [0,10] (D) [0,9]7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是。
(A) x=1:y=1:z=1 (B) x=1,y=1,z=1(C) x=y=z=1 (D) xyz=18. VB提供了结构化程序设计的三种基本结构，三种基本结构是。
(A)递归结构、选择结构、循环结构(B)选择结构、过程结构、顺序结构(C)过程结构、输入输出结构、转向结构(D)选择结构、循环结构、顺序结构9. 当VB执行下面语句后，变量a的值为。
VB笔试模拟试卷190(题后含答案及解析)
VB笔试模拟试卷190(题后含答案及解析)题型有：1. 选择题 2. 填空题选择题（每小题2分，共70分）下列各题A、B、C、D四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上。
1．启动Visual Basic后，就意味着要建立一个新( )。
A．窗体B．程序C．工程D．文件正确答案：C2．Visual Basic集成环境的大部分窗口都可以从主菜单项( )的下拉菜单中找到相应的打开命令。
A．编辑B．视图C．格式D．调式正确答案：B3．下列程序段的执行结果为( )。
x=1:y=2 z=x=y Print x；y；zA．1 1 2B．1 1 1C．False FalseD．1 2 False正确答案：D4．货币型数据需( )字节内存容量。
A．2B．4C．6D．8正确答案：D5．有关VB应用程序中过程的说法正确的是( )。
A．过程的定义可以嵌套，但过程的调用不能嵌套B．过程的定义不可以嵌套，但过程的调用可以嵌套C．过程的定义和调用都可能嵌套D．过程的定义和调用都不能嵌套正确答案：B6．下列程序段的执行结果为( )。
a=0:b=1 Do a=a+b b=b+1 Loop Whilea＜10 Print a；bA．105B．abC．01D．1030正确答案：A7．表达式12000+”129”&200的值是( )。
A．12329B．12129200C．12000129200D．12329正确答案：B8．将任意一个正的两位数N的个位数与十位数对换的表达式为( )。
A．(N-Int(N/10)*10)*10+Int(N/10)B．N-Int(N)/10*10+Int(N)/10C．Int(N/10)+(N-Int(N/10))D．(N-Int(N/10)*10+Int(N/10)正确答案：A9．使标签所在处显示背景，应把BackStyle属性设置为( )。
A．0B．1C．TreeD．False正确答案：A10．表达式X+1＞X是( )。
计算机vb模拟题
一、选择题1.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()For n = 1 To 20If n Mod 3<> 0 Then m = m + n \ 3Next nPrint nEnd Sub程序运行后，如果单击命令按钮，则窗体上显示的内容是______。
A.18B.15C.21D.242. 假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。
为了保存该应用程序，以下正确的操作是。
A. 只保存工程文件B. 分别保存窗体模块、标准模块和工程文件C. 只保存窗体模块和标准模块文件D. 只保存窗体模块文件3. 以下关于图片框控件的说法中，错误的是______。
A. 图片框控件可以作为容器使用B. 清空图片框控件中图形的方法之一是加载一个空图形C. 可以通过Print方法在图片框中输出文本D. 用Stretch属性可以自动调整图片框中图形的大小4. 下列程序段的执行结果为______。
A = 0:B = 0For I = -1 To -2 Step -1For J = 1 To 2B = B + 1Next JA = A + 1Next IPrint A; BA. -2 2B. 2 3C. 2 4D. 4 25. 设置复选框中或单选按钮的标题对齐方式的属性是______。
A. AlignmentB. StyleC. SortedD. Align6. 通过以下______窗口可以在设计时直观的调整窗体在屏幕上的位置。
A. 代码窗口B. 属性窗口C. 窗体设计窗口D. 窗体布局窗口7. 在窗体上画2个命令按钮，名称分别为Command1、Command2，并编写如下程序Const n=5,m=4Dim a(m,n)Private Sub Command1_Click()k=1For i=1 To mFor j=1 To na(i,j)=kk=k+1Next jNext iEnd SubPrivate Sub Command2_Click()summ=0For i=1 To mFor j=1 To nIf i=1 Or i=m Thensumm=summ+a(i,j)ElseIf j=1 Or j=n Thensumm=summ+a(i,j)End IfEnd IfNext jNext iPrint summEnd Sub过程Command1_Click()的作用是在二维数组a中存放1个m行n列的矩阵；过程Command2_Click()的作用是______。
全国计算机二级VB模拟试题及答案
全国计算机二级VB模拟试题及答案全国计算机二级VB模拟试题及答案计算机二级考试是全国计算机等级考试（National Computer Rank Examination，简称NCRE）四个等级中的一个等级，考核计算机基础知识和使用一种高级计算机语言编写程序以及上机调试的基本技能。
那么全国计算机二级VB考试怎么考？以下仅供参考！1.在待排序的元素序列基本有序的前提下，效率最高的排序方法是(C)A)冒泡排序B)选择排序C)快速排序D)归并排序2.非空的循环单链表head的尾结点(由p所指向)，满足(A)A)p->next==NULLB)p==NULLC)p->next=headD)p=head3.线性表的顺序存储结构和线性表的链式存储结构分别是(C)A)顺序存取的存储结构、顺序存取的存储结构B)随机存取的存储结构、顺序存取的存储结构C)随机存取的存储结构、随机存取的存储结构D)任意存取的存储结构、任意存取的存储结构4.结构化程序设计所规定的三种基本控制结构是(D)A)输入、处理、输出B)树形、网形、环形C)顺序、选择、循环D)主程序、子程序、函数5.下列不属于软件调试技术的是(D)A)强行排错法B)集成测试法C)回溯法D)原因排除法6.软件生命周期中花费时间最多的阶段是(B)A)详细设计B)软件编码C)软件测试D)软件维护7.软件设计中，有利于提高模块独立性的一个准则是(A)A)低内聚低耦合B)低内聚高耦合C)高内聚低耦合D)高内聚高耦合8.数据库的故障恢复一般是由(D)A)数据流图完成的B)数据字典完成的C)DBA完成的D)PAD图完成的9.下列关系运算的叙述中，正确的是(B)A)投影、选择、连接是从二维表行的方向进行的运算B)并、交、差是从二维表的列的方向来进行运算C)投影、选择、连接是从二维表列的方向进行的运算D)以上3种说法都不对10.在关系数据库中，对一个关系做投影操作后，新关系的元组个数将(A)A)等于原来关系中的'元组个数B)大于原来关系中的元组个数C)小于原来关系中的元组个数D)不能确定元组个数11.以下不具有Picture属性的对象是(B)A)窗体B)图片框C)图像框D)文本框12.双击窗体中的对象后，Visual Basic将显示的窗口是(D)A)项目(工程)窗口B)工具箱C)代码窗口D)属性窗口13.若要将窗体从内存中卸载，其实现的方法是(A)A)ShowB)UnLoadC)LoadD)Hide14.要使目录列表框(名称为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.Drive15.设有如下声明：Dim x As Integer如果Sgn(x)的值为-1，则表示x的值是(A)A)整数B)大于0的整数C)等于0的整数D)小于0的数16.下述说法不正确的是(B)A)变量名的长度不能超过255个字符B)变量名可以包含小数点或者内嵌的类型声明字符C)变量名不能使用关键字D)变量名的第一个字符必须是字母17.下列可作为Visual Basic变量名的是(A)A)FilenameB)A(A+B)C)A%DD)Print18.语句Print Sgn(-6^2)+Abs(-6^2)+Int(-6^2)的输出结果是(BD)A)-36B)1C)-1D)-7219.下面说法中，不正确的是(D)A)Cls清除由Print方法显示的文本或在图片框中显示的图形，并把光标移到对象的左上角(0,0)B)当前窗体是用Picture属性装入的图形时，也可以用Cls方法清除C)Move方法用来移动窗体和控件，并改变其大小D)Cls方法中的对象，可以是窗体或图片框，如果省略则清除当前窗体中显示的内容20.假定在图片框Picturel中装入了一个图形，为了清除该图形(注意，清除图形，而不是删除图片框)，应采用的正确方法是(D)A)选择图片框，然后按Del键B)执行语句 Picturel.picture=LoadPicture("")C)执行语句 Picturel.picture=""D)选择图片框，在属性窗口中选择Picture属性条，然后按回车键21.线性表L=(a1,a2,a3,…ai,…an)，下列说法正确的是(D)A)每个元素都有一个直接前件和直接后件B)线性表中至少要有一个元素C)表中诸元素的排列顺序必须是由小到大或由大到小D)除第一个元素和最后一个元素外，其余每个元素都有一个且只有一个直接前件和直接后件22.设树T的度为4，其中度为1,2，3,4的结点个数分别为4,2，1,1。
计算机VB语言模拟试题二含答案
模拟试题二一、单选题1. 以下关于Visual Basic 特点的叙述中，错误的是 。
(A) 构成Visual Basic 程序的多个过程没有固定的执行顺序 (B) Visual Basic 程序只能编译运行(C) Visual Basic 是采用事件驱动编程机制的语言(D) Visual Basic 是结构化程序，具备结构化程序的三种基本结构 2. 有程序代码如下:Tex1.Text=" Tex1.Text "则Tex1、Text 、" Tex1.Text "分别代表 。
(A) 对象、值、属性 (B) 对象、方法、属性(C) 对象、属性、值 (D) 属性、对象、值 3. 下面关于对象的描述中， 是错误的。
(A) 在Visual Basic 中，对象所能响应的事件是由系统定义的(B) 对象的任何属性既可以通过“属性”窗口设定，也可以通过程序语句设定 (C) Visual Basic 中允许不同对象具有相同属性和方法 (D) Visual Basic 中的对象具有自己的属性和方法 4. 任何控件共同具有的是 属性。
(A) Text (B) Name (C) ForeColor (D) Caption5. 与数学表达式cd ab3对应 ，不正确的VB 算术表达式是 。
(A) a*b/(3*c*d) (B) a/3*b/c/d (C) a*b/3/c/d (D) a*b/3*c*d 6. InputBox 函数返回值的类型是 。
(A) 整型数值 (B) 字符串 (C) 变体 （D ） 数值或字符串 7. 下面正确的赋值语句是 。
(A) x+y=30 (B) y= *r*r (C) y=x+30 (D) 3y=x 8. 下面程序段运行后，显示的结果是 。
Dim x If x Then Print x Else Print x+1(A)l (B)O (C)-1 (D)显示出错信息9. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程，程序运行后，如果在“输入”对话框中输入3，则窗体上显示的是 。
Vb十套模拟题及答案
Vb答案第一套1 在名称为FORM1 的窗体上放置一个名为TEXT1 的文本框控件和一个名为TIMER1的计时器控件，请设置计时器的适当属性并且编写适当的事件过程，使得程序运行后，文本框中显示的是当前的时间，而且每一秒文本框中所显示的时间都会随时间的变化而改变。
（如示例所示）*****注意：程序中不得使用任何变量，只能写一条语句；保存时必须存放在考生文件夹下，窗体文件名为SJT1.FRM，工程文件名为SJT1.VBP。
Private Sub Timer1_Timer()Text1.Text = TimeEnd Sub2 在窗体FORM1上画一个组合框，名称为CBO1,有“长跑”、“游泳”、“跳远”三个可供选择项。
再画一个命令按钮，名称为CMD1,标题为“确定”。
编写适当的事件过程，使得程序运行时，选择组合框中的某项，单击命令按钮后，就会弹出一个消息框，内容为“您选择了(某项)”如[示例]。
注意：1)程序中不得使用任何变量。
2)保存时必须存放在考生文件夹下，窗体文件名为SJT2.FRM,工程文件名为SJT2.VBPPrivate Sub Cmd1_Click()MsgBox "您选择了" & CBO1.TextEnd Sub3 在考生文件夹中有文件SJT3.VBP及其窗体文件SJT3.FRM，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。
存盘时不得改变文件名和文件夹。
本题描述如下：在窗体上画一个名称为TEXT1的文本框，小四号字，再画两个名称分别为CH1和CH2，标题分别为"C 程序设计"和"VB程序设计"的复选框，小四号字，一个名称为C1，标题为"确定"的命令按钮。
编写适当的事件过程，要求程序运行后，如果只选中CH1，然后单击"确定"命令按钮，则在文本框中显示"学习C程序设计";如果只选中CH2，然后单击"确定"命令按钮，则在文本框中显示"学习VB程序设计"；如果同时选中CH1和CH2，然后单击"确定"命令按钮，则在文本框中显示"学习C程序设计VB程序设计"。
VB模拟试卷参考答案
计算机等级考试二级VB模拟试卷(一)杭州师范学院钱江学院计算机等级考试二级VB模拟考试参考答案一、计算机基础题（共15分）二、VB程序设计（共85分）（四）程序阅读题（20分，每题4分）1、4 5 62、101103、1 9 8 7 6 5 4 3 2 101 7 6 5 4 32 8 9 104、1 4 65、wFg,C4d5（五）程序设计题（25分，题1为5分）1、Public Function g(x As Single, eps As Single) As SingleDim e&, t!, i%If x < -1 Or x > 1 Theng = 0Elsee = 1i = 1Doe = e * it = (i + x) / eg = g + ti = i + 1Loop Until t < epsEnd IfEnd Function2、Private Sub Form_Click()Dim a(1 To 50) As Integer, i%, s!For i = 1 To 50a(i) = Val(InputBox("请输入一个数")) Next is = 0For i = 1 To 50s = s + a(i)Next is = s / 50Open "g:\data.txt" For Output As #1For i = 1 To 50If a(i) > s Then Print #1, a(i)Next IClose #1End Sub3.Dim n%Private Sub Command1_Click()n = Val(InputBox("输入要计时的秒数")) Timer1.Enabled = TrueCommand1.Enabled = FalseEnd SubPrivate Sub Form_Load()Form1.Caption = "到计时牌"Command1.Caption = "设置"Timer1.Interval = 1000Timer1.Enabled = FalseLabel1.Caption = "计时"End SubPrivate Sub Timer1_Timer()n = n - 1h = n \ 3600m = (n Mod 3600) \ 60s = n Mod 60Label1 = "还剩" & h & "小时" & m & "分" & s & "秒" If n = 0 ThenTimer1.Enabled = FalseLabel1 = "时间到！"Command1.Enabled = TrueEnd IfEnd Sub。
VB模拟试题试及参考答案
VB模拟试题试及参考答案2016VB模拟题第⼀套单项选择题得分：1: 计算机的基本⼯作原理是__C______。
A. 可靠性与可⽤性B. ⾼速度与⾼精度C. 存储程序与程序控制D. 具有记忆功能2: 计算机中数据的表⽰形式是____A____。
A. ⼆进制B. ⼋进制C. ⼗进制D. ⼗六进制3: 电⼦邮件标识中带有⼀个“别针”，表⽰该邮件_____C_。
A. 设有优先级B. 带有标记C. 带有附件D. 可以转发4: 安装防⽕墙的主要⽬的是__C______。
A. 提⾼⽹络的运⾏效率B. 对⽹络信息进⾏加密C. 保护内⽹不被⾮法⼊侵D. 防⽌计算机数据丢失5: 淘宝⽹的⽹上购物属于计算机现代应⽤领域中的___C___。
A. 计算机辅助系统B. 电⼦政务C. 电⼦商务D. 办公⾃动化6: Visual Basic中标准模块⽂件的扩展名是____D__。
A. FrmB. VbpC. ClsD. Bas7: 启动程序时，系统⾃动执⾏启动窗体的___A___事件过程。
A. LoadB. UnloadC. ClickD. DblClick8: 下列_____C_⽅法可以显⽰窗体。
A. HideB. UnLoadC. ShowD. WindowState9: 已知a="123456789"，则表达式Mid(a, 5, 2) + Left(a, 2)的值是_____B___。
A. "5689"B. "5612"C. 68D. 125610: 下列不正确的赋值语句是__C____。
A. x=30-yB. y=x+30C. x+y=30D. y=x\311: 下列选项中，合法的变量名是_B______ 。
A. 1_xB. x_1C. x-1D. x 112: 下列选项不是Visual Basic基本数据类型的是______A__。
A. CharB. StringC. BooleanD. Double13: 在下列表达式中，正确的⽇期型常量是__D____ 。
VB 模拟试题(有答案)
VB大小模拟试题满分：230分姓名：________1、单项选择题(本题共计142分)1、能被对象所识别的动作与可执行的活动分别称为对象的____d___。
( )A、方法、事件B、事件、方法C、事件、属性D、过程、方法2、VisualBasic是用于开发____b____环境下的应用程序的工具。
( )A、DOSB、WindowsC、DOS和WindowsD、UNIX3、对象在响应某个事件时，计算机要执行一段程序，以完成相应的操作，这样的程序片段叫做_b___过程。
( )A、方法B、事件C、调动D、编译4、VisualBasic中的工程文件的扩展名是______d______。
( )A、.regB、.frmC、.basD、.vbp5、VisualBasic中的标准模块文件的扩展名是___b_________。
( )A、.regB、.frmC、.basD、.vbp6、VisualBasic中的窗体文件的扩展名是________a____。
( )A、.regB、.frmC、.basD、.vbp7、一只白色的足球踢进球门，则白色、足球、踢、进球门是___a_____。
( )A、属性、对象、方法、事件B、属性、对象、事件、方法C、对象、属性、方法、事件D、对象、属性、事件、方法8、VisualBasic是一种面向___a_____的程序设计语言。
( )A、过程B、用户C、方法D、对象9、用窗体的___c_____属性来设置窗体的标题。
( )A、StyleB、TextC、CaptionD、Name10、如果要在两个菜单命令项之间加一条分隔线，可在标题文本框中键入___Ｃ_____。
( )A、-B、+C、&D、#11、在VisualBasic最基本的对象是___Ｂ_____，它是应用程序的基石。
( )A、标签B、窗体C、文本框D、命令按钮12、VisualBasic程序设计时常用的Print、Cls属于_Ｃ_______。
VB机试模拟试卷2(题后含答案及解析)
VB机试模拟试卷2(题后含答案及解析)题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题（30分）1．注意：下面出现的“考生文件夹”均为c:\wexam\25160001。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体中建立一个名称为Cmd1，标题为“显示”的命令按钮，如图2-1所示。
要求程序运行后，如果单击“显示”按钮，则执行语句Form1.Print“显示”：如果单击窗体，则执行语句Form1.Cls。
注意：保存时必须存放在考生文件夹下，窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。
(2)在名称为Form1的窗体上建立一个水平滚动条，名称为HS1，其最大值为100，最小值为0。
要求程序运行后，每次移动滚动框时，都执行语句Forml．Print HSl．V alue，如图2-2所示(程序中不能使用任何变量)。
注意：保存时必须存放在考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。
正确答案：(1)在窗体上建立好控件后，先设置控件属性，再编写事件过程。
命令按钮的标题由Caption属性设置，单击命令按钮触发Click事件。
在窗体上打印信息用Print方法，清除窗体上的打印信息使用Cls方法，这两条语句在题目中已经给出，只要将其放入适当的事件过程中即可。
解题步骤：第一步：建立界面并设置控件属性。
本题只用到了1个命令按钮，将其Caption属性设置为“显示”，Name属性设置为Cmd1。
第二步：编写代码。
参考代码：Private Sub Cmd1_Click( ) Form1.Print“显示”End Sub Private Sub Form_Click( ) Form1.Cls End Sub 第三步：调试并运行程序。
第四步：按题目要求存盘。
(2)在窗体上建立好控件后，先设置控件属性，再编写事件过程。
VB机试模拟试卷99(题后含答案及解析)
VB机试模拟试卷99(题后含答案及解析)题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题（30分）1．(1)在窗体Forml上画一个命令按钮，名称为Command1，标题为“打开文件”，在窗体上添加适当的控件并编写适当的程序代码，要求程序运行时，单击“打开文件”命令按钮，可以弹出“打开文件”对话框。
程序运行时的窗体界面如图5—1所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sj1．frm，工程文件名为sj1.vbp。
(2)在窗体Forml上画一个列表框，名称为List1，有“Item1”、“Item2”、“Itera3”和“Item4”4个表项。
要求编写适当的程序代码，当双击列表中某一项时，弹出一个对话框提示“是否删除”。
对话框中只有“是”与“否”两个选择按钮，单击按钮，则继续当前的操作。
程序运行时的窗体界面如图5—2所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为si2．vbp。
正确答案：(1)通用对话框(CommonDialog)提供诸如打开文件、保存文件、设置打印选项、选择颜色、设置字体、显示帮助等操作的一组标准对话框，通用对话框显示这对话框对应的方法分别为ShowOpen、ShowSave、ShowPrinter、ShowColor、ShowFont、ShowHelp。
该控件运行时不可见。
通用对话框的Action 属性也可用于设置被打开对话框的类型。
根据题意，新建“标准EXE”工程，一个命令按钮和一个文件对话框控件添加到窗体中，CommonDialog控件需要选择“工程”→“部件”命令，或在左侧工箱中单击鼠标右键，选择“部件”菜单，打开“部件”对话框，将Microsoft Common Dialog Control 6．0前面的复选按钮勾上，单击“确定”按钮，则添加成功，再同其他控件一样添加到窗体上，其名称为CommonDialogl。
计算机vb模拟试题
计算机vb模拟试题一、单选题（本大题共25题，每题2分，共50分）1、不属于VB三种工作模式的是（）。
A.设计模式B.运行模式C.调试模式D.中断模式2、窗体的前景颜色由（）属性设置。
A.BorderStyleB.BackColorC.ForeColorD.FillStyle3、当窗体被启动时，（）事件将会发生。
A.LoadB.UnloadC.QueryUnoadD.CLs4、每个窗体对应一个窗体文件，窗体文件的扩展名是（）。
A..basB.clsC.frmD.vbp5、可用来清除窗体内容的方法是（）。
A.PrintB.InputBoxC.ClsD.Clear6、下列语句有语法错误的是（）。
A.a＝5C.b=“a”D.5=a7、表达式1＋((2＋3)*2)*2的值是（）。
A.26B.22C.21D.248、产生大于等于10且小于20的随机整数的表达式为（）。
A.Int(Rnd(10)＋10)B.Int(Rnd*10+10)C.Int(Rnd*10+11)D.Int(Rnd*20-10)9、求字符串长度的函数是（）。
A.LenB.longC.LengthD.Val10、若要使定时器暂停，应将其（）属性设置值设为False。
A.IntervalB.ValueC.TextD.Enabled11、下列可作为Visual Basic的变量名的是（）。
A.AbtB.TAC.IFD.A[B]T12、VB中可用（）语句产生一消息框。
A. InputBoxC. BothD.MsgBox13、以下程序段的输出结果是（）Print Format(12345.6,"0.00E+00")A.1.23E+04B.1.23E+4C.1.23456E+04D.1.23456E+414、执行下面的语句后，所产生的信息框的标题是（）。
a = MsgBox("AAAA", "BBBB", "", 5)A.BBBBB.空C.AAAAD.出错，不能产生信息框15、以下程序段的输出结果是（）。
VB机试模拟试卷79(题后含答案及解析)
VB机试模拟试卷79(题后含答案及解析)题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题（30分）1．(1)在名称为Forml的窗体上建立一个二级下拉菜单。
一级菜单的标题为“文件”，名称为vbFile，有效；二级菜单有两项，一项标题为“打开”，名称为“vbOpen”，有效，命令执行的快捷方式为Crtl+N，一项标题为“保存”，名称为“VbSaVe”，执行快捷键方式为Ctrl十S，有效，另一项标题为“关闭”，名称为“vbClose”，无效，命令执行的快捷方式为Ctrl+C。
程序运行时，窗体界面如图56—1所示。
注意：存盘时必须存放到考生文件夹下，工程文件名为sjl．vbp，窗体文件名为sjl．frm。
(2)在名称为Forml的窗体上绘制一个名为Textl的文本框控件和一个名为Timerl的计时器控件，程序运行后，文本框中显示的是当前的日期和时间，而且每一秒文本框中所显示的时间都会随时间的变化而改变，如图56—2所示。
注意：程序中不得使用任何变量；保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sj2．Vbp。
正确答案：(1)根据题意，新建“标准EXE”工程，打开菜单编辑器，添人以下几项：单击按钮运行程序，并按要求保存。
(2)根据题意，新建“标准EXE”工程，将一个Timer控件和一个Text控件添加到窗体上，Timer的名称为Timerl、Interval属性为1 000毫秒，Text的名称为Textl、Text属性为空。
双击Timerl，进入代码窗口，编写如下代码：Private Sub Timerl_Timer( ) Textl．Text=Date+Time End Sub 单击按钮运行程序，并按要求保存。
简单应用题（40分）2．(1)在考生文件夹下有一个工程文件sj3．vbp，相应的窗体文件为sj3．frm。
其功能是随机产生30个0～1000的整数，放入一个数组中，然后输出其中的最小值。
VB机试模拟试卷108(题后含答案及解析)
VB机试模拟试卷108(题后含答案及解析)题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题（30分）1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Forml的窗体上放置两个列表框，名称分别为Listl和Ljst2。
在Listl 中添加“Iteml”…“Itern6”，并设置MultiSelect属性为2(要求在控件属性中设置实现)。
再放置一个名称为Commandl、标题为“导出”的命令按钮。
程序运行后，如果单击“导出”按钮，将Listl中选中的内容(至少三项)复制到List2中，并将对应的项从Listl中删除。
如果选择的项数少于3项，用消息框提示“请选择至少3项”，如图63—1所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sjl．frm，工程文件名为sjl．vbp。
(2)在名称为Forml的窗体上放置一个名称为Textl的文本框。
程序运行后，用户在文本框中输入的英文字母一律用小写显示。
如图63—2所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sj2．vbp。
正确答案：(1)向列表框中添加项目可以用AddItem方法添加，也可以在属性窗口中进行。
列表框的Text属性为最后一次选中的表项的文本。
根据题意，新建“标准EXE”工程，将两个列表框控件和一个命令按钮添加到窗体中，列表框的名称分别为Listl和List2，在Listl中List属性中添加“Iteml”、“Item2”、“Item3”、“Item4”、“Item5”和“Item6”，命令按钮的名称为Commandl、Caption 属性为“导出”，在Listl中选中的项，通过for循环进行复制并删除。
补充后的具体代码如下：Private Sub Commandl_Click( ) Dim i As Integer i=1 If Listl．SelCount按钮运行程序，并按要求保存。
VB机试模拟试卷63(题后含答案及解析)
VB机试模拟试卷63(题后含答案及解析)题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题（30分）1．(1)在名称为Form1的窗体上添加一个名称为Command1的命令按钮，标题为“打开文件”，再添加一个名称为CD1的通用对话框。
程序运行后，如果单击命令按钮，则弹出打开文件对话框，请按下列要求设置属性和编写代码：设置适当属性，使对话框的标题为“打开文件”；使对话框的“文件类型”下拉式组合框中有两项可供选择：“文本文件”、“所有文件”，如图9—1所示，默认的类型是“所有文件”；编写命令按钮的事件过程，使得单击按钮可以弹出打开文件对话框。
程序中不得使用变量，事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sj1．vbp，窗体文件名保存为sj1．frm。
(2)在名称为Form1的窗体上添加一个名称为Cormmand1的命令按钮，其标题为“移动本按钮”，如图9—2所示。
要求编写适当的事件过程，使得程序运行时，每单击按钮一次，按钮向左移动100。
要求：程序中不得使用变量，事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sj2．vbp，窗体文件名保存为sj2．frm。
正确答案：(1)本题主要考查通用对话框的使用。
通用对话框的属性可以在属性窗口中直接设置。
文件类型在其中Filter属性中设置，其格式为：文件说明|文件类型。
根据题意，新建“标准EXE”工程，将一个命令按钮和一个文件对话框添加到窗体中，命令按钮的名称为Commandl，Caption属性为打开文件，文件对话框控件的名称为CD1，并将其Filter属性设置为：文本文件|*．txt |所有文件|*．txt。
其中，添加文件对话框控件要选择“工程”→“部件”命令，打开“部件”对话框。
并将Microsoft Common Dialog Control 6．0前的复选按钮选中，单击“确定”按钮将其添加上工具箱中，然后再像其他控件一样使用。
VB模拟题及参考答案
VB丸习越一一、判断(4小题1分，共20分。
请将答案涂在答瓯卡上，正确的涂A,措误的涂B)1.Visual Basic 6.0工作模式有3种：它们是没计、运行和调试。
()2.标签支持Dblclick事件。
(2 )3.窗体中控件的位置由Height和Top,同性确定。
(3 )4.滚动条的SmallChangeW性设置为5时.表示单击滚动条两端的箭头时变化为5.(4 )5.当把定时器控件的Visible属性设置为True时.运行时定时器在窗体上就可见了•( 5 )6.Vbred 是Visual Basic 6.0 允许的常量•( 6 )7.#25/6/2018#是Visual Basic 6.0合法的日期型常信书写。
(7 )8.逻辑运算符Not的优先级比Or高。
(8 )9.Visual Basic 6.0 中可■以用print 做变量名。
(9 )10.表达式5 mod 4与5\4的结果相同。
(10 )11.诏句if x>=60 and x<70 then print 格”是正确的。
(11 )12.select case语句必须有End select ifi句与之相匹配。
(12 >13.Exit for 是Do 循环的一个出口。
( 13 )14.选择结构与循环结构可以相互散套，并且允许交叉嵌套•( 14 )15.Visual Basic 6.0 中，Dim a(-5 to 5) as single 是正确的数组定义.(15 )16.可以用Ubound。
函数返回数组卜,标的卜界M 16 )17.过程体内可以再定义另外一个过程。
< 17 )18.实参是变量，旦过程定义时与其对应的形参用Byval关键字加以PU制是地址(引用)传递。
(18 )19.用Output模式打开文件.如果指定的路径不存在，则会自动先创建指定的路径，然后再创建文件。
< 19 )20.Visual Basic 6.0中，文件号最大可取的但是511. ( 20 )二、单项选择题：(每小超1分，共30分。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
一、单选题（本大题共25题，每题2分，共50分）1、不属于VB三种工作模式的是（）。
A.设计模式B.运行模式C.调试模式D.中断模式2、窗体的前景颜色由（）属性设置。
A.BorderStyleB.BackColorC.ForeColorD.FillStyle3、当窗体被启动时，（）事件将会发生。
A.LoadB.UnloadC.QueryUnoadD.CLs4、每个窗体对应一个窗体文件，窗体文件的扩展名是（）。
A..basB.clsC.frmD.vbp5、可用来清除窗体内容的方法是（）。
A.PrintB.InputBoxC.ClsD.Clear6、下列语句有语法错误的是（）。
A.a＝5B.b＝aC.b=“a”D.5=a7、表达式1＋((2＋3)*2)*2的值是（）。
A.26B.22C.21D.248、产生大于等于10且小于20的随机整数的表达式为（）。
A.Int(Rnd(10)＋10)B.Int(Rnd*10+10)C.Int(Rnd*10+11)D.Int(Rnd*20-10)9、求字符串长度的函数是（）。
A.LenB.longC.LengthD.Val10、若要使定时器暂停，应将其（）属性设置值设为False。
A.IntervalB.ValueC.TextD.Enabled11、下列可作为Visual Basic的变量名的是（）。
A.AbtB.TAC.IFD.A[B]T12、VB中可用（）语句产生一消息框。
A. InputBoxB.ShiftC. BothD.MsgBox13、以下程序段的输出结果是（）Print Format(12345.6,"0.00E+00")A.1.23E+04B.1.23E+4C.1.23456E+04D.1.23456E+414、执行下面的语句后，所产生的信息框的标题是（）。
a = MsgBox("AAAA", "BBBB", "", 5)A.BBBBB.空C.AAAAD.出错，不能产生信息框15、以下程序段的输出结果是（）。
Print 1;2;Print 3A.1 2 3B.1 23C.123D.12 316、下列关于Do While …Loop和Do…Loop Until循环执行循环次数的描述正确的是（）。
A.Do While …Loop循环和Do…Loop Until循环至少都执行一次B.Do While …Loop循环和Do…Loop Until循环可能都不执行C.Do While …Loop循环至少执行一次和Do…Loop Until循环可能不执行循环D.Do While …Loop循环可能不执行和Do…Loop Until循环至少执行一次17、默认条件下，语句Dim a(3,4,5)定义的数组中所包含的数组元素的个数是（）。
A. 12B.60C.120D.34518、数学关系3≤x<10对应的Visual Basic表达式是（）。
A. 3<=x<10B.3<=x AND x<10C.x>=3 OR x<10D. 3<=x AND <1019、设a=5，则执行x＝IIf(a>6,-1,0)后，x的值为（）。
A.5B.6C.0D.-120、在运行时，若要获得文本框中所选的文本的起始位置，可通过访问（）属性来实现。
A.SelStartB.SelLengthC.TextD.SelText21、以下关于数组的说法，不正确的是（）。
A.数组是一种特殊的数据类型B.一个数组中可存放多种类型的数组C.数组是一组相同类型的变量的集合D.运行时可改变动态数组或静态数组的大小22、已知A(1)=1,A(2)=2,A(3)=3,则A(A(3)-A(1))=( )。
A.0B.1C.2D.323、以下程序段的输出结果是（）。
N=13: a=2m=n mod 10Select Case mCase is<0: a= -1Case is=0: a=0Case is>0: a=1End selectPrint aA.-1B.0C.1D.224、假定有以下程序段AFor I=1 to 3For j=5 to 1 step –1Print I*jNext j,I则语句Print I*j的执行次数是（）。
A.15B.16C.17D.1825、关于条件语句，下列说法错误的是（）。
A.条件语句中的“条件”可以是逻辑表达式或关系表达式B.条件语句中的“条件”可以是数值表达式，非0值表示true，0值表示falseC.在块结构条件语句中，“语句块”中的语句不能与then在同一行上D.块结构的条件语句和单行结构的条件语句都必须以End if结束二、填空题（本大题共8题，每题2分，共16分）1、具有特殊属性和行为方法的一个可视化实体称为（）。
2、设x=4,y=8,z=7，表达式x<y And (Not y>z) Or z<x的值是（）。
3、欲使某命令按钮失效，应修改命令按钮的( )属性。
4、声明单精度常量P1代表3.14159的语句为（）。
5、执行下列程序段，x的值为（）。
x=5For i=1 to 20 Step 2x=x+i\56、已知文本框的内容为“ABCDE”,若文本框Selstart=4,Sellength=2,则SelText为（）。
7、表示x是5的倍数或是9的倍数的逻辑表达式为( )。
8、End Sub设x的初值为-5，则由下列循环语句控制的循环次数是（）。
Do While x>=5x=x-1Loop三、程序填空题（本大题共2题，每题4分，共8分）1、输入某班45名同学的数学成绩,并计算该班数学成绩的总分,平均分。
Private Sub Command1_Click( )Dim score(1 To 45) As SingleDim i As Integer, sum As SingleDim aver As Single, str1 As Stringsum = 0For i = 1 To 45str1 = "请输入第" + Str(i) + "个同学的成绩："score(i) = ( )(InputBox(str1, "输入成绩"))sum = ( )Next iaver = sum / 45Label1.Caption = Label1.Caption + Str(sum)Label2.Caption = Label2.Caption + Str(aver)End Sub2、如果我国工农业生产值每年以12%增长率递增，问多少年后产值翻一番？Dim x As IntegerDim y As Singlex = 0: y = 1Doy = y * 1.12( )Loop Until ( )Print x; "年后产值翻一番"四、程序阅读（本大题共2题，每题3分，共6分）1、有3*3的矩阵，写出下列程序的功能。
s = 0For i = 1 To 3For j = 1 To 3If i = j Thens = s + a(i, j)End IfNext jNext iPrint s2、在窗体上有一个文本框控件，名称为TxtTime；一个计时器控件，名称为Timer1。
程序如下，写出程序Private Sub Timer1_Timer ()TxtTime.text=Now()End Sub五、编程题（本大题共3题，共20分）1、求n!,n由键盘输入。
n值由text1文本框输入，结果由text2文本框输出。
（6分）2、输出九九乘法表。
（7分）3、设计一个口令检测程序，界面如下图，当用户输入的口令正确时，显示“恭喜！，您已成功进入本系统”，否则，显示，“口令错！，请重新输入”。
如果连续两次输入了错误口令，在第三次输入完口令后则显示一个消息框，提示“对不起,您不能使用本系统”，然后退出整个应用程序。
（7分）一、单选题（本大题共25题，每题2分，共50分）1、C2、C3、A4、C5、C6、D7、C8、B9、A 10、D11、A 12、D 13、A 14、D 15、A16、D 17、C 18、D 19、C 20、A21、D 22、C 23、C 24、A 25、D二、填空题（本大题共8题，每题2分，共16分）1、对象2、FALSE3、Enabled4、Const PI=3.141595、216、DE7、x mod 5=0 OR x mod 9=0 8、0三、程序填空题（本大题共2题，每题4分，共8分）1、Val sum + score(i)2、x = x + 1 y >= 2四、程序阅读（本大题共2题，每题3分，共6分）1、输出对角线上的元素之和。
2、每一秒钟在文本框中显示一次当前的时间。
五、编程题（本大题共3题，共20分）1、求n!,n由键盘输入。
n值由text1文本框输入，结果由text2文本框输出。
（6分）Private Sub command1_click()Dim n as integer,f as long 1分n=text1.text 1分f=1 1分for I=1 to n 1分f=f*I 1分next Itext2.text=f 1分end sub2、输出九九乘法表。
（7分）Private Sub Command1_Click()For I = 1 To 9For j = 1 To IPrint I & "*" & j & "="; I * j;Next jPrintNext IEnd Sub3、（7分）Private Sub Text1_KeyUp(KeyCode As Integer, _ Shift As Integer)Static I As Integer ' 保存输入错误口令的次数If KeyCode = 13 Then ' 如果按下的键为回车键If UCase(Text1.Text) = "HELLO" ThenLabel2.Caption = "恭喜!,您已成功进入本系统"ElseIf I = 0 Or I = 1 ThenI = I + 1Label2.Caption = "口令错!,请重新输入"Text1.SelStart = 0Text1.SelLength = Len(Text1.Text)ElseMsgBox "对不起,您不能使用本系统": EndEnd IfEnd IfEnd Sub。