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机试模拟试题(十五套)
附录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模拟试题全套
vb模拟试题全套1．下列关于程序设计的说法正确的是（ B ）A 、程序设计就是指示计算机如何去解决问题或完成一组可执行指令的过程B 、程序设计就是寻求解决问题的方法，并将其实现步骤编写成计算机可以执行的程序的过程C 、程序设计语言的发展经历了机器语言、汇编语言到高级语言的过程，比较流行的高级语言是pascal 、fortran 、excel 、c++等。
D 、程序设计语言和计算机语言是同一概念的两个方面2 C ）A 、算法的开始或结束B 、输入输出操作C 、处理或运算的功能D 、用来判断条件是否满足需求3．Integer 类型的变量可存的最大整数为（ C ）。
A 、256B 、32768C 、32767D 、655364．代数表达式221gt 改成VB 表达式后，错误的是（D ）A 、g*t^2/2 B 、g*t*t/2 C 、1/2*g*t^2 D 、gt^2/25．对于窗体，click （单击）是它的一个（ C ）A 、重要对象B 、重要方法C 、重要事件D 、重要属性6．下列变量名写法错误的是（ D ）B 、abc123C 、abc_123D 、123abc7．在VB 中，下列（ B ）函数是求绝对值的。
A 、int （x ）B 、abs （x ）C 、sqr （x ）D 、gn （x ）8．在VB 中，设置控件的大小，可改变下列（ A ）属性A 、height 与widthB 、heigth 与topC 、 left 与topD 、left 与width9．以下是一段vb 程序：a=1b=a+1c=a+b它的基本结构属于（ A ）A 、顺序结构B 、选择结构C 、循环结构D 、树型结构10、下列程序段运行后，V alue 的值为（ A ）x=20if x>=10 thenValue=5*xElseValue=4*xEnd ifB 、80C 、90D 、7011、下面是判断变量x 是不是能被5整除的偶数的程序，横线上的逻辑表达式应为（A 、B ） Private Sub Command1_Click() Dim x As Integerx = Val(text1.Text)If ________________ Thenlabel1.Caption = "这个数是能被5整除的偶数"label1.Caption = "这个数不是能被5整除的偶数"End IfEnd SubA、(x Mod 5) = 0 And (x Mod 2) = 0B、x Mod 10 = 0C、x Mod 5 = 0D、x Mod 2 = 012、阅读下面程序，单击窗体后，在窗体上输出的是（A ）Private Sub form_Click()Dim i As IntegerDim s As Integers = 0For i = 1 To 5s = s + iNext iPrint s, iEnd SubA、15 6B、s=15 i=6C、6 5D、s=6 i=513、阅读下面程序，单击窗体后，在文本框text1中显示的内容是（A ）Private Sub form_Click()Dim int1 As IntegerDim int2 As Integerint1 = 1int2 = 0Do While int1 < 20int2 = int1 + int2int1 = int1 * (int1 + 1)LoopText1.Text = int2End SubA、9B、8C、7D、614、下列程序段中，循环体执行的次数是（B ）y=2do while y<=8y=y+yloopA、2B、3C、4D、515、设计一个程序，打印下面所示的图案程序：Private Sub Form_click()Dim i As Integer '定义i为整型变量Dim j As Integer '定义j为整型变量For i = -3 To 3Print Tab(Abs(i) + 5) '确定每行的起始位置For j = 1 To (4 -Abs(i)) - 1Print "*";Next jPrintNext iEnd Sub16、编写程序，求??>+-≤+=)0(1)0(122x x x x x y 的值。
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分。
计算机二级vb模拟考试试题及答案
计算机二级vb模拟考试试题及答案一、单选题1. 下面哪个选项是VB的内置数据类型？A. IntegerB. StringC. DoubleD. All of the above答案：D2. 在VB中，用于表示两个选项互斥关系的控件是？A. RadiobuttonB. CheckboxC. ComboboxD. Listbox答案：A3. 下面哪个事件是在窗体加载时发生？A. LoadB. ClickC. MouseHoverD. KeyPress答案：A4. 在VB中，用于将文本显示在标签控件上的属性是？A. TextB. ValueC. CaptionD. Name答案：C5. 在VB中，用于打开文件选择对话框的控件是？A. OpenFileDialogB. SaveFileDialogC. FolderBrowserDialogD. PrintDialog答案：A二、填空题1. 在VB中，用于声明一个整型变量的关键字是________________。
答案：Dim2. 在VB中，用于判断条件的关键字是________________。
答案：If3. 在VB中，用于循环执行代码块的关键字是________________。
答案：For4. 用于将字符串转换为整型的函数是________________。
答案：CInt5. 用于将字符串转换为小数类型的函数是________________。
答案：CDbl三、编程题1. 编写一个VB程序，实现计算两个数相加的功能，并在窗体上显示结果。
答案：```vbPublic Class Form1Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickDim num1 As IntegerDim num2 As IntegerDim result As Integernum1 = CInt(TextBox1.Text)num2 = CInt(TextBox2.Text)result = num1 + num2Label1.Text = "结果：" & result.ToString()End SubEnd Class```2. 编写一个VB程序，实现输入一个整数n，计算并输出1到n的所有偶数之和。
VB笔试模拟试卷222(题后含答案及解析)
VB笔试模拟试卷222(题后含答案及解析)题型有：1. 选择题 2. 填空题选择题（每小题2分，共70分）下列各题A、B、C、D四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上。
1．下列可以启动Visual Basic的方法是A．打开“我的电脑”，找到存放Visual Basic所在系统文件的硬盘及文件夹，双击“VB6.exe”图标B．在DOS窗口中，键入Visual Basic的路径，执行Visual Basic可执行文件C．利用“开始”菜单中的”程序”命令可启动Visual BasicD．Ａ)和Ｃ)正确答案：D解析：启动Visual Basic有4种方式：打开“我的电脑”，找到存放Visual Basic 所在的系统文件的硬盘及文件夹，双击“VB6.exe”图标，即可进入Visual Basic 编程环境，所以选项A)正确；利用“开始”菜单中的“程序”命令方式进人，所以选项C)也是正确的；使用“开始”菜单中的“运行”命令，在“打开”栏中键入VB6.exe的存放路径，单击“确定”按钮即可；把VB6.exe文件直接拖到桌面可建立启动Visual Basic的快捷方式，双击该执行文件即可。
2．下面程序段，运行后的结果是Private Sub Command1_Click( ) Dim b%(1 To 4)，i%，t# For i=1 To 4 b(i) =i Next t=Tof(b( ) ) Print”t=“；t，End Sub Function Tof(a( ) As Integer) Dim t#,i% t=1 For i=2 To UBound(a) t=t*a(i) Next Tof=t End FunctionA．t=18B．t=24C．t=30D．t=32正确答案：B解析：程序调用循环语句对数组b( )赋值，b(i)=i，且数组b的上下界分别为1和4，接着将数组b( )作为对象，调用Tof过程。
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机试模拟试卷113(题后含答案及解析)
VB机试模拟试卷113(题后含答案及解析)题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题（30分）1．(1)在名称为Forml的窗体上画两个文本框和两个单选按钮。
文本框的名称分别为Textl和Text2，初始时内容为Text1和Text2。
单选按钮的名称分别为Optionl、Option2，标题分别为“文本框Textl可用”和“文本框Text2可用”。
编写适当的事件过程，使得程序运行时，初始状态单选按钮都未被选中，如果单击Optionl按钮，则文本框Text1可用，Text2不可用；如果单击Option2按钮。
则文本框Text 2可用，Text 1不可用。
程序中不得使用任何变量。
程序运行时的窗体界面如图26—1所示。
注意：考生完成程序编写后，将工程文件与窗体文件保存到考生文件夹下，文件名分别为sjl．vbp与sjl．frm。
(2)在名称为Forml的窗体上画一条直线，名称为Linel。
同时，在窗体上画一个水平滚动条，名称为HScrolll。
编写适当的事件过程，程序运行后，根据水平滚动条的长度改变Linel的长度。
不得使用任何变量。
程序运行时的窗体界面如图26—2所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sj2．vbp，窗体文件名为sj2．frm。
正确答案：(1)根据题意，新建“标准EXE”工程，将两个Text控件和两个Option控件添加到窗体上，Text的名称为Textl、Text2、Text属性分别为“Textl”和“Text2”，Option的名称分别为Optionl、Option2、Caption属性分别为“文本框Textl可用”和“文本框Text2可用”，其中Optionl的Value属性为False，Text2的Enable属性为False。
双击Option进入代码窗口，编写如下代码：Private Sub Optionl_Click( ) Textl．Enabled=True’选中Optionl，则Textl可用Text2．Enabled=False’Text2不可用End Sub Private Sub Option2_Click( ) Textl．Enabled=False Text2．Enabled=True End 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）模拟试题第一篇：可视化程序设计(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 的模拟考试题
1.下面子过程语句说明合理的是（）。
2.下面过程运行后显示的结果是（2,3）。
Public Sub F1(ByRef n as Integer,ByVal m as Integer)n=n mod 10m=m\10End SubSub Button1_Click(… … ) Handles Button1_ClickDim x,y as Integerx=12y=34Call F1(x,y)MessageBox.Show(x & " " & y)End Sub3. 在VB集成开发环境中，下面不存在的窗口是(常见任务)4.一个窗体中，用于识别不同的控件对象的属性是(name)5. 要求从文本框中输入密码时在文本框中只显示#号，则应用在此文本框的属性窗口中设置(password属性值改为#)6. 要求改文本框中显示的文本，应当在属性窗口中改变的属性是（Text）7. 当在文本框中输入“ABCD”时，窗体上显示的是（AABABCABCD）。
Sub TextBox1_TextChanged(……) Handles Te xtBox1.TextChangedLabel1.Text &=TextBox1.TextEnd Sub8. 有过程：Private Sub Max(ByRef x As Integer, ByRef y As Integer)If x < y ThenDim t As Integert = xx = yy = tEnd IfEnd Sub如果：Dim a, b, c As Integera = 10b = 23c = 15Max（a+b,a-b）Max (a,c)则a,b,c的值依次是：(15,23,10)9. 下面的变量定义错误的是：(dim btn1 as button)10. 以下不属于键盘事件的是( )11. 标签控件能够显示文本信息，决定其是否有可见的边框的属性是12. 有过程：Private Sub Max(ByRef x As Integer, ByRef y As Integer)If x < y ThenDim t As Integert = xx = yy = tEnd IfEnd Sub如果：Dim a, b,c As Integera = 10b = 23c = 15Max（a,b）Max (a,c)则a,b,c的值依次是：A.23,10,15B.10,23,15C.15,23,10D.23,23,1513. 文本框的( )属性用于设置或返回文本框中的文本内容A TextB 名称C captionD name14. 与数学表达式a*b/3*c*d对应，的不正确表达式是（）15. 以下不能运行工程的操作是(按f5 键)A 是对的B 是对的C 按f5 键D 按ctrl+f5 键16. 有过程：Private Function Max(ByRef x As Integer, ByRef y As Integer) As Integer If x < y ThenMax=yElseMax=xEnd IfEnd Function如果：Dim a, b, c As Integera = 10b = 23c = Max（a,b）则a,b,c的值依次是：（10，23，23）17. 关于定时器的说法中正确的是（）18. 下面为正确的整型常量的是( )19. 以下循环体能正常结束的是（）A doi=i+1i=1B doi=i+2i=10C doi=i+1i=6D doi=i+2i=520.可以同时删除字符串前导和尾部空白的函数是( )A LtrimB RtrimC TrimD Mid21. 请编写函数f(a)，其功能是：计算一个长度为5的一维整形数组a中最大值与最小值的差，并作为函数的返回值。
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大小模拟试题满分：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模拟试题(绝对经典)
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）为两个命令按钮编写适当的事件过程，每个事件过程中只能有一条语句，不能使用变量。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
程序设计==================================================题号：7137在考生文件夹中有一个工程文件sjt43.vbp，其功能是：找出矩阵元素的最大值，并求出矩阵对角线元素之和，窗体外观如图所示。
程序运行时，矩阵数据被放入二维数组a中。
当单击"找矩阵元素最大值"命令按钮时，找出矩阵中最大的数，并在标签Labe13中显示。
当单击"对角线元素之和"命令按钮时，计算矩阵主对角线元素之和，并在标签Label4中显示。
文件中已给出部分程序，请编写"找矩阵元素最大值"及"对角线元素之和"两个命令按钮的事件过程中的部分程序代码。
注意：不得修改程序的其他部分和控件属性。
最后将修改后的文件按原文件名存盘。
程序调试通过后，两个命令按钮的事件过程必须依次各执行一次。
原题代码：Option Base 1Dim a(4, 4) As IntegerPrivate Sub Command1_Click()'**********Begin**********'**********End***********'不得修改以下部分save Label3End SubPrivate Sub Command2_Click()'**********Begin**********'**********End**********'不得修改以下部分save Label4End SubPrivate Sub Form_Load()Open App.Path & "\in5.txt" For Input As #1For i = 1 To 4For j = 1 To 4Input #1, a(i, j)Next jNext iClose #1End Sub标准模块：Public Sub save(l As Control)Open App.Path & "\out5.txt" For Append As #1Print #1, l.CaptionClose #1End Sub程序填空==================================================题号：7178在考生文件夹下有一个工程文件sjt7.vbp，在程序运行时，单击"输入整数"按钮，输入一个整数，并在窗体上显示此整数的所有不同因子和因子个数。
图1是输入53后的结果，图2输入100的结果。
已经给出了全部控件和程序，但程序不完整。
要求：请把程序中的_____改为正确的内容。
不能修改程序中的其他部分，也不能修改控件的属性。
最后用原来的文件名保存工程文件和窗体文件。
原题代码：Private Sub Command1_Click()Dim n As IntegerCls'**********FILL**********________ = InputBox("请输入一个整数")Print "因子数="; fun(n)End SubFunction fun(m As Integer)Dim s As Integer'**********FILL**********s = ______For k = 1 To Abs(m) / 2If m Mod k = 0 Thens = s + 1Print kEnd IfNext k'**********FILL**********_____End Function答案：位置 1:n位置 2:位置 3:fun = s题号：7184在考生文件夹下有一个工程文件sjt16.vbp，在Form1的窗体中有一个文本框，一个计时器和两个命令按钮。
程序的功能是在运行时，单击"开始计数"按钮，就开始计数(如图所示)，每隔1秒，文本框中的数加1；单击"停止计数"按钮，则停止计数。
要求：修改适当的控件的属性，并把程序中的_____改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。
最后将修改后的文件以原来的文件名存盘。
原题代码：Private Sub C1_Click(Index As Integer)'**********FILL**********Select Case ______Case 1Timer1.Enabled = False'**********FILL**********Case _____Timer1.Enabled = TrueEnd SelectEnd SubPrivate Sub Timer1_Timer()'**********FILL**********Text1.Text = Text1.Text _____End Sub答案：位置 1:Index位置 2:位置 3:+ 1题号：7220已知出租车行驶不超过4公里时一律收费10元。
超过4公里时分段处理，具体处理方式为：15公里以内每公里加收1.2元，15公里以上每公里收1.8元。
在考生文件夹下有一个工程文件sjt33.vbp。
程序的功能是：单击"输入"按钮，将弹出一个输入对话框，接收出租车行驶的里程数；单击"计算"按钮，则可根据输入的里程数计算应付的出租车费，并将计算结果在名称为Text1的文本框内显示。
在窗体文件中已经给出了全部控件(如图所示)，但程序不完整，要求把程序中的_____改为正确的内容。
注意：不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。
原题代码：Dim s As IntegerPrivate Sub Command1_Click()s = Val(InputBox("输入里程数（单位：公里）"))End SubPrivate Sub Command2_Click()If s > 0 Then'**********FILL**********Select Case _____Case Is <= 4'**********FILL**********_____Case Is <= 15'**********FILL**********f = 10 + _____'**********FILL**********Case _____'**********FILL**********f = 10 + _____ + (s - 15) * 1.8End SelectText1.Text = fElseMsgBox "请单击“输入”按钮输入里程数！"End IfEnd Sub答案：位置 1:s位置 2:f = 10位置 3:(s - 4) * 1.2位置 4:Is > 15 【或】 Else位置 5:11 * 1.2 【或】 13.2窗体设计==================================================题号：7368在名称为Form1的窗体上画一个名称为Image1的图像框，再画一个名称为Command1、标题为"退出"的命令按钮。
通过属性窗口设置图像框的属性，将考生文件夹下的pic1.bmp文件加载到图像框，使图片的大小能够随图片框大小而改变。
设置命令按钮的属性，使得程序运行时，按回车键即可执行命令按钮的Click事件过程。
窗体外观如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt39.vbp，窗体文件名为sjt39.frm。
题号：7336在名称为Form1、标题为"考试"的窗体上添加一个名称为Combo1、初始文本为空的下拉式组合框，下拉列表中有"隶书"、"宋体"和"楷体"三个项目。
程序运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt62.vbp，窗体文件名保存为sjt62.frm。
题号：7276在名称为Form1的窗体上建立一个名称为"menul"、标题为"文件"的弹出式菜单，其含有三个菜单项，它们的标题分别为："打开"、"关闭"、"保存"，名称分别为"m1"、"m2"、"m3"。
再添加一个命令按钮，名称为"Command1"、标题为"弹出菜单"。
要求：编写命令按钮的Click事件过程，使程序运行时，单击"弹出菜单"按钮可弹出"文件"菜单(如图所示)。
注意：程序中不得使用变量，事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名保存为sjt14.vbp，窗体文件名保存为sjt14.frm。