vb考试试题(VB 问题)

12、LTrim函数的返回值是__字符串(String)__类型。

13、当单选框被选定，它的Value属性值为 _True_ 。

14、Asc函数的返回值是__整型(Integer)__ 类型。

1、___________组_是同一种对象的通称 '没有把握

1、方法是指对象所具有的动作和行为。（T）

2、VB程序中不区分代码字符的大小写。（T）

3、窗体的Enabled属性设置为True时，窗体上的按钮、文本框等控件就不会对用户的操作做出反应。（F） 'False 才不会

4、表达式 NOT x<3 和 x>3是等价。（F） 'Not x < 3 等价 x >= 3

5、判断变量x是不是能被3整除的偶数，逻辑表达式可写为x mod 6=0。（T）

6、语句Option Explicit与Visual Basic的默认设置一致。（F）

7、一个Do循环只能使用一个Loop关键字，但是可以使用多个Exit Do语句。（T）

8、在过程调用中，如果没有特殊说明，参数的传递方式是传址方式。（F） '是传值

9、当复选框被选定，它的Value属性值为True。（F）'为1,Check的Value属性有三种值(0,1,2)

10、对英文字母的比较，默认情况下是区分不大小写的。（T）

11、直线控件可以在运行时移动。（F） '没有把握

12、在窗体上按下鼠标左键后释放，不会触发窗体的DbClick事件。（F）'DbClick是双击事件

13、VB编译生成的可执行文件不再需要工程文件与各个模块文件。（F）'打包时需要

14、当把浮点数赋给整型变量时，会出现溢出错误。（F）'不一定,数值超过6万多才会溢出

15、在同一作用域中，变量名不能重复。（T）

7、表达式 (-9) mod 7 的值为 (D) 选择题 。

(A) 1 (B) －1 (C) 2 (D) －2

2、 编程计算100～100000之间，共有多少个整数，满足它的各位数字之和可被3整除。编程题目：

Private Sub Command1_Click()

dim N As Integer,I as Integer

For I = 100 To 100000

If I Mod 3 = 0 Then N = N + 1

Next

MsgBox N

End Sub

3、 求111111的个位、十位、百位数分别是几

编程题目

Private Sub Command1_Click()

Dim i As Long, a As String

i = 123456789

a = Str(i)

MsgBox "百位:" & Mid(a, Len(a) - 2, 1) & " 十位:" & Mid(a, Len(a) - 1, 1) _

& " 个位:" & Right(a, 1)

End Sub

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

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 "Hello"

End If

End Sub

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

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显示"VISUAL BASIC"。

c) Text2显示"visual basic"

d) Text1显示"visual basic" 答案：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$="123":B$="456"

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="abbacddcba"

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="Beijing"

b="ShangHai"

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 "a"

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