vb复习题（题目+答案）

Visual Basic 期末复习题库

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

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

Do while (b<40) b=b*(b+1) Loop

Print b a) 42 b) 39 c) 6

d) 1 答案：A

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

Dim a(4) As Integer

Dim b(4) As Integer For K =0 To 2

a(K+1) =Val(InputBox(“请输入数据：\ b(3-K) =a(K+1) Next K Print b(K) a) 1 b) 3 c) 5

d) 0 答案：A

3) 下列程序执行后，变量s的值为______。 Dim s As long ,x As Integer s=0:x=1

Do While (x<10) s=s+x x=x+2 Loop

Print s a) 10 b) 25

c) 50

d) 100 答案：B 4) 编写如下事件过程：

Private Sub Form_MouseDown(Button As Integer ,Shift As Integer,X As Single,Y As Single) If Shift=6 And Button=2 Then Print \ End If End Sub

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

a) 同时按下 Shift 键和鼠标左键 b) 同时按下 Shift 键和鼠标右键 c) 同时按下Ctrl、Alt 键和鼠标左键

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

D

5) 当变量x=2,y=5时，以下程序的输出结果为____。 Do until y>5 x=x*y y=y+1 loop print x a) 2 b) 5 c) 10

d) 20 答案：C

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

Private Sub cmdlt_click() Dim I,R

R=0

For I=1 To 5 Step 1 R=R+I Next I

lblResult.Caption=Str（R） End Sub a) 字符串15 b) 整数15

c) 字符串5

d) 整数5 答案：A

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

x=x+3 print x loop until(___) a) x>=8 b) x<=8 c) x>=7

d) x<=7 答案：A

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

if b<4 then c=a-b else

c=b-a End if

elseif b>3 then c=a*b else

c=a mod b End if a) 2 b) -1

c) 1

d) 6 答案：A 9) 设有如下语句：

str1=inputbox(\输入\练习\

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

c) “练习”

d) “示例” 答案：D

10) 我们在一个窗体上建立两个文本框，名称分别为Text1和Text2，事件过程如下， Private Sub Text1_change( ) Text2.text=ucase(Text1.text) End Sub

则在Text1文本框输入“visual basic”，Text2将______。 a) Text2中无内容显示。

b) Text2显示\。 c) Text2显示\

d) Text1显示\答案：B 11) 下列程序的运行后s的值是_____。 S=0

For x=99 to 1 Step-2 s=s+x Next x Print s a) 100 b) 500 c) 2500

d) 5000 答案：C 12) 下列程序的执行结果是____。 K=0

For I=1 To 3 a=I^I^K print a; Next I a) 1 1 1 b) 1 2 3 c) 0 0 0

d) 1 4 9 答案：A

13) 下列程序的执行结果是_____。 Dim a(5) As String Dim b As Integer Dim I As Integer For I =0 To 5 a(I)=I+1 Print a(I) Next I

a) 123456 b) 6 c) 654321

d) 0 答案：A

14) 下列程序的执行结果为_____。 Dim intsum As Integer Dim I As Integer

intsum=0

For I=20.2 To 5 Step -4.7 intsum=intsum +I Next I Print intsum a) 150 b) 200

c) 50

d) 0 答案：C

15) 下列程序的执行结果为_____。 Dim S As Integer,n As Integer S=0:n=1

Do While n<=100 S=S+n n=n+1 Loop Print S a) 5050 b) 2500 c) 3000

d) 4000 答案：A

16) 下列程序的执行结果为_____。 A=100:b=50 If a>b Then a=a-b Else

b=b+a End if Print a a) 50 b) 100

c) 200

d) 10 答案：A

17) 下列程序的执行结果为________。 Dim intsum As Integer Dim I As Integer intsum=0

For I=0 To 50 Step 10 intsum=intsum+I Next I Print intsum a) 150

b) 200 c) 50

d) 0 答案：A

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

X=0

For I =1 to 5 For j=I to 5 X=X+1 Next j Next I Print X a) 5 b) 10 c) 15

d) 20 答案：C 19) 下面程序执行的结果是____。 Private Sub Form_Click() A$=\ C=Val(A$)+Val(B$) Print C\\100 End Sub a) 123 b) 3 c) 5

d) 579 答案：C

20) 下列循环语句将执行______次。 A=100 Do Print a a=a+1

Loop until a<=10 a) 1 b) 10

c) 100

d) 死循环 答案：D

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

For I=1 to 10 step 2 y=y+I Next I print I; a) 25 b) 10 c) 11

d) 因为Y的初值不知道，所以不确定 答案：C 22) 写列程序段的执行结果____。 A=\

for I=6 to 2 step -2 x=mid(a,I,I) y=left(a,I) z=right(a,I) z=x & y & z next I

print Ucase(z)

a) ABA b) AABAAB c) BBABBA

d) ABBABA 答案：C

23) 以下语句输出结果是（在立即窗口中）_____。 A=\ b=\ Print a;b

a) Beijing ShangHai b) Abeijing ShangHai c) BeijingShangHai d) Abeijing 答案：C 24) 有如下程序： For I=1 To 3

For j=5 To 1 Step-1 Print I+j Next j,I

其循环执行的次数为______。 a) 12 b) 13 c) 14

d) 15 答案：D 25) 有如下程序段，该程序执行后，变量a的值为______。 For I=1 To 2 For J=I To 2 For K=1 To J a=a+2 Next K Next J Next I a) 2 b) 8 c) 10

d) 20 答案：C

26) 执行下列程序后，变量a的值为____。 Dim I as integer dim a as integer a=0

for I=0 to 100 step 2 a=a+1 next I a) 1 b) 10 c) 51

d) 100 答案：C

27) 执行下列程序后，X的值为______。 X=3 y=6

Do While y<=6 x=x*y

y=y+1 Loop a) 3 b) 6

c) 18

d) 20 答案：C

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

b=328

select case b\\10 case 0 c=a*10+b case 1 to 9 c=a*100+b case 10 to 99 c=a*1000+b end select a) 537 b) 2427 c) 24328

d) 240328 答案：C

29) 执行完下面的程序段后，循环将执行____次。 For I=1.7 To 5.9 Step 0.9 a=a+1 Print a Next I a) 3 b) 4 c) 5

d) 6 答案：C

30) 有如下语句，执行后该段语句的循环次数是_____。 Dim s,I,j as integer For I =1 to 3

For j=3 To 1 Step-1 S=I*j Next j Next I a) 9 b) 10 c) 3

d) 4 答案：A

31) 有如下程序，该程序将______。 For I=1 to 10 step 0 K=k+2

Next I

a) 形成无限循环。

b) 循环体执行一此后结束循环。 c) 语法错误。

d) 循环体不执行即结束循环。 答案：A 32) 有如下程序段，该程序段执行完毕后，共循环了

________。

For I=1 To 5

For j=1 To I For k=j To 4 Print \ Next k Next j Next I a) 4 b) 5 c) 38

d) 40 答案：D

33) 有如下程序，该程序的运行结果为______。 Dim k As Integer n=5:m=1:k=1 Do While k<=n m=m*2 k=k+1 Loop Print m a) 1

b) 5 c) 32

d) 40 答案：C

34) 以下程序输出1到1000之间所有的偶数之和，请补充完该程序。

Private Sub Command_Click() Dim x As Double For I=0 To 1000 If ____ Then x=x+I End If Next I Print x End Sub

a) i Mod 2 = 0 b) x Mod 2 = 0 c) I Mod 2 <> 0

d) x Mod 2 <> 0 答案：A

35) 以下是计算10的阶乘的程序，请补充该程序。 Dim t as single Dim k as Integer k=0:t=1

While_______ k=k+1 t=t*k Wend

Print t a) k<10 b) k>10

c) k=10

d) k>=10 答案：A 36) _____是由Visual Basic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。 a) 文件 b) 属性

c) 方法

d) 窗体 答案：C

37) 刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是_____。 a) 单选按钮 b) 图片框

c) 通用对话框

d) 文本框 答案：C

38) 下列各项不是Visual Basic的基本数据类型的是_____。

a) Char b) String c) Integer

d) Double 答案：A

39) 下列运算结果中，值最大的是 ______。 a) 3\\4 b) 3/4

c) 4 mod 3

d) 3 mod 4 答案：D

40) 以下不属控件的一项是_____。 a) 文本框 b) 标签框 c) 列表框

d) 消息框 答案：D

41) 用InputBox函数可帮助生成_______。 a) 消息框

b) “保存”对话框

c) 简单输入框

d) “颜色”对话框 答案：C 42) ______对象不能响应Click事件。 a) 列表框 b) 图片框

c) 窗体

d) 计时器 答案：D 43) 17 mod 3的运算结果是_____。 a) 0.5 b) 1 c) 1.5

d) 2 答案：D

44) 变量X=32769，则变量声明时不能将其声明为_____。 a) Intrger b) Variant c) Long

d) Single 答案：A

45) 表达式2*3^2+2*8/4+3^2的值为_____。 a) 64 b) 31 c) 49

d) 22 答案：B

46) 复选对象是否被选中，是由其_____属性决定的。 a) Checked b) Value

c) Enabled

d) Selected 答案：B 47) 没有Caption属性的控件是_____。 a) Label

b) OptionButton c) Frame

d) LisBox 答案：D

48) 下列符号是Visual Basic中合法变量名的是_____。 a) IF b) 7AB c) A[B]7

d) AB_7 答案：D

49) 使窗体自动向下移动的语句是Move_____。 a) Left, Top+100 b) Top+100 c) Top+100

d) Top=Top+100 答案：A

50) RGB函数通过红、绿、蓝三基色混合产生某种颜色，其语法为RGB（红、绿、蓝），括号中红、绿、蓝三基色的成分使用0-255之间的整数。若使用3个滚动条分别输入3种基色，为保证输入数值有效，则应设置_____属性。 a) Max和Min

b) SmallChange和LargeChange c) Scroll和Change d) Value 答案：A

51) _____控件可以使用SetFocus()方法。 a) Frame

b) Label c) TextBox

d) Timer 答案：C

52) 滚动条单击边上的箭头按钮移动的大小由_____设定。

a) Change

b) SmallChange c) Scroll

d) Tabstop 答案：B 53) 下列程序段的执行结果为______。 N=0:J=1 Do Until N>2 N=N+1

J=J+N*(N+1) Loop

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库vb复习题（题目+答案）在线全文阅读。