VB复习资料Word文件下载.docx
《VB复习资料Word文件下载.docx》由会员分享，可在线阅读，更多相关《VB复习资料Word文件下载.docx（11页珍藏版）》请在冰豆网上搜索。
D、StartUpPosition=1运行时窗体不显示
9、文本框的Text属性（shǔxì
ng）返回（），SelText属性（shǔxì
ng）返回（）。
输入（shūrù
）的全部文本、选择的文本
10、Mid（s,m,n）返回（fǎnhuí
）的值是（）。
S串中从第m个字符开始（kāishǐ）的连续n个字符
11、能返回整数X的十位数字的表达式是（）。
X\10Mod10或（XMod100）\10
12、能终止名为Tmr的Timer控件触发其Timer事件的语句是（）。
AB
A、Tmr.Enabled=FalseB、Tmr.Interval=0
C、Tmr.Visible=FalseD、Tmr.Stop
13、设置（）属性为2，可使TextBox控件显示的内容水平居中。
B
A、AlignB、AlignmentC、AppearanceD、BorderStyle
14、CommandButton控件的属性（）设置为1才能显示其背景色。
A
A、StyleB、DefaultC、CancelD、Tag
15、将X四舍五入（sì
shěwǔrù
）保留到小数点后二位的是（）。
A、Format（X,"
0.00"
）B、Format（X,"
#.##"
）C、Format（X,"
#.00"
）D、Round（X,2）
16、确定（què
dì
ng）Label控件背景透明（tò
umí
ng）的属性是（）。
BackStyle
17、下面（xià
mian）关于MsgBox函数（há
nshù
）的说法中正确的是（）。
ABC
A、第一个参数确定显示信息B、第三个参数确定对话框标题
C、第二人参数确定按钮和图标类型D、函数没有返回值
18、与ifx>
=60theny=1elsey=0等效的是（）。
CD
A、y=iif（x<
60,0,1）B、ifx<
60theny=0elsey=1
C、y=iif（x>
=60,1,0）D、if（x>
60）or（x=60）theny=1elsey=0
19、可能产生运行时错误的表达式是（）。
BCD
A、Val（"
23abc"
）B、CDbl（"
）C、CInt（"
）D、Int（23.15）Mod3
20、设x=86，则Choose（1-（x<
60）-（x<
75）-（x<
90）,4,3,2,1）的值为（）。
3
21、能为Select语句（yǔjù
）的Case子句（zǐjù
）的表达式是（）。
ABD
A、48to57B、8,48to57C、is<
10,48to57D、"
abc"
to"
xyz"
22、下面（xià
mian）有关TextBox控件的描述（miá
oshù
）正确的是（）。
D
A、Change事件（shì
jià
n）在KeyPress事件之后触发
B、Change事件触发时，输入的文本已经显示
C、KeyPress事件触发时，输入的文本已经显示
D、在KeyPress事件中，可利用代码取消用户的输入
23、TextBox控件的（）事件带参数Cancel。
C
A、ChangeB、KeyPressC、ValidateD、LostFocus
24、事件（）能控制TextBox控件失去焦点。
Validate
25、Frame控件可用于（）。
A、窗体布局（bù
jú
）B、作控件容器（ró
ngqì
）C、分割（fēngē）图像D、将OptionButton控件分组
26、可作控件容器（ró
）的是（）。
窗体、Frame控件、PictureBox控件
27、能够（né
nggò
u）强行退出While...Wend循环的语句是（）。
A、ExitForB、ExitDoC、ExitSubD、Goto
28、下面有关控件数组的描述中正确的是（）。
A、只要控件名称设置相同，即可组成控件数组
B、组成控件数组的控件必须是同类型的控件
C、控件数组的每个控件的Index属性均不相同
D、组成控件数组的所有控件必须在同一容器中
29、语句Dima（3,4）AsLong定义了（）。
ACD
A、一个名为a的二维数组B、有7个变量的数组
C、20个变量D、数组的二维下标最大值为4
30、控件数组的事件一定（yīdì
ng）有参数（）。
A、ButtonB、IndexC、ShiftD、Cancel
31、Randomize语句（yǔjù
）的作用是（）。
初始化随机数生成器
32、表达式Int（rnd*a+b）的值为（）（其中（qí
zhōng）a,b均为整数（zhěngshù
））。
[a,a+b-1]上的整数（zhěngshù
）
33、在Sub过程内不能用（）声明变量。
A、DimB、PulbicC、PrivateD、Static
34、在窗体通用声明部分不能用（）声明数组。
35、Split（"
1,2,3,4"
"
）返回值为（）。
A、Variant类型的数组B、String类型的数组C、"
1234"
D、"
"
36、窗体上有名为txt的控件，且Index属性为0。
则能正确加载txt
（1）的语句是（）。
A、Loadtxt
（1）B、t
（1）.Visible=TrueC、ReDimtxt
（1）D、UnLoadtxt
（1）
37、控件数组cmd共有（ɡò
nɡyǒu）16个元素（yuá
nsù
），下标从0至15。
这16个控件按下标（xià
biāo）由小到大的顺序，从左到右、从上到下排成4行4列。
那么（nà
me）cmd（k）位于（wè
iyú
）（）。
0<
=k<
=15。
A、第（k/4+1）行B、第（k\4+1）行C、第（kMod4）列D、第（kMod4）+1列
38、ListBox控件的Sorted=True时，能够自动对列表项按字母顺序排序。
（对各列表项进行逐字符比较，按ASCII码值递增排序）。
已知Lst为ListBox控件，Sorted=True。
如果Lst控件中依次添加三项2、11、12。
则第三个列表项是（）。
2
39、SubGetInf（ParamArraya（））表示（）。
可以传递不同个数的参数
40、过程参数前带参数Optional表示（）。
可选参数，调用时可不传递值
41、文本框的Locked属性设置为True后（）。
A、不能得到（dé
dà
o）焦点B、不再响应（xiǎngyì
ng）事件C、不能输入（shūrù
）数据D、代码（dà
imǎ）不能修改Text
42、列表框当前（dāngqiá
n）项的位置由属性（）确定。
A、ListCountB、TextC、ListIndexD、NewIndex
43、使用（）方法可以只删除列表框指定项目。
RemoveItem
44、用（）方法可将项目添加到组合框中。
AddItem
45、使用（）语句可将组合框Combo1的第3项置为当前项。
Combo1.Index=2
46、使用（）方法可以删除列表框中所有项目。
Clear
***代码理解***
PrivateSubcmdCr_Click（）
txtR.Text=””
txtB.Text=””
txtM.Text=””
EndSub
单击名为cmdCr的按钮时，清空（qīnɡkōnɡ）三个文本框的内容
PrivateSubcmd_Click（）
end
单击名为cmd的按钮时，关闭程序
Lb.Caption=Format（txt.Text,"
单击名为cmd的按钮时，将文本框txt中显示的数据四舍五入保留小数点二位（è
rwè
i）后在标签Lb上显示（xiǎnshì
PrivateSubForm_Load（）
LbDate.Caption=Format（Now,"
yyyy年mm月dd日"
LbWeek.Caption=WeekdayName（Weekday（Now））
LbTime.Caption=Time
窗体加载时，利用（lì
yò
ng）三个Label控件显示系统日期（rì
qī）、星期和时间
PrivateSubForm_Click（）
DimkAsLong,aAsLong,tAsLong
a=1
Me.Print2;
Fork=3To99Step2
t=3
DoWhilet*t<
=k
IfkModt=0ThenExitDo
t=t+2
Loop
Ift*t>
kThen
Me.Printk;
a=a+1
IfaMod5=0ThenMe.Print
EndIf
Next
单击窗体时，在窗体上输出（shūchū）100以内的所有质数（zhì
shù
）。
每行输出五个数。
PrivateSubtxtIn_KeyPress（KeyAsciiAsInteger）
IfKeyAscii=8ThenExitSub
IfKeyAscii<
48ThenKeyAscii=0
IfKeyAscii>
57ThenKeyAscii=0
在文本框txtin内禁止输入（shūrù
）数字之外的其他字符（允许删除）
PrivateSubtxt_Validate（CancelAsBoolean）
IfVal（txt.Text）>
100ThenCancel=True
如果（rú
guǒ）文本框txt内的数据（shù
jù
）超过100，则禁止其失去焦点
PrivateSubcmdPD_Click（）
DimtpAsString
SelectCaseVal（txtIn.Text）
Case0To59:
tp="
不及格"
CaseIs<
75:
及格"
90:
良好（liá
nghǎo）"
CaseElse:
优秀（yōuxiù
）"
EndSelect
Msgboxtp,vbOKO
升级会员 