VB程序设计方法练习题

VB 程序设计方法练习题

姓名 ____________ 学号 _________________

、选择题

1设窗体上有一个文本框，名称为

textl,程序运行后，要求该文本框不能接受键盘输入,

能输出信息，以下属性设置正确的是（ B ）。

D 、MsgBox 函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量

4、 在窗体上画一个名称为 Timer1的计时器控件，要求每隔 0.5S 发生一次计时器事件，则

以下正确的属性设置语句是（ D ） A 、Timer1.InterVal=0.5 B 、Timer1.InterVal=5 C 、Timer1.InterVal=50

D 、Timer1.InterVal=500

5、 以下关于文件的叙述中，错误的是（ B ）。 A 、 顺序文件中的记录一个接一个地存放 B 、 随机文件中记录的长度是随机的

C 、 执行打开文件的命令后，自动生成一个文件指针

D 、 L OF 函数返回给文件分配的字节数 6、 以下叙述中错误的是（ D ）。 A 、 事件过程是响应特定事件的一段程序 B 、 不同的对象可以具有相同名称的方法 C 、 对象的方法是执行指定操作的过程 D 、 对象事件的名称可以由编程者指定 7、 以下合法的 Visual Basic 标识符是（A ） A 、Forloop B 、Const

C 、9abc

D 、a#x

8、 当一个复选框被选中时，它的 Value 属性的值是（C ） A 、3 B 、2 C 、1 D 、0 9、 表达式 5MOD3+3\5*2 的值是（B ）

A 、0

B 、2

C 、4

D 、6

10、 设 x=4,y=8,z=7,以下表达式 xz ）OR z

Comma nd1的命令按钮，然后编写如下事件过程:

Private Sub

Comma nd1_Click （）

a$=" VisualBasic ” print Stri ng （3,a$） End Sub

运行以上程序后，x 的值是（B ） A 、26

B 、27

C 、38

D 、57 12、不能正确表示条件“ k 是2的倍数”的表达式是（ D ）

B 、textl.enabled=false

C 、text1.visible=0

D 、text1.with=0

A 、textl.maxlength=O 2、 以下能在窗体 form1标题栏中显示“ A 、= “VisualBasic 窗体” C 、form1.Caption= “ VisualBasic 窗体” 3、 以下MsgBox 的叙述中，错误的是（ A 、 MsgBox 函数返回一个整数

B 、 通过MsgBox 函数可以设置信息框中图标和按钮的类型

C 、 MsgBox 语句没有返回值

VisualBasic 窗体”的语句是（ C ）。

"VisualBasic 窗体”

"VisualBasic 窗体”

B 、form1.Title= D 、form1.Text= D ）。

A、K Mod 2=0

B、K/2=K\2

C、K-2*Int(K/2)=0

D、K\2=lnt(K/2)

13、能显示窗体的方法是( B )

A、Hide

B、Show

C、Visible

D、Open

14、若要在程序中使得文本框获得焦点，应该调用文本框的( B )方法。

A、Tablndex

B、SetFocus

C、LostFocus

D、GotFocus

15、当文本框具有焦点时，按下回车键一定不能触发它的( C )事件。

A、KeyPress

B、Cha ng

C、LostFocus

D、KeyDow n

二、填空题

1、当一个复选框被选中时，其Value属性值为_________________ 。

2、窗体标题栏内容通过设置其Caption ___________属性来指定。

3、假设列表框List1中有四个列表项a1,a2,a3,a4,方法List1.Removeltem 2删除的列表项是

a3 ___ ，删除该项后，列表框的属性Listcount的值为3 __________ 。

4、要实现窗口中水平滚动字幕效果，可以利用标签控件显示文字内容，且每2S钟水平滚

动一次，就设置定时器控件的Interval属性值为2000 ______________ ，并在Timer 事件

过程中重新设置标签控件的Left 属性值。

5、如果a是变体类型，执行语句a=Array(1,3,5,7,9)后，a(3)的值是__________ 7 。

6、表达式(3+6)\2的值是 4 _______ 。

三、写出下列程序的运行结果(20%，每题5分)

1、程序1

Private Sub Comma nd1_Click()

Dim a(10) As In terger

a(0)=0

a(1)=1

n=1

For k=2 To 10

a(k)=a(k-1)+a(k-2)

if a(k)mod2<>0 The n n=n+1

Next k

Print n

End Sub

程序的运行结果是( 7 )

2、程序2

Private Sub Comma nd1_Click()

Num=255

K=0

Dowhile num<>0

K=k+num mod 2

Num=nu m\2

Loop

Print k

End sub