VB试题2.docx

VB试题2.docx

《VB试题2.docx》由会员分享，可在线阅读，更多相关《VB试题2.docx（17页珍藏版）》请在冰豆网上搜索。

VB试题2

VB试题2

在代码编辑器中，如果一条语句太长，无法在一行内写下（不包括注释），要折行书写，可以在行末

使用续行字符________________，表示下一行是当前行的继续。

A、直接回车

B、一个空格加一个下划字符（_）

C、一个下划字符（_）

D、一个空格加一个连字符（-）

答案：

B

下列没有类型说明符的变量是_________。

A、货币型

B、日期型

C、字符串型

D、长整型

答案：

B

下面的表达试的值为真的是________。

A、Mid（“VisualBasic”,1,12）=Right（“ProgramingLanguageVisualBasic”,12）

B、78.9/32.77<=97.5/43.97AND-45.4>4.98

C、“ABCRG”>”abcde”

D、Int（134.69）>Cint（134.69）

答案：

A

____________。

A、x>=3ORx<10

B、3<=xAND<10

C、3<=xANDx<10

D、3<=x<0

答案：

C

i被j整除的逻辑表达式是________________。

A、i/j=0

B、i<>0

C、i\j=0

D、imodj=0

答案：

D

函数Cint（-3.5），Int（-3.5），Fix（-3.5）的值分别是________。

A、-3，-4，-3

B、-4，-4，-3

C、-3，-4，-4

D、-4，-3，-3

答案：

B

表达式16/4-2^5*8/4MOD5/2的值为____________。

A、2

B、14

C、20

D、4

答案：

D

如果将布尔常量False赋值给一个整形变量，则整型变量的值为____________。

A、0

B、-1

C、False

D、True

答案：

A

下列符号常量的声明中，______________是不合法的。

A、Constaasinteger="12"

B、Constaasdouble=sin

（1）

C、Consta=”OK”

D、Constaassingle=1.1

答案：

B

在VisualBasic代码中，将多个语句合并在一行上的并行符是____。

A、冒号（：

）

B、感叹号（！

）

C、撇号（’）

D、问号（?

）

答案：

A

描述X、Y中只有一个小于Z的逻辑表达式是________。

A、X

B、X

C、X

D、X

答案：

B

语句Print"5*20"输出的结果是________。

A、"5*20"

B、5*20

C、出现错误信息

D、100

答案：

B

语句x=x+1的正确含义是__________.

A、将变量X的值存在X+1中去

B、将变量X的值加1后赋给变量X

C、变量X的值与X+1的值相等

D、变量X的值为1

答案：

B

以下各项中，____________不是一个合法的字符串。

A、"等级考试"

B、#Basic#

C、""

D、"Visual"

答案：

B

下面程序的运行结果是_____。

PrivateSubCommand1Click（）

x=1:

y=1

Fori=1TO3

x=x+y:

y=y+x

Nexti

Printx;y

EndSub

A、3435

B、58

C、66

D、1321

答案：

D

下面程序是一个求最大公约数的程序，执行程序后，m的值为_____

DimmAsInteger,nAsInteger

m=200

n=150

Ifn*m=0ThenExitSub

Ifm

t=m:

m=n:

n=t

EndIf

Do

r=mModn

m=n

n=r

LoopWhiler<>0

Text3=m

A、50

B、100

C、200

D、150

答案：

A

计算机算法可以分为两大类：

一类是_____算法，另一类是_____算法。

A、计算机辅助设计、财务

B、排序、查找

C、步骤管理、通信

D、数值计算、非数值计算

答案：

D

执行下面的程序，单击窗体后在窗体上显示的结果是_____。

PrivateSubCommand1_Click（）

DimStr1AsString,Str2AsString

DimStr3AsString,IAsInteger

Str1="e"

Fori=1To2

str2=UCase（Str1）

Str1=Str2&Str1

Str3=Str3&Str1

Str1=Chr（Asc（Str1）+1）

NextI

Printstr3

EndSub

A、EEEE

B、eeFF

C、EeFF

D、eEfF

答案：

C

下列程序的输出结果是_____。

DimyAsInteger

y=10

DoWhiley<>0

y=y-1

Loop

Print"y=";y

A、y=-1

B、y=0

C、y=随机值

D、y=1

答案：

B

算法应具备的特征有：

确定性、可行性、有穷性、_____性、_____性。

A、步骤有限、可以实现

B、输入、输出

C、确切无误、可以实现

D、步骤有限、确切无误

答案：

B

在窗体中添加一个命令按钮，并编写如下程序代码：

PrivateSubCommand1_Click（）

DimyAsInteger

y=0

DoWhiley<7

y=y+3

Loop

MsgBoxy

EndSub

程序运行后，消息对话框中显示_____。

A、8

B、9

C、7

D、6

答案：

B

以下语句执行时，从键盘上输入Zhang，执行结果是_____。

DimaAsString

a=InputBox（"Input","","Name"）

Printa

A、Inprt

B、Zhang

C、Name

D、空字符串

答案：

B

下面语句错误的是_____。

A、Ifa=1Then

c=2

ElseIfa=2Then

c=3

EndIf

B、Ifa=1Andb=2Then

c=3

EndIf

C、Ifa=1Then

c=2

ElseIfa=2Then

c=3

EndIf

D、If（a=1,2,3）Thenc=2

答案：

D

下列程序：

PrivateSubForm_Click（）

Forj=1To15

a=a+jMod3

Nextj

Printa

EndSub

运行后输出的结果是_____。

A、15

B、1

C、90

D、120

答案：

A

DimyAsInteger

m=1

DoWhilem<=3

m=m+1

Printm;

Loop

A、2

B、234

C、23

D、2345

答案：

B

假设X的值是5，则执行以下语句时，可得到的输出结果是ABCDEF的SelectCase语句是_____。

A、SelectCaseX

Case1,3,Is>5

Print“ABCDEF”

EndSelect

B、SelectCaseX

CaseIs>15,Is<5

Print“ABCDEF”

EndSelect

C、SelectCaseX

CaseIs>5,1,3TO10

Print"ABCDEF"

EndSelect

D、SelectCaseX

Case10TO1

Print“ABCDEF”

EndSelect

答案：

C

用Msgbox"你好",vbokonly,"Hello"显示的消息对话框窗口的标题是_____。

A、你好

B、vbokonly

C、Hello

D、Ok

答案：

C

给出下面的程序

PrivateSubCommand1_Click（）

DimCheck,Counter

Check=True:

Counter=0

Do

Counter=Counter+1

IfCounter=10ThenCheck=False:

ExitDo

LoopUntilCheck=False

MsgBoxCounter

EndSub

程序最后弹出的消息对话框的内容是_____。

A、False

B、True

C、20

D、10

答案：

D

下面程序的内层循环次数是_____。

Fori=1TO3

Forj=1TOi

Fork=jTO3

...

Nextk

Nextj

Nexti

A、3

B、14

C、9

D、21

答案：

B

以下程序段运行后，消息框的输出结果是

a=sqr（5）

b=sqr（3）

c=a>b

Msgboxc+2

A、2

B、-1

C、1

D、出错

答案：

C

在窗体Form1上，有一个列表框控件List1，在窗体的Click事件中有如下代码:

PrivateSubForm_Click（）

DimkAsInteger

DimentryAsString,itemAsString

entry="EDCBA"

Fork=Len（entry）To1Step-1

item=LCase（Mid（entry,k,1））&k

List1.AddItemitem

Nextk

EndSub

运行此程序，单击窗体,列表框第4行为_____。

A、d2

B、b2

C、b4

D、d3

答案：

A

下面程序段运行后，显示的结果是_____。

Dimx

IfxThenPrintxElsePrintx+1

A、-1

B、0

C、1

D、显示出错信息

答案：

C

在窗体上有一个文本框Text1，以下程序段的运行结果是_____。

Text1=""

Fori=1To10

Sum=Sum+i

Nexti

Text1=Sum

A、出错

B、在文本框中Text1中输出55

C、在文本框中Text1中输出不定值

D、在文本框中Text1中输出0

答案：

B

填空

==================================================

已知A=7.5，B=2，C=-3.6，表达式a>bandc>aorab的值为_____.

答案：

空1:

False

表示"A+B+C大于等于255，或A与B分别大于90且C大于80"的VB表达式的_____

答案：

空1:

A+B+C>=255OrA>90AndB>90AndC>80

已知K=2，J=3，A=True，则VB表达式（K-J<=K）AND（NOTA）OR（K+J>=J）的值为_____。

答案：

空1:

True

语句Print"125+32=";125+32执行后，窗体上打印结果是_____.

答案：

空1:

125+32=157

执行下面的程序段后，b的值为_____

a=5

b=7

a=a+b

b=a-b

a=a-b

答案：

空1:

5

输入一个三位的正整数，将之反向输出。

如输入123，则输出321，完善下列程序。

PrivateSubCommand1_Click（）

DimaAsInteger,bAsInteger,cAsInteger,mAsInteger

m=InputBox（"输入一个正整数"）

a=m\100

b=（m-a*100）\10

c=_____

MsgBox"结果="+Str（c*100+b*10+a）

EndSub

答案：

空1:

mmod10

运行下面的程序，单击窗体后在窗体上显示的内容是_____。

PrivateSubForm_Click（）

Fori=1To10Step2

PrintI;

NextI

EndSub

答案：

空1:

13579

找出1～10000之间的同构数。

所谓同构数，是指此数的平方数的最后几位与该数相等。

例如，25的平方为625，25是同构数。

完善下列程序。

程序代码如下：

PrivateSubCommand1_Click（）

DimiAsInteger,yAsLong

Forx=1To1000

y=x*x

If_____Then

Printx

EndIf

Nextx

EndSub

答案：

空1:

x=（ymod10）or（x=（ymod100））or（x=（ymod1000））