VB选择题阅读程序题东华大学杜明老师.docx

VB选择题阅读程序题东华大学杜明老师.docx

《VB选择题阅读程序题东华大学杜明老师.docx》由会员分享，可在线阅读，更多相关《VB选择题阅读程序题东华大学杜明老师.docx（19页珍藏版）》请在冰豆网上搜索。

VB选择题阅读程序题东华大学杜明老师

补充习题

一、选择题

1.一个对象可执行的动作被称为，而那些被一个对象所识别的动作被称为。

a.事件，方法b.方法，事件c.属性，方法d.过程，事件

2.在下面这行代码中，frmForm2是______，Text是______，Edit是______。

frmForm2.Text=”Edit”

a.对象，属性，值b.对象，方法，值

c.方法，事件，属性d.方法，对象，值

3.在程序中，需要检查复选框的状态，下面哪一行代码可以正确地完成此功能？

a.CheckBox1.Value=TempVariableb.TempVariable=Value

c.TempVariable=CheckBox1.Valued.CheckBox1.Value.TmpVariable

4.当程序运行到下面这段代码时出错了，错误的原因是什么？

WithTextBox1

.Text="VB.NET"

.Multiline=True

.Width=200

EndWitha.

a.With语句中只能设置两个属性b.Textbox1后少了等号

c.True和24均应放在双引号中d.每个属性前均应有一个小数点

5.如果要编写几个Sub子过程，并从多个窗体中访问这些过程。

应该将这些过程放在哪一类模块中？

a.窗体模块b.标准模块c.类模块d.应用程序

6.下列哪一行代码显示一个标题为“InvalidFileName”和一条说明所选文件名非法的消息框？

a.MsgBox（“所选文件名非法”,vbOKOnly,”InvalidFileName”）

b.MsgBox（vbOKOnly,“所选文件名非法”,”InvalidFileName”）

c.MsgBox（“所选文件名非法”,”InvalidFileName”,vbOKOnly）

d.MsgBox（”InvalidFileName”,“所选文件名非法”,vbOKOnly）

7.在下面那种情况下，会发生一个窗体的Load事件：

a.第一次使用窗体的Load方法时b.第一次使用窗体的Show方法时

c.窗体第一次被引用如果它还未被装入d.以上所有情况

8.End语句会中止：

a.含有该语句的窗体b.一个模块中的所有窗体

c.最后一个打开的窗体d.所有的窗体和模块

9.在P1过程中用以下语句声明的一个变量对于应用程序中的哪些部分是可见的：

DimiCAsInteger

a.仅在P1过程中可见b.仅在P1模块中可见

c.对于项目中的所有窗体可见d.对于项目中的所有模块可见

10.在应用程序中加入两个文本框内容，但应用程序测试显示没有返回预期的值78，而是返回了3543。

怎样解决这一问题？

a.用’&’符号连接字符串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

……

Nextx

c.Forx=1To10

Re：

……

Nextx

IfI=10ThenGoTore

d.Forx=3To10Step3

……

Nexty

35.下列循环能正常结束循环的是______。

a.I=5

Do

I=I+1

LoopUntilI<0

b.I=1

Do

I=I+2

LoopUntilI<10

c.I=10

Do

I=I+1

LoopUntilI>0

d.I=6

Do

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

NextI

ForI=1to3

List1.RemoveItemI

NextI

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.下面关于随机文件的描述正确的是______。

a.每条记录的长度必须相同

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

EndIf

IfNotbThenGoTo10

MessageBox.Show（"nb="&Format（i,"0000"））

2.下列程序段将打印什么结果？

Dimi%,sum!

sum=0.0

i=7

10:

SelectCasei

Case1,4,7

sum=sum+1

Case2,3,6

Case0,1,5

sum=sum+2

EndSelect

i=i-1

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）

EndSub

4．如果输入的值为175，则程序执行后输出的结果是？

PrivateSubForm1_Click……

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）

EndSub

（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

Nextch

20:

MessageBox.Show（msg）

2．写出运行下面程序段后的显示结果

（1）Dimi%,msg$

Fori=0To4

Ifi=3ThenExitFor

msg=msg&i&""

NextI

MessageBox.Show（msg+"i="+Str（i））

（2）Dimi%,msg$

Fori=0To4

Ifi=3ThenGoTom1

msg=msg&i&""

m1:

Nexti

MessageBox.Show（msg+"i="+Str（i））

（3）

Dimi%,j%,msg$

Fori=0To4

Forj=0To4

Ifi=3ThenGoTob1

msg=msg&i*5+j&""

Nextj

msg=msg&"i="&Str（i）&vbCrLf

b1:

Nexti

MessageBox.Show（msg）

（4）

Dimi%,j%,msg$

Fori=0To4

Forj=0To4

Ifi=3ThenExitFor

msg=msg&i*5+j&""

Nextj

msg=msg&"i="&Str（i）&vbCrLf

Nexti

MessageBox.Show（msg）

（5）

Dimi%,j%,msg$

Fori=0To4

Forj=0To4

Ifi=jThenGoTob1

msg=msg&i*5+j&""

Nextj

msg=msg&"i="&Str（i）&vbCrLf

b1:

Nexti

MessageBox.Show（msg）

（6）

Dimi%,j%,msg$

Fori=0To4

Forj=0To4

Ifi=jThenGoTob1

msg=msg&i*5+j&""

B1:

Nextj

msg=msg&"i="&Str（i）&vbCrLf

Nexti

MessageBox.Show（msg）

（7）

Dimi%,msg$

Fori=1To26

msg=msg&Chr（Asc（"A"）+i-1）&""

IfiMod7=0Thenmsg=msg&vbCrLf

Nexti

MessageBox.Show（msg）

3．指出下列程序的运行结果

Dimi%,j%,msg$

Dimsize%,seed%

size=5:

seed=2

Fori=1Tosize

Forj=1Toi

msg=msg&seed&""

seed=seed+1

Ifseed=10Thenseed=1

Nextj

msg=msg&vbCrLf

Nexti

MessageBox.Show（msg）

4．指出下列程序的运行结果

Dimn%,m%

m=14

n=63

DoWhilem<>n

DoWhilem>n

m=m-n

Loop

DoWhilen>m

n=n-m

Loop

Loop

MessageBox.Show（m）

5．写出下面的程序执行后在文本框里输出的结果。

PrivateSubForm1_Click（）

Dimi%,j%,msg$

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

TextBox1.Text=TextBox1.Text&"*"

Nextj

TextBox1.Text=TextBox1.Text&vbCrLf

Nexti

EndSub

（3）过程

1.写出下列程序的运行结果

Dima%,b%,i%,msg$

PublicSubtest（ByValxAsInteger,ByRefyAsInteger）

Dima%,b%

x=x+1

y=y+1

a=x*y

b=x\y

msg=msg&vbCrLf

msg=msg&"A="&a&"B="&b&"X="&x&"Y="&y

EndSub

PrivateSubButton1_Click……

a=2:

b=2

Fori=1To3

msg=msg&"A="&a&"B="&b

test（a,b）

msg=msg&vbCrLf

Nexti

MessageBox.Show（msg）

EndSub

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

TextBox1.Text=TextBox1.Text&x&""&y&""&z

TextBox1.Text=TextBox1.Text&vbCrLf

y=z-x

EndSub

PrivateSubForm1_Click……

Dimx%,y%,z%

x=1:

y=2:

z=3

g1（x,y）

TextBox1.Text=TextBox1.Text&x&""&y&""&z

TextBox1.Text=TextBox1.Text&vbCrLf

g1（x+1,z）

TextBox1.Text=TextBox1.Text&x&""&y&""&z

TextBox1.Text=TextBox1.Text&vbCrLf

EndSub

4写出下列程序的运行结果

Dima%,b%,c%,msg$

PublicSubpc（ByVala%,ByRefd%,ByRefb%）

Dimc%

a=a+1

b=b+2

c=a+d

msg=a&""&b&""&c&vbCrLf

EndSub

PrivateSubButton1_Click……

a=2:

b=3:

c=4

Callpc（a