Visual Basic 复习题

Visual Basic 复习题

（注：红色字体为未作出的题，下划线题为不确定，自己再找一下！！）

一

1、Integer类型的数据占用的字节数是_A___ 。 A、2 ○B、3 C、1 D、4

2、下面关于通用过程的说法中错误的是 ____ 。

A 、通用过程可以出现在窗体模块和标准模块中。 B、在不同的模块中通用过程名可以重名。 C、在不同的模块中通用过程名不能重名。 D、在同一模块中通用过程不能重名。

3、在不同的模块中通用过程名可以重名。在同一模块中通用过程不能重名。在不同的模块中通用过程名不能重名通用过程可以出现在窗体模块和标准模块中。下面哪个语句执行后，窗体Form1从内存中卸载 ____ 。 A、Form1.Hide B、Unload Form1 C、Load Form1

D、Form1.Visible=False

4、在VB中，每一个对象都具有自己的属性、_C___和方法。

A、函数

B、公用过程 C、事件 ○

D、控件

5、使用下列哪个语句，只将窗体Form1载入内存，但不显示在屏幕上C____ 。

A、Form1.Load B、Form1.Show C、Load Form1 ○

D、Show Form1

6、InputBox()函数返回值的类型为 _字符型___ 。

A、 B、 C、 D、

7、在以下运算符中，优先级最低的是 _B___ 。

A、\\ B、Mod ○C、/ D、*

8、类模块文件的扩展名是_B___。

A、Vbp

1

2013-4-8第六组

B、Cls ○

C、Frm D、Vbg

9、从滚动条的__A__ 属性，可取得它的当前值。

A、Value ○

B、Max C、Text D、Min

10、下面四个选项中，不是窗体属性的是 __A__ 。

A、Load ○

B、MinButton C、MaxButton D、Caption

11、Dim a(10 to 20)所定义的数组元素个数是_A___ 。

A、11 ○

B、20 C、10 D、30

12、下面哪个语句执行后，窗体Form1从内存中卸载 ____ 。

A、Unload Form1 ○

B、Form1.Visible=False C、Form1.Hide D、Load Form1

13、标准模块文件的扩展名是_C___ 。

A、.frm B、.vbp C、.bas ○

D、.vbg

14、文本框控件的默认属性是_C___ 。

A、Name B、Caption C、Text ○

D、Top

15、可以同时删除字符串前导和尾部空格的函数是 ____ 。

A、Rtrim B、Mid C、Ltrim D、Trim ○

16、标签控件的默认属性是 ____ 。

A、Name B、Top

C、Caption ○

D、Text 17、为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式

2

2013-4-8第六组

为 ____ 。

A、Get 文件号，变量名，记录号 B、Put 文件号，记录号，变量名 ○

C、Put 文件号，变量名，记录号 D、Get 文件号，记录号，变量名

18、要使菜单项显示一条水平分隔线，应将菜单项的标题属性设为 ____ 。 A、/ B、* ○C、- D、+

2013-4-8第六组

3

二

1、表达式9^2 Mod 9_*2/3的值是： A 、0 B、-1 C、 1 D、 3 ○

2、设a=3，则执行x=IIf(a>5,a<5,a>5)后，x的值为：

A 、a>5 B、True C、False ○

D、a<5

3、运行以下程序的输出结果是：

dim a(7)

for i=1 to 5 step 2 a(i)=i next i print a(i) A 、0 B、7 C、6

D、没有任何显示 ○

4、已知字母A的ASCII码为十进制的65，

表达式Asc（\）+Asc（\）+Instr(\，\的值是: A 、\B、136 ○

C、6567 D、Acabcd

5、表达式InStr(\，\的值是:

A、104 ○

B、出错 C、4100 D、1004

6、设X=10，则执行a=IIf(x>5,6,0)后，a的值为 ____ 。

A 、5 B、-1 C、6 D、0 ○

7、Print \输出的结果是 ____ 。

A 、16=10+6 B、\C、10+6= 16 ○

D、10+6=10+6

8、若设a = 4, b = 5, 则下列表达式值为真的是:

4

2013-4-8第六组

A:a>b Or b>10-a B:a>b Xor b+3>5

C:(True+a)>0 And b>10 D:(False-b< 0) Eqv (a>b) 9、表达式9 Mod -4的值为：

A、3 B、-1 C、2 D、1 ○

10、下列表达式的值为2123的是:

A、Str(123) & \B、Str(123)+\

C、Val(\D、Val(\○

11、VB中表达式COS(0)+ABS(-1)+INT(RND(1))+SGN(-5)的值是:

A、2 B、-3 C、1 ○

D、-2

12、执行下面的程序段后，k的值为：

for k=10 to 1 step -1 next k print k A、0 ○B、1 C、10 D、-1

13、表达式，5_*3的值是 ____ 。

A、7.5 B、2 C、0 D、1

14、不能正确表示条件“两个整型变量A和B之一为0,

但不能同时为0”的布尔表达式是: A、A*B=0 and (A=0 or B=0) B、A*B=0 and A+B<>0

C、(A=0 or B=0)and (A<>0 OrB<>0) D、not(A=0 And B=0) and (A=0 or B=0) 15、执行以下语句后，输出的结果是：

a=\print mid(a,3,4)

A、defg B、bcde C、abcd

5

2013-4-8第六组

D、cdef ○

16、执行以下语句后，输出的结果是： a=\

mid(a,3,4)=\print a

A、abcdxxe B、abxxe ○

C、axxde D、axxbcde

17、表达式Int(-17.8)的值是：

A、-16 B、-18 ○

C、18 D、-17

18、执行以下语句后，输出的结果是： a=\a=UCase(a) print a

A、Visual Basic B、visual basic C、Visual BASIC D、VISUAL BASIC ○

19、表达式3^2*2+3 MOD 10_的值是:

A、1 B、19 C、0 D、18

20、设S=\中华人民共和国\，

表达式Left（S,1）+Right（S,1）+Mid（S,3,2）的值为:中国人民

6

2013-4-8第六组

三

1、在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click() Dim j, s, x As Integer For j = 1 To 10

x = Val(InputBox(\

If x / 3 = Int(x / 3) Or x / 5 = Int(x / 5) Then s = s + x Next j Print s End Sub 程序运行后，单击命令按钮，输入1,3,5,7,9,11,13,15,17,19后，输出的结果是 ____ 。 A、20 B、27 C、32 D、37 ○

2、在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click() Dim a, b, m, j As Integer a = 0

For m = 1 To 10

a = a + 1: b = 0 For j = 1 To 10

a = a + 1: b = b + 2 Next j Next m Print a; b End Sub

程序运行后，单击命令按钮，输出的结果是 ____ 。

A、20 110 B、10 20 C、110 20 ○

D、200 110

3、在窗体上画一个命令按钮，然后在代码窗口中输入如下内容：

Sub inc(a As Integer) Static x As Integer x = x + a Print x; End Sub

Private Sub Command1_Click() inc 2 inc 3 inc 4

7

2013-4-8第六组

End Sub

程序运行后，单击命令按钮，则输出的结果是 ____ 。

A、3 6 10 B、11 14 18 C、4 7 11 D、2 5 9 ○

4、在窗体上画一个命令按钮，然后在代码窗口中输入如下内容：

Sub m5(x As Integer, y As Integer, z As Integer) If x < y Then If y < 0 Then z = 0

Else

z = z + 1 End If End If Print z End Sub

Private Sub Command1_Click() m5 2, -1, 2 End Sub

程序运行后，单击命令按钮，则输出的结果是 ____ 。

A、0 B、3 C、1 D、2 ○

5、写出程序执行后的输出结果____。

s1=0:s2=0

FOR i=1 TO 4 FOR j=1 TO i s1=s1+i s2=s2+j NEXT j

FOR k=4 TO i+1 STEP -1 s1=s1+k s2=s2+i NEXT k NEXT i

PRINT \

END

A、s1=51 s2=31 B、s1=51 s2=30 C、s1=50 s2=30 ○

D、s1=50 s2=31

6、在窗体上画一个列表框和一个文本框，然后编写如下事件过程：

8

2013-4-8第六组

Private Sub Form_Load() List1.AddItem \ List1.AddItem \

List1.AddItem \

List1.AddItem \ List1.AddItem \End Sub

Private Sub List1_DblClick() Text1.Text = List1.Text End Sub

程序运行后，双击列表框中\项时，文本框中的内容是 ____ 。

A、Bbb B、Ccc C、2 D、3

7、写出下面程序的运行结果____。 10 READ k

IF k<0 THEN 20 READ m

IF m<0 THEN 20

FOR i=1 TO k STEP m a=a+k NEXT i GOTO 10

20 PRINT \

DATA 5,4,2,1,3,3,-1 END

A、a=17 B、a=19 C、a=18 D、a=16

8、在窗体上画一个命令按钮，然后编写如下代码： Private Sub Command1_Click() Dim x(3, 3) As Integer Dim j, k As Integer For j = 1 To 3 For k = 1 To 3

x(j, k) = (j - 1) * 3 + k Next k Next j

For j = 2 To 3 For k = 1 To 2

Print x(k, j); Next k

9

2013-4-8第六组

Next j

A、4 7 5 8 B、2 5 3 6 C、4 5 7 8 D、2 3 5 6 ○

9、在窗体上画一个水平滚动条和一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click() Dim i, s As Integer

For i = 1 To HScroll1.Value s = s + i Next i Print s End Sub

Private Sub Form_Load() HScroll1.Max = 10 End Sub

程序运行后，把水平滚动条从左端拖到最右端，然后单击命令按钮，则输出的结果是 ____ 。 A、66 B、55 ○

C、11 D、10

10

2013-4-8第六组

四

1、下面程序是计算1到10之间的奇数之和以及偶数之和。

Private Sub Form_Click() Dim k, a, c As Integer For k = 1 To 9 Step 2 c = c + (1) a = a + (2) Next k

Print \偶数之和为：\ Print \奇数之和为：\End Sub A、(1) k ○(2) k+1 B、(1) k (2) k C、(1) k+1 (2) k D、(1) k (2) c

2、二数相加为316,其中一数为13的倍数, 另一数为11的倍数,求此二数____。 i=0

10 i=i+1

IF (1) THEN 20 (2)

20 PRINT i*13;\

END

A、(1) (316-13*i)=INT((316-13*i)/11) (2) GOTO 10

B、（1) (316-13*i)/11=INT((316-13*i)/11) (2) GOTO 10 C、（1）(316-13*i)/11=INT((316-13*i)/11) (2) GOTO 20 D、（1) (316-13*i)=INT((316-13*i)/11) (2) GOTO 20 3、下边程序的功能是当用鼠标右键单击窗体Form1时，就会出现一个弹出式菜单\。

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = (1) Then Form1. (2) mm End If End Sub

A、（1) 1 (2) PopupMenu B、（1) 2 (2) Show

C、(1) 2 (2) PopupMenu ○

D、 (1) 1 (2) Show

4、下面程序的功能是，输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的\变换成\。 Private Sub Command1_Click() Dim a, c As String

11

2013-4-8第六组

Dim n, i As Integer

a = InputBox(\输入字符串\ n = (1)

For i = 1 To Int(n \\ 2) c = Mid(a, i, 1)

Mid(a, i, 1) = Mid(a, n - i + 1, 1) Mid(a, n - i + 1, 1) = (2) Next i Print a End Sub A、(1)7 (2)a B、(1)a (2)a C、(1)a (2)c D、（1)Len(a) ○(2)c

5、在窗体上画两个列框，当双击列表框1中的某个项目时可把它添加到列表框2中。

Private Sub Form_Load() List1.AddItem \ List1.AddItem \ List1.AddItem \ List1.AddItem \End Sub

Private Sub List1_DblClick() List2.(1) (2) End Sub A、（1）RemoveItem (2) List2.text B、(1) AddItem (2) List1.Text ○

C、(1) AddItem (2)List2.Text D、(1) RemoveItem (2) List1.text

6、下面程序的功能是计算输入数的阶乘值。

Private Sub Form_Click() Dim n As Integer

n = Val(InputBox(\请输入一个大于0的整数:\ Print fact(n) End Sub

Private Function fact(m) Dim i As Integer fact = (1)

For i = 2 To (2)

fact = fact * (3) Next i End Function

A、（1）1 (2)m-1 (3)i B、(1)1 (2)m (3)i ○

12

2013-4-8第六组

C、(1)0 (2)m-1 (3)i D、(1)0 (2)m (3)i

7、下面程序的功能是，当点击命令按钮Command1时，卸载当前窗体，并显示窗体Form2。

Private Sub Command1_Click() (1) Me Form2. (2) End Sub A、(1)Hide (2)Show B、(1)Unload (2)Load C、(1)Load (2)Show D、(1)Unload (2)Show ○

9、以下程序要求能进行4次计算并输出y值,然后结束。 p=1

10 INPUT \ IF _____ GOTO 99 p=p+1 y=9*x+9 PRINT \ GOTO 10 99 END

A、P>4 ○

B、P=4 C、E.P>=4 D、P<4

10、下面程序的功能是标签Label1的字体会随着时间从小变大并且反复循环。

Private Sub Timer1_Timer() If Label1. (1) < 100 Then

Label1.FontSize = Label1.FontSize * 1.2 Else

Label1.FontSize = 10 End If End Sub

上边程序运行后，要求每秒钟改变一次字体大小，则计时器的 (2) 属性应设置成 (3) 。

A、（1）FontSize (2) Enabled (3) 1000 B、(1) FontSize (2) Interval (3) 1000 ○

C、(1) FontSize (2) Enabled (3) 1 D、(1) FontSize (2) Interval (3) 1 11、下面程序的功能是向一个顺序文件\中写入员工姓名、年龄及工资。

Private Sub Command1_Click() Dim name As String * 8 Dim age As Integer Dim wage As Single

13

2013-4-8第六组

name = \张三\age = 22

wage = 156.8

Open \(2) #1, name, age, wage Close #1 End Sub

A、(1) Input (2) Input B、(1) OutPut (2) Input ○C、(1) Output (2) Write D、(1) Input (2) Print

2013-4-8第六组

14

本文来源：https://www.bwwdw.com/article/26x7.html