VB练习题.docx
《VB练习题.docx》由会员分享，可在线阅读，更多相关《VB练习题.docx（246页珍藏版）》请在冰豆网上搜索。
VB练习题
201
一、单项填空
1.下列（逐步求精法）是结构化程序设计的一种基本方法。
2.若有以下说明语句：
Typeemployee
numAsInteger
salaryAsSingle
Endtype
DimprogrammerAsemployee
则下列表示记录变量programmer的成员salary正确的是（programmer.salary）
3.要是标签在运行时不可见应该把该控件的（visible）属性设置为（false）
4.应用程序设计完成后，应将程序保存，保存的过程是（先保存窗体文件（或标准模块文件），之后还要保存工程文件）
5.下面（#12/19/99#）是日期型常量
6.以下各表达式中，计算结果为0的是（FIX（12.4）+FIX（-12.6））
7.由fork=35to0step3:
nextk循环语句控制的循环次数是（0）
8.Line（100,100）-step（400,400）将在窗体上（100,100）到（500,500）画一直线
9.用语句DimA（-3to7）AsInteger定义的数组元素的个数是（11）
10.保存新建工程时，默认的路径是（VB98）
11.VB的过程有三种，他们是（事件工程，子过程和函数工程）
12.利用下面哪个函数可判定访问文件时已经到了文件尾（EOF）
13.一语句要在下一行继续写，续写符是（_）
14.对话框Filter属性为”Text（*.txt）|*.txt|Pictures（*.bmp,*.icol*.bmp;*.ico,”,若在使用ShowOpen方法是默认过滤器为.bmp;*.ico,，需将对话框的FilterIndex属性值设置为
（2）
15.一个菜单选项是不是一个分割条，由（Caption）属性决定
16.下列程序的执行结果是（i=1）a=75ifa>90theni=4ifa>80theni=3ifa>70theni=2ifa>60theni=1print“i=”;i
17.变量未赋值时，数值型变量的值为（0）
18.为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为（Put文件号，记录号，变量名）
19.已知数组a（1to10）AsInteger,下面调用GetValue函数正确的是（S=GetValue（a）
PrivateFunctionGetvalue（a（i）AsInteger）AsInteger
Fori=1to10
Getvalue=Grtvalue=a（i）
Nexti
Endfunction
20.形状控件所显示的图形不可能是（等边三角形）
21.控件已与一个数据表正确关联，目前数据处于第10条记录，下面可能将数据表第二条记录设定为当前记录的是（Adodc1.Recordset.MoveFirest
Adodc1.Recordset.MoveFirest.MoveNext）
22.窗体上有一个对话框Commondialog1，和一个命令按钮Command1，当单击按钮是程序的功能是（打开颜色对话框）
PrivateSubCommand1_click（）
Commodialog1,ShowColor
Endsub
23.语句Dima&（1to20）,b#（2,-1to1）定义的两个数组，其类型区别为（一维长整形数组和二维双精度数组）
24.有如下的程序段，该程序段的执行完后，共执行循环的次数（4）PrivateSubCommand1_click（）total=0Conter=1DoPrintCountertotal=total+CounterPrinttotalCounter=counter+1iftotal>=10thenExitDoEndifloopwhilecounter<=10Endsub
25.下列选项中（Inputbox函数）不能用于vb数据的输出
26.目录列表框Path的属性的作用是（显示当前驱动器或指定驱动器上目录结构）
27.使用PublicConst语句声明一个全局的符号常量时，该语句应放在（标准模块的通用声明段）
28.下面关于多重窗体的叙述中，正确的是（作为启动对象的Main子过程只能放在窗体模块内）
29.vb中的坐标原点位于（容器左上角）
30.鼠标移动经过控件时，将触发控件的（MouseMove）事件
二、程序填空
1.Avg
Is>=85
Is>=60
n-1
2.or
K+1或者1+k
k>=n或者n<=k或者k=n
3.0
ISum+j
1250
4.mModr
65
r0
三、程序改错
1.ifx>0Then
Fork=xto9
a（k）=a（k+1）
2.PrintTap（i*6）;I
Fork=1toj
PrintTap（k*6）;j*k;””;
202
一．单选。
1.表达式15Mod4+13\5*2的值是（C）
A．0B.2C.4D.7
2.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1-Click（）
ForI=1To4
X=4
Forj=1To3
X=3
Fork=1To2
X=x+6
Nextk
Nextj
Nexti
Printx
EndSub
程序运行后，单击令按钮，输出结果是（15）
3.下列（A）属性可返回目录列表框的路径。
A.pathB.driveC.pathroadD.initdir
4.下面关于随机文件的描述不正确的是（B）
A.每条记录的长度必须相同
B．一个文件中记录号不必唯一
C．可通过编程对文件中的某条记录方便的修改
D．文件的组织结构比顺序文件复杂
5.要使标签能够显示所需要的文本则在程序中应设置（A）属性的值。
A.CaptionB.TextC.NameD.AutoSize
6．下面程序输出的结果是（A）
PrivateSubCommand1-Click（）
Dima（1To3,4）AsTnteger
PrintLBound（a,1）,UBound（a,2）,UBound（a,2）
EndSub
A.1304B.0314C.1314D.0304
7.VisualBasic的编程机制是（D）
A．可视化B.面向对象C.面向图形D.事件驱动
8.用户自定义数据类型时，其成员不能是（B）
A．定长字符串和数组B.数组C.货币型和日期型D.变长字符串和货币型
9.下列窗体的属性中，（A）属性决定窗体在启动时的显示状态
A.WindowsStateB.ShowInTaskbarC.StartUpPositionD.Moveable
10.如下程序：
PrivateSubForm-Click（）
A=20:
b=20:
c=120:
d=120
Form.Line（a,b）-（c,d）,,BF
EndSub
单击窗体后，窗体上显示的是（C）
A．一条直线B。
一个矩形空框C。
一个填充了颜色的矩形D。
无任何图形
11.计算如下程序的运行结果（1010）
PrivateSubForm-Click（）
a=10
Printa
Callpro（a）
Printa
EndSub
Subpro（ByVala）
a=20
EndSub
12．使用三个ScrollBar控件来分别表示RGB，其Value属性值不可能是（D）
A．128B。
245C。
254D。
257
13．语句Dimarr（-3To5,2To6）AsInteger定义（数组元素有（A）
A．45个B.40个C。
11个D。
54个
14.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1-Click（）
A=Val（InputBox（“a=”））
Printfun（A）
EndSub
PrivateFunctionfun1（b）
Ifb>0Then
fun1=10
ElseIfb=0Then
Fun1=9
Else
Fun1=8
EndIf
EndFunction
程序运行后，单击命令按钮，从键盘数据3，则窗体上显示的内容是（D）
A．3B。
8C。
9D。
10
15．在表示长整数时，可作为长整数尾部符号的是（C）
A.#B.!
C.&D.$
16.Integer类型的数据由（B）字节组成。
A.1B.2C.3D.4
17.在用2通用对话框，控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件（即.txt文件），则正确的描述格式是（A）
A.text（.text）|（*.txt）
B.文本文件（.txt）|（*.txt）
C.text（.txt）FFFFF||（*.bct）
D.text（txt）（*.text）
18.设在菜单编辑器中定义了一个菜单项，名为menu1.为了在运行时隐藏该菜单项，应使用的语句是（D）
A.memu1.Enable=True
B.memu1.Enable=False
C.memu1.Visible=True
D.memu1.Visible=False
19.用于获得字符串S从第四个字符开始的4个字符的函数是（A）
A.Mid（S,4,4）B.Left（S,4,4）C.MidStr（S,4,4）D.MiddleStr（S,4,4）
20.MSGBOX函数中有4个参数，其中必须写明的参数是（C）
A指定对话框中显示按钮的数目
B．设置对话框标题
C．提示信息
D．所有参数都是可选的
21.通用过程可以通过执行“工具”菜单中的（A）命令来建立。
A．添加过程B.通用过程C.添加窗体D.添加模块
22.以下叙述中正确的是（B）
A.一个记录中所包含的各个元素的数据类型必须相同
B．随机文件中每个记录的长度都是固定的
C．Open命令作用是打开一个已经存在的文件
D．使用Input#语句可以从随机文件中读取数据
23.在窗体上画一个名称为Command1的命令按钮，然后编写下列事件过程：
OptionBase1
PrivateSubCommand1-Click（）
K=3
Ifx<3ThenPrintx+3
Ifx<4ThenPrintx+4
Ifx<5ThenPrintx+5
Ifx<6ThenPrintk+6
Print
EndSub
程序运行后，单击命令按钮，则窗体上显示的内容是（B）
A．6789B。
789C。
89D。
9
24.写出如下程序运行结果（D）
Functionf（mAsInteger）AsInteger
b=1
StaticcAsInteger
b=b+1
c=c+1
f=m*b*c
EndFunction
PrivateSubCommand1-click（）
DimaAsInteger
a=2
sum=0
ForI=1to3
Sum=sum+f（a）
Next1
Printsum
EndSub
A.12B.16C.20D.24
25.下列有关控件数组与一般控件的区别的叙述中，最合理的是（A）
A．控件数组一定由多个同类型的控件组成，一般控件只有一个控件。
B．控件数组的Index为0，而一般控件的Index为空。
C．控件数组的Index为1，而一般控件的Index为0。
D．控件数组的建立通过Dim语句声明，而一般控件不必声明。
26.以下叙述中错误的是（D）
A．如果过程被定义为Static类型，则该过程中的局部变量都是Static类型
B．Sub过程中不能被嵌套定义Sub过程。
C．Sub过程中可以嵌套调用Sub过程
D．事件过程可以像通用过程一样由用户定义过程名
27.vb中的坐标系最小刻度为（A）
A缇B象素C厘米D一个标准字符宽度
28.（C）是由VisualBasic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。
A文件B属性C方法D窗体
29.VB中的标识符不包括（D）
A英文字母B数字C下划线D标点符号
30.关于键盘事件的说法中，正确的是（D）
A按下键盘任意键都会引发Keypress事件
B．大键盘的“1”键，和数字键盘的“1”键的Keycode编码相同
C．KeyDown和KeyUp事件过程中有KeyAsicii参数
D．大键盘的4的上档符号是$，当同时按下shift键和大键盘的“4”时，Keypress事件过程KeyAsicii参数值是$的Assii值
二．填空。
1.LBound
UBound
>
arr2
2.Max
Min
HS1.Value+Text1.Text
3.5
Text1（k）
x
>
4.Max=0
Max=n
-Min
三．程序改错
1.Forj=i+1To9
Ifa（i）>=a（j）Then
a（j）-a1
2.n=k
Fori=2Ton
MID（S,i-1,1）=T
a203
一单选
1.以下关于vb语言说法中正确的是：
（vb是一种面向对象语言）
2.用一个程序段对一个对象被单击（或双击）做出响应，从而实现指定的操作，称为：
（事件驱动编程机制）
3.当程序设计语言对输入格式有严格要求时，应保持输入格式与输入语句的：
（一致性）
4.产生（10，37）之间的随机整数的VisualBasic表达式是：
（Int（Rnd
（1）*28）+10）
5.在窗体上画一个名称Command1的命令按钮，然后编写如下事件过程：
Privatesubcommand_click（）
Fori=1To3
Printspc（3）;（2*i+1）*（2*i-1）;
Nexti
Print
Endsub
程序运行后，单击命令按钮，则窗体上显示的内容是：
（31535）
6.定义货币类型数据应该用关键字：
（CURRENCY）
7.下列程序的功能是调用字体对话框来设置文本框字体，单击按钮弹出对话框后单击cancel按钮退出对话框，则将发生以下变化（D）
Privatesubcommand1_click（）
CommonDialogl.cancelError=ture
CommonDialoglFlags=vbCFEffectsOrvbDFBoth
CommonDialogl.showfont
Text.Font.Name=CommonDialog.FontName
Text.Font.size=CommonDialog.Fontsize
Text.Font.Bold=CommonDialog.FontBold
Text.Font.Italic=CommonDialog.FontItalic
Text.Font.Underline=CommonDialog.Fontunderline
Text.FontStrikethru=CommonDialog.FontStrikethru
Text.FontColor=CommonDialog.Color
Endsub
8.下列（#2/1/02#）是日期型常数
9.设置标签边框的属性是（BorderStyle）
10.要在图片框P1中打印字符串”HowAreYou”,应使用语句（P1.Print”HowAreYou”）
11.在vb中，制作菜单时，必须要设置的两个属性是（标题和名称）
12.设a=2,b=3,c=4,d=5,表达式a>bAndC<=dOr2*a>c的值是（false）
13.在窗体上添加一命令按钮，编写如下代码：
Privatesubcommand1_click
Dimarr1（10）asInteger,arr2（10）asinteger
N=3
Fori=1to5
arr1（i）=i
Arr2（n）=2*n+1
Nexti
Printarr2（n）,arr1（n）
Endsub
程序运行后，单击命令按钮，输出结果是（113）
14.functiona（x）
Staticbasinteger
B=b+x^2
Printb
Endfunction
Privatesubcommand1_click（）
Dimc%
C=a
（2）
Endsub
单击两次按钮，显示的结果是（D）8
15.语句dima&（1to20），b#（2，-1to1）定义的两个数组，其类型区别为（一维长整形数组和二维双精度数组）
16.要将名为MyForm的窗体显示出来，正确的使用方法（MyForm.Show）
17.下面关于顺序文件的描述正确的是（记录按进入的先后顺序存放，读出也是按原写入的先后顺序读）
18.MaxLength属性可以设置文本框可以输入与显示的最多字符个数，当其值为0时表示（输入的字符长度不限）
19.下列程序输出结果为（1010）
Privatesubcommand1_click（）
a%=10
b%=5
Changea,b
Printa,b
Endsub
Privatesubchange（byvalaasinteger,basinteger）
Tmp=a
a=b
b=tmp
Endsub
20.编写如下事件过程
Privatesubform_click（）
Dimsumasdouble,iasinteger
Fori=1to20
Ifimod5=0thensum=sum+i
Endif
Nexti
Printsum
Endsub
程序运行后，单击窗体，则窗体上显示的内容是（50）
21.如下定义语句
Typestudent
Nameasstring
Codeasstring
Sexasstring
Endtype
Dimstuasstudent
Withstu
.name=””李洪””
.code=””10101””
.sex=””女””
Endwith
Printstu.code
的结果是（B）10101
22.下列选项中，（整型变量）不是VB变量的作用域。
23.结构化程序由三种基本结构组成，下面属于三种基本结构之一的是（选择结构）。
24.在VisualBasic应用程序中以下正确的描述是（过程的定义不可以嵌套，但过程的调用能嵌套）。
25.下面关于多重窗体的叙述中，正确的是（作为启动对象的Main子过程只能放在窗体模块内）。
26.按文件的组织方式分为（顺序文件名和随机文件）
答案：
A
27．可以唯一标识控件数组中的每一个控件属性的是（Index）
答案：
C
28.有如下函数过程
Functioncys（byvalxasinteger,byvalyasinteger）asinteger
Dowhiley<>0
Reminder=xmody
X=y
Y=reminder
Loop
Cys=x
Endfunction
以下是调用该函数的事件过程，改程序的运行结果是（）
Privtatesubcommand7_click（）
Dimaasinteger
Dimbasinteger
A=100
B=25
X=cys（a,B）
......
答案：
B25
29.鼠标移动经过控件时，将触发控件的（MouseMove）事件
答案:
C
30.以下不属于VisualBasic系统文件类型的是（*.bat）
答案：
B*.bat
上面的全部不区分大小写
2．程序填空
1.s1Len（xstr）Loop
2.1>3.False30x0Y2
4.5+isum或者&isumj=
3．程序改错
1.Dim（里面错误的地方）------DimIn%（改后的正确答案）
STRT=------strT=Mid$（str1,i,1）
STR2=------str2=str2&Asc（strT）
STR2=------str2=strt2&strt
TEXT2=-----Text2=str2
2.改后的i=0PrintxNext
204
一、单选
1.已知ＡＳ＝＂１２３４５６７８＂，则表达式Ｖａｌ（ＬｅｆｔＳ（ＡＳ，４）＋ＭｉｄＳ（ａＳ，４，２）的值为（123445）
2.表达式１５Ｍｏｄ４＋１３＼５＊２的值是（4）
3.能够改变窗体边框线类型的属性是（BorderStyle）
4.若有以下说明语句
Ｔｙｐｅ ｅｍｐｉｏｙｅｅ
ｎｕｍ Ａｓ Ｉｎｔｅｇｅｒ
ｓａｌａｒｙ Ａｓ Ｓｉｎｇｌｅ
Ｅｎｄ Ｔｙｐｅ
Ｄｉｍ ｐｒｏｇｒａｍｍｅｒ ＡＳ ｅｍｐｉｏｙｅｅ
则下面表示记录变量ｐｒｏｇｒａｍｍｅｒ的成员Ｓａｌａｒｙ正确的是（Programmer.salary）
5.将通用对话框类型设置为字体对话框，可修改该控制的（action）属性
6.下列程序执行后，ｎ的值为（25）
ｎ＝０
Ｆｏｒ１＝１Ｔｏ１００
Ｉｆ１Ｍｏｄ４＝０Ｔｈｅｎ ｎ＝ｎ＋１
Ｎｅｘｔ
７ 在ＶＢ中（窗体和控件）被称为对象
８ 假定有如下的Ｓｕｂ过程
Ｓｕｂ ｆｕｎ（ｘ Ａｓ Ｓｉｎｇｌｅ，ｙ Ａｓ Ｓｉｎｇｌｅ）
ｔ＝ｘ
ｘ＝ｔ＼ｙ
ｙ＝ｔＭｏｄｙ
Ｅｎｄ Ｓｕｂ
在窗体上画一个命令按钮和两个文体框（其中Ｎａｍｅ属性分别为Ｔｘｔ１和Ｔｘｔ２）
然后编写如下事件过程
Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ１ Ｃｌｉｃｋ（）
Ｄｉｍ ａ Ａｓ Ｓｉｎｇｌｅ，ｂ Ａｓ Ｓｉｎｇｌｅ
ａ＝Ｃｌｎｔ（Ｔｘｔ１．Ｔｅｘｔ）
ｂ＝Ｃｉｎｔ（Ｔｘｔ１．Ｔｅｘｔ）
Ｃａｌｌ ｆｕｎ（ａ，ｂ）
ｐｒｉｎｔ ａ，ｂ
Ｅｎｄ Ｓｕｂ
程序运行
Ｄｉｍ ａ Ａｓ Ｓｉｎｇｌｅ Ａｓ Ｓｉｎｇｌｅ
ａ＝Ｃｉｎｔ（Ｔｘｔ１．Ｔｅｘｔ）
ｂ＝Ｃｉｎｔ（Ｔｘｔ２．Ｔｅｘｔ）
Ｃａｌｌ ｆｕｎ（ａ，ｂ）
ｐｒｉｎｔ ａ，ｂ
Ｅｎｄ Ｓｕｂ
程序运行时在两个文件框中输入５和６.单击命令按钮输出结果为（05）
９ 询问Ｄｉｍ ａｍ（－３ｔｏ６）Ａｓ Ｉｎｔｒｇｅｒ定义
升级会员 