国家二级计算机考试VB练习题
1. 标准控件不包括（D ）控件。 (A) 驱动器列表框 (B) 目录列表框 (C) 文件列表框 (D) 通用对话框
2. 当一个工程含有多个窗体时，它的启动窗体是（D ）。 (A) 正在编辑的窗体 (B) 最后一个添加的窗体 (C) 第一个添加的窗体 (D) 在"工程属性"对话框中指定的窗体
3. VB应用程序在（ A）模式下不能编辑代码和设计界面。 (A) 运行 (B) 中断 (C) 设计 (D) 以上均不能
4. 下列叙述错误的是（B ）。 (A) VB应用程序没有明显的开始和结束语句 (B) VB控件的所有属性值均可在属性窗口中设置 (C) VB是事件驱动型可视化编程工具 (D) VB通过"工具"菜单的"选项"设置代码编辑窗口的字体大小
5. 标准模块文件的扩展名是（C ）。 (A) .cls (B) .frm (C) .bas (D) .rec
6. 下列叙述错误是（d ）。 (A) 打开一个工程文件，系统自动装入与该工程有关砠 ??文件 (B) 保存VB程序时，应分别保存窗体和工程文件 (C) 事件可以由用户触发，也可以由系统触发 (D) VB应用程序只能以解释方式执行
7. 在设计阶段，双击窗体上的某个控件，可以打开（a ）。 (A) 代码窗口 (B) 属性窗口 (C) 工具箱窗口 (D) 工程资源管理器窗口
8. 下列叙述错误的是（c ）。 (A) VB是可视化程序设计语言 (B) VB采用事件驱动编程机制 (C) VB是面向过程的程序设计语言 (D) VB应用程序可以以编译方式执行
9. 下列叙述正确的是（D ）。 (A) VB的事件由用户定义 (B) VB程序以顺序方式执行 (C) VB程序从Main()函数开始执行 (D) VB运行时，总是等待事件的发生
10. 下列为整型变量的是（C ）。 (A) x! (B) x# (C) x% (D) x$
11. 设有语句组： Dim S1 As String*5 S1 = "VB Test" 则S1的值为（B ）。 (A) VB Test (B) VB Te (C) VBTes (D) BTest
12. 下列（ A）是合法的变量名。 (A) x_y (B) x-y (C) 2x (D) and
13. 下列（ A）为单精度变量。 (A) x! (B) x# (C) x% (D) x$
14. 由（ C）关键字声明的局部变量在整个程序运行时一直存在。 (A) Dim (B) Public (C) Static (D) Private
15. 定义变量时如不指定类型，该变量为（C ）变量。 (A) Integer (B) String (C) Variant (D) Single
16. 用户自定义数据类型的成员不能是（a ）。 (A) 数组 (B) 日期型 (C) 货币型 (D) 定长字符串
17. 下列（B）是合法的变量名。 (A) x%y (B) xy% (C) 2x (D) Or
18. 日期常量用（ C）作为界定符。 (A) " (B) % (C) # (D) &
19. 表达式4 + 6 \ 5 * 7 / 9 Mod 3的值是（B ）。 (A) 4 (B) 5 (C) 6 (D) 7
20 下列逻辑表达式为True的是（C ）。 (A) "A"<"9" (B) "A">"a" (C) "a">"AT" (D) "AT"<"AND"
21下列运算符中，优堠 ??级最高的是（B ）。 (A) Like (B) Mod (C) Not (D) Eqv
22设a=6，b=5，c=-2；执行语句Print a > b > c后，窗体上显示的是（b ）。 (A) 1 (B) True (C) False (D) 出错信息
23下列表达式中，值最大的是（c ）。 (A) 2 \ 3 (B) 2 / 3 (C) 2 mod 3 (D) 3 mod 2
24.列运算符中，优先级最低的是（ d）。 (A) * (B) ^ (C) / (D) \
25表达式 2 = 3 < 1 的是（c ）。 (A) 0 (B) 1 (C) True (D) False 26 x于0且小于10的VB表达式是（b ）。 (A) 0 < x < 10 (B) x > 0 And x < 10 (C) x > 0 Or x < 10 (D) x > 0 : x < 10
27判断整型变量x是奇数的表达式是（ a）。 (A) x Mod 2 <> 0 (B) x Mod 2 != 0 (C) x Mod 2 ≠ 0 (D) x Mod 2 ＝ 0
28返回值为数值的函数是（b ）。 (A) Mid (B) Instr (C) Left (D) Rtrim
29表达式Len("幸运52")的值是（b ）。 (A) 0 (B) 4 (C) 6 (D) 8
30以下（b ）语句可表示[50,100]之间的随机数。 (A) Int(Rnd * 51) + 49 (B) Int(Rnd * 51 +50) (C) Int(Rnd * 50) + 50 (D) Int(Rnd * 50 + 50)
31返回值为字符串的函数是（ a）。 (A) Str (B) Val (C) Len (D) Asc
32 当x=0时，函数IIf(x > 0, 1, IIf(x < 0, -1, 0))的返回值是（a ）。 (A) 0 (B) 1 (C) -1 (D) 出错
33 表达式Fix(5.6) + Int(-5.6)的值是（b ）。 (A) 0 (B) -1 (C) 1 (D) 以上都不对
34 如果Sgn(x)的值为-1，整型变量x的值是（c ）。 (A) 0 (B) 整数 (C) 正整数 (D) 负整数
35 表达式InStr(2, "文本文件", "文")的值是（c ）。 (A) 0 (B) 1 (C) 3 (D) 5
36 除去字符串左侧空格的函数是（c ）。 (A) Left() (B) Trim() (C) Ltrim() (D) LeftTrim()
37 VB表达式Format(Val("111a"), "##.##")的值是（c ）。 (A) 11.1a (B) 11.10 (C) 111. (D) 111.00
38 下列语句不合法的是（ d’）。 (A) x = 1 : y=2 (B) ? x ; y ; (C) ? x , y , (D) x = 1; y = 2
39 如果VB语句超过一行，可以使用空格加（d ）续行。 (A) - (B) + (C) ； (D) _
40正确使用Cls方法的是（ b）。 (A) Text1.Cls (B) Picture1.Cls (C) List1.Cls (D) Image1.Cls
41下列语句合法的是（c ）。 (A) x + y = 2 (B) x > 2 = y (C) x = y > 2 (D) x = y++
42错误使用Print方法的是（d ）。 (A) Picture1.Print (B) Form1.Print (C) Debug.Print (D) Text1.Print
43 print方法分区输出时，用（ b）分隔多个表达式。 (A) 空格 (B) 逗号 (C) 冒号 (D) 分号
44. Print "10+6="; 10+6的输出结果是（c ）。 (A) 16=10+6 (B) 10+6=10+6 (C) 10+6=16 (D) "10+6="10+6
45. 下列叙述错误的是（a ）。 (A) 不允许使用行号与标号 (B) 单条语句可分行书写 (C) 同一行上可以书写多条语句 (D) VB代码不堠 ??分字母的大小写
46. 执行x = InputBox("请输入半径",0,"求面积") ，在输入框中输入3后回车,则下列叙述正确的是（ b）。 (A) x的值是数值3 (B) x的值是字符"3" (C) 0是默认值 (D) 对话框标题是"求面积"
47. 执行x = MsgBox("数据类型不匹配",1,"出错提示!") ，然后单击消息框的"取消"按钮，x的值是（ 2）。 (A) True (B) False
计算机二级考试VB填空练习题
计算机⼆级考试VB填空练习题填空题第1题表达式 1 and 0的值______________________答案： False第2题把"Visual Basic程序设计"添加到列表框lstBooks____________________________ 答案： lstBooks.AddItem "Visual Basic程序设计"第3题 For k=35 to 0 step 3next k 语句的循环次数是_______________________答案：0第4题 Val("123.55ab456")的值是多少_____________________________答案：123.55第5题每隔定时器控件的Interval属性值时间间隔,单位为毫秒,定时器会触发⼀次________________________事件答案：Timer第6题表达式(-3) And 8 的值为_______________________.答案：True第7题 Print "x=" & (2=4) 的结果为________________________.答案： x=False第8题要使同⼀类型控件组成⼀个控件数组,必须要求_______________________.答案： Name 相同或名称相同第9题循环语句FOR K=1 TO 10 STEP –1控制的循环次数为___________________.答案： 0第10题设a=2,b=3,c=4,d=5,则NOT a<=c OR 4*c=b^2 AND b<> a+c 的值为______________. 答案： False第11题声明定长为10个字符变量Sstr的语句为______________________.答案： Dim Sstr as String*10 或 Sstr as String*10第12题在VB中,若要将字符串"12345"转换成数字值应使⽤的类型转换函数是____________. 答案： VAL 或 Cint第13题在⼀条Dim语句中可以声明多个变量,如Dim strVar,intVar,sngVar As Integer, 则strVar、intVar与sngVar的数据类型分别是Variant、Variant和_____________________. 答案： Integer第14题滚动条控件主要⽀持两个事件,它们是scroll和____________________事件.答案： change第15题所有控件都具有的共同属性是____________________属性.答案： name〖第16题〗Visual Basic为添加到窗体上的第⼀个图⽚框picture提供的默认对象名为______. 答案： Picture1〖第17题〗A和B同为正整数或同为负整数的VB表达式为________________.答案： A=INT(A)★AND★ B=INT(B)★ AND★ A*B>0〖第18题〗变量min@表⽰_______________类型的变量.答案：货币数据变量或货币〖第19题〗表达式 32\7 MOD 3^2 的值是____________________.答案： 4〖第20题〗把整型数1赋给⼀个逻辑型变量,则逻辑变量的值为___________________.答案： True〖第21题〗求x与y之积除以z的余数的VB表达式为_________________________.答案： x*y★Mod★z〖第22题〗以图⽚框Pic1的中⼼位置为圆⼼,以700为半径在Pic1上画⼀个圆的⽅法是______ 答案： pic1.Circle(pic1.width/2,pic1.height/2),700〖第23题〗要使⼀个按钮设为默认按钮,应把此按钮的_____________属性的值设为True.答案： Default〖第24题〗在VB中,若要使⼀个⽂本框(Text)中的内容在超过⽂本框的宽度时能够⾃动换⾏显⽰,应当将这个⽂本框的______________属性的值设置为True.答案： MultiLine〖第25题〗设置计时器控件只能触发____________________事件.答案： timer〖第26题〗VisualBasic6.0⽤于开发____________________环境下的应⽤程序.答案： WINDOWS〖第27题〗 VB6.0是运⾏于Windows 9x/NT操作系统环境下的⼀个快速可视化程序开发⼯具,⽤它进⾏程序设计,有两个基本的特点,即可视化设计和___________________.答案：事件驱动编程〖第28题〗X=2:Y=8:PRINT X+Y=10的结果是___________________.答案： True〖第29题〗表达式81\7 MOD 2^2 的值是_______________________.答案： 3〖第30题〗如果:I=11:J=3:I=int(-8.6)+I\J+13/3 MOD 5,则I值是____________________.答案： -2〖第31题〗VB表达式9^2 MOD 45 \2 *3 的值___________________.答案： 4〖第32题〗设置控件背景颜⾊的属性名称是____________________.答案： backcolor〖第33题〗⼀个⼯程可以包括多种类型的⽂件,其中,扩展名为.frm的⽂件表⽰_________⽂件. 答案：窗体〖第34题〗要使命令按钮cmdEnd可以以快捷键E访问,应设置属性_________________.答案： Caption〖第35题〗滚动条控件有⽔平滚动条和____________________滚动条.答案：垂直〖第36题〗VB6.0的连接运算符包括___________运算符和_______________运算符两种.答案： 1). & 或 + 2). & 或 +〖第37题〗把条件1<=X<12写成VB关系表达式为____________________.答案： x>=1 ★and★ x<12 或 x<12 ★and★ x>=1〖第38题〗如果在模块的声明段中有Option Base 0语句,则在该模块中使⽤Dim a(6, 3 To 5)声明的数组有____________个元素.答案： 21〖第39题〗VB 6.0的基本表达式包括算术表达式、关系表达式和____________________表达式. 答案：逻辑〖第40题〗变量min&表⽰_______________类型的变量.答案：长整型〖第41题〗将焦点定位于命令按钮Command1之上的语句为_____________________.答案： Command1.SetFocus 或 SetFocus〖第42题〗 VB提供了列表框控件,当列表框中的项⽬较多,超过了列表框的长度时,系统会⾃动的在列表框边上加⼀个_______________________.答案：垂直滚动条或滚动条〖第43题〗在利⽤Visual Basic设计应⽤程序时,⼀般会遇到三类错误:语法错误、执⾏错误和__________________.答案：逻辑错误〖第44题〗声明单精度常量g(重⼒加速度)代表9.8可写成____________________.答案： const g=9.8 或 const single g=9.8〖第45题〗VB中, 数组变量的声明可分为两种⽅法:____________数组和动态数组.答案：静态〖第46题〗Option Base 1的作⽤是确定数组的下界为____________________.答案： 1〖第47题〗设x为⼀个两位数,将x个位数和⼗位数交换后所得两位数VB的表达式是________________.答案： (x mod 10)★*★10★+★int(x/10)〖第48题〗如果要使⽤命令按钮表⾯显⽰⽂字"退出(X)"(在字符X之下加下划线),则其Caption 属性设置为__________________.答案：退出(&X)〖第49题〗写出清除标签Label1的显⽰信息的语句为____________________.答案： Label1.caption="" 或 Label1="" 或 Label1.Caption=""〖第50题〗表达式93\7 MOD 2^3的值是___________________.答案： 5〖第51题〗拖动滚动条中的滚动框将会产⽣Scroll和__________________事件.答案： Change〖第52题〗表达式(-3) Mod 8的值为__________________.答案：–3〖第53题〗想拥有"快捷键"这项功能,必须在"菜单编辑器"中增加⼀些特殊的设置,也就是在字母之前加上___________________.答案： &〖第54题〗在VB中,若要改变⼀个窗体的标题,应在属性窗⼝中改变这个窗体的__________________属性的值.答案： Caption〖第55题〗如果在模块的声明段中有Option Base 1语句,则在该模块中使⽤Dim a(3 To 5,6)声明的数组有__________________个元素.答案： 18〖第56题〗在VB中,窗体由属性定义外观,由_____________________定义⾏为,由事件定义其与⽤户的交互.答案：⽅法〖第57题〗当x=2时,语句if x=2 then Print x=2 的结果值是______________________.答案： True〖第58题〗VB的运算符包括算术运算符、____________运算符、关系运算符、逻辑运算符和特殊运算符.答案：连接〖第59题〗如果要在单击钮时执⾏⼀段代码,则应将这段代码写在______________事件过程中. 答案： click〖第60题〗VB中的变量按其作⽤分为全局变量,模块变量,_____________________.答案：局部变量〖第61题〗使⽤Circle⽅法在窗体Form1上以(15,15)为圆⼼,10为半径画圆,具体形式为_____. 答案： form1.circle (15,15),10〖第62题〗声明单精度常量P1代表3.14159的语句为_______________________.答案： Const PI=3.14159 或 Const pi As Single = 3.14159〖第63题〗列表框(ListBox)显⽰__________________,⽤户可以从中选择⼀个或多个项⽬.答案：项⽬列表或列表〖第64题〗⽂本框中所显⽰的内容是它的____________________属性的值.答案： Text〖第65题〗若要在字符串asdgewl中取dge,则使⽤函数__________________实现.答案： Mid$(asdgewl$,2,3) 或 Mid(asdgewl,2,3)〖第66题〗在过程调⽤中,参数的传递可分为:地址传递和_______________传递两种⽅式. 答案：值〖第67题〗在VB 6.0中,变量名最长可达_______________个字符.答案： 255〖第68题〗征兵的条件:男性(sex)年龄(age)在18—20岁之间,⾝⾼(size)在1.65⽶以上;或者⼥性年龄在16—18岁之间,⾝⾼在1.60以上, 列出逻辑表达式_________________.答案： (★sex★and★age>=18★and★age<=20★and★size>=1.65★)★or★(★notsex★and★age>=16★and★age<=18★and★size>=1.60★)〖第69题〗对象具有属性和_________________________.答案：⽅法〖第70题〗当程序运⾏时,要求窗体中的⽂本框呈现空⽩,则在设计时,把此⽂本框的______________属性设置成空⽩.答案： Text〖第71题〗写出⽤随机函数产⽣⼀个200⾄300之间整数的VB表达式___________________.答案： 200★+★Int(★Rnd*100★) 或 200★+★Int(★100*Rnd★)〖第72题〗在VB中,若要重新定义⼀个动态数组的元素个数,应当使⽤_____________语句对其进⾏重新定义.答案： ReDim〖第73题〗⼀个⼯程可以包括多种类型的⽂件,其中,扩展名为.vbp的⽂件表⽰_______⽂件.答案：⼯程〖第74题〗写出清除图⽚框的⽂字或图形信息的语句_____________________.答案： Picture1.cls 或 cls〖第75题〗设置计时器对象触发事件的时间间隔⽤________________________属性.答案： interval〖第76题〗VB 的⼯作模式可分为三种:"设计"、"运⾏"以及"________________________".答案：中断〖第77题〗把整数0赋给⼀个逻辑型变量,则逻辑变量的值为__________________.答案： False〖第78题〗在过程调⽤中,参数的传递可分为两种⽅式,其中按___________传递⽅式是默认的. 答案：地址〖第79题〗要使⼀个按钮⽆效,则可把它的Enable属性设为______________.答案： False第80题由For k=35 to 0 step 3:next k循环语句控制的循环次数是___________________. 答案： 0第81题 sst="ABC12DE",则Val(sst)=__________________.答案： 0第82题⼀元两次⽅程ax2+bx+c=0有实根的条件为a≠0,并且b2-4ac≥0,列出逻辑表达式______________________.答案： a<>0★and★b^2-4*a*c>=0第83题⼀般情况下,控件有两个属性项的缺省值是相同的,这两个属性项是name和______________.答案： caption第84题如果:I=12:J=3:I=int(-8.6)+I\J+13/3 MOD 5,则I值是____________________.答案： -1第85题要使Visual Basic的⽂本框不允许多⾏输⼊,应设置_____________属性为false.答案： MultiLine第86题⼤于X 的最⼩整数的VB表⽰形式为____________________.答案： Int(x)+1 或 Int(x)★+★1当我被上帝造出来时，上帝问我想在⼈间当⼀个怎样的⼈，我不假思索的说，我要做⼀个伟⼤的世⼈皆知的⼈。
全国计算机二级考试《VB》操作试题及答案
全国计算机二级考试《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考试题库及答案计算机二级vb考试题库一及答案1.下列关于栈的叙述正确的是(D)A)栈是非线性结构B)栈是一种树状结构C)栈具有先进先出的特征D)栈具有后进先出的特征2.若某二叉树的前序遍历访问顺序是abdgcefh，中序遍历访问顺序是dgbaechf，则其后序遍历的结点访问顺序是(D)A)bdgcefhaB)gdbecfhaC)bdgaechfD)gdbehfca3.根据数据结构中各数据元素之间前后件关系的复杂程度，一般将数据结构分成(C)A)动态结构和静态结构B)紧凑结构和非紧凑结构C)线性结构和非线性结构D)内部结构和外部结构4.下面对对象概念描述错误的是(A)A)任何对象都必须有继承性B)对象是属性和方法的封装体C)对象间的通讯靠消息传递D)操作是对象的动态属性5.软件开发的结构化生命周期方法将软件生命周期划分成(A)A)定义、开发、运行维护B)设计阶段、编程阶段、测试阶段C)总体设计、详细设计、编程调试D)需求分析、功能定义、系统设计6.下列工具中为需求分析常用工具的是(D)A)PADB)PFDC)N-SD)DFD7.开发大型软件时，产生困难的根本原因是(A)A)大系统的复杂性B)人员知识不足C)客观世界千变万化D)时间紧、任务重8.下述关于数据库系统的叙述中正确的是(A)A)数据库系统减少了数据冗余B)数据库系统避免了一切冗余C)数据库系统中数据的一致性是指数据类型一致D)数据库系统比文件系统能管理更多的数据9.单个用户使用的数据视图的描述称为(A)A)外模式B)概念模式C)内模式D)存储模式10.关系数据库管理系统能实现的专门关系运算包括(B)A)排序、索引、统计B)选择、投影、连接C)关联、更新、排序D)显示、打印、制表计算机二级vb考试题库二及答案1.以下程序段运行的结果为(B)Private Sub Form_Click( )MyDate = #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_Click( )MyTime = #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_Click( )MyDate = #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_LostFocus( )If Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"End IfEnd Sub当在text1文本框中输入字符"abc"之后，单击命令按钮，结果为(B)A.显示对话框，提示信息为"帐号正确"B.显示对话框，提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示5.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Text1_LostFocus( )If Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"End IfEnd Sub当在text1文本框中输入数字123456之后，单击命令按钮，结果为(A)A.显示对话框，提示信息为"帐号正确"B.显示对话框，提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示6.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Command1_Click( )Dim 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_Click( )Dim 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_Click( )Dim I As IntegerIf Text1.Text "Gong" ThenI = MsgBox("密码错误", VbRetryCancle + vbExclamation, "输入密码")If I 4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"123"，显示"密码错误"对话框，关于此对话框描述正确的是(A)A.显示对话框中有“重试”按钮B.显示对话框中有“确定”按钮C.显示对话框中有“是”按钮D.以上说法都不正确9.在窗体中建立三个文本框，名称分别为text1、text2和text3，还有一个名称为label1的标签，一个名称为command1的命令按钮，编写如下代码：Private Sub Command1_Click( )Dim x!, y!, z!, t!x = Text1y = Text2z = Text3If x y Thent = xx = yy = tEnd IfIf y z Thent = yy = zz = 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_Load( )Dim 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.32=6D.32=1.5看了“计算机二级vb考试题库及答案”。
全国计算机二级《VB》练习题及答案
全国计算机二级《VB》练习题及答案1.双击窗体中的对象后，VB将显示的窗口是(C)(单)A.工具箱B.工程(工程)窗口C.代码窗口D.属性窗口2.下述选项中，VB的程序设计方法是(B)(单)A.面向对象、顺序驱动B.面向对象、事件驱动C.面向过程、事件驱动D.面向过程、顺序驱动3.在VB中，要将一个窗体装载到内存进展变量初始化等预处理，但没有显示该窗体，应使用的方法或语句是(C)(单)A.ShowB.UnloadC.LoadD.Hide4.文本框的默认属性是(B)(单)A.CaptionB.TextD.Top5.标签默认属性是(A)(单)A.CaptionB.TextD.Top6.执行以下程序段：a$="abbacddcba"For I=6 To 2 Step -2X=Mid(a,I,I)Y=Left(a,I)z=Right(a,I)z=Ucase(X&Y&z)Next IPrint z输出结果为(B)(单)A.ABAB.BBABBAC.ABBABAD.AABAAB7.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Option Base 1Private Sub Command1Click( )Dim a As Varianta=Array(1,2,3,4,5)Sum=0For I=1 To 5Sum = sum+a(I)x=Sum/5For I =1 To 5If a(I)>x Then Print a(I);Next IEnd Sub程序运行后，单击命令按钮，在窗体上显示的内容是(D)(单)A.1 2B.1 2 3C.3 4 5D.4 58.假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。
Model1代码如下：Public x As IntegerPublic y As IntegerSub S1( )x =1S2End SubSub S2( )y=10Form1.ShowEnd SubModel2的代码如下：Sub Main( )S1End Sub其中Sub Main被设置为启动过程。
计算机二级考试VB练习题及答案
计算机二级考试VB练习题及答案计算机二级考试VB练习题及答案为了使广大考生在备战计算机等级考试时，更快的掌握相应知识点，下面是店铺搜索整理的计算机二级考试VB练习题及答案，供参考练习，预祝考生们考出自己理想的成绩!计算机二级考试VB练习题及答案1.以下程序是求最大公约数和最小公倍数的程序，在【】处填写合适的关系运算符。
Private Sub Form_Click( )Dim m1, n1, m, n, r As Integern1 = InputBox("输入自然数n", "输入数")m1 = InputBox("输入自然数m", "输入数")n = n1m = m1If m<n p="" then<="">t = m: m = n: n = tEnd Ifr = m Mod nDo While r 【<>】 0m = nn = rr = m Mod nLoopPrint "最大公约数=", nPrint "最小公倍数= ", m1 * n1 / nEnd Sub2.下面是求100以内素数的程序。
Private Sub Command1_Click( )Dim i As Integer, m As Integer, tag As BooleanFor m = 2 To 100tag = TrueFor i = 2 To m - 1If m Mod 【i】 = 0 Then tag = FalseNext iIf tag Then Print mNext mEnd Sub3.下面是求100以内素数的程序，下面说法正确的是(A)(单)Private Sub Command1_Click( )Dim i As Integer, m As Integer, tag As BooleanFor m = 2 To 100tag = TrueFor i = 2 To m - 1If m Mod i = 0 Then tag = FalseNext iIf tag=true Then Print mNext mEnd SubA.tag为true时，表示m是素数B.tag为false时，表示m是素数C.语句m Mod i = 0，说明m是素数D.以上说法都不正确4.百元买百鸡问题：假定小鸡每只5角,公鸡每只2元，母鸡每只3元。
计算机二级VB练习题附答案
计算机二级VB练习题附答案计算机二级VB练习题附答案计算机二级考试是全国计算机等级考试（National Computer Rank Examination，简称NCRE）四个等级中的一个等级，考核计算机基础知识和使用一种高级计算机语言编写程序以及上机调试的基本技能。
那么计算机二级vb考试会怎么考？以下仅供参考！【计算机二级VB练习题一】1、为了在运行时能显示窗体左上角的控制框(系统菜单)，可以设置以下哪个属性的值为True( )。
A.Contr01BoxB.MinButtonC.MaxButtonD.BorderStyle参考答案：A参考解析：本题考查窗体的常见属性。
窗体中ControlBox属性用来控制是否显示控制菜单，属性值为False时不显示控制菜单。
属性MinButton和MaxButton控制是否显示最大化和最小化按钮，属性BorderStyle则是设置窗体的边界样式。
2、组合框是文本框和( )特性的组合。
A.复选框B.标签C.列表框D.目录列表框参考答案：C参考解析：本题考查组合框。
组合框控件(ComboBox)是将文本框和列表框的功能结合在一起，用户可以在列表中选择某项(注：只能选取一项)，或在编辑区域中直接输入文本内容来选定项目。
3、Visual Basic根据计算机访问文件的方式将文件分成3类，其中不包括( )。
A.顺序文件B.Unix文件C.二进制文件D.随机文件参考答案：B参考解析：本题考查VB文件的分类。
VB中根据文件的访问形式分为顺序文件、随机文件和二进制文件。
4、下列模式中，能够给出数据库物理存储结构与物理存取方法的是( )。
A.内模式B.外模式C.概念模式D.逻辑模式参考答案：A参考解析：数据库管理系统的三级模式结构由外模式、模式和内模式组成。
外模式，或予模式，或用户模式，是指数据库用户所看到的数据结构，是用户看到的数据视图。
模式，或逻辑模式，是数据库中对全体数据的逻辑结构和特性的描述，是所有用户所见到的数据视图的总和。
计算机二级VB图形操作练习题及答案
计算机二级VB图形操作练习题及答案计算机二级VB图形操作练习题及答案导语：计算机二级VB图形操作只有多做练习题才会熟练，下面就由店铺为大家带来计算机二级VB图形操作练习题及答案，希望对大家有所帮助！一、单选题1．坐标度量单位可通过 ________来改变。
A）DrawStyle属性B）DrawWidth属性C）Scale方法D）ScaleMode属性2．以下的属性和方法中 ________可重定义坐标系。
A）DrawStyle属性B）DrawWidth属性C）Scale方法D）ScaleMode属性3．当使用Line方法画线后，当前坐标在 ________。
A）(0, 0）B）直线起点C）直线终点D）容器的中心4．执行指令“Circle (1000，1000)，500，8，-6，-3”将绘制________。
A）画园B）椭圆C）圆弧D）扇形5．执行指令“Line (1200，1200)-Step(1000，500)，B”后，CurrentX= ________。
A）2200B）1200C）1000D）17006．对象的边框类型由属性 ________来决定。
A）DrawStyleB）DrawWidthC）BorderSyleD）ScaleMode7．下列______途径在程序运行时不能将图片填加到窗体、图片框或图象框的Picture属性。
A）使用LoadPicture()方法B）对象间图片的复制C）通过剪贴板复制图片D）使用拖放操作8．设计时填加到图片框或图像框的图片数据保存在 ________。
A）窗体的frm文件B）窗体的frx文件C）图片的原始文件内D）编译后创建的exe文件9．窗体和各种控件都具有图形属性，下列________属性可用于显示处理。
A）DrawStyle、DrawMode B）AutoRedraw、ClipControlsC）FillStyle、FilleColorD）ForeColor、BorderColor10．当窗体的AutoRedraw属性采用默认值时，若在窗体装入时要绘图方法绘制图形，则应用程序放在 ________。
福建省计算机二级vb考试试题及答案
福建省计算机二级vb考试试题及答案一、单项选择题（每题2分，共20分）1. 在Visual Basic中，下列哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. 如果变量x的值是5，那么表达式x > 3 AND x < 7的值是什么？A. TrueB. FalseC. 5D. 3答案：A3. 在Visual Basic中，下列哪个关键字用于声明一个过程？A. FunctionB. SubC. ClassD. Property答案：B4. 下列哪个控件不适用于显示文本？A. LabelB. TextBoxC. ButtonD. ComboBox答案：C5. 在Visual Basic中，如何将一个字符串转换为小写？A. UCase()B. LCase()C. StrComp()D. StrConv()答案：B6. Visual Basic中的哪个事件用于响应鼠标单击？A. ClickB. DoubleClickC. MouseDownD. MouseUp答案：A7. 在Visual Basic中，下列哪个选项是正确的文件访问模式？A. OpenMode.InputB. OpenMode.OutputC. OpenMode.RandomD. All of the above答案：D8. 如果变量a的值是10，变量b的值是20，那么表达式a MOD b的值是什么？A. 10B. 20C. 0D. 2答案：A9. 在Visual Basic中，哪个函数用于计算数组中元素的和？A. Sum()B. Count()C. Avg()D. Max()答案：A10. 下列哪个选项是Visual Basic中的保留关键字？A. DimB. IfC. ThenD. All of the above答案：D二、填空题（每题2分，共20分）1. 在Visual Basic中，____关键字用于声明一个变量。
全国计算机二级VB考试练习题及答案
全国计算机二级VB考试练习题及答案全国计算机二级VB考试练习题及答案想要顺当通过全国计算机二级VB考试，那么就要多做习题，下面我为大家带来了全国计算机二级VB考试练习题及答案，欢迎大家阅读!全国计算机二级VB考试练习题及答案1.以下程序是求最大公约数和最小公倍数的程序，在处填写合适的关系运算符。
Private Sub Form_Click( )Dim m1, n1, m, n, r As Integern1 = InputBox(输入自然数n, 输入数)m1 = InputBox(输入自然数m, 输入数)n = n1m = m1If mt = m: m = n: n = tEnd Ifr = m Mod nDo While r 0m = nn = rr = m Mod nLoopPrint 最大公约数=, nPrint 最小公倍数= , m1 * n1 / nEnd Sub2.下面是求100以内素数的程序。
Private Sub Command1_Click( )Dim i As Integer, m As Integer, tag As Boolean For m = 2 To 100tag = TrueFor i = 2 To m - 1If m Mod = 0 Then tag = FalseNext iIf tag Then Print mNext mEnd Sub3.下面是求100以内素数的程序，下面说法正确的是(A)(单) Private Sub Command1_Click( )Dim i As Integer, m As Integer, tag As BooleanFor m = 2 To 100tag = TrueFor i = 2 To m - 1If m Mod i = 0 Then tag = FalseNext iIf tag=true Then Print mNext mEnd SubA.tag为true时，表示m是素数B.tag为false时，表示m是素数C.语句m Mod i = 0，说明m是素数D.以上说法都不正确4.百元买百鸡问题：假定小鸡每只5角,公鸡每只2元，母鸡每只3元。
计算机二级VB考试题及答案
计算机二级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亿。