vb选择题
1; 在vb中，下列哪一数据类型长度为四个字节（）
;A);货币型;B);日期型; C);单精度型; D);双精度型
2;下列语句中哪一句正确定义了一个整型变量（）
;A);Dim i As Integer;B);Dim i As Int;C);Static i As Long;D);Static I As Single
3;关于整型变量下列说法错误的是（）
;A);用于保存整数;B);类型符为%;C);最大整数为216-1;D);占两个字节
4;关于逻辑数据类型下列说法正确的是（）
;A);该数据类型可进行数值运算; B);该数据类型只有两个值;
C);该数据类型占1个字节; D);定义该类型的关键字为bool
5; 下列哪一组语句不能正确定义两个字符型变量（）
;A);Dim str1,str2 as String ;B); Dim str1$,str2$
;C);Dim str1 as String ,str2 as String ;D);Dim str1 as String Dim str2 as String
6;下面哪一个关键字不能用来声明变量（）;A);Dim ;B);Static ;C);private ;D);define 7;下列符号中，哪一个是不合法的变量名（）;A);124-q ;B);a_q ;C);变量;D);xyz 8;下列符号中，哪一个是合法的变量名（）;A);1_1 ;B);123_a ;C);integer ;D);sinx 9; 若选拔优秀毕业生的条件是：年龄（age）小于19岁，三门功课总分(total)大于285分，其中有一门(mark)为100分，表达式应写为
;A);age<19 and total>285 and mark1=100 or mark2=100 or mark3=100
;B);age<19 and total>285 or mark1=100 or mark2=100 or mark3=100
;C);age<19 and total>285 and （mark1=100 or mark2=100 or mark3=100）
;D);(age<19 or total >285) and (mark1=100 or mark2=100 or mark3=100)
10；要产生30—50之间的随机整数，下列表达式正确的是（）
;A);int(rnd*20+30) ;B);int(rnd*21+30) ;C);int (rnd*31+20) ;D);int(rnd*50)
11;函数asc("A")的值为（）;A); 97;B); 65 ;C);12 ;D);64
12;实现ASCII码转换成字符的函数是（）
;A);STRING( ) ;B);ASC( ) ;C);STR( ) ;D);CHR$()
13;INT(-7.3)=( ) ;A); 7 ;B);8 ;C);-7 ;D);-8
14;ROUND(-7.3)=( ) ;A);7 ;B);8 ;C);-7 ;D);-8
15;V AL("123A")=( ) ;A);123A ;B);12365 ;C);123 ;D);"123"
16;LEFT$("ABCDEF",3)=( ) ;A);"DEF" ;B);"CDE" ;C);"ABC" ;D);"BCD"
17;LEN("AB高等教育")=( ) ;A);6 ;B);7 ;C);12 ;D);14
18;RIGHT$("ABCDEF",3)=( ) ;A);"DEF" ;B);"CDE" ;C);"ABC" ;D);"BCD"
19;STRING$(3,"ACDEF")=( ) ;A);"AAA" ;B);"ACD " ;C);"DEF" ;D);"FFF"
20;下面哪一个函数返回系统日期（）;A);DA TE( ) ;B);NOW( ) ;C);TIME() ;D);DAY() 21; 下面哪一个函数返回系统时间（）;A);DA TE();B);NOW() ;C);TIME() ;D);DAY() 22;下面哪一个函数返回系统日期和时间（）;A);DA TE();B);NOW() ;C);TIME() ;D);DAY() 23;有程序段如下
Private Sub Form_Click()
Dim I As Integer
I = I + 1
Print I
End Sub
当第三次单击窗体时打印出的I值为（）
;A);0 ;B);1 ;C);2 ;D);3
24; 已知X=1,Y=2,T=0 经程序段X=T:T=Y:Y=T 赋值后X,Y 值分别为（）;A);1,2 ;B);0,0 ;C);0,2 ;D);1,0
25;语句SELECT CASE X 中,X为一整型变量，下列CASE语句中,哪一句表达式是错误的（）;A);CASE IS>20 ;B);CASE 1 TO 10 ;C);CASE X>10 ;D);CASE 2,4,6
26;下列哪个语句用来打开一个已存在的文件或建立一个新文件（）
;A);GET ;B);INPUT ;C);PUT ;D);OPEN
27;下列哪一组语句正确将文本框Text1的全部内容一次性写入文件（）
;A); Open “Text.dat”For Output As #1
Print #1 Text1.text
Close #1
;B); Open “Text.dat” For Input As #1
Print #1 Text1.text
Close #1
;C); Open “Text.dat” For Input As #1
Print #1 Text1.text
Close #1
;D); Open “Text.dat” For Output As #1
For I= 1 to Len(Text1.text)
Print #1 Mid(Text1.text,I,1)
Next I
Close #1
28;下列哪一种格式画出了一条从（0，0）到（x，y）的直线
;A);Line(x,y) ;B);Line(0,x,0,y) ;C);Line(0,0,x,y) ;D);Line(0,0)-(x,y)
29;下面哪一条语句正确画出了一组半径由5到10每次递增1，圆心在（15，15），红色的同心圆（）;A);For I= 5 to 10
Circle(15,15),I,RGB(255,0,0)
Next I;B);For I= 1 to 10
Circle I,(15,15),RGB(0,255,0)
Next I;C);For I= 5 to 10
Circle I,(15,15),RGB(255,0,0)
Next I;D);For I=5 to 10
Circle(15,15),I,RGB(0,255,0)
Next I
30;设已有语句Option Base 1，下面哪一组语句正确定义了有10个整型元素的数组（）
;A); dim x(9) as integer ;B); dim x(n) as integer n=10
;C);dim x(10) as integer
;D);dim x(n) as integer n=9
31;循环语句For I= -3 to 20 step 4的循环次数为多少（）;A);4;B);5;C);6;D);7
32; 下列关于通用对话框CommangDialog控件说法正确的是：（）
;A);可在工具箱里选择直接添加;B);可以实现文件打开，存储，颜色设置等功能
;C);是ActiveX控件;D);运行时大小可以改变
33;下面哪一段循环嵌套是正确的（）
;A); For I= 1 to 10
For J=1 to 10
…….
Next I
Next j
;B); For I= 1 to 10
For j=1 to 10
………
next j
next I
;C); For I=1 to 10
For j= 1 to 20
………
next I
next I
;D); For I= 1 to 10
For j=1 to 20
………
next j
next j
34;已知变量S初值为0，下列哪组语句求出s=1+2+3…+100的和( )
;A);For I=1 to 100
s=s+1
next I
;B);For I=1 to 100
s=s+I
next I
;C);do
I=I+1
s=s+I
loop
;D);do
s=s+I
if I=100 then exit do
loop
35;下列关于控件数组说法正确的是( )
;A);同一数组有相同的属性;B);同一数组可由不同类型的控件组成
;C);同一数组的各个控件元素的属性可不同;D);每个元素可以有多个索引号36;下面关于图形框(PictureBox)和图像框(Image)说法不正确的是( )
;A);图形框可保存其他控件;B);均可加载图片
;C);图像框可以保存其他控件;D);图像框可以比图形框占用更少内存
37;下面关于文本框和标签说法不正确的是( )
;A);标签经常用来显示文本信息;B);文本框具有Lostfocus 事件
;C);可以在标签上输入、编辑、显示文本内容;D);文本框是一个文字编辑区域
38;下面关于比较排序说法不正确的是（）
;A);在每一轮排序时找最小数（递增次序）的下标,内循环结束时,再交换最小数的位置
;B);在每一轮排序时将相邻的数比较,当大小次序不对就交换位置
;C); 比较排序又称冒泡排序
;D); 在每一轮排序时（递增次序），内循环结束，则最小数冒出
39;下列哪一个不属于文件系统控件（）
;A);驱动器列表框;B); 目录列表框;C); 文本框;D);文件列表框
40;下列哪一个属性不属于文本框：（）
;A);text ;B);caption ;C);name ;D);height
41;下列哪一个操作不是从顺序文件中读数据到内存的步骤：（）
;A);打开;B);写入;C);读出;D);关闭
42;下列数据类型与其类型说明符对应正确的是( )
;A);%--整型;B);$--货币型;C);@--字符型;D);!—长整型
43;关于VB 中的运算符，以下说法正确的是( )
;A);“×”是算术运算符，含义是“乘法运算”；;B);“≠”是关系运算符，含义是“不等于”；;C);“!”是逻辑运算符，含义是“非”；;D);“And”是逻辑运算符，含义是“与”。44;在某一VB 程序中有程序代码段：
Dim A,B,C As String
A="35"
B="53"
C=A+B
请分析运行该段代码后，C值为（）;A);"33" ;B);"55" ;C);"3553" ;D);"88"
45;默认情况下，对数组定义语句：Dim S (20) As Double，以下说法正确的是（）
;A);S的元素是S0，S1，S2，S3，……；;B);数组S下标下界从0开始，上界是20；
;C);数组S一共有20个元素；;D);数组S在计算机内占用的存储空间是40个字节。46;显示窗体可用窗体对象的（）
;A);Move方法;B);Show 方法;C);Display 方法;D);Load 方法
47;使用PictureBox控件显示图形，下列方法不能达到目的的是( )
;A);在设计时使用对象的Picture 属性；;B);在设计时使用剪贴板把图形从剪贴板粘贴到控件上;C);在运行时使用LoadPicture 函数装入指定的图形文件,然后将函数返回值赋值给控件的Picture 属性；;D);在运行时使用剪贴板把图形从剪贴板粘贴到控件上
48;以下不属于文件存取方式的是( )
;A);顺序方式;B);随机方式;C);ASCII 方式;D);二进制方式
49;下列哪种方法不属于绘图方法（）;A);Dot ;B);Pset;C);Line ;D);Circle
50;Open语句中，关键字For用于指定打开文件的方式，下列说法错误的是( )
;A);For Input指顺序打开文件，只能读取文件内容。;B);For Output指顺序打开文件，向文件写入内容。;C);For Append指顺序打开文件，向文件写入内容，与For Output不同的是，它覆盖原有的内容。;D);For Binary指以二进制方式打开文件。
51;从磁盘顺序文件中读取一整行的信息，通常使用( )
;A);Line Input#函数;B);Input Line#语句;C);Input Line#函数;D);Line Input#语句
52;下列不属于一个完整数据库中所应包含的基本要素是( )
;A);数据管理器;B);记录;C);字段;D);数据表
53;Round（-4.5）的结果为（）;A);-3 ;B);-5 C);-4 D);以上都不对
54;VB中使用通用对话框CommonDialog控件不能打开的对话框为( )
;A);输入对话框;B);文件对话框;C);颜色对话框;D);打印对话框
55;VB中隐藏窗体的方法是（）;A);Unload ;B);Stop ;C);Hide ;D);Show
56;VB中每个对象都有一个( )属性，可以被设置为True或者False，分别用来激活或禁止该对象;A);Caption ;B);Name ;C);Visible ;D);Enabled
57;文件对话框中用于过滤文件类型的属性是( )
;A);Filter ;B);Open ;C);FileTitle ;D);Filename
58;下面说明符代表字符串类型的是( ) ;A);% ;B);# ;C);$ ;D);@
59;事件KeyPress由（）引发。;A);按下一个会产生ASCII码的键时被触发。;B);按下键盘上任一个键时被触发。;C);按下并释放一个会产生ASCII码的键时被触发。;D);以上答案都不对。
60;事件KeyUp由（）引发。;A);按下一个会产生ASCII码的键时被触发。;B);按下键盘上任一个键时被触发。;C);释放一个会产生ASCII码的键时被触发。;D);释放键盘上任一个键时被触发。
61;事件KeyDown由（）引发。;A);按下一个会产生ASCII码的键时被触发。;B);按下键盘上任一个键时被触发。;C);释放一个会产生ASCII码的键时被触发。;D);释放键盘上任一个键时被触发。
62;事件Click由（）引发。;A);移动鼠标;B);单击鼠标;C);双击鼠标;D);三击鼠标
63;事件DblClick由（）引发。;A);移动鼠标;B);单击鼠标;C);双击鼠标;D);三击鼠标64;对象的三要素是( )。
;A);属性、事件、程序;B);属性、事件、方法;C);窗体、事件、程序;D);语句、函数、程序65;表达式NOT(“ABC”= “ABK”) OR (“abc”= “habc”)的结果为( )。
;A);TRUE ;B); FALSE ;C);TURE ;D);不能确定
66;已知X=“OPQRSTXYZ”，表达式Left$(X,3)+MID$(X,3,4) 的结果为( )。
;A);OPQQR;B);OPQXYZ;C);OPQQRST;D);OPQTXYZ
67;“1234”&1234的运行结果是（）;A);"12341234";B);"1234";C);1234;D);出错68;VB的三种工作模式是（）。
;A);设计模式、调试模式、错误模式;B);设计模式、运行模式、错误模式
;C);设计模式、错误模式、中断模式;D);设计模式、运行模式、中断模式
69;设计菜单时,要使某个菜单标题有热键字母K，则应在菜单编辑器的( )。
;A);名称栏输入名称加上&K ;B);标题栏输入标题加上&K
;C);名称栏输入名称加上Alt+K ;D);标题栏输入标题加上Alt+K
70;某对象的属性Visible设为False，表示该对象( )。
;A);不可操作;B);不可见;C);无颜色;D);无文字
71;构成一个坐标系的三要素为( )。;A);原点坐标、坐标轴长度和方向、坐标试题单位
;B);坐标原点、ScaleTop、ScaleLeft ;C);ScaleMode、ScaleTop、ScaleLeft
;D);ScaleMode、ScaleHeight、ScaleWidth
72;已知X=25.3689, 则int(X*100)/100的值为（）。;A);25.37;B);25.00;C);25.36;D);25.3 73;下列哪个符号不能作为VB中的变量名？（）
;A);Abab ;B);b123 ;C);68we ;D);cmd
74;下列哪个符号是VB中的合法变量名？（）;A);X23 ;B);8xy ;C);END ;D);X8[K] 75;使用声明语句建立一个变量后，VB自动将数值类型的变量初始化为（）。
;A);空值;B);空格;C);空字符串;D);0
76;使用声明语句建立一个变量后，VB自动将布尔类型的变量初始化为（）。
;A);空值;B);TRUE ;C);FALSE ;D);Null
77;函数Int(Rnd()*100)是下列哪个范围的整数？（）。
;A);（0，10）;B);（1，100）;C);（0，100）;D);（1，99）
78;如果X是一个正实数，对X的第三位小数四舍五入的表达式是（）。
;A);0.01*Int(X+0.005) ;B);0.01*Int(100*(X+0.005))
;C);0.01*Int(100*(X+0.05)) ;D);0.01*Int(X+0.05)
79;MSDN的作用是（）。
;A);提供各种控件及其代码;B);自动生成程序代码
;C);提供程序示例代码、技术文档等;D);包括上述各项功能
80;表达式10<2 Or Not 5>2+6的值为（）。;A);TRUE ;B);FALSE ;C);0 ;D);出错
81;命题：“Z比X、Y都大”的VB布尔表达式为（）。
;A);Z>X Or Z>Y ;B);Z>X And Z>Y ;C);Z>X And Y ;D);Z>X>Y
82;表达式"456"<>"456" And 1<3的值是（）。;A);TRUE ;B);FALSE ;C);0 ;D);出错83;已知x初值为0，语句x=3<1执行后，x值为( );A);1 ;B);TRUE ;C);FALSE ;D);出错84;已知x初值为0，语句Print x=3>1执行后，x值为( )
;A);3 ;B);TRUE ;C);FALSE ;D);出错
85;下列哪个式子不能表达“p是q的倍数”？（）
;A);p Mod q=0 ;B);p/q=p\q ;C);Int(p/q)=p/q ;D);Int(p/q)=Mod(p/q)
86;在For～Next循环程序中，步长不能是（）。;A);负数;B);小数;C);0 ;D);变量87;事件LostFocus是在( )时发生。
;A);对象得到输入内容;B);对象输出内容;C);对象得到焦点;D);对象失去焦点
88;在同一行上书写多个语句时，语句间用（）号分隔。
;A);冒号;B);逗号;C);分号;D);句号
89;若一条语句在一行写不下时，在行末可用（）符号连接。
;A);冒号;B);逗号;C);分号;D);空格+_
90;变量声明语句：Dim 变量名As 类型，若省略“As 类型”，则所创建的变量是（）。;A);字符型;B);逻辑型;C);对象型;D);变体型
91;要使print方法在Form_Load事件中起作用，必须对窗体的( )属性进行设置。
;A);BackColor ;B);ForeColor ;C);AutoRedraw ;D);Caption
92;要使窗体在运行时不可改变其大小和没有最大化、最小化按钮，只要对下列（）属性设置就有效。;A);MaxButton ;B);MinButton ;C);Width ;D);BorderStyle
93;要判断在文本框的文本输入过程中是否按了Enter键，应在文本框的（）事件中判断。;A);Change ;B);Click ;C);KeyPress ;D);Click
94;下面（）是合法的单精度变量。;A);num!;B);sum%;C);xinte$;D);mm#
95;数学关系式3≤x<10表示成正确的VB表达式为（）。
;A);3<=x<10 ;B);3<=x And x<10 ;C);x>=3 Or x<10 ;D);3<=x And <10
96;Rnd函数的值不可能为（）。;A);0 ;B);1 ;C);0.123 ;D);0.5
97;已知x，y为数值型数据，初值为0，下列语句中正确的赋值语句是（）。
;A);x+y=30 ;B);10=x*y*y ;C);y=x+30 ;D);3y=x
98;下面（）是不合法的整常数。;A);100 ;B);&O100 ;C);&H100 ;D);%100
99;VB也提供了结构化程序设计的三种基本结构，它们是（）。
;A);递归结构、选择结构、循环结构;B);递归结构、选择结构、顺序结构
;C);递归结构、过程结构、顺序结构;D);顺序结构、选择结构、循环结构
100;数组声明语句Dim a(3,2 To 5),所声明的数组a中包含的元素有（）个。
;A);16 ;B);12 ;C);9 ;D);6
101;下列控件中，没有Caption属性的是（）。
;A);框架;B);列表框;C);复选框;D);单选按钮
102;引用列表框List1最后一个数据项应使用（）。
;A);List1.List(List1.ListCount) ;B);List1.List(List1.ListCount-1)
;C);List1.List(ListCount) ;D);List1.List(ListCount-1)
103;如果列表框List1中没有被选定的项目，则执行List1.RemoveItem List1.ListIndex语句的结果是（）。
;A);移去第一项;B);移去最后一项;C);移去最后加入列表框中的一项;D);以上答案都不对。104;假设文本框Text1中有选定的文本，执行Text1.SelText="Hello"的结果是（）。
; A);Hello将替换掉原来选定的文本;B);Hello将插入到原来选定的文本之前
;C);Hello将插入到原来选定的文本之后;D);文本框中只有Hello
105;使用菜单编辑器设计菜单时，必须输入的项有（）。
;A);快捷键;B);标题;C);索引;D);名称
106;下面关于窗体事件的叙述中，错误的是（）。
;A);在窗体的整个生命周期中，Initialize事件只触发一次;
B);用Show方法显示窗体时，不一定发生Load事件;
C);当窗体需要重画时，就会触发Paint事件
;D);当窗体的大小有所改变时，就会引发Resize事件
107;当焦点转移到另一个应用程序时，当前应用程序的活动窗体将（）。
; A);发生DeActivate事件;B);发生LostFocus事件
;C);发生DeActivate和LostFocus事件;D);以上事件都不会发生
108;使用Line方法画直线后，当前坐标在（）。
;A);坐标原点;B);直线起点;C);直线终点;D);无法确定
109;VB6.0集成开发环境中不能完成的功能是( )
;A);编辑源程序;B);调试运行程序;C);查找程序病毒;D);显示运行结果
110;VB6.0集成开发环境不包括下列哪个窗口( )
;A);窗体窗口;B);代码窗口;C);属性窗口;D);运行窗口
111;在VB中，应用程序被称为( ) ;A);工程;B);窗体;C);属性;D);对象
112;用户界面设计在( )窗口中进行;A);代码;B);工程;C);属性;D);窗体
113;工程文件的扩展名是( ) ;A);.prg ;B);.frm ;C);.bmp ;D);.vbp
114;窗体文件的扩展名是( ) ;A);.prg ;B);.frm ;C);.bmp ;D);.vbp
115;命令按钮的默认属性是( ) ;A);;B);;C);;D);Top
116;任何控件对象都有的属性是( ) ;A);Name ;B);Caption ;C);Text ;D);visible 117;设置控件文字是否加粗，应在( )属性中进行设置;A);Name;B);Caption;C);Text;D);Font 118;下列变量名中不合法的是( ) ;A);Like1 ;B);W23 ;C);Dim ;D);O_255
119;下列变量名中不合法的是( ) ;A);1ab ;B);3Day ;C);Tr2 ;D);Y_time
120;下列语句中不正确的是( )
;A);T1 = ‘How’;B);T1 = How ;C);T1 = “How”;D);T1 = “123”
121;下列程序段的运行结果是( )
Private Sub Form_click()
Dim s1
s1 = 3: s2 = 2
s1 = s1 + s2
Print s1, s2
End Sub
;A);出错;B);5 5 ;C);5 10 ;D);5 7
122;表达式10 / 5 * 3^2 Mod 4 + 3- 20 Mod 8 \ 3的结果是( );A);出错;B);5 ;C);4 ;D);3 123;设m = “goodmorning”，表达式( )的结果是“mor”
;A);mid$(m,4,3) ;B);Left$(m,3) ;C);Mid$(m,5,3) ;D);Right$(m,7,3)
124;下列程序段的运行结果是()
Dim a
a = 0
If a Then Print a Else Print a + 1
;A);出错;B);0 ;C);-1 ;D);1
125;下列程序段的运行结果是( )
Dim i As Integer, s As Integer
For i = 0 To 4
s = s + i
Next i
Print "s="; s
Print "i="; I
;A);s=10
I=4 ;B);s=15
I=4 ;C);s=10
I=5 ;D);s=15
I=5
126;下列语句中没有错误的是（）
;A);If a>b Then Print a Else Print b Endif
;B);If a>b Then Print a
Endif
;C);If a>b Then
Print a
Else
Endif
;D);If a
Print b
If a>b Then
Print a
Endif
127;下列程序段的输出结果是( )
x = 5
Select Case x + 1
Case 5, 6, 7
Print "5,6,7"
Case 0 To 9
Print "0 to 9"
Print "is>=5"
End Select
;A);5,6,7 ;B);0-9 ;C);0 to 9 ;D);is>=15
128;已知3个整型变量x,y,z，它们的值分别为2,3,0，则执行下列语句后x,y的值是（）;A);2，3;B);3，2;C);0，0;D);0，3
129;下列语句中不可能正确输出3个整型变量x,y,z中最大值的语句是（）
;A);If x>y>z Then
Print x
Endif
;B);If x>=y Then
If x>=z Then
Print x
EndIf
EndIf
;C);If x>=y And x>=z Then
Print x
EndIf
;D);If x<=y or x<=z Then
If y<=z Then
Print y
EndIf
EndIf
130;下列语句执行完毕后，变量i的值是（）
For i=1 to 5
i=i+1
Next I
;A);5 ;B);6 ;C);7 ;D);8
131;下列程序段中，语句i=i+1执行了（）次。
For i=1 to 5
i=i+1
Next I
;A);2 ;B);3 ;C);4 ;D);5
132;下列程序段执行后，变量s的值是（）
s=0
For i=0 to 8 Step 2
s=s+i
Next I
;A);12 ;B);36 ;C);20 ;D);30
133;下列程序段执行后，输出结果是（）
i=1 : s=0
Do
i=i+1
s=s+i
Loop While i>10
Print s
;A);1 ;B);2 ;C);55 ;D);66
134;下列程序段执行后，变量i的值为（）
i=1 : s=0
Do
i=i+1
s=s+i
Loop While i>10
Print s
;A);1 ;B);2 ;C);10 ;D);11
135;设已有语句"Option Base 0"，则下列程序段执行后的输出结果是（）
Dim a, i As Integer
a = Array("abc", "123", "456", "789")
i = 1
Do While i < UBound(a)
Print a(i + 1)
i = i + 1
Loop
;A);789 ;B);456 ;C);123 ;D);以上都不对
789 456
789
136;执行下列程序段后的输出结果是（）
Dim i, j, s As Integer
For i = 0 To 1
For j = 0 To 1
s = s + i * j
Next j
Next i
Print s
;A);0 ;B);1 ;C);2 ;D);3
137;已知整型变量x=1, y=2, z=3, 则表达式x + y < z And x + 1 >= 2 And z - x = y Or Not z = x 的值是（）;A);TRUE ;B);FALSE ;C);1 ;D);表达式出错
138;假定时钟控件Timer1的Interval属性值为500，Enabled属性值为True，标签Label1的Left属性值为400，Width属性值为200，Timer事件代码为：
Private Sub Timer1_Timer()
Label1.Left = Label1.Left - 100
End Sub
则多少秒后标签完全从窗体的左边移出（）
;A); 5 ;B); 4 ;C); 3 ;D);2
139;下列程序段的输出结果是()
For i = 1 To 3
Print i;
Next I
;A); 1 ;B); 1 2 ;C);1 2 3 ;D);123
2 3
3
140;顺序文件是指（）
;A);文件中按每条记录的记录号从小到大排序好
;B);文件中按每条记录的长度从小到大排序好
;C);文件中按记录的某关键数据项从大到小排序
;D);记录按进入的先后顺序存放，读出也是按原写入的先后顺序读出
141;要从磁盘上读入一个文件名为"c:\t1.txt"的顺序文件，以下正确的是（）
;A);F="c:\t1.txt"
Open F For Append As #2
;B);F="c:\t1.txt"
Open "F" For Output As #2
;C);Open c:\t1.txt For Output As #2
;D);Open "c:\t1.txt" For Output As #2
142;CLS可清除窗体或图形框中（）的内容
;A);Picture属性设置的背景图案;B);在设计时放置的控件
;C);程序运行时产生的图形和文字;D);以上A-C全部
143;假设窗体Form1上有控件：命令按钮Command1、列表框List1、标签Label1，下列程序段正确的是（）
;A);Private Sub Command1_Click()
Form1.Caption = "当前日期" + Date
End Sub
;B);Sub Command1_DblClick()
Form1.Caption = "当前时间" + Time
End Sub
;C);Sub Command1_Click()
List1.Caption = "请选择"
End Sub
;D);Sub Command1_Click()
Label1.Caption = "您好"
End Sub
144;下列（）途径在程序运行时不能将图片添加到窗体、图片框或图像框的Picture属性;A);使用拖放操作;B);对象间图片的复制
;C);通过剪贴板复制图片;D);使用LoadPicture方法
145;在记录集中进行查找，如果找不到相匹配的记录，则记录定位在（）
;A);首记录之前;B);末记录之后;C);查找开始处;D);随机位置
146;在使用Delete方法删除当前记录后，记录指针位于（）
;A);被删除的记录上;B);被删除记录的上一条;C);被删除记录的下一条;D);记录集的第一条147;在用语句“LoadPicture 文件名”给图像框加载图片时，产生“文件未找到”的错误，则引起该错误的原因中不可能是（）
;A);文件名不正确;B);在指定文件夹下没有该文件;C);路径不存在;D);该语句有语法错误148;设m="ABCDEF"，下列表达式不能得到"DEF"的是（）
;A);Right$(m,3) ;B);Right$(Left$(m,6),3) ;C);Mid$(m,4) ;D);Left$(Right$(m,5),3)
149;下列表达式的结果为True的是（）
;A);"123">"5" ;B);"ABCD">"ABR" ;C);Int(123/10)\10=12 ;D);2^4=8
150;表达式Mid$("一二三四五六",3,4)的结果是（）
;A);"三四五六" ;B);"二三四五" ;C);"二三" ;D);"三四"
151;表达式Chr$(Int(Val("66.39abc")))的值是（）;A);"A";B);"B";C);"a";D);"b"
152;表达式Int(100*Rnd()+10)的取值范围是（）
;A);(10,100) ;B);[10,100] ;C);[10,110] ;D);[10,110]
153;表达式Int(20*Rnd)的取值范围是（）
;A);(0,20) ;B);[0,20] ;C);(0,20) ;D);[0,20]
154;在vb中，下列哪一数据类型长度为四个字节（）
;A);货币型;B);日期型;C);单精度型;D);双精度型
155;事件KeyPress由（）引发。
;A);按下一个会产生ASCII码的键时被触发。;B);按下键盘上任一个键时被触发。;C);按下并释放一个会产生ASCII码的键时被触发。;D);以上答案都不对。
156;设p=18，q="12"，下列表达式（）的值不是30。
;A);p+q ;B);p &q ;C);Val(p)+q ;D);m+Val(n)
157;事件KeyDown由（）引发。
;A);按下一个会产生ASCII码的键时被触发。;B);按下键盘上任一个键时被触发。
;C);释放一个会产生ASCII码的键时被触发。;D);释放键盘上任一个键时被触发。158;事件DblClick由（）引发。
;A);移动鼠标;B);单击鼠标;C);双击鼠标;D);三击鼠标
159;对象的三要素是( )。
;A);属性、事件、程序;B);属性、事件、方法;C);窗体、事件、程序;D);语句、函数、程序160;表达式NOT(“ABC”= “ABK”) OR (“abc”= “habc”)的结果为( )。
;A);TRUE ;B);FALSE ;C);KH ;D);不能确定
161;已知m="goodmorning"，表达式（）的结果是"mor"。
;A);Mid$(m,5,7) ;B);Left$(m,5,3) ;C);Right$(m,5,3) ;D);Mid$(m,5,3)
162;假设文本框Text1中有被选定的文本，执行Text1.SelText="Hello"的结果是（）。
;A);Hello将替换掉原来选定的文本;B);Hello将插入到原来选定的文本之前
;C);Hello将插入到原来选定的文本之后;D);文本框中只有Hello
163;下列变量名中不合法的是（）。
;A);ab2 ;B);LastOne ;C);3st ;D);M_time
164;设计菜单时，要使某个菜单标题有热键字母K，则应在菜单编辑器的( )。
;A);名称栏输入名称加上&K ;B);标题栏输入标题加上&K
;C);名称栏输入名称加上Alt+K ;D);标题栏输入标题加上Alt+K
165;某对象的属性Visible=False，表示该对象( )。
;A);不可操作;B);不可见;C);无颜色;D);无文字
166;数学式子sin30o写成VB表达式是（）。
;A);Sin30 ;B);Sin(30) ;C);Sin(30o) ;D);Sin(30*3.14/180)
167;已知X=25.3689，则int(X*100)/100的值为（）。
;A);25.37 ;B);25 ;C);25.36 ;D);25.3
168;下面关于顺序文件的说法中正确的是（）。
;A);每条记录的长度必须相同;B);可通过编程对文件中的某条记录进行修改;C);数据只能以ASCII码形式存放在文件中，可通过文本编辑软件显示;D);文件的组织结构复杂
169;下列哪个符号是VB中的合法变量名？（）
;A);X23 ;B);8xy ;C);END ;D);X8[K]
170;使用声明语句建立一个变量后，VB自动将数值类型的变量初始化为（）。
;A);无数值;B);空格;C);空字符串;D);0
171;使用声明语句建立一个变量后，VB自动将布尔类型的变量初始化为（）。
;A);无数值;B);true ;C);false ;D);0
172;如果X是一个正实数，对X的第三位小数四舍五入的表达式是（）。
;A);0.01*Int(X+0.005) ;B);0.01*Int(100*(X+0.005))
;C);0.01*Int(100*(X+0.05)) ;D);0.01*Int(X+0.05)
173;命题：“Z比X、Y都大”的VB逻辑表达式为（）。
;A);Z>X Or Z>Y ;B);Z>X And Z>Y ;C);Z>X And Y ;D);Z>X Or Y
174;事件LostFocus是在( )时发生。
;A);对象得到输入内容;B);对象输出内容;C);对象得到焦点;D);对象失去焦点175;书写VB语句时，一行最多允许（）个字符。;A);254 ;B);255 ;C);256 ;D);257 176;要使窗体在运行时不可改变其大小和没有最大化、最小化按钮，只要对下列（）属性设置就有效。
;A);MaxButton ;B);MinButton ;C);Width ;D);BorderStyle
177;引用列表框List1最后一个数据项应使用（）。
;A);List1.List(List1.ListCount) ;B);List1.List(List1.ListCount-1)
;C);List1.List(ListCount) ;D);List1.List(ListCount-1)
178;下面关于窗体事件的叙述中，错误的是（）。
;A);在窗体的整个生命周期中，Initialize事件只触发一次
;B);用Show方法显示窗体时，不一定发生Load事件
;C);当窗体需要重画时，就会触发Paint事件
;D);当窗体的大小有所改变时，就会引发Resize事件
179;语句On Error Resume Next 的含义是( )。
;A);当发生错误时，使程序跳转到下一程序块。
;B);当发生错误时，忽略错误行，执行下一语句。
;C);当发生错误时，不使用错误处理程序。
;D);当发生错误时，给出错误信息，由用户作出选择。
大学VB考试题库
大学VB考试题库 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是（）。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 2、赋值语句：a=123& MID("123456",3,2)执行后，a变量中的值是（）。 A、"12334" B、123 C、12334 D、157 3、保存一个工程至少应保存两个文件，这两个文件分别是（B）。 A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。 A、https://www.wendangku.net/doc/8a18949327.html,="VisualBasic窗体" B、Form1.Title="VisualBasic窗体" C、Form1.Caption="VisualBasic窗体" D、Form1.Text="VisualBasic窗体" 5、为了装入一个VisualBasic应用程序，应当（D） A、只装入窗体文件（.frm） B、只装入工程文件（.vbp） C、分别装入工程文件和标准模块文件（.bas） D、分别装入工程文件、窗体文件和标准模块文件 6、赋给一个数组的数据类型一定要（A）。 A、相同 B、不相同 C、两可 D、都不对 7、下面正确的赋值语句是（C）。 A、x+y=30 B、y=π*r*r C、y=x+30 D、3y=x 8、VisualBasic 6.0集成环境的主窗口中不包括（C）。
A、标题栏 B、菜单栏 C、状态栏 D、工具栏 9、以下叙述中错误的是(C)。 A、Visual Basic 是事件驱动型可视化编程工具 B、Visual Basic应用程序不具有明显的开始和结束语句 C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性(计时器) D、Visual Basic中控件的某些属性只能在运行时设置 10、要使Print方法在Form_Load事件中起作用，要对窗体的(C)属性进行设置。 A、Backcolor B、ForeColor C、AutoRedraw D、BackStyle 11、若要使命令按钮不可操作，要对(A)属性进行设制。 A、Enabled B、Visible C、BackColor D、Caption 12、以下叙述中错误的是(B)。 A、一个工程中可以包含多个窗体文件 B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用 C、在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。 D、一个工程默认的启动对象是Form1 13、Cls方法可以清除窗体或图片框中的(C)内容。 A、在设计阶段使用Picture设置的背景位图 B、在设计阶段放置的控件 C、在运行阶段产生的图形和文字 D、以上均可 14、设x=3,y=5,则以下表达式值为真的是 (C) A、(-3+5>x) And (y>0) B、(x<0) Eqv (y>0) C、(x>y) Or (y>0) D、x>=y And y>10 15、为了防止用户随意将光标置于控件之上，应将进行(D)设置。 A、将控件的TabIndex属性设置为0
VB期末考试试题及答案
二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value
7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。
VB基本学习知识及其选择,循环结构习题集
一、VB 基本知识及选择、循环结构习题 一、基本概念题 （1） 说明下列哪些是Visual Basic 合法的直接常量，并分别指出它们的类型。 100.0 %100 1E1 123D3 123,456 0100 “ASDF” “1234.5” #2004/10/7# 100# π &O78 &H123 True T -1123! 345.54# （2）下列数据哪些是变量，哪些是常量？是什么类型的常量？ Name “name” False ff “11/16/99” cj “120” n #11/12/2004# 12.345 （3） 下列符号中，哪些可以是Visual Basic 的合法变量名？ A123 a12_3 123_a a,123 a 123 Integer XYZ False Sin(x) 变量名 sinx π （4）把下列数学表达式写成Visual Basic 表达式： （1）5||z y x ++ （2）6 )1(xy + （3）xy y x 310+ （4）a ac b b 242-+- （5）3211111 r r r + + （6） 110ln 45sin 10 ++++y x e ο （5）写出下列表达式的值： （1）123 + 23 Mod 10 \ 7 + Asc("A") （2）Int(68.555 * 100 + 0.4) / 100 （3）#11/22/2004# - 10 （4）"ZXY" & 123 & "abc" （6）设a=7，b=3，c=4，求下列表达式的值： （1）a + 3 * c （2）a ^ 2 / 4 （3）a / 2 + 3 \ 2 （4）a Mod 3 + b ^ 3 / c \ 5 （7）写出下列函数的值： （1）Int(-3.14159) （2）Fix(-3.14159) （3）Sqr(Sqr(81)) （4）Len("Visual Basic 程序设计") （5）Int(Abs(99 - 100) / 2) （6）Sgn(7 * 3 + 2) （7）LCase("Hellow VB!") （8）Mid("Hellow VB!", 4, 3) （9）Left("Hellow VB!", 3) （10）Val("16个加23个") （11）Str(-459.55) （12）UCase("Visual Basic") 二、 选择题 （1）可以同时删除字符串前导和尾部空格的函数是 。 A. Ltrim B. Rtrim C. Trim D. Mid （2）函数Int(Rnd(1) * 10)是在哪个范围产生随机整数 。 A. (0,1) B. (0,9) C. (1,10) D. (1,9) （3）数学式子sin25o写成Visual Basic 表达式是 。 A.Sin25 B. Sin(25) C. Sin(25o) D. Sin(25*3.14/180) （4）表达式16/4 – 2^3 * 8/4 Mod 5\2的值是 。 A. 14 B. 4 C. 20 D. 2 （5）数学关系式103<≤x 表示成正确的VB 表达式为 。 A. 3<= x <10 B. x >= 3 And x<10 C. x>=3 Or x<10 D. 3<= x And <10 （6）已知A=”12345678”，则表达式Val(Left(a, 4) + Mid(a, 4, 2))的值是 。
vb题库(选择与填空)
一、单选题（每小题1分，共99 分） 1. 假定Picture1 和Text1 分别为图片框和文本框的名称，下列语句中不正确的是______ 。 A Picture1.Print 25 B Text1.Print 25 C Print 25 D Debug.Print 25 2. 在Visual Basic 中要将一个窗体从内存中释放，应该使用以下语句中的______ 。 A UnLoad B Stop C Close D Hide 3. 如果组合框ComBo1中已有10项数据，应使用语句______将数据"Mydata"插入到第5项。 A ComBo1.Insert "Mydata", 4 B ComBo1.Insert "Mydata", 5 C ComBo1.AddItem "Mydata", 5 D ComBo1.AddItem "Mydata", 4 4. 如果列表框List1中已有10项数据，应使用语句______将数据"Mydata"插入到列表框的第3项。 A List1.Insert "Mydata", 3 B List1.AddItem "Mydata", 2 C List1.AddItem "Mydata" ,3 D List1.Insert "Mydata", 2 5. 语句If x=1 Then y=1，下列说法正确的是____________。 A x=1和y=1为赋值语句 B x=1为赋值语句，y=1为关系表达式 C x=1为关系表达式，y=1为赋值语句 D x=1和y=1均为关系表达式 6. 删除列表框中指定的项目所使用的方法为______ 。 A Move B Clear C Remove D RemoveItem 7. 不论何控件，共同具有的属性是______________。 A ForeColor B Name C Text
2016年计算机二级《VB》基础练习题及答案(2)
2016年计算机二级《VB》基础练习题及答案(2) 1[简答题]在名称为Forml的窗体上添加两个名称分别为Textl和Text2的文本框，它们的高、宽分别为300、2400和1200、2400。窗体的标题为“窗口”。请通过属性窗口设置适当的属性，满足如下要求： ①Text2可以显示多行文本，并且有垂直和水平两个滚动条; ②程序运行时在Textl中显示输入的字符为“*”。 程序运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl.vbp，窗体文件名保存为sjtl.frm。 参考解析： 【考点分析】本题考点有：窗体的Caption属性，文本框的Name、Width、Hei【ght、PasswordChar、Text、MuhiLine、ScrollBars属性。 【解题思路】文本框控件的MuhiLine属性用于设置文本框是否显示多行文本，值为Tr ue表示是，值为False则表示否。ScrollBars属性设置文本框是否有水平或垂直滚动条，它有0、l、2和3这4个值，0表示没有滚动条(默认值)，1表示只有水平滚动条，2表示只有垂直滚动条，3表示有水平和垂直滚动条。文本框的PasswordChar属性常用于设置用某字符(如“*”)屏蔽用户在文本框中键入的内容，常用于口令输入。 【操作步骤】 步骤1：新建一个窗体，按照题目要求建立文本框控件并设置其属性，程序中涉及的控件及属性见表3.8和表3.9。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。 【易错提示】由于ScrollBars属性的设置值较多，易混乱，请考生牢记4个值分别设置的文本框滚动条属性。 2[单选题]在下列模式中，能够给出数据库物理存储结构与物理存取方法的是()。 A.外模式 B.内模式 C.概念模式 D.逻辑模式 参考答案：B 参考解析：数据库系统的三级模式是概念模式、外模式和内模式。概念模式是数据库系统中全局数据逻辑结构的描述，是全体用户公共数据视图。外模式也称子模式或用户模式，它是用户的数据视图，给出了每个用户的局部数据描述。内模式又称物理模式，它给出了数据库物理存储结构与物理存取方法，所以选择B。 3[单选题]以下关系表达式中，其值为True的是()。 A.1f.XYZ”>”XYz” B.”VisualBasic”<>”visualbasic” C.P the-.=’’there·t D.”Integer”<”Int” 参考答案：B 参考解析：用关系运算符比较两个操作敷时，如果两个操作数是字符型的，按字符的A SCIl码从左到右一一比较，即先比较第1个，若相同再比较第2个，依次比较，直到比较
微机vb选择题
1. 下列VB程序段的基本结构是( ) If x<=12 Then y=3x Else y=4x End If A.分支结构 B.顺序结构 C.循环结构 D.树形结构 答案: A 2. 关于算法，说法不正确的是（） A.算法是程序设计的灵魂 B.解决问题的过程就是实现算法的过程 C.算法独立于任何具体的语言，VB 算法只能用VB语言来实现 D.算法的作用在于记录和交流人类解决问题的思想答案: C 3. if x>=10 then y=5*x else y=4*x 以上程序段属于（） A.顺序结构 B.分支结构 C.循环结构 D.流程结构 答案: B 4. 在VB中,利用（）显示和编辑程序代码。 A.工程资源管理器窗口 B.窗体设计器窗口 C.代码编辑窗口 D.属性窗口 答案: C 5. 下面保存VB程序的说法正确的是（) A.只保存窗体文件 B.只保存工程文件
C.分别保存工程文件和标准模块文件 D.分别保存窗体文件和工程文件 答案: D 6. VB中，数据类型整型用（）表示。 A.Integer B.Single C.Long D.Byte 答案: A 7. 数学式(2a-b)/(2a+b)在VB中的正确写法是（） A.(2*a-b)/(2a+b B.(2*a-b)/2*a+b C.(2a-b)/(2a+b) D.(2*a-b)/(2*a+b) 答案: D 8. 在VB中，当a=2，b=3时，表达式a>b的值是（） A. True B.False C. 0 D. 1 答案: B 9. 下列程序段属于( ) Select Case x Case 1 text1.text="优秀" Case 2 text1.text="良好" Case 3 text1.text="一般" Case Else text1.text="较差" End Select A.顺序结构 B.分支结构 C.循环结构 D.流程结构
VB选择题
《VB》期末考试选择题复习（共180题） 1. Visual Basic集成开发环境中不包括下列哪些窗口( )。 A、工具箱窗口 B、工程资源管理器窗口 C、属性窗口 D、命令窗口 参考答案是：D 2. 在设计应用程序时，通过( )窗口可以查看到应用程序工程中的所有组成部分。 A、代码窗口 B、窗体设计窗口 C、属性窗口 D、工程资源管理器窗口 参考答案是：D 3. 在正常安装Visual Basic6.0后，可以通过多种方式启动Visual Basic。以下方式中不能启动Visual Basic的是：( )。 A、通过“开始”菜单中的“程序”命令 B、通过“我的电脑”找到vb6.exe，双击该文件名 C、通过“开始”菜单中的“运行”命令 D、进入DOS方式，执行vb6.exe文件参考答案是：D 4. Visual Basic 6.0工程文件的扩展名是( )。 A、.vbp B、.frm C、.bas D、.cls 参考答案是：A 5. Visual Basic 6.0是面向( )的程序设计语言。 A、过程 B、工程
C、事件 D、对象 参考答案是：D 6. 下列关于 Visual Basic编程特点的叙述中，错误的是( )。 A、Visual Basic 是采用事件驱动编程机制的语言 B、构成 Visual Basic 程序的多个过程没有固定的执行顺序 C、Visual Basic 程序既可以编译运行，也可以解释运行 D、Visual Basic 程序不是结构化程序，不具备结构化程序的 3 种基本结构参考答案是：D 7. Visual Basic 6.0集成开发环境有三种工作状态，不属于三种工作状态之一的是( )。 A、设计状态 B、编写代码状态 C、运行状态 D、运行状态 参考答案是：B 8. 在Visual Basic 6.0中要获取上下文相关帮助，只需将光标定位在相应位置，再按 ( )键即可。 A、F1 B、F2 C、F3 D、F4 参考答案是：A 9. Visual Basic 6.0集成开发环境的主窗口中不包括( )。 A、标题栏 B、菜单栏 C、状态栏 D、工具栏
VB练习题(上机)含答案
第一部分 1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作： ①随机产生20个0到1000的整数，将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上(如下图所示) Private Sub Cmd1_Click() Dim a%(19), i%, sum!, aver! Randomize For i = 0 To 19 a(i) = Int(Rnd * 1001) sum = sum + a(i) Next i aver = sum / 20 Print aver End Sub 2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。 Private Sub C1_Click() Dim ch As String, ch1 As String, i% ch = Text1 For i = 1 To Len(ch) If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Then ch1 = ch1 + LCase(Mid(ch, i, 1)) Else
ch1 = ch1 + UCase(Mid(ch, i, 1)) End If Next i Text1 = Text1 + vbCrLf Text1 = Text1 + ch1 End Sub 3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。程序运行后，单击命令按钮完成以下工作： ①随机产生30个0～1000的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Private Sub MyCmd1_Click() Dim a%(29), i%, max% Randomize For i = 0 To 29 a(i) = Int(Rnd * 1001) Next i max = a(0) For i = 1 To 29 If a(i) > max Then max = a(i) Next i Print max End Sub 4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述功能。
vb真题(选择题)
1、下列叙述中，错误的是( A )。（1分） A、一条语句可以分为多行书写，但要在上行末加上VBCrLf B、在同一行上书写多条语句，应在两两语句中加上:号 C、可以用Rem或'注释单行语句 D、VB程序代码不区分字母的大小写 2、下列叙述正确的是( D )。（1分） A、Visual Basic的事件是由用户定义的 B、Visual Basic程序从主窗体开始执行 C、Visual Basic程序是过程驱动的 D、保存一个Visual Basic程序，应分别保存其窗体模块、标准模块和工程文件 3、被对象所识别的动作与对象可执行的动作分别称为对象的( A )。（1分） A、方法、事件 B、事件、方法 C、事件、属性 D、过程、属性 4、下列关于VB编码规则的叙述中，正确的是( C )。（1分） A、一条语句可以分为多行书写 B、多条语句不能书写在同一行上 C、每条语句以分号;结尾 D、应用程序代码字母是区分大小写的 5、( D )不属于面向对象系统的三要素。（1分） A、事件 B、属性 C、方法 D、变量 6、下列叙述中，不正确的叙述是( C )。（1分） A、注释语句是非执行语句，仅对程序的有关内容起注释作用，客观存在不被解释和编译 B、注释语句能放在整个代码程序的最后 C、注释语句可以放在代码中的任何位置 D、代码中加入注释语句的目的是提高程序的可读性 7、下列叙述错误的是( B )。（1分） A、不允许使用行号与标号 B、单条语句可分行书写 C、同一行上可以书写多条语句 D、VB代码不区分字母的大小写 8、窗体设计器是用来设计( B )。（1分） A、应用程序的代码段 B、应用程序的界面 C、对象的属性 D、对象的事件 9、启动Visual Basic后，系统为用户新建的工程起一个名为( A )的临时名称。（1分） A、工程1 B、窗体1 C、工程 D、窗体 10、在界面设计时，双击窗体中的对象后，Visual Basic将显示的窗口是( C )。（1分） A、立即窗口 B、属性窗口 C、代码窗口 D、工程资源管理器窗口 11、VB应用程序在( A )模式下不能编辑代码和设计界面。（1分） A、运行 B、中断 C、设计 D、以上均不能 12、如果要向工具箱中加入控件的部件，可以利用“工程”菜单中的( B )命令（1分） A、引用 B、部件 C、工程属性 D、加窗体 13、如果Visual Basic环境中缺少某个窗口，一般应该从主菜单的( D )下拉菜单中寻找并打开。（1分） A、编辑 B、文件 C、调试 D、视图 14、标准控件不包括( D )控件。（1分） A、驱动器列表框 B、目录列表框 C、文件列表框 D、通用对话框 15、在设计窗体时，如果窗体上没有显示网格会感到不方便，( c )可以使网格出现。（1分） A、使用“编辑”菜单上的相关命令 B、使用“格式”菜单上的相关命令 C、使用“工具”菜单上的相关命令 D、使用“工程”菜单上的相关命令 16、在Visual Basic中，某一事件对应的程序叫( b )。（1分）
VB测验选择题真题精选
VB测验选择题真题精选
————————————————————————————————作者：————————————————————————————————日期：
VB考试真题精选，考前必备神器20 开通黄钻 21， a = 1: b = 2: plus S, a, b: Print S:不能使其输出结果为3的plus过程为( b )。（1分） A、Sub plus(sum, a , b ): sum = a + b: End Sub B、Sub plus(ByVal sum , a , b ): sum = a + b: End Sub C、Sub plus(sum , ByVal a, ByVal b ): sum = a + b: End Sub D、 D、Sub plus(sum , ByRef a , ByRef b ): sum = a + b: End Sub 22、通过关键字( c )声明的局部变量，在整个程序运行中一直存在。（1分） A、Dim B、Public C、Static D、Private 23、过程的作用域分为( c )。（1分） A、窗体级和局部级 B、模块级和局部级 C、窗体/模块级和全局级 D、窗体/模块级和局部级 24、在窗体的通用段声明变量时，不能使用( d )关键字。（1分） A、Dim B、Public C、Private D、Static 25、能在一个工程的所有程序中使用的变量，称为( b )。（1分） A、局部变量 B、全局变量 C、窗体级变量 D、模块级变量 27、使用Public Const语句声明一个全局的符号常量时，应该将该语句放在( b )。（1分）
VB考试题及答案
VB程序设计期末考试题 一、选择题 1 下列常量中，是Integer类型常量的是（ C ）。 A、123& B、-38844 C、123% D、32768 2 下面选项中()是字符连接运算符. A A、& B、And C、% D、Mod 3 下面关于VB的集成开发环境（IDE）的叙述中，不正确的是（ B ）。 A、IDE是设计、调试、运行VB程序的工具。 B、用户不能随意关闭IDE中的窗口。 C、"窗体设计" 窗口是用来设计应用程序界面（窗体）的。 D、打开 / 关闭各窗口的命令主要在IDE的"视图"菜单中。 4 len(“vb程序设计”)=( C ) 。 A、 5 B、2 C、 6 D、10 5 表达式 15 Mod 4 + 13 \ 5 * 2 的值是 D A、7 B、0 C、2 D、4 6 赋值语句A=123 + Mid$( “123456”,3,2) 执行后，A=（A）。 A、157 B、12334 C、123 D、"12334" 7 在一个语句内写多条语句时,用来分隔每条语句的符号是(C). A、, B、; C、: D、、 8 将逻辑型数据转换成整型数据时，转换规则是（ D ）。 A、将True转换为 1 ，将False转换为 0 B、将True转换为 1 ，将False转换为 -1 C、将True转换为 0 ，将False转换为 -1 D、将True转换为 -1 ，将False转换为 0 9 表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(D).
A、SIN B、4^5 C、3*4 D、x+1 10 如果x=2，则表达式x+1>2 Or sin(x)>0.9 And 3>x+3的值（ B ）。 A、不能计算 B、 True C、5 D、False 11 随机产生[10，50] 之间整数的正确表达式是（ D ）。 A、Round( Rnd*50) B、 Int(Rnd*40+10) C、Round( Rnd*51) D、 10+Int(Rnd*41) 12 每建立一个窗体,工程管理器窗口中就会增加一个(C). A、类模块文件 B、工程文件 C、窗体文件 D、程序模块文件 13 INT(100*RND(1))产生的随机整数的闭区间是(B). A、[1,100] B、[0,99] C、[0,100] D、[1,99] 14 下列数据类型中,占用内存最小的是(D). A、Integer B、Single C、Boolean D、Byte 15 VisualBasic是一种()程序设计语言.B A、过程式 B、非过程式 C、机器 D、低级 16 函数Int(10*Rnd)是在(A)范围内的整数. A、[0,9] B、[0,1] C、[1,9] D、[1,10] 17 以下合法的一组Visual Basic用户标识符是 C A、Sum 和 8abc B、a#x 和 Pi C、ForLoop 和 Total D、Const 和 DoWhile
大学VB期末考试选择题
一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是（）。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 2、赋值语句：a=123 & MID("123456",3,2)执行后，a变量中的值是（）。 A、"12334" B、123 C、12334 D、157 3、保存一个工程至少应保存两个文件，这两个文件分别是（）。 A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（）。 A、https://www.wendangku.net/doc/8a18949327.html,="VisualBasic窗体" B、Form1.Title="VisualBasic窗体" C、Form1.Caption="VisualBasic窗体" D、Form1.Text="VisualBasic窗体" 5、为了装入一个Visual Basic应用程序，应当（） A、只装入窗体文件（.frm） B、只装入工程文件（.vbp） C、分别装入工程文件和标准模块文件（.bas） D、分别装入工程文件、窗体文件和标准模块文件 6、赋给一个数组的数据类型一定要（）。
A、相同 B、不相同 C、两可 D、都不对 7、下面正确的赋值语句是（）。 A、x+y=30 B、y=π*r*r C、y=x+30 D、3y=x 8、Visual Basic 6.0集成环境的主窗口中不包括（）。 A、标题栏 B、菜单栏 C、状态栏 D、工具栏 9、以下叙述中错误的是( )。 A、Visual Basic 是事件驱动型可视化编程工具 B、Visual Basic应用程序不具有明显的开始和结束语句 C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性 D、Visual Basic中控件的某些属性只能在运行时设置 11、若要使命令按钮不可操作，要对( )属性进行设制。 A、Enabled B、Visible C、BackColor D、Caption 12、以下叙述中错误的是( )。 A、一个工程中可以包含多个窗体文件 B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用 C、在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。 D、一个工程默认的启动对象是Form1 13、Cls方法可以清除窗体或图片框中的( )内容。 A、在设计阶段使用Picture设置的背景位图
VB选择题库(3)
1.不论哪种控件，共同具有的属性是Name 2.要使某控件在运行时不可显示，应对其设置的属性是Visible 3.要是窗体在运行时不可改变窗体的大小和没有最大化、最小化按钮，需设置的属性是Borderstyle 4.当程序运行时，系统自动执行启动窗体的事件过程是Load 5.要判断在文本框中是否按下了Enter键，应在文本框的Keypress 事件中判断 6.要使标签控件显示时不覆盖其背景内容，要对其设置的属性是Backstyle 7.复选框的Value属性为0时，表示复选框未被选中 8.将数据项“语文”添加到列表框（list1）中成为第一项应使用的语句是“List1.Addltem”“语文”，“0” 9.执行下面的程序,列表框中的数据项有“1，3” Sub Form_Click() For i = 0 To 4 List1.AddItem i Next For i = 0 To 2 List1.RemoveItem i Next End Sub 10.如果列表框（list1）中没有被选定的项目，则执行List1.RemoveItem List1.ListIndex语句的结果是 D A．移去第一项 B．移去最后一项 C．移去最后加入列表的项 D．其他都不对 11.下列可以把当前目录下的图形文件Pic1.jpg装入图片框Picture1中的语句为“Picture1. Picture=Load Picture(“”Pic1.jpg””)” 12.假定在图片框Picture1中装入了一个图形，为了清除该图形（不是删除图片框）应采用的正确方法是“执行语句Picture1. Picture =Load Picture(“””’”)” 13.当组合框的Style属性值设置为2时，其为下拉式列表框 14.要使定时器无效应将Interval属性取值为0 15.假定定时器控件的Interval属性为1000，Enable属性为Ture，并且有下面的事件过程 Private Sub Timer1_Timer() Beep End Sub 计算机将发出Beep声的次数为 A.1000次 B．0次 C．1次 D．其他都不对 16.下面语句能正确地把列表框list1从1数起的第4项的内容设置为“aaaa”的是“List1.List(3)=””aaaa””” 17. 下面语句能正确地把列表框list1从1数起的第3项的内容设置为“aaaa”的是“List1.List(2)=””aaaa””” 18.在窗体上画一个文本框，为了在程序运行后隐藏该文本框，应使用的语句为Text1.Visible=False 19.在窗体上画一个文本框Text1和一个标签Label1，要求程序运行后，如果在文本框输入字符，则立即在标签中显示相同的内容，一下可以实现上述操作的事件过程的是 “Private Sub Text1_Change() Lebel1.Caption = Text1.Text
vb练习题及答案.doc
vb 练习题及答案 【篇一：vb 习题(含答案)】 lass=txt>1 、vb 程序中，通常不会产生错误提示的是( )。（1 分） a、编译错误 b、逻辑错误 c、运行时错误 d、实时错误 2、在设计阶段，双击窗体上任一空白处，打开的窗口是( )。（1 分） a、工程资源管理器窗口 b、代码窗口 c、工具箱窗口 d、属性窗口 3、下列说法中，正确的说法是( )。（1 分） a、窗体名称和该窗体文件名必须一致 b、窗体名称和该窗体文件名 可以不相同 c、窗体名称和该窗体文件名不能使用汉字 d、窗体名称不能使用汉字、但该窗体文件名能使用汉字 4、visual basic 有完备的help 联机帮助功能，可以通过按下功能 键( )得到帮助。（ 1 分） a、f9 b 、f8 c、f1 d 、f5 5、以下( )控件可作为容器使用。（ 1 分） a、label b 、picturebox c、textbox d 、image 6、将窗体的boderstyle 属性设置为( )可使窗口不显示标题栏。（ 1 分） a、0 b 、1 c、2 d 、5 7、文本框没有( )属性（1 分） a、text b 、name c、caption d 、borderstyle 23、下列( )是不合法的常量。（ 1 分） a、100 b 、10e02 c、100.0 d 、10e0.5 24、下列对变量的定义中，定义x 为变体型变量的是( )。（1 分） a、dim x as double b 、dim x c、dim x! d 、x%=23
25、设有如下变量声明：dim testdate as date ，为变量testdate 正确赋值的表达方式是( )。（1 分） a、textdate=#1/1/2002# b 、testdate=#1/1/2002# c、textdate=date(1/1/2002) d 、 testdate=format(m/d/yy,1/1/2002) 26、在立即窗口中运行以下语句，a=beijing :b=shanghai :print a,b 对其输出结果的描述中，正确的是( )。（1 分） a、beijing 和shanghai 中间没有空格 b、beijing 和shanghai 中 间有1 个空格 c、beijing 和shanghai 中间有 6 个空格 d、beijing 和shanghai 前面有7 个空格 27、语句段a=3: b=5:t=a ：a=b: b=t 执行后( )。（1 分） a、a 值为3，b 值为3 b 、a 值为3，b 值为5 c、a 值为5，b 值为5 d 、a 值为5，b 值为3 28、下列语句中，正确的是( )。（1 分） a、if x3*y and xy then y=x^3 b 、if x3*y and xy then y=3x c、if x3*y : xy then y=x^3 d 、if x3*y and xy then y=x**3 29、下面程序段dim x%: x=5: if x then y=x+1 else y=x 运行后， y 结果是( )。（1 分） a、5 b 、6 c、1 d 、显示出错信息 30、执行语句 a = inputbox(today, tomorrow, yesterday, 5, 5) ， 将显示一个输入对话框，在对话框的输入区中显示的信息是( )。（1 分） a、today b 、tomorrow c、yesterday d 、5 31、窗体上有一个命令按钮command1, 编写如下事件过 程: private sub command1_click() :x = val(inputbox(x=)) : y = inputbox(y=) : print x + y : end sub, 单击命令按钮，先后在两个输 入对话框中输入123 和321 ，窗体显示的内容是( )。（1 分） a、444 b 、123321 c、123+321 d 、出错信息 32、执行语句msgbox aaa, 2, bbb 后，所产生的消息框的标题是 ( )。（1 分） a、aaa b 、bbb
vb题库及答案
| 最新VB题库及答案 一、选择题 第1部分 1、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是 A、Private Sub Text1_Change() = "计算机等级考试" End Sub ] B、Private Sub Command1_Click() Caption = "计算机等级考试" End Sub C、Private Sub Form_Click() = "计算机等级考试" End Sub D、Private Sub Command1_Click() = "计算机等级考试" { End Sub 2、在一行内写多条语句时，每个语句之间用（）符号分隔。 A、 , B、： C、. D、； 3、下面（）是合法的变量名。 A、X_YZ B、123ABC C、INTEGER D、X-Y ] 4、下面（）是合法的字符常量。 A、 ABC$ B、“ABC” C、‘ABC’ D、 ABC 5、表达式16/4 - 2^5*8 MOD 5\2的值为（）。 A、14 B、 4 C、20 D、2 6、设a=”MicrosoftVisualBasic”，则以下使变量的b值为”VisualBasic”的语句是 A、b=Left(a,10) B、b=Mid(a,10) — C、b=Right(a,10) D、b=Mid(a,11,10) 7、设a="a"，b="b"，c="c"，d="d"，执行语句x = IIf((a < b) Or (c > d), "A",
VB选择题
1 窗体的FontName属性的缺省值是 A 。 A、宋体 B、楷体 C、仿宋体 D、黑体 2 下列不属于对象的基本特征的是 C 。 A、事件 B、属性 C、函数 D、方法 3 将Visual Basic编制的程序保存在磁盘上，至少会产生何种文件 B 。 A、.doc与.txt B、.vbp与.frm C、.com与.exe D、.bat与.frm 4 下列选项中不属于事件的是 A 。 A、Show B、KeyUp C、Load D、Dblclick 5 在设计模式双击窗体中的对象后，Visual Basic将显示的窗口是 D 。 A、属性窗口 B、工具箱 C、项目（工程）窗口 D、代码窗口 6 改变控件在窗体中的上下位置应修改该控件的 A 属性。 A、Top B、Right C、Width D、Left 7 Visual Basic中"程序运行"允许使用的快捷键是 B 。 A、F2 B、F5 C、Alt+F3 D、F8 8 以下4个选项中，属性窗口未包含的是 B 。 A、属性列表 B、工具箱 C、对象列表 D、信息栏 9 在Visual Basic中，称对象的数据为 C 。 A、事件 B、封装 C、属性 D、方法 10 下列 A 属性用来表示各对象（控件）的位置。 A、Left B、Name C、Caption D、Text 11 标签控件的标题和文本框控件的显示文本的对齐方式由 C 属性来决定。 A、Style B、WordWrap C、Alignment D、AutoSize 12 当文本框的 B 属性设置为false时，在运行时文本框不能编辑。 A、Visible B、Enabled C、Locked D、MultiLine 13 按Tab键时，焦点在各个控件之间移动的顺序是由 C 属性来决定的。 A、Index B、SetFocus C、TabIndex D、TabStop 14 列表框的 C 属性返回或设置列表框中各列表项的文本。 A、Selected B、Text C、List D、Caption 15 文本框中选定的内容，由下列 D 属性来反映。 A、Caption B、SelLength C、Text D、SelText 16 要使文本框显示滚动条，除了设置ScrollBars属性外还必须设 置 B 属性。 A、Alignment B、MultiLine C、Visible D、AutoSize 17 若要在同一窗体中安排两组单选钮，可用 B 控件予以分隔。