vb期末复习题

Visual Basic 期末复习题 一、填空题、判断题

二、选择题、程序选择题 三、编程题

一、填空题、判断题

1) 3abc为合法变数。答案：错

2) P140 局部变量是指那些在过程中用Dim语句或Static语句声明的变量。答案：对 3) 局部变量的作用域仅限于声明它的过程。答案：对

4) 逻辑表达式Not\的值为true 。 对

5) 使用a=b:b=a 语句可以将变量A和B的值互换。 答案：错 6) 以下循环的执行次数是_____。 K=0

Do While k<=10 k=k+1

Loop 答案：11

7) 逻辑常量值为TRUE或_______。 答案：FALSE 8) 表达式（2+8*3）/2的值是______。 答案：13 9) 下列程序的执行结果是____。 T = O : m = 1 : Sum = 0 Do

t = t + m : Sum = Sum + t : m = m + 2 Loop While m <= 9

Print Sum 答案：55

10) 设a=2,b=3,c=4,d=5下列a>b and c<>d or c=a表达式的值是_____。11) 表达式3>4 and 7=5的值是______。 答案：FALSE 12) 下列程序段的执行时，共循环____次。 For a=0 To 1 For b=1 To 2 For c=1 To 3 I=I+1 Next c Next b

next a 答案：12

13) 以下程序计算2到50间所有偶数的和，请补充完该程序 Sub mult()

Dim Sum As Integer Sum=0

Dim I as integer For___to 50

If I MOD 2=___Then___ Next I Print sum

End Sub 答案：I=2#0#SUM=SUM+I

14) 表达式：\的值是_______。 答案：FALSE 15) 下列程序用来计算1+2+3??+10的值，请补充完程序。 Dim t,k as single

答案：FALSE K=0

DO While k<10 K=k+1:______ loop

print t 答案：T=T+K

16) 下列程序是用来计算1＋2＋3??＋10的程序段，请补充完该程序。 Dim I, s, k As Integer s = 0: k = 0 For____To -1

k = k+1:s = s+k Next I

Print s 答案：J=-10

17) 以下程序用来输出1到100所有奇数的和，请补充完该程序。 Private Sub Command3_Click() Dim s As Long Dim x As Integer s = 0

For x=1 to 100 step____ s = s + x Next x Print s

End Sub 答案：2

18) 下列程序的执行结果是_______。 A = 75

If a>60 Then I = 1

ElseIf a>70 Then I = 2

ElseIf a>80 Then I = 3

ElseIf a>90 Then I = 4 End If

Print I 答案：1

19) 表达式32/2^3-3*2^2+4^2的值是_______。 答案：8 20) 有一数组定义语句：dim M(-2 to 1) as string，该语句定义的数组M中包含____个元素。 答案：4

21) VB程序设计中三种基本结构分是：_______结构、选择结构和_______结构。 答案：顺序#循环

22) x,y中至少有一个变量小于变量z的VB表达式为x

d) dim a(3 4) as integer 答案：B 24) 下列资料中哪一个是布尔常量_______。 a) 123 b) not c) TRUE

d) xyz 答案：C

25) 下列程序的运行结果为________。 For I=1 to 3 d(I)=2*I-1 print d(I) Next I a) 1 3 5 b) 2 4 6 c) 1 4 6

d) 5 6 7 答案：A

26) 下列结构中不属于循环结构的是______。 a) for/next b) while/wend c) With/end with

d) do/loop 答案：C

27) 下面的运算符中，优先级别最高的是_____。 a) AND b) * c) 〉=

d) & 答案：B

28) 表达式2+3*4^5-SIN（X+1）/2中最先进行的运算是? a) 4^5 b) 3*4 c) x+1

d) SIN 答案：C

29) 以下循环的执行次数是_____。 K=0

Do While k<=10 k=k+1

Loop 答案：11

30) 有如下Sub过程: Sub ind(a As Integer) Static x As Integer x = x+a Print x; End Sub

以下是调用它的事件过程，程序运行后，单击命令按钮Command1，输出结果为______。 Private Sub Command1_Click() Ind(2)

End Sub 答案：2

31) 逻辑常量值为TRUE或_______。 答案：FALSE

32) 以下的程序用来输出100到2000间不能被3整除的数字，请补充完该程序。 Private Sub Commmand1_Click() Dim x As Integer x = 100

Do Until x > _____ If x Mod 3 <> 0 Then Print x End If x = x + 1

Loop

End Sub 答案：X>2000

33) 以下程序用来输出1到100所有奇数的和，请补充完该程序。 Private Sub Command3_Click() Dim s As Long Dim x As Integer s = 0

For x=1 to 100 step____ s = s + x Next x Print s

End Sub 答案：2

二、选择题、程序选择题

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) 当变量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

5) 当执行以下程序时，在名为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

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

x=x+3 print x

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

d) x<=7 答案：A

7) 若整型变数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

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