VB选择题阅读程序题东华大学杜明老师Word下载.docx
《VB选择题阅读程序题东华大学杜明老师Word下载.docx》由会员分享，可在线阅读，更多相关《VB选择题阅读程序题东华大学杜明老师Word下载.docx（19页珍藏版）》请在冰豆网上搜索。
’符号连接字符串b.创建一个独立的变量来保存结果
c.用转换函数将字符串转换为整数d.使用标签中的值，而不是文本框的值
11.从一个字符串的第四个字符开始，获取5个字符，应使用：
a.Len函数b.Mid函数c.Format函数d.StrConv函数
12.在下面的语句中，if”A”>
“a”ThenblnCheck=True，关于blnCheck的值的哪一种说法是正确的？
a.blnCheck被设为Trueb.BlnCheck被设为False
c.blnCheck的值保持不变d.以上都不对
13.在下面的例子中，如果列表框List1中没有选中的项，会发生什么？
List1.Items.RemoveAt（List1.SelectedIndex）
a.移去第一项b.移去最后一项
c.移去最后加入列表的那一项d.以上都不是
14.当多个单选按钮放在一个组框控件中时，
a.一次只能有一个单选按钮被选b.一次可以有多个单选按钮被选
c.当选中一个单选按钮时，框架控件的Value属性为Trued.以上都不是
15.为创建一个自定义的弹出式菜单，应：
a.修改系统菜单
b.向窗体中添加多个标签控件，然后把菜单属性设置为True
c.使用ContextMenu控件
d.创建主菜单控件
16.工具栏按钮的图像是：
a.保存在一个Image控件里的
b.保存在窗体里的
c.根据工具栏按钮的功能，自动赋给工具栏按钮的
d.保存在一个ImageList控件里的
17.下面的代码段能完成什么功能？
DimIAsInteger
ForI=0ToControls.Count-1
IfTypeOfControls（I）IsButtonThen
Controls（I）.Enabled=False
EndIf
NextI
a.使当前窗体中所有的命令按钮失效
b.使当前窗体中所有的命令按钮失效，最后一个按钮除外。
c.使项目中所有的命令按钮失效
d.使项目中所有的命令按钮失效，最后一个按钮除外。
18.对于窗体,下面______属性在程序运行时其属性设置起作用。
a.MaximizeBoxb.BorderStylec.Named.以上都不行
19.若要使命令按钮不可操作，要对______属性进行设置。
a.Enabledb.Visiblec.BackColord.Caption
20.在一个语句内写多条语句时，每个语句之间用______符号分隔。
a.,b.:
c.、d.;
21.一句语句要在下一行继续写，用______符号作为续行符。
a.+b.-c._d.…
22.下面______是合法的变量名。
a.X_yzb.123abcc.integerd.X-y
23.下面______是不合法的整常数。
a.100b.&
O100c.&
H100d.%100
24.表达式16/4-2^5*8/4Mod5\2的值为。
a.14b.4c.20d.2
25.在下列函数中，标准数学函数不包含______。
a.格式化函数b.普通数学函数c.三角函数d.对数函数
26.下列操作符的优先级最高的是______。
a.＊b.＋c.^d.Mod
27.Int（198.555*100+0.5）/100的值______。
a.198b.199.6c.198.56d.200
28.VB提供了结构化程序设计的三种基本结构，它们是______。
a.递归结构、选择结构、循环结构
b.选择结构、过程结构、顺序结构
c.过程结构、输入和输出结构、转向结构
d.选择结构、循环结构、顺序结构
29.结构化程序由三种基本结构组成，下面属于三种基本结构之一的是______。
a.递归结构b.选择结构
c.过程结构d.输入和输出结构
30.______语句能实现多项分支选择。
a.If…Elseb.SelectCasec.Do…Whiled.Do…Until
31.下面程序运行后，显示的结果是______。
Dimx
IfxThenMsgBox（x）ElseMsgBox（x+1）
a.1b.0c.–1d.显示出错信息
32.语句Ifx=1Theny=1，下列说法正确的是______。
a.x=1和y=1均为赋值语句
b.x=1和y=1均为关系表达式
c.x=1为关系表达式，y=1为赋值语句
d.x=1为赋值语句，y=1为关系表达式
33.使用下面那种结构时知道循环中语句执行的次数？
a.Do…Loop结构b.LoopUntil结构
c.For…Next结构d.While…Wend结构
34.以下______是正确的For…Next结构。
a.Forx=1ToStep10
……
Nextx
b.Forx=3To–3Step-3
c.Forx=1To10
Re：
Nextx
IfI=10ThenGoTore
d.Forx=3To10Step3
Nexty
35.下列循环能正常结束循环的是______。
a.I=5
Do
I=I+1
LoopUntilI<
b.I=1
I=I+2
10
c.I=10
LoopUntilI>
d.I=6
I=I-2
LoopUntilI=1
36.可以进行图形图像操作的控件有______。
a.Label控件b.PictureBox控件c.Timer控件d.ListBox控件
37.下面那种类型不属于组合框______。
a.下拉式组合框b.简单列表框c.简单组合框d.下拉式列表框
38.下面的哪个语句返回一个组合框中选中的选项的值？
a.strSelection=cmbComboList.Text
b.strSelection=cmbComboList.IndexItem
c.Combo1.ListIndex=strSelection
d.Combo.strSelection
39.执行了下面的程序后，列表框中的数据项有______。
SubForm_Click（）
ForI=1to6
List1.AddItemI
ForI=1to3
List1.RemoveItemI
EndSub
a.1，5，6b.2，4，6c.4，5，6d.1，3，5
40.在用菜单编辑器设计菜单时，必须输入的项有______。
a.快捷键b.标题c.索引d.名称
41.以下正确的语句是______。
a.CommonDialog1.Filter=AllFiles|*.*|Pictures（*.Bmp）|*.Bmp
b.CommonDialog1.Filter=“AllFiles”|“*.*”|“Pictures（*.Bmp）”|“*.Bmp”
c.CommonDialog1.Filter=“AllFiles|*.*|Pictures（*.Bmp）|*.Bmp”
d.CommonDialog1.Filter={AllFiles|*.*|Pictures（*.Bmp）|*.Bmp}
42.当用户按下并且释放一个键后会触发KeyPress、KeyUp和KeyDown事件，这三个事件发生的顺序是______。
a.KeyPress、KeyDown、KeyUp
b.KeyDown、KeyUp、KeyPress
c.KeyDown、KeyPress、KeyUp
d.没有规律
43.下面关于顺序文件的描述正确的是______。
a.每条记录的长度必须相同
b.可通过编程对文件中的某条记录方便的修改
c.数据只能以ASCII码形式存放在文件中，所以可通过文本编辑软件显示
d.文件的组织结构复杂
44.下面关于随机文件的描述正确的是______。
b.一个文件中记录号不必唯一
c.可通过编程对文件中的某条记录方便的修改
d.文件的组织结构比顺序文件复杂
45.结构类型定义语句应出现在______。
a.窗体模块
b.标准模块
c.窗体模块和标准模块都可以
d.窗体模块和标准模块均不可以
二、阅读程序
（1）选择结构
1.指出下列程序段的输出结果
DimbAsBoolean
Dimn%,x%,i%,y%
n=345
x=10000
i=5
10:
y=n\x
b=True
Ify<
1Then
b=False
x=x\10
i=i-1
IfNotbThenGoTo10
MessageBox.Show（"
nb="
&
Format（i,"
0000"
））
2.下列程序段将打印什么结果？
Dimi%,sum!
sum=0.0
i=7
SelectCasei
Case1,4,7
sum=sum+1
Case2,3,6
Case0,1,5
sum=sum+2
EndSelect
Ifi>
=4ThenGoTo10
MessageBox.Show（"
sum="
sum）
3．写出程序的运行结果
PrivateSubForm1_Click……
Dima$,b$,c$,d$,e1$,f$,g$,h$
a="
HELLOGOODMORNING"
b="
WANGCHANGLI"
c=Microsoft.VisualBasic.Left（a,5）+"
!
"
d=Microsoft.VisualBasic.Right（a,7）
e1=Mid（a,6,4）
f=Mid（b,Len（b）-6,5）+"
g=e1+"
"
+d+"
h=c+"
+f
MessageBox.Show（h+"
+g）
4．如果输入的值为175，则程序执行后输出的结果是？
Dimx$,a%,b%,c$
x=InputBox（"
inputdata"
）
a=Int（x/16）
b=x-16*a
c="
0123456789ABCDEF"
x=Mid（c,a+1,1）+Mid（c,b+1,1）
MessageBox.Show（x）
（2）循环结构
1．指出下列程序段的输出结果
（1）Dimi%,msg$
Do
msg=msg+"
HELLO"
+vbCrLf
i=i+1
LoopUntili=10
MessageBox.Show（msg）
（2）Dimi%,s%
s=1:
i=10
DoWhilei>
0
s=s*i
i=i-1
Loop
MessageBox.Show（"
s="
s）
（3）Dimch%,msg$
Forch=Asc（"
X"
）ToAsc（"
P"
）Step-1
msg=msg+Chr（ch）+"
Ifch<
Asc（"
T"
）ThenGoTo20
Nextch
20:
MessageBox.Show（msg）
2．写出运行下面程序段后的显示结果
（1）Dimi%,msg$
Fori=0To4
Ifi=3ThenExitFor
msg=msg&
i&
MessageBox.Show（msg+"
i="
+Str（i））
（2）Dimi%,msg$
Ifi=3ThenGoTom1
m1:
Nexti
MessageBox.Show（msg+"
（3）
Dimi%,j%,msg$
Forj=0To4
Ifi=3ThenGoTob1
i*5+j&
Nextj
Str（i）&
vbCrLf
b1:
（4）
（5）
Ifi=jThenGoTob1
（6）
B1:
（7）
Dimi%,msg$
Fori=1To26
Chr（Asc（"
A"
）+i-1）&
IfiMod7=0Thenmsg=msg&
3．指出下列程序的运行结果
Dimi%,j%,msg$
Dimsize%,seed%
size=5:
seed=2
Fori=1Tosize
Forj=1Toi
seed&
seed=seed+1
Ifseed=10Thenseed=1
4．指出下列程序的运行结果
Dimn%,m%
m=14
n=63
DoWhilem<
>
n
DoWhilem>
m=m-n
Loop
DoWhilen>
m
n=n-m
MessageBox.Show（m）
5．写出下面的程序执行后在文本框里输出的结果。
PrivateSubForm1_Click（）
Dimb%,n%,a!
TextBox1.Text="
n=5
a=（n+1）/2
Fori=1Ton
b=Math.Abs（a-i）
TextBox1.Text=TextBox1.Text&
Space（b+1）
Forj=1Ton-2*b
*"
（3）过程
1.写出下列程序的运行结果
Dima%,b%,i%,msg$
PublicSubtest（ByValxAsInteger,ByRefyAsInteger）
Dima%,b%
x=x+1
y=y+1
a=x*y
b=x\y
A="
a&
B="
b&
X="
x&
Y="
y
PrivateSubButton1_Click……
a=2:
b=2
Fori=1To3
b
test（a,b）
2.设有函数说明
PublicFunctionsys（ByVala%,ByValb%,ByValc%）AsInteger
sys=3*a-4*b\c
EndFunction
当主程序执行下述各语句后，k的值是什么?
k1=sys（1,2,3）
k2=sys（1,2,1）-sys（0,1,1）
k3=sys（1,sys（1,2,3）,2-1）
3.阅读下列程序，写出输出结果
Subg1（ByValx%,ByRefy%）
Dimz%
z=2*x
y&
z
y=z-x
EndSub
PrivateSubForm1_Click……
Dimx%,y%,z%
x=1:
y=2:
z=3
g1（x,y）
g1（x+1,z）
4写出下列程序的运行结果
Dima%,b%,c%,msg$
PublicSubpc（ByVala%,ByRefd%,ByRefb%）
Dimc%
a=a+1
b=b+2
c=a+d
msg=a&
c&
a=2:
b=3:
c=4
Callpc（a
升级会员 