VB选择题阅读程序题东华大学杜明老师Word下载.docx
- 文档编号:20048809
- 上传时间:2023-01-16
- 格式:DOCX
- 页数:19
- 大小:22.33KB
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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 选择题 阅读 程序 东华 大学 老师