最新vb期末复习题免费下载题目+答案.docx

最新vb期末复习题免费下载题目+答案.docx

《最新vb期末复习题免费下载题目+答案.docx》由会员分享，可在线阅读，更多相关《最新vb期末复习题免费下载题目+答案.docx（88页珍藏版）》请在冰豆网上搜索。

最新vb期末复习题免费下载题目+答案

VisualBasic期末复习题库

单项选择题判断题填空题编程题

1）下列程序运行后，输出的结果为______。

B=1

Dowhile（b<40）

b=b*（b+1）

Loop

Printb

a）42

b）39

c）6

d）1答案：

A

2）设执行以下程序段时依次输入1、3、5，执行结果为_____。

Dima（4）AsInteger

Dimb（4）AsInteger

ForK=0To2

a（K+1）=Val（InputBox（“请输入数据：

"））

b（3-K）=a（K+1）

NextK

Printb（K）

a）1

b）3

c）5

d）0答案：

A

3）下列程序执行后，变量s的值为______。

DimsAslong,xAsInteger

s=0:

x=1

DoWhile（x<10）

s=s+x

x=x+2

Loop

Prints

a）10

b）25

c）50

d）100答案：

B

4）编写如下事件过程：

PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）

IfShift=6AndButton=2Then

Print"Hello"

EndIf

EndSub

程序运行后，为了在窗体上输出"Hello"，应在窗体上执行以下_______操作。

a）同时按下Shift键和鼠标左键

b）同时按下Shift键和鼠标右键

c）同时按下Ctrl、Alt键和鼠标左键

d）同时按下Ctrl、Alt键和鼠标右键答案：

D

5）当变量x=2,y=5时，以下程序的输出结果为____。

Dountily>5

x=x*y

y=y+1

loop

printx

a）2

b）5

c）10

d）20答案：

C

6）当执行以下程序时，在名为lblResult的标签框内将显示_____。

PrivateSubcmdlt_click（）

DimI,R

R=0

ForI=1To5Step1

R=R+I

NextI

lblResult.Caption=Str（R）

EndSub

a）字符串15

b）整数15

c）字符串5

d）整数5答案：

A

7）如下有一段不完整的程序段，如果要求该程序执行3次循环，则应在程序中的括号里输入______。

X=1

do

x=x+3

printx

loopuntil（___）

a）x>=8

b）x<=8

c）x>=7

d）x<=7答案：

A

8）若整型变量a的值为2、b的值为3，则下列程序段执行后整型变量c的值为______。

Ifa>5then

ifb<4then

c=a-b

else

c=b-a

Endif

elseifb>3thenc=a*b

else

c=amodb

Endif

a）2

b）-1

c）1

d）6答案：

A

9）设有如下语句：

str1=inputbox（"输入","","练习"）

从键盘上输入字符串“示例”后，str1的值是___。

a）“输入”

b）“”

c）“练习”

d）“示例”答案：

D

10）我们在一个窗体上建立两个文本框，名称分别为Text1和Text2，事件过程如下，

PrivateSubText1_change（）

Text2.text=ucase（Text1.text）

EndSub

则在Text1文本框输入“visualbasic”，Text2将______。

a）Text2中无内容显示。

b）Text2显示"VISUALBASIC"。

c）Text2显示"visualbasic"

d）Text1显示"visualbasic"答案：

B

11）下列程序的运行后s的值是_____。

S=0

Forx=99to1Step-2

s=s+x

Nextx

Prints

a）100

b）500

c）2500

d）5000答案：

C

12）下列程序的执行结果是____。

K=0

ForI=1To3

a=I^I^K

printa;

NextI

a）111

b）123

c）000

d）149答案：

A

13）下列程序的执行结果是_____。

Dima（5）AsString

DimbAsInteger

DimIAsInteger

ForI=0To5

a（I）=I+1

Printa（I）

NextI

a）123456

b）6

c）654321

d）0答案：

A

14）下列程序的执行结果为_____。

DimintsumAsInteger

DimIAsInteger

intsum=0

ForI=20.2To5Step-4.7

intsum=intsum+I

NextI

Printintsum

a）150

b）200

c）50

d）0答案：

C

15）下列程序的执行结果为_____。

DimSAsInteger,nAsInteger

S=0:

n=1

DoWhilen<=100

S=S+n

n=n+1

Loop

PrintS

a）5050

b）2500

c）3000

d）4000答案：

A

16）下列程序的执行结果为_____。

A=100:

b=50

Ifa>bThen

a=a-b

Else

b=b+a

Endif

Printa

a）50

b）100

c）200

d）10答案：

A

17）下列程序的执行结果为________。

DimintsumAsInteger

DimIAsInteger

intsum=0

ForI=0To50Step10

intsum=intsum+I

NextI

Printintsum

a）150

b）200

c）50

d）0答案：

A

18）下面程序执行后，X的结果为_____。

X=0

ForI=1to5

Forj=Ito5

X=X+1

Nextj

NextI

PrintX

a）5

b）10

c）15

d）20答案：

C

19）下面程序执行的结果是____。

PrivateSubForm_Click（）

A$="123":

B$="456"

C=Val（A$）+Val（B$）

PrintC\100

EndSub

a）123

b）3

c）5

d）579答案：

C

20）下列循环语句将执行______次。

A=100

Do

Printa

a=a+1

Loopuntila<=10

a）1

b）10

c）100

d）死循环答案：

D

21）下面程序段的循环结构执行后，的输出值是_____。

程序段为：

ForI=1to10step2

y=y+I

NextI

printI;

a）25

b）10

c）11

d）因为Y的初值不知道，所以不确定答案：

C

22）写列程序段的执行结果____。

A="abbacddcba"

forI=6to2step-2

x=mid（a,I,I）

y=left（a,I）

z=right（a,I）

z=x&y&z

nextI

printUcase（z）

a）ABA

b）AABAAB

c）BBABBA

d）ABBABA答案：

C

23）以下语句输出结果是（在立即窗口中）_____。

A="Beijing"

b="ShangHai"

Printa;b

a）BeijingShangHai

b）AbeijingShangHai

c）BeijingShangHai

d）Abeijing答案：

C

24）有如下程序：

ForI=1To3

Forj=5To1Step-1

PrintI+j

Nextj,I

其循环执行的次数为______。

a）12

b）13

c）14

d）15答案：

D

25）有如下程序段，该程序执行后，变量a的值为______。

ForI=1To2

ForJ=ITo2

ForK=1ToJ

a=a+2

NextK

NextJ

NextI

a）2

b）8

c）10

d）20答案：

C

26）执行下列程序后，变量a的值为____。

DimIasinteger

dimaasinteger

a=0

forI=0to100step2

a=a+1

nextI

a）1

b）10

c）51

d）100答案：

C

27）执行下列程序后，X的值为______。

X=3

y=6

DoWhiley<=6

x=x*y

y=y+1

Loop

a）3

b）6

c）18

d）20答案：

C

28）执行下列程序段后，整型变量c的值为___。

A=24

b=328

selectcaseb\10

case0

c=a*10+b

case1to9

c=a*100+b

case10to99

c=a*1000+b

endselect

a）537

b）2427

c）24328

d）240328答案：

C

29）执行完下面的程序段后，循环将执行____次。

ForI=1.7To5.9Step0.9

a=a+1

Printa

NextI

a）3

b）4

c）5

d）6答案：

C

30）有如下语句，执行后该段语句的循环次数是_____。

Dims,I,jasinteger

ForI=1to3

Forj=3To1Step-1

S=I*j

Nextj

NextI

a）9

b）10

c）3

d）4答案：

A

31）有如下程序，该程序将______。

For