VB综合练习题资料

第2章VB语言基础

2.1学习要点与必备知识

【学习要点】

•常量、变量与数据类型，运算符与表达式。

•数组：概念，基本操作。

•常用标准函数，人机对话函数。

•编程基础与程序流程控制：顺序结构，选择结构，循环结构。基本程序的编制与算法。

【必备知识】

i.数据运算基础

数据类型(种类、表示范围、自定义数据类型)，常量(文字常量、符号常量)，变量(命名、

类型、定义、类型符)，运算符与表达式(算术运算、关系及逻辑运算、运算优先顺序)。

2.标准函数

转换函数，数学函数，时间与日期函数，字符串处理函数。

算术函数(Abs、Sin/Cos/Atn/Tan>Exp/LogRnd/Randomize>Sgn>Sqr)；

字符串函数(Lcase/Ucase、Left/Right>Len、Ltrim/Rtrim/TrimMid>Space>String、InStr)；

日期及时间函数(Time/Date、Now>DateValue、Day/Month/Year/WeekDay)；

转换函数(Str/Val、Chr/Asc、Fix/Int、Cint/Cbool/Cbytc/Cdatc/Cdbl/Cstr)o

由于VB的函数众多，为了学好函数的使用，可以通过立即窗口。立即窗口是VB提供的

交互执行窗口。在立即窗口中可以输入命令，命令行解释程序对输入的命令进行解释，并立即

响应。

3.数据的输入与输出

InputBox函数,MsgBox函数，Print方法。

(1)字体的控制

在VB的应用程序中，可以输入或显示各种英文字体和汉字字体。字体具有类型、大小、

字形等属性。这些属性可以通过属性窗口进行静态设置，亦可通过代码进行动态设置。使用代

码动态设置的方法如下：

字体的类型：objecl.FonlName[二font]

object能够接收字符的对象名，可以是窗体、文本框、标签、打印机等。其中，font是系

统字体的合法名称，其名称可以通过Fonts属性得到。如省略，则使用系统默认字体为“宋体”。

字体大小：object.FontSize[=points]

object与上同，points是指所设置字体的点数。在默认情况下，系统使用最小的字体，点数

为9。

20VisualBasic学习辅导与上机实习

字体的字形：在VB中能够像Word那样对字体的字形进行设置，主要的属性有：

粗体---FontBold,斜体----Fontltalic,删除线---FontStrinkthru,下划线----FontUnderlineo

这几个属性的值均为Boolean型，有两个值：True与Falseo如取True则表示加上这些属

性，否则取消这些属性。

(2)格式输出函数

当使用Print方法输出指定信息时，尽管可以使用该方法提供的格式来规定输出信息的输出

形式，但这种输出的形式还不够丰富。为此，VB专门提供了一个格式输出函数Format用来指

定数值或日期的格式输出。其格式为：

Format(expression[,format])

该函数的功能是按格式字符串format指定的格式输出表达式expression的值，一般情况下

它总用于数值表达式。若省略格式字符串，其与Str函数相似，所不同的是当输出一个正数时,

Str函数会在输出值前产生一个空格，而Format函数则不会。

使用该函数主要需确定格式字符串。格式字符串及其用法如表2・1所示。

表2-1格式字符串及用法

字符作用及用法

数字：#的个数决定了显示的长度，如数值位数小于指定的长度，数值左对齐，多余位不补0；

否则，数值原样显示

0数字：功能与#相同，只是在多余的位补0

小数点：与#或0结合使用，根据其位置，小数部分多余的数字将按四舍五入处理

千分位分隔符：从小数点开始，向左每3位一个逗号。该符号可以放在格式串小数点左边的

任何位置，但一般不要放在开始或紧靠小数点的位置

%百分比符号：放在格式串的尾部，用来输出％

$美元符号：放在格式事的起始，在所显示的数值前加上一个$

+,一正、负号：指定输出的数值带+号或一号

E+,E-指数符号：以指数的形式显示数值

例如，在立即窗口试验以下函数：

①?format("1223.456","#####,##.##")

1,223.46

②?format("1223.456","000,00.0000")

01,223.4560

@?furmal(".456","//().()%")

45.6%

④?format(1,123.45',,"$000.0n)

$123.5

⑤?format("123.45",“-000.0”)

-123.5

?format("123.45n；,+000.0")

+123.5

⑥?format("l2345.67',；'0.00E+00")

1.23E+04

?format(".()()()12345,,,,,0.00E+()0")

1.23E-04

4.数组

数组的定义，静态数组与动态数组，数组的输入、输出、复制与初始化，控件数组。

为了便于对数组进行操作，VB提供了以下3个主要的数组函数：

Array。函数

语法格式为：Array(arglist)o该函数的作用是对数组赋值，使用方法是：

数组名=Array(数组元素值列表)

例如，给一个数组赋初值1、2、3、4、5o

DimarrNasVariant

ArrN=Array。23,4,5)

使用该函数为数组赋值时要注意：

(1)数组在定义时不能指定维数及卜下标值.

(2)数组在定义时只能使用Variant类型。

Ubound()/Lbound()函数

语法格式为：Ubound/Lbound(arrayname[,dimension])。功能为返回指定数组arrayname指

定维dimension的上/下界值，如省略维则返回第1维的上下界值。

5.程序流程控制

单行选择结构、块选择结构、多分支选择结构、For循环结构、当型循环结构、直到型循

环结构、多重循环结构。

无条件转移语句GoTo命令的使用

GoTo语句可以改变程序的执行次序，因此既可以构成选择结构也可以构成循环结构。由

于该语句的执行是无条件的，过多使用会影响程序的质量，违反了结构化程序设计的基本原则，

因此一般并不推荐使用。GoTo语句的语法是：

GoToline

line参数可以是一个标号或一个行号。标号是一个以冒号结尾的标识符，如，Start:；行号

则是一个整形数，尾部不加冒号，如，100。

程序在执行到GoTo语句时，将无条件转移到line参数指定的标号或行号所在程序行执行。

Iif()函数

Iif()函数用来进行简单条件判断，其语法为：

Iif(expr,trucpart,falscpart)

执行时,先判断逻辑表达式expr的值。若值为“True”,则返回Irueparl的值;否则返回falsepart

部分的值。该函数的执行过程与If…then…else的执行过程相似，而且效率更高。例如，输出X、

y中的大值。

用If语句：

Ifx>yThen

A.TrueB.#1999-12-1#

C.1999-12-01D.False

12.下列叙述中不正确的是()o

A.变量名的长度不能超过255个字符

B.变量名的第一个字符必须是字母

C.变量名不能使用VB的关键字

D.变量名可以包含内嵌的类型声明符

13.不能正确表示“两个整形变量a与b之一为0,但不同时为0”的表达式是()o

A.a*b=0Anda<>b

B.(a=0Orb=0)Andaob

C.Not(a=0Andb=0)And(a=0Orb=0)

D.a*b=0And(a=0Orb=0)

14.设b的值为7,一表达式为“x=b=7"，则运算后乂为()。

A.TrueB.b=7C.7D.b

15.在表达式54+3*12八2-5116+1)/2中最先进行运算的是(

A.12A2B.3*12C.x+1D.Sin()

16.x+y小于10且x-y大于0的逻辑表达式是。

A.x+y<10orx-y>0B.(x+y<10):(x-y)>0

C.x+y<10Andx-y>()D.x+y<l().AnD.x-y>()

17.代数表达式~十山+田,对应VisualBasic表达式是_____。

2JI-1

A.EA(x+y)+|x+y|Al/2/2n+l

B.Exp(x+y)+Sqr(Abs(x+y))/2*3.14159+1

C.(Exp(x+y)+Sqr(Abs(x+y)))/(2*3.14159+1)

D.(Exp(x+y)+Sqr(Abs(x+y)))/2*兀+1

耳,3

18.代数表达式In―+>n”对应的VisualBasic表达式为()。

x+y

A.Log(Abs((Exp(3.14159)+Sin(x)A3)/(x+y)))

B.Ln(Abs((Exp(3.14159)+Sin(x)A3)/(x+y)))

C.Log(Abs(Exp(3.14159)+Sin(x)A3)/(x+y))

D.Log|Abs(Exp(3.14159)+Sin(x)A3)/(x+y)|

19.下面表达式的值为真的是()o

A.Mid("VisualBasic",1,12)=Right(HProgrammingLanguageVisualBasic",⑵

B.uABCRG">',abcdcn

C.Int(134.69)>=Cint(134.69)

D.78.9/32.77<=97.5/43.97And-45.4>-4.98

24VisualBasic学习辅导与上机实习

20.下面说法不正确的是()o

A.VB允许将一个数字字符串赋值给一个数值型的变量

B.VB允许使用未经说明的变量，其类型都是Variant类型

C.Cis只清除运行时在窗体或图形框中显示的文本或图形

D.事件过程既可建在窗体模块中，也可建在标准模块中

21.假定变量Logic的类型是Boolean,下面赋值语句()是正确的。

A.logic二“True"B.logic二.True.

C.logic=#True#D.logic=3<4

22.在过程中可以用()语句定义变量。

A.Dim、PrivateB.Dim、StaticC.Dim、PublicD.Dim>Static>Private

23.执行语句PrintFormat(5459.478,"##,##0.00")w的正确输出结果是()。

A.5459.48B.5,459.48C.5,459.478D.5,459.47

24.下列语句中()语句可以用来正确地声明一个动态数组。

A.PrivateA(n)AsIntegerB.DimA()AsInteger

C.DimA(,)AsIntegerD.DimA(1Ton)

25.假定变量Logic的类型是Boolean,下面赋值语句中()是不正确的。

A.Logic=TrueB.Logic=NotTrue

C.Logic=#True#D.Logic=3<4

26.表达式Str(L衣(“3212"))+Str(88.8)的值为()。

A.488.8B.488.8C.3300.8D.321288.8

27.函数Len(Str(Val(”ULl”)))的值为()<>

A.5B.6C.111.1D.111

28.设B="234455678”，则表达式丫叫1^仕也,4))+丫矶?^(1也,4,2))的值为()。

A.2389B.234455C.2344D.55

29.设A="abcdefgh”,下面函数中只有()的值不为“fgh”。

A.Mid(A,6,8)B.Right(A,3)C.Left(A,6,3)D.Mid(A,6,3)

30.Rnd函数不可能产生()值。

A.0B.1C.0.9999D.0.00001

31.表达式的值不为2的是()。

A.10/5B.12\5C.5mod3D.12\5mod2

32.能产生30To。之间随机数的表达式为()o

A.Int(71*Rnd)+30B.Int(l()0*Rnd)+30

C.Int(70*Rnd)D.Int(100*Rnd)

33.在Rnd(n)函数中，要想生成不相同的随机数，n的取值必须为()。

A.>0B.<0C.>1D.=0

34.要使用Rnd函数来模拟方形骰子投掷，应使用()表达式。

A.Int(6*Rnd(l))B.Int(l+6*Rnd(l))

C.Inl(6*Rnd(l)-l)D.Int(7*Rnd⑴・1)

35.以下函数中，不属于算术函数的是（）。

A.Sin()B.Str()C.Abs()D.Exp()

36.能够返字符代码的函数为（）。

A.Chr()B.Mid()C.InStr()D.Asc()

37.删除字符串前导与尾随空格的函数是（)°

A.Ltrim()B.Rtrim()C.Trim()D.Lcase()

38.能实现字符ANSI编码方式与Unicode方式转换的函数是（）。

A.StrB.StrconvC.TrimD.Mid

39.Double类型的数据由（）个字节组成。

A.2B.4C.16D.8

40.获得系统日期的函数为（）o

A.Data$B.Time$C.Date$D.GetTimeS

41.执行以下程序后，变量c$的值为（）0

a$="VisualBasicProgramming"

b$="C++"

c$=Ucase(left$(a$,7))&b$&Right$(a$,12)

A.VisualBasicProgrammingB.VISUALC++Programming

C.VisualC++ProgrammingD.VISUALBASICProgramming

42.下列各组变量声明正确的是（）o

A.DimabcasintegcrjiumassingleB.DimI%,N$asinteger

C.DimA%,b%,c%,a$D.PublicDimn%

43.字符串的连接运算符为（）<>

A.@B.$C.&D.*

44.下列选项中为十六进制数的是（）o

A.123B.&123C.&O123D.&H123

45.要声明一个长度为20个字符的定长字符串，下列只有（）是正确的。

A.DimstrasstringB.Dimstrasstring(20)

C.Dimstrasstring[20JD.Dimstrasstring*20

46.下列表达式不合法的是()。

A.,,123,'+"abcMB.123&"abc"

C.l+2\3D.[3*(4+5)-6]/7

47.下列逻辑运算结果为“1”的是()o

A.falseornottrueB.falseandnottrue

C.trueornottrueD.trueandnottrue

48.Single类型的数据由()字节组成。

A.1B.2C.4D.8

49.日期型常量必须用()括起来。

A.”B.'C.()D.#

26VisualBasic学习辅导与上机实习

50.设a=2,b=3,c=4,d=5,表达式“a>bAndc<=dOr2*a>c”的值为（）。

A.-1B.1C.TrueD.False

51.用InputBox函数可以生成（）。

A.消息框B.“保存”对话框

C.简单输入框D.“颜色”对话框

52.执行下列语句在用户输入并按“确定"后，st$变量的内容为（）。

st$=InputBox（"请输入字符串“，"字符串对话框字符串"）

A.字符串B.请输入字符串

C.字符串对话框D.用户输入的内容

53.已知变量x、y为整形量，且*=4,丫=12上=、”,旧。1<为标签，下列修改标签文字语句合

法的是（）o

A.x=lblok.captionB.lblok.caption=Str（x）

C.x*y=3D.y=x*s

54.下列各赋值语句中不正确的是（）o

A.x+y=5R.iNuniher=15

C.lblsj=,'Timc"D.sLcngth=x+y

55.如果想在程序中反复使用一个日期数据“2002/8/21”，为了避免在编写程序时反复输

入这个数据，也为了能一次修改所有用到这个数据的语句，可以采用（）。

A.将这个数据声明为字符常量，用一个常量标识符代表它

B.将这个数据声明为字符变量，用一个变量标识符代表它

C.将这个数据声明为日期型常量，用一个常量标识符代表它

D.将这个数据声明为日期型变量，用一个变量标识符代表它

56.执行语句PrintFoi*mat（5456.678,正确的输出是（）。

A.5456.68B.5,456.68C.5,456.678D.5,456.67

57.执行语句PrimFormal$(54567,”00000000”)，正确的输出是()。

A.54567B.54567000C.00054567D.05456700

58.对于InputBox函数，下列说法不正确的是（）。

A.每执行一次InputBox函数，只能输入一个值

B.InputBox函数输入的是数值型

C.InputBox函数中的提示参数能省略

D.函数值必须赋于一个变量，否则用户的输入就会丢失

59.Boolean型数据只有两种取值，它们是（）。

A.0和1B.Yes和NoC.“是“和“不是“D.True和False

60.在InpulBox函数的参数中，必选的参数为（）。

A.输出信息B.提示信息

C.定义无输入时的缺省值D.定义输入框的位置

61.下列调用错误的是（）o

A.x%=inpulbox（"请输入数据"）B.Inpulbox（"请输入数据”）

C.x=Msgbox（"是否继续查询”）D.Msgbox（"是否继续查询”）

62.下列输出语句中，错误的是（）。

A.?x,yB.Printx,y

C.fbrm.printx,yD.printformatx,y

63.若要强制变量先声明后使用，应该用（）语句来说明。

A.PublicconstB.OptionExplicit

C.ExplicitD.OptionBase

64.如果有图片框Picture1与文本框Texll,下列不正确的语句是()。

A.Print25B.Picture1.Print25

C.Text1.Print25D.Debug.Print25

65.在立即窗口中以下语句的输出结果为（）O（口为空格，下同。）

a=27

b=65

Printa;b

A.27F165R.口27口65C.口27口口65D.口27口口65口

66.在立即窗口中以下语句的输出结果为（）0

a="Beijing"

b=HShangHai"

Printa;b

A.Beijing□ShangHaiB.□Beijing□ShangHai

C.BeijingShangHaiD.CBeijing□ShangHai□

67.语句Print5*5\5/5的输出结果为(

A.25B.5C.1D.0

68.语句PrintSgM-4A2)+Abs(・4人2)+Int(-4人2)的输出结果是()。

A.-16B.-32C.-1D.1

69.执行以下语句后的输出结果是（)°

a=Sql(3)

PrintFormat(a,"$$####.###")

A.$1.732B.$$1.732C.$1732D.$$0001.732

70.InputBox函数的返回值是（）o

A.数值B.字符串C.变体D.视输入而定

71.一命令按钮的Click事件过程为：

Dima,basInteger

a=InputBox（"请输入第一个数：”）

b=InputBox（"请输入第二个数："）

Printb+a

程序运行时，单击该按钮并分别输入456和123,则输出的结果为（）。

A.579B.123C.456D.123456

28VisualBasic学习辅导与上机实习

72.以下4个运算符中，（）运算级别最高。

A.+B.ModC.\D.-

73.执行下面的语句后，所产生的信息框标题为（）。

a=MsgBox（"AAAA","BBBB',；,',,5）

A.AAAAB.BBBBC.出错，不能产生信息框D.空

74.MsgBox函数的参数中，只有（）是不能省略的。

A.promptB.buttonsC.titleD.helpfilc

75.MsgBox函数中的buttons参数具有控制对话框内除（）之外的作用。

A.按钮的种类B.图标的种类

C.按钮的数量D.对话框的标题

76.执行以下命令所产生的对话框为（）o

MsgBox”继续查询吗？",vbYesNoCancel+vbQuestion,”提问

77.MsgBox函数的返回值是（）□

A.字符型B.整形C.布尔型D.不一定

78.假设程序中有如下语句：answer=MsgBox（"string1H,/'string2',,Mstring3,1,2）,执行该语句

后将显示一信息框。此时如果单击“确定”按钮，则answer的值为（）

A.string1B.string2C.string3D.1

79.在VB中可以对字体除（）以外的属性进行设置。

A.粗体B.斜体C.下划线D.空心

80.使用Prim方法可以将信息输出到除（似外的对象上。

A.窗体B.文本框C.打印机D.立即窗口

81.数组定义时的上下界只能用（）来表示。

A.数值B.变量

C.字符D.大于等于0的整数变量或整数数值常量

82.定义了一个数组变量为A（・2to4）,则该数组包含了（）个元素。

A.7B.6C.-2D.4

83.下列关于数组说法，正确的是（）0

A.一个数组中只能包含相同类型的数据。

B.数组只能在模块中定义，不能在过程中定义。

C.在有些情况下，数组同普通变量一样也可以不定义，先使用。

D.定义数组时，数组的每一维元素的个数必须是常数,不能是变量或表达式。

84.用下面的语句所定义的数组的元素个数为()o

DimarrA(3to5,-2to2)

A.20B.12C.15D.24

85.执行以下代码后，输出结果为()o

OptionBase0

Dima

a=Array("a","b","c","d"：'e","f',"g"；,h'')

Printa(I);a(3):a(5)

A.abcB.bdfC.aceD.出错

86.数组x中合法的数组元素表示为()o

A.x9B.x[9]C.x(i+l)D.x{6}

87.定义了一个a（5）的数组，现将数组的最后一个元素赋给变量b,正确的是（）。

A.b=a(5)B.b=a[5]C.b=a(4)D.b=a⑷

XX.下列数组声明的语句中，()是正确的0

A.DimA[3,4]AsIntegerB.DimA(3,4)AsInteger

C.DimA[3;4]AsIntegerD.DimA(3;4)AsInteger

89.有变量定义语句DimaAsInteger,变量a的类型和初值是()。

A.Integer,0B.Variant,空值C.String,""D.Long,。

90.下列语句中()语句可以用来正确地声明一个动态数组。

A.PrivateA(n)AsIntegerB.DimA()AsInteger

C.DimA(,)AsIntegerD.DimA(1Ton)

91.在Fom「Click事件中，执行如下语句的正确结果是()o

PrintFormat。236.54.”+##,##0.0%”）

A.123456B.+123,654.0%C.+123,6.54%D.+123,654

92.在窗体上用复制、粘贴的方法建立了一个命令按钮数组，数组名为arrMc设窗体Forml

的标题为“Myforml”，双击控衅数组中的第三个按钮，打开代码编辑器，输入以下代码：

PrivateSubanM_Click(IndexAsInteger)

Form1.Caplion="Myform2"

EndSub

运行时，单击按钮数组中的第一个按钮,窗体的标题为（）o

A.Form1B.arrMC.MyformlD.Myform2

93.一个具有4个按钮的控件数组,运行时为了判断用户单击了哪一个按钮，可以通过检

查（）来获得。

A.按钮的标题B.按钮的名称

C.事件过程中的Index参数值D.按钮的序号

94.使用复制、粘贴的方法建立了命令按钮数组Command1,以下对该数组的说法错误的

是（）o

30VisualBasic学习辅导与上机实习

A.命令按钮的所有Caption属性都是Command1

B.在代码中访问任意一个命令按钮只需要使用名称Command1

C.命令按钮的大小都是相同的

D.命令按钮共享相同的事件过程

95.以下说法不正确的是（）o

A.使用ReDim语句可以改变数组的维数

B.使用ReDim语句可以改变数组的类型

C.使用ReDim语句可以改变数组的每一维大小

D.使用ReDim语句可以对数组中所有的元素进行初始化

96.在控件数组的事件过程中，有一个参数Index,它表示的是（）。

A.数组中控件个数B.控件数组的名称

C.数组中的控件编号D.控件的位置

97.以下关于建立控件数组的说法中，（）是错误的。

A.可以通过复制、粘贴的方法建立

R.对已创建好的捽件不能再建立捽件数组

C.不同的控件不能建立控件数组

D.对同类控件可以将其名称修改为相同来建立控件数组

98.下列程序段的执行结果为（）

y=-20

IfNotx>()Thenx=y-3Elsey=x+3

Printx-y;y-x

A.-33B.5-8C.3-3D.25-25

99.下列语句正确的是()o

A.Ifx<3*yAndx>yTheny=xA3B.Ifx<3*yAndx>yTheny=x3

C.Ifx<3*y:x>yTheny=xA3-2D.Ifx<3*yAndx>yTheny=x**3

10().能够实现以下分段函数的程序段是()。

1+x,x>0

/'*)=I

1-x,x<n0

A.Ifx>=0Theny=1+xB.Ifx20Theny=l+x

y=l-xElsey=l-x

EndIf

C.Ifx>0Theny=l+xD.Ifx<0Then

Ifx<=()Theny=l-xy=l-x

y=l+x

EndIf

101.下列程序段中，只有（）能正确实现条件：如果a>b,则输出a；否则输出b。

A.Ifa<bThenPrintaB.Iif(a>b,Printa,Printb)

PrintbIfA>BThen

Printa

Else

Printb

EndIf

C.Ifa<bThenPrintaElsePrintbD.Ifa>bThen

Printa

Else

Printb

EndIf

102.下列程序段执行的结果为()o

x=3

y=2

Ifx*y<lTheny=y-lElsey=-2

Printy-x>0

A.TrueB.FalseC.-1D.1

103.下列程序段的执行结果为()。

A="abcd”

B="bcde°

E=Right(A,3)

F=Mid(B,2,3)

IfE<FThenPrintE+FElsePrintF+E

A.edebedB.eddC.ededD.bedede

104.计算分段函数：

0,x<0

=k0<x<l

2,x>1

正确的程序段是()o

A.Ifx<0Theny=0B.Ifx>1Theny=2

Ifx<lTheny=lIfx>=0Theny=l

Ifx>lTheny=2Ifx<0Theny=0

C.Ifx<0ThenD.Ifx>=lThen

y=0y=2

Elselfx>=()ThenElselfx>=()Then

y=iy=i

ElseElse

y=2y=0

EndIfEndIf

32VisualBasic学习辅导与上机实习

105.以下语句正确的是（）o

A.SelectCaseaB.SelectCasea

Case"A"Case•'A"

b=lb=l

Case"B"Case"B"

b=2b=2

CaseElseCaseDefault

b=3b=3

EndSelectEndSelect

C.SwitchaD.Switcha

Case"A"Case"A"

b=lb=l

Case"B"Case"B"

b=2b=2

CaseElseCaseDefault

b=3b=3

EndSwitchEndSwitch

106.下列程序执行后，变量X的值为（）o

Dima.b,c.dAsSingle

DimxAsSingle

a=l()()

b=20

u-1000

Ifb>aThen

d=a:a=b:b=d

EndIf

Ifb>cThen

x=b

ElseIfa>cThen

x=c

Else

x=a

EndIf

A.100B.20C.1000D.0

107.执行下列程序后，整形变量c的值为（)°

a=24

b=328

SelectCaseb\l()

Case0

c=a*10+b

Case1to9

c=a*100+b

Case10to99

c=a*1000+b

EndSelect

A.537B.2427C.24328D.240328

108.程序的基本控制结构是（）o

A.顺序结构、多分支结构与单分支结构

B.For…Next结构、Do…Loop结构和Select,,,Case结构

C.顺序结构、选择结构与循环结构

D.单行结构与多行结构

109.若整形变量a=2,b=3,则下面的程序段执行后整形变量c的值为（）。

Ifa、5Then

Ifb<4Thenc=a-bElsec=b-a

Else

Ifb>3Thenc=a*bElsec=amodb

EndIf

A.2B.-1C.1D.6

no.执行下列程序段后，变量a的值为（）。

Dima,b,c,dAsSingle

a-100

b=20

c=1（X）（）

Ifb>aThcn

d=a:a=b:b=d

EndIf

Ifc>aThen

d=a:a=c:c=d

EndIf

Ifc>bThen

d=b:b=c:c=d

EndIf

A.0B.1000C.100D.20

111.窗体上有3个文本框Textl、Text2>Text3和一个命令按钮Commands如果在Text1

中输入200,在Text2中输入150,则执行下列程序后，Texl3的值为（）。

PrivateSubCommandI_Click（）

34VisualBasic学习辅导与上机实习

Dimin,n,tAsInteger

m=Val(Textl.Text)

n=Val(Text2.Text)

Ifn*m=0Then

ExitSub

EndIf

Ifm<nThen

t=m:m=n:n=t

EndIf

Do

r=mModn

m=n

LoopWhiler<>0

Text3.Text=m

EndSub

A.200B.50C.100D.150

112.关于多行结构的条件语句的执行过程，正确的是（）o

A.各个条件所对应的语句序列中，一定有一个语句序列被执行

B.找到条件为True的第一个入口，便从此开始执行其后所有的语句序列

C.若有多个条件都为True,则它们对应的语句序列都被执行

D.多行结构中的语句序列，有可能任何一个语句序列都不被执行。

113.下列块结构条件语句中，正确的是（）。

A.Ifx>10ThenB.Ifx>10Then

Print"a"Print"a"

Elseifx>5ThenElseifx>5

Print"b"Print"b"

Elseifx<5ThenElse

Print"c"Print"c"

EndIfEndIf

C.Ifx>10ThenD.Ifx>10Then

Print"a"Print"a"

Elseifx>5ThenElseifx>5ThenPrint"b"

Print"b"Else

Elsex<5ThenPrint"c"

Print"c"EndIf

EndIf

114.当条件为5Vx<10时，x=x+l,则以下语句正确的是（）。

A.If5<x<1（）Thenx=x+1B.If5<xOrx<10Thenx=x+l

C.If5<xAndx<10Thenx=x+1D.If5<xXorx<10Thenx=x+l

115.以下语句错误的是（）。

A.Ifa=lAndb=2ThenB.Ifa=lThen

c=3c=2

EndIfEndIf

C.c=Iif（af=I,2,3）D.Ifa=lThen

c=2

Elselfa=2Then

c=3

EndIf

116.关于多分支选择结构的Case语句，下列写法错误的是（）。

A.Case1,5,7,9R.Case8to1（）

C.Case10to2D.CaseIs<"man'*

117.下列程序的输入值为5时，其运行结果为（）0

DimaAsInteger

a=InputBox（"请输入A的值："）

Ifa>10Then

Ifa>=5ThenPrint"A"ElsePrint"BH

Else

Ifa>-5ThenPiinl"C"ElsePiinl"D"

EndIf

A.AB.BC.C