最新vb期末复习题免费下载题目+答案Word文档下载推荐.docx

最新vb期末复习题免费下载题目+答案Word文档下载推荐.docx

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

x=1

DoWhile（x<

10）

s=s+x

x=x+2

Prints

a）10

b）25

c）50

d）100答案：

B

4）编写如下事件过程：

PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）

IfShift=6AndButton=2Then

Print"

Hello"

EndIf

EndSub

程序运行后，为了在窗体上输出"

，应在窗体上执行以下_______操作。

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答案：

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

X=1

do

x=x+3

printx

loopuntil（___）

a）x>

=8

b）x<

c）x>

=7

d）x<

=7答案：

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

Ifa>

5then

ifb<

4then

c=a-b

else

c=b-a

Endif

elseifb>

3thenc=a*b

c=amodb

Endif

b）-1

c）1

d）6答案：

9）设有如下语句：

str1=inputbox（"

输入"

"

练习"

）

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

a）“输入”

b）“”

c）“练习”

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显示"

答案：

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

S=0

Forx=99to1Step-2

Nextx

a）100

b）500

c）2500

d）5000答案：

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

K=0

ForI=1To3

a=I^I^K

printa;

NextI

a）111

b）123

c）000

d）149答案：

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

Dima（5）AsString

DimbAsInteger

DimIAsInteger

ForI=0To5

a（I）=I+1

Printa（I）

NextI

a）123456

b）6

c）654321

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

DimintsumAsInteger

DimIAsInteger

intsum=0

ForI=20.2To5Step-4.7

intsum=intsum+I

Printintsum

a）150

b）200

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

DimSAsInteger,nAsInteger

S=0:

n=1

DoWhilen<

=100

S=S+n

n=n+1

PrintS

a）5050

b）2500

c）3000

d）4000答案：

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

A=100:

b=50

bThen

a=a-b

Else

b=b+a

Printa

a）50

b）100

c）200

d）10答案：

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

ForI=0To50Step10

intsum=intsum+I

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

X=0

ForI=1to5

Forj=Ito5

X=X+1

Nextj

PrintX

a）5

b）10

c）15

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

PrivateSubForm_Click（）

A$="

123"

:

B$="

456"

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

PrintC\100

a）123

b）3

d）579答案：

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

A=100

Do

Printa

a=a+1

Loopuntila<

=10

c）100

d）死循环答案：

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

程序段为：

ForI=1to10step2

y=y+I

printI;

a）25

c）11

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

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答案：

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

Beijing"

b="

ShangHai"

Printa;

b

a）BeijingShangHai

b）AbeijingShangHai

c）BeijingShangHai

d）Abeijing答案：

24）有如下程序：

ForI=1To3

Forj=5To1Step-1

PrintI+j

Nextj,I

其循环执行的次数为______。

a）12

b）13

c）14

d）15答案：

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

ForI=1To2

ForJ=ITo2

ForK=1ToJ

a=a+2

NextJ

b）8

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

DimIasinteger

dimaasinteger

a=0

forI=0to100step2

nextI

c）51

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

X=3

y=6

DoWhiley<

=6

x=x*y

Loop

a）3

c）18

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答案：

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

ForI=1.7To5.9Step0.9

b）4

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

Dims,I,jasinteger

ForI=1to3

Forj=3To1Step-1

S=I*j

a）9

c）3

d）4答案：

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

For