vb模拟题
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模拟试卷和答案
北京语言大学网络教育学院《VB 〉模拟试卷一1. 试卷保密，考生不得将试卷带出考场或撕页，否则成绩作废。
请监考老师负责监督。
2. 请各位考生注意考试纪律，考试作弊全部成绩以零分计算。
3. 本试卷满分100分，答题时间为90分钟。
4. 本试卷分为试题卷和答题卷，所有答案必须答在答题卷上，答在试题卷上不给分。
一、【单项选择题】（本大题共20小题，每小题2分，共40分）在每小题列出的四个选 项中只有一个选项是符合题目要求的，请将正确选项前的字母填在 答题卷相应题号处1、关于VB 的特点描述错误的是（ ）。
[A] VB 编程是可视化编程 [C]不可以访问数据库2、下面关于鼠标的指针设置说法不正确的是（ [A] 可以使用Mouselcon 设置鼠标的形状 [B] 可以使用MousePo in ter 设置鼠标的形状[B]是面向对象的程序设计 [D]采用事件驱动编程机制）。
[C] MousePointer 设为 99 时，可用 [D] MouseIcon 只能通过属性窗口选择鼠标形状3、 Dim Snow （ 1 to 12 ， 1），As Integer [A]13*2 [B] 13*14、 在工具箱里的都是（）。
[A]标准控件 [C] ActiveX 控件5、 一个窗体大小改变时被触发的事件是（ [A] Click 事件 [C] Initialize 事件6、 下列关于控件说法不正确的是（ [A] Age nt 控件用于设置动画行为[B] TextBox 用于接收用户输入的信息 MouseIcon 设置鼠标的形状是大小为（）的二维数组。
[C] 12*2 [D] 12*1[B]外部控件[D] 可插入对象（OLE ））。
[B] Resize 事件 [D] Un load 事件）。
组，当框架移动时，其中的控件不移动 [D] ListBox 向列表中添加一个新的项目 7、关于CheckBox 控件描述错误的是（ [A] 是复选框按钮，用"表示选中 [C] Value 为1表示选中该框 &关于Shape 控件描述正确的是（ [A] 用于向窗体添加矩形、圆形等图形 [C] Arial 用于设置显示控件的形状9、下面不属于循环控制语句的是（ ）。
VB笔试模拟试卷128(题后含答案及解析)
VB笔试模拟试卷128(题后含答案及解析)题型有：1. 选择题 2. 填空题选择题（每小题2分，共70分）下列各题A、B、C、D四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上。
1．如果要改变窗体的标题，需要设置窗体对象的______ 属性。
A．NameB．CaptionC．BorderStyleD．BackColor正确答案：B解析：窗体的Caption属性决定了窗体对象在显示时的标题。
2．有如下程序，其运行结果为______。
Dim Sum As String*4 Read Sum, X, Y% Print Sum, Z Date “X+Y:之和”, 300, 200. 613 End A．X+Y:之和501B．X+Y之和500.613C．X+Y: 501D．X+Y: 500．613正确答案：C解析：由于“Dim Sum As String*4”定义字符型变量Sum的长度为4个字节，因而Read语句读Sum变量时，仅读对应字符常量的前4个字符；Y%为整形变量，在Read-Data语句中，对应的数值常量经四舍五入后读入，所以选择C。
3．符号%是声明______ 类型变量的类型定义符。
A．VafiantB．IntegerC．SingleD．String正确答案：B解析：Integer数据类型Integer变量存储为16位(两个字节)的数值形式，其范围为-32768～32767。
Integer的类型声明字符是百分比符号(%)。
4．表达式26/4*3的值是______ 。
A．1B．2C．18.75正确答案：B解析：运算符“*’的优先级大于“\”，所以先进行4×3的运算，再进行26\12的运算，最后的结果是2，故应选B。
5．Print方法可以输出多个表达式，若使用标准格式输出，各表达式的分隔符应是______。
A．逗号B．空格C．冒号D．分号正确答案：A解析：Print方法中，使用紧凑格式输出，各表达式的分隔符应是分号，使用标准格式输出，各表达式的分隔符应是逗号。
VB模拟题
1.设计一个如图所示的成绩录入程序。
要求利用文本框的lost focus事件检查录入的成绩是否有效。
如果录入的成绩介于0~100之间则可以继续输入，否则清除原数据，并且要求重新输入。
底部的5个复选框用来设置参加合计的课程成绩。
2.设计一个用户界面如图所示，用于将学生学习的课程在列表框中显示出来，要求程序有以下功能：a)单击“添加”按钮，若文本框“Text1.text”中不是空格串，并且在列表中也没有，则将课程添加到列表框中去。
b)单击“删除”按钮，删除列表框中被选中的并显示在文本框中的课程名称。
c)单击“统计”按钮，统计课程列表框中的课程数量，并显示在文本框“Text2.text”中。
d)单击“结束”按钮，结束程序运行。
3.设计一个偶数迁移程序，运行界面如图所示。
要求如下：a.单击“产生”按钮，随机产生10个两位正整数，并添加到左边的列表框(list1)中。
b.单击“→”按钮，或双击list1,将list1中的所有偶数迁移到list2中。
c.单击“清除”按钮，清除list1和list2中所有的项目。
4. 设计如图所示窗体form1,在窗体上画一个名称为lst的列表框，通过属性窗口向列表框添加“中国”、“日本”、“新加坡”、“澳大利亚”、“美国”五个项目；在列表框右侧上方画一个名称为text1的文本框，并使其内容空白；在文本框下方画两个名称分别为c1和c2、标题分别为“修改”和“添加”的命令按扭。
程序运行时要求：单击“修改”按钮时文本框text1中显示列表框中选中项目内容，同时列表框移除该项；单击“添加”按钮时，将文本框修改后的内容添加在列表框中列表的末尾。
保存窗体文件xg.frm,工程文件为xg.vbp.5. 设计如图所示窗体form1,在窗体左边画两个名称为t1、t2的文本框，文本框内显示空白；在窗体右下方画一个名称为c1的命令按扭，按扭的标题为“复制”。
编写适当的事件过程，使得在运行时，选定t1中任意文本后，单击命令按扭c1,文本框t2中显示t1中所选定的文本。
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模拟试题一
VB模拟试题一一、选择题1．工程文件的扩展名是（）A．.vbg B．。
vbp C．.vbw D．。
vbl2．一个窗体中带图片框控件（已装入图像）的VB应用程序从文件上看，至少应该包括的文件有（）A．窗体文件（。
frm)、项目文件（.vbp/vbw）B．窗体文件（。
frm）、项目文件（。
vbp/vbw）和代码文件（。
bas)C．窗体文件（.frm)、项目文件（。
vbp/vbw)和模块文件(。
bas）D．窗体文件（.frm）、项目文件（.vbp/vbw）和窗体的二进制文件（。
frx）3．以下关于窗体描述正确的是（）A．只有用于启动的窗体可以有菜单B．窗体事件和其中所有控件事件的代码都放在窗体文件中C．窗体的名字和存盘的窗体文件名必须相同D．开始运行时窗体的位置只能是设计阶段时显示的位置4．VB中控件主要分为3类,下面哪一种不是VB中的控件类（)A．标准控件B．ActiveX C．可插入控件D．外部控件5．在VB的基本数据类型中,通用类型(Variant)可以表示任何类型的变量,如果有定义Dim a,则以下变量赋值中正确的是（）A．a=”OK”B．A＄=OK C．a=04/01/2001 D．a＄=”OK”6．在窗体上添加一个命令按钮和一个文本框，并在命令按钮中编写如下代码：Private Sub Command1_Click( )A=1。
2C=Len(Str＄（A)+Space（10))Text1.text=CEnd Sub程序运行后，单击命令按钮，在文本框中显示（）A．3 B．8 C．14 D．107．在MsgBox函数中哪一个参数是必须的（）A．prompt B．buttons C．title D．context8．以下语句的输出结果是（）Print Format＄（1234.5,”00,000。
00”)A．1234。
5 B．01，234.50 C．01,234.5 D．1,234.509．有如下语句：Type StudentName As StringAge As IntegerSex As StringEnd TypeDim Stu As StudentWith Stu。
VB机试模拟试卷120(题后含答案及解析)
VB机试模拟试卷120(题后含答案及解析)题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题（30分）1．(1)在名称为Forml的窗体上建立一个名称为P1的图片框和两个命令按钮，名称分别为Cmdl和Cmd2，标题分别为“输出”和“清除”，如图22—1所示。
要求程序运行后，每单击一次“输出”按钮，不使用任何变量而直接在图片框中显示小写字母“load me’’；如果单击“清除”按钮，则清除图片框中的内容。
注意：保存时必须存放在考生文件夹下，窗体文件名为sjl．frm，工程文件名为sjl．vbp。
(2)在名为：Form1的窗体上绘制一个标签，名为Labl，标签上显示“请输入密码”；在标签的右边绘制一个文本框，名为Textl，其宽、高分别为1500和300。
设置适当的属性使得在输入密码时，文本框中显示“*”字符，此外冉把窗体的标题设置为“PassWord窗口”。
运行时的窗体如图22—2所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sj2．vbp。
正确答案：(1)本题主要考查图片框控件的基本操作。
命令按钮的标题通过Caption属性设置，单击命令按钮触发Click事件；打印信息用Print方法，清除用Cls方法。
题目要求在图片框中打印信息，所以在编写代码时应指定Print方法和C1s方法的使用对象。
在窗体上建立好控件后，先设置控件属性，再编写事件过程。
①建立界面并设置控件属性。
程序用到的控件及其属性见下表。
②命令按钮Cmdl触发Click事件，打印信息用Print方法。
题目要求在图片框中打印信息，所以在编写代码时，应指定Print方法使用对象。
Private Sub Cmdl Click( ) P1．Print”load me”End Sub ③清除用Cls方法。
题目要求清除图片框中的信息，所以在编写代码时，应指定Cls方法的使用对象。
Private Sub Cmd2_Click( ) P1．Cls End Sub ④调试并运行程序。
VB笔试模拟试卷123(题后含答案及解析)
VB笔试模拟试卷123(题后含答案及解析) 题型有：1. 选择题 2. 填空题选择题（每小题2分，共70分）下列各题A、B、C、D四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上。
1．下列说法中错误的是( )。
A．在同一模块不同过程中的变量可以同名B．不同模块中定义的全局变量可以同名C．引用另一模块中的全局变量时，必须在变量名前加模块名D．同一模块中不同级的变量可以同名正确答案：D解析：变量可以分为3类：局部变量、模块变量、全局变量。
在同一模块不同过程中的变量叫做局部变量，其作用域是它所在的过程，所以不同过程中的局部变量可以同名；模块变量的作用范围是整个窗体或模块，引用其他模块中的模块变量时，必须加上模块名；当同一个模块内的不同过程使用相同的变量时，必须声明窗体层的变量，当然不能有重名。
2．下列数据结构中，属于非线性的是( )。
A．线性表B．队列C．树D．栈正确答案：C解析：线性结构，是指数据元素只有一个直接前件元素和直接后件元素。
线性表是线性结构。
栈和队列是指对插入和删除操作有特殊要求的线性表，树是非线性结构。
3．下列叙述中错误的是( )。
A．线性表是由n个元素组成的一个有限序列B．线性表是一种线性结构C．线性表的所有结点有且仅有一个前件和后件D．线性表可以是空表正确答案：C解析：线性表是一种线性结构，由n(n≥0)个元素组成，所以线性表可以是空表。
但是在线性表中，第一个结点没有前件，最后一个结点没有后件，其他结点有且只有一个前件和后件，所以C是错误的。
4．按照“先进先出”组织数据的数据结构是( )。
A．队列B．栈C．双向链表D．二叉树正确答案：A解析：队列是一种特殊的线性表，只允许在表的一端插入元素，在表的另一端删除元素，插入元素的一端叫“队尾”，删除元素的一端叫“队头”，先插入的元素先被删除，是按“先进先出”的原则组织数据的。
5．下列关于线性链表的描述中正确的是( )。
计算机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模拟题及参考答案
VB复习题一一、判断题：(每小题1分，共20分。
请将答案涂在答题卡上，正确的涂A，错误的涂B）1.Visual Basic 6.0工作模式有3种：它们是设计、运行和调试。
（）2.标签支持Dblclick事件。
（2 ）3.窗体中控件的位置由Height和Top属性确定。
（3 ）4.滚动条的SmallChange属性设置为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语句与之相匹配。
（12 ）13.Exit for是Do循环的一个出口。
（13 ）14.选择结构与循环结构可以相互嵌套，并且允许交叉嵌套。
（14 ）15.Visual Basic 6.0中，Dim a(-5 to 5) as single 是正确的数组定义。
（15 ）16.可以用Ubound()函数返回数组下标的下界。
（16 ）17.过程体内可以再定义另外一个过程。
（17 ）18.实参是变量，且过程定义时与其对应的形参用Byval关键字加以限制是地址（引用）传递。
（18 ）19.用Output模式打开文件，如果指定的路径不存在，则会自动先创建指定的路径，然后再创建文件。
（19 ）20.Visual Basic 6.0中，文件号最大可取的值是511。
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上机考试题库及答案86套
vb上机考试题库及答案86套VB上机考试题库及答案86套1. 选择题- 1.1 VB中，用于声明变量的关键字是（）。
- A. Dim- B. Declare- C. Let- D. Set- 答案：A- 1.2 下列哪个选项是VB中合法的变量名？（）- A. 123abc- B. _name- C. name$- D. name 2- 答案：B2. 填空题- 2.1 VB中，使用（）函数可以将字符串转换为数值。
- 答案：Val- 2.2 在VB中，使用（）关键字可以定义一个数组。
- 答案：Dim3. 简答题- 3.1 简述VB中的事件驱动编程的概念。
- 答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户操作、消息、定时器等）触发，而不是按照预先定义的顺序执行。
4. 编程题- 4.1 编写一个VB程序，实现计算两个数的和并输出结果。
- 答案：```vbDim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = 5num2 = 10sum = num1 + num2Debug.Print "The sum is: " & sum```5. 判断题- 5.1 VB中，使用“=”符号可以比较两个变量的值是否相等。
（） - 答案：错误。
应该使用“==”符号进行比较。
- 5.2 在VB中，可以使用“End”关键字来结束一个程序的执行。
（）- 答案：正确。
6. 综合应用题- 6.1 设计一个VB程序，实现用户输入姓名和年龄，程序输出“欢迎你，[姓名]，你今年[年龄]岁。
”- 答案：```vbSub Main()Dim name As StringDim age As Integername = InputBox("请输入你的姓名：")age = Val(InputBox("请输入你的年龄："))MsgBox "欢迎你，" & name & "，你今年" & age & "岁。
可视化程序设计（VB）模拟试题
可视化程序设计（VB）模拟试题第一篇：可视化程序设计(VB)模拟试题可视化程序设计（VB）一、填空题（32分，共 8 题，每小题 4 分）1.要使用通用对话框控件，必须首先在“部件”对话框中选择______，将其添加到工具箱中。
2.运行时，要使工具栏Toolbarl中索引值为4的按钮无效（变成灰色），应使用语句： ______。
3.运行时，要使工具栏控件T oolbarl中的第二个按钮的按钮菜单中的第三项无效（变成灰色），应使用语句： ______。
4.在用手工方式设计工具栏时，可以设置工具按钮的______ 属性为其添加功能提示。
5.用户自定义类型中的元素类型可以是字符串，但该字符串必须是 ______。
6.设a=sqr（2）*sqr（3），下列语句的输出结果分别是。
print format$（a，“000.00”）print format$（a，“###.#00”）print format$（a，“00.00E+00”）print format$（a，“－#.####”）7.如果需要将窗体载入内存却不显示，需要将该窗体的______ 属性设置为False，再用 ______ 语句装载。
8.随机产生一个范围是(100，300）的整数，表达式为 ______。
二、程序阅读题（24分，共 3 题，每小题 8 分）1.写出下列事件过程的执行结果。
Private Sub Command1_Click()s3(1)s3(1)End SubPrivate Sub s3(ByVal a As Integer)Dim x As Integer Static y As Integerx=x+ay=y+aPrint “x=”;x, “y=”;yEnd Sub2.下列标准模块和窗体模块的功能是给通信录文件“d:txrf1.dat”添加新记录，在横线上填上适当内容。
标准模块：Type txr num As Integer name As String * 10 tel As String * 8 addr As String * 20End Type窗体模块：Private Sub Command1_Click()D im n%, zgr As txr Open “d:txrf1.dat”For Random As #1Len = Len(zgr)zgr.num = InputBox(“输入新职工编号：”) = InputBox(“输入新职工姓名：”)zgr.tel = InputBox(“输入新职工电话号码：”)zgr.addr = InputBox(“输入新职工住址：”)n =(1)(2)Close #1End Sub3.本程序有一个标准模块和一个窗体模块。
vb对口升学模拟试题及答案
vb对口升学模拟试题及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个是正确的变量声明方式？A. Dim aB. Dim b = 10C. Dim c = "Hello"D. 所有选项都是正确的答案：D2. 下列哪个是Visual Basic中的数组声明？A. Dim arr(10)B. Dim arr() As IntegerC. Dim arr(0 To 9) As IntegerD. 所有选项都是正确的答案：D3. 在Visual Basic中，以下哪个是正确的条件语句？A. If x > 10 ThenB. If x > 10 Then EndC. If x > 10 Then End IfD. If x > 10 Then Else答案：A4. 下列哪个是Visual Basic中的循环结构？A. For EachB. WhileC. Do WhileD. 所有选项都是正确的答案：D5. 在Visual Basic中，以下哪个是调用函数的正确方式？A. Call functionName()B. functionName()C. Both A and BD. None of the above答案：C6. 下列哪个是Visual Basic中的事件处理程序？A. Sub eventName()B. Function eventName()C. Property eventName()D. Sub eventName(ByVal sender As Object, ByVal e As EventArgs)答案：D7. 在Visual Basic中，以下哪个是正确的类声明？A. Class MyClassB. Dim MyClassC. Function MyClassD. None of the above答案：A8. 下列哪个是Visual Basic中的继承关键字？A. InheritsB. InheritsFromC. ExtendsD. None of the above答案：A9. 在Visual Basic中，以下哪个是正确的属性声明？A. Property MyProperty As IntegerB. Dim MyProperty As IntegerC. Function MyProperty As IntegerD. Both A and B答案：A10. 下列哪个是Visual Basic中的接口声明？A. Interface MyInterfaceB. Dim MyInterfaceC. Function MyInterfaceD. None of the above答案：A二、填空题（每空2分，共20分）1. 在Visual Basic中，使用________关键字可以定义一个类。
vb模拟试题(绝对经典)
VB操作第三套卷基本操作1、在名称为Form1，标题为“标签”的窗体上，添加一个名称为Lable1，内容为“计算机等级考试”，字型为四号字的标签。
请设置适当的属性以满足下述要求：（1）窗体不带有最大化、最小化及关闭按钮；（2）标签带有边框；（3）标签可依据标题指定的内容自动调整其大小。
运行后的窗体如图所示：注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为stj1.frm。
2、在名称为Form1的窗体上添加一个名称为Text1，内容为“程序设计”的文本框，且显示为三号字、居中；再添加两个命令按钮，标题分别是“粗体”和“斜体”，名称分别为Command1、Command2。
如图所示。
要求：编写两个命令按钮的Click事件过程，使得单击“斜体”按钮时，文本框的内容显示为斜体格式；单击“粗体”按钮时，文本框的内容显示为粗体格式。
注意：程序中不得使用变量，每个事件过程只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名保存为stj2.vbp，窗体文件名保存为stj2.frm。
简单应用题1、在考生文件夹有一个工程文件stj3.vbp，其中的窗体中有一个名为Text1的文本框，初始文本为0；一个计时器；一个标签；一个有两个元素的单选按钮数组，名称为Op1，标题依次为“1秒”、“3秒”；两个命令按钮，名称分别为C1、C2，标题分别为“开始计数”、“停止计数”，同时给出了两个事件过程，但并不完整。
在运行时要完成下面的功能；单击一个单选按钮，可以设置计时间隔为1秒或3秒；若单击“开始计数”，则Text1中的数按设定的时间间隔每次加1；若单击“停止计数”，则Text1中的数不再变化。
请按下述要求设置属性和编写程序，以便实现上述功能；（1）设置计时器的属性，使其在初始状态下不计时。
（2）去掉程序中的注释符，把程序中的？改为正确的内容。
（3）为两个命令按钮编写适当的事件过程，每个事件过程中只能有一条语句，不能使用变量。
VB笔试模拟试卷288(题后含答案及解析)
VB笔试模拟试卷288(题后含答案及解析) 题型有：1. 选择题 2. 填空题选择题（每小题2分，共70分）下列各题A、B、C、D四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上。
1．如果准备读文件，打开顺序文件”text.dat”的正确语句是A．Open“text.dat”For Write As #1B．Open“text.dat”For Binary As #1C．Open“text.dat”For Input As #1D．Open“text.dat”For Random As #1正确答案：C2．数据结构主要研究的是数据的逻辑结构、数据的运算和( )。
A．数据的方法B．数据的存储结构C．数据的对象D．数据的逻辑存储正确答案：B解析：数据结构是研究数据元素及其之间的相互关系和数据运算的一门学科，它包含3个方面的内容，即数据的逻辑结构、存储结构和数据的运算。
3．在结构化方法中，用数据流程图(DFD)作为描述工具的软件开发阶段是( )。
A．逻辑设计B．需求分析C．详细设计D．物理设计正确答案：B解析：软件开发阶段包括需求分析、总体设计、详细设计、编码和测试五个阶段。
其中需求分析阶段常用的工具是数据流图和数据字典。
4．程序的基本控制结构是( )。
A．Do-Loop结构、Do-Loop While结构和For-Next结构B．子程序结构，自定义函数结构C．顺序结构，选择结构和循环结构D．单行结构，多行结构和多分支结构正确答案：C5．在窗体上绘制一个名称为Label1的标签，然后编写如下事件过程：Private Sub Form_Click( ) Dim arr(10,10)As Integer Dim i As Integer,j As Integer For i =2 To 4 For j =2 To 4 arr(i,j)=i*j Next j Next i Label1.Caption=Str(arr(2,2)+arr(3,3)) End Sub 程序运行后，单击窗体，在标签中显示的内容是( )。
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笔试模拟试卷44(题后含答案及解析)
VB笔试模拟试卷44(题后含答案及解析)题型有：1. 选择题 2. 填空题选择题（每小题2分，共70分）下列各题A、B、C、D四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上。
1．算法中的每—个步骤都必须是有明确意义的，不允许有模陵两可的解释，也不允许有多义性，这个性质称为A．可行性B．有穷性C．正确性D．确定性正确答案：D解析：算法中的每一个步骤都必须是有明确意义的，不允许有多义性。
算法的这个性质即为算法的确定性。
2．以下数据结构中，属于线性数据结构的是A．集合B．线性表C．二叉树D．图正确答案：B解析：所谓的线性结构：如果一个非空的数据结构满足下列两个条件，即1) 有且只有一个根结点；2) 每一个结点最多有一个前件，也最多有一个后件。
同时满足两个条件的只有线性表，而其他三种数据结构的结点可能存在多个前件或后件，所以不是线性结构。
3．设有下列二叉树：对此二叉树先序遍历的结果是A．ABCDEFB．BDAECFC．ABDCEFD．DBEFCA正确答案：C解析：二叉树的遍历分为先序、中序、后序三种不同方式。
本题要求先序遍历遍历顺序应该为：访问根结点一，先序遍历左子树一，先序遍历右子树。
按照定义，先序遍历序列是ABDCEF。
4．下面对对象概念描述，不正确的是A．任何对象都必须有继承性B．对象是属性和方法的封装体C．对象间的通讯靠消息传递D．操作是对象的动态属性正确答案：A解析：有时为了保护某些特有的对象，可以通过定义其为私有属性达到不被继承的目的。
5．对建立良好的程序设计风格，描述正确的是A．程序应简单、清晰、可读性好B．符号名的命名只要符合语法即可C．充分考虑程序的执行效率D．程序的注释可有可无正确答案：A解析：符号名应该能反映出它所代表的实际东西，应有一定的意义，不是简单的符合语法就可以。
应该在保证程序正确的情况下再考虑程序的执行效率。
程序的注释有益于对程序的理解和维护，好的程序必不可少。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
要向C盘根目录下的名为my.txt的顺序文件中读出数据，应先使用_________语句打开文件。
复选框对象如果被选中，它的Value值为____________ 。
下列可作为Visual Basic 变量名的是____________。
以下能判断是否到达文件尾的函数是__________如果在实验课上进行程序调试，运行时遇到意外出错，最有效的做法是：看清系统错误原因提示信息，____________，以确定错误原因。
要想从子过程调用后返回两个结果，下面子过程语句说明合法的是____________ 。
在用通用对话框控件建立打开文件对话框时，在文件列表框中只允许显示txt和rtf类型的文件，则Filter属性的正确设置是_________。
在程序运行期间可以用____________函数把图形装入窗体、图片框或图像框。
列表框List1中已有10个列表项，要显示列表框List1最后一项，有两种表示法， __________是正确的。
在默认情况下定义了10个元素的数组a，用变量n表示它的上界，有两种赋值语句，______________是正确的。
为了使控件对象不响应用户的事件，需要____________。
假定焦点已经位于文本框Text1中，则能够触发 KeyPress 事件的操作是____________。
设变量x = 1，y = -1，a = 5，b = -5，则以下表达式的值为“真”的是____________。
单击滚动条控件的箭头按钮，滑块的移动幅度与_______________属性设置有关。
在自定义函数中，可以通过____________返回值。
程序填空单击窗体执行将所输入的整数插入排序后的原数组元素适当位置。
Function Insert(s(), ByVal key As Integer) As IntegerDim k%, i%, j%k = ___(1)_____For i = 0 To UBound(s)If key < s(i) Thenk = i_____(2)_______End IfNext iReDim Preserve s(UBound(s) + 1)For j = UBound(s) - 1 To k Step -1______(3)____Next js(k) = keyInsert =UBound(s)End FunctionPrivate Sub Form_Click()Dim a() As Variant, i%, p%, m%a = Array(1, 3, 6, 8, 9, 13, 17, 20, 25)For i = 0 To UBound(a)______(4)_____Next iPrint: Printp = InputBox("请输入要插入的数：")m =____(5)____For i = 0 To mPrint a(i);Next iPrint: PrintEnd Sub单击窗体读当前文件夹中的文本文件data.txt数据，找出其中年龄最大者的年龄、姓名和全部人数，输出并保存在当前文件夹的中result.txt。
data.txt的数据格式形如：王海涛, 18李林, 20……Private Sub Form_Click()Dim Name$, Age%, maxName$, maxAge%n = 0maxAge = 0Open App.Path + "\data.txt" For Input As #1Do While ____(1)______Input #1, Name, Agen = n + 1If Age > maxAge Then____(2)______maxName = NameEnd IfLoopClose #1Label1.Caption = "最大年龄：" & maxAge & vbCrLf & "最大年龄姓名：" & maxName & vbCrLf & "人数：" & nOpen App.Path + "\result.txt" ______(3)______Print #2, maxName, maxAge, nClose #2End Sub单击按钮执行在输入样本串中查找字串，删除字串字符后输出至结果文本框。
用复选框可选择查找方式是否区分大小写。
Private Sub Command1_Click()Dim ss$, s0$, len0%, ms$, i%ss = Text1.Texts0 = Text2.TextIf _____(1)____ Thens0 =_____(2)______End Iflen0 = Len(s0)For i = 1 To Len(ss) - len0 + 1ms = _____(3)______If Check1.Value = 1 Thenms = UCase(ms)End IfIf (ms = s0) Thenss = Mid(ss, 1, i - 1) + Mid(ss, i + len0)i = i - 1End IfNext iText3.Text =___(4)_____End Sub操作题三、程序调试题(共20分，每错2.5分，第1题有2处错，第2题3处错，第3题3处错)启动工程文件C:\ks\cxts3.vbp，程序存在8处错误，请调试改正，并按原文件名和位置保存。
正确结果见样例cxts3.exe。
改错方法：不能修改或重新定义变量，不允许增加或删除语句，但可以修改语句,所修改的语句必须在句尾加上注释标记'***********。
调试改错题1,有2处错误：输入18位身份证号码，通过第7~10位取出出生年，给出寄语。
对1959（含）出生的人，寄语为"步入中老年，请您注意身体！"；对1960年代和1990年代出生的人，寄语均为"60后和90后要多沟通，避免代沟！"; 对于1970~1989年出生的人，寄语为"70、80后的青年，祝你工作顺利！"；对于2000后出生的人，寄语为"小朋友，祝你茁壮成长！"; 其余判断为输入错误，清空文本框并置焦点。
Private Sub Command1_Click()Dim bthyear%, lbltx$bthyear = Val(Mid(Text1.Text, 7, 4))Select Case bthyearCase Is <= 1959lbltx = "步入中老年，请您注意身体！"Case (bthyear>=1960 and bthyear<=1969) or (bthyear>=1990 and bthyear<=1999)lbltx = "60后和90后要多沟通，避免代沟！"Case "1980" to "1989"lbltx = "70、80后的青年，祝你工作顺利！"Case 2000, 2001, 2002 To 2008, Is > 2008lbltx = "小朋友，祝你茁壮成长！"Case Elselbltx = "输入错了吧？！请重新输入"Text1.Text = ""Text1.SetFocusEnd SelectLabel2 = lbltxEnd Sub调试改错题2，有3处错误：产生隔行轮换显示字母和数字的菱形图案（规律如图）Private Sub Command2_Click()Dim i%, j%, k%, p%p = 3For i = 0 To 14If i <= 7 Thenk = iElsek = 14 - iEnd IfPicture1.Print Tab(p + 7 - k);If k Mod 2 ThenFor j = k To 3 * kPicture1.Print Chr(66 + k);Next jElseFor j = k To 2 * kPicture1.Print Trim(Str(k));Next jEnd IfPicture1.PrintNext iEnd Sub调试改错题3，有3处错误：随机产生1~20个大写字符串，并随机产生一个大写字母分别填入两个文本框中，统计这个大写字母在该串中出现的次数。
Private Sub Command3_Click()Dim str1$, str2$, i%, j%, sum%Text2 = ""i = Int(Rnd() * 20 + 1) '产生1~20之间的随机整数For j = 1 To iText2 = Text2 + Chr(64 + Int(Rnd() * 26 + 1)) '随机产生大写字母字符串NextText3 = Chr( Int(Rnd() * 26 + 1))str1 = Text2str2 = Text3sum = 1For j = 1 To iIf Left(str1, j, 1) = str2 Thensum = sum + 1End IfNextIf sum <> 0 ThenLabel4 = str2 & "在字符串中出现了" & sum & "次。
"ElseLabel4 = str2 & "在字符串中没有出现过"End IfEnd Sub四、编程题（35分）1．在C:\KS 目录下新建项目bct0.VBP，按如下要求编程并保存。
2．在Form1窗体上放置两个列表框。
建立如下菜单：3．单击菜单"产生"随机产生10个大写字母，填入List1中。
单击菜单"筛选"将列表框1中"K"以后（含"K"，ASCII码值为75）的字母选出，填入List2中。
4．单击"绘图"菜单项时，显示窗体2；单击"结束"菜单项时，结束程序的运行。
5．在窗体2上单击"绘图"命令按钮，设置画布区域为(-10, 2)-(10, -2),按以下公式绘制，当Y>0为红色图形，Y<0为蓝色图形，t= -3π～3π：x = ty = Sin(t)（提示：函数图形通过计算Y的值，画垂直于X轴的直线显示）单击"返回"命令按钮则关闭窗体2，返回窗体1。