VB考试题库,二级习题(含答案) 下载本文

.

参考答案:B

18、设窗体上有一个列表框控件List1,含有若干列表项。以下能表示当前被选中的列表项内容的是______。 A:List1.ListIndex B:List1.List C:List1.Text D:List1.Index

参考答案:C

19、设a=5,b=10,则执行c = Int((b - a) * Rnd + a) + 1后,c值的范围为______。 A:6~10 B:6~9 C:5~10 D:5~9

参考答案:A

20、在窗体上有1个名为Cd1的通用对话框,为了在运行程序时打开保存文件对话框,则在程序中应使用的语句是______。 A:Cd1.Action=2

B:Cd1.ShowSave=True C:Cd1.Action=1 D:Cd1.ShowSave=0

参考答案:A

21、下面可以正确定义2个整型变量和1个字符串变量的语句是______。 A:Dim a As Integer,b,c As String B:Dim a%,b$,c As String

C:Dim n,m As Integer,s As String D:Dim x%,y As Integer,z As String

参考答案:D

22、在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程: Private Sub Command1_Click() a = InputBox(\ b = InputBox(\ Text1.Text = b + a End Sub .

.

程序运行后,单击命令按钮,如果在输入对话框中分别输入8和10,则文本框中显示的内容是______。 A:出错 B:18 C:810 D:108

参考答案:D

23、在窗体上画一个名称为CommonDialog1的通用对话框,一个名称为Command1的命令按钮。然后编写如下事件过程: Private Sub Command1_Click() CommonDialog1.FileName =\

CommonDialog1.Filter=\ CommonDialog1.FilterIndex=2

CommonDialog1.DialogTitle=\ CommonDialog1.Action=1 End Sub

对于这个程序,以下叙述中错误的是______。

A:在该对话框中指定的默认文件类型为文本文件(*.Txt) B:在该对话框中指定的默认文件名为空 C:该对话框的标题为VBTest

D:该对话框被设置为\打开\对话框 参考答案:A 24、设在窗体Forml上有一个列表框Listl,其中有若干个项目。要求单击列表框中某一项时,把该项显示在窗体上,正确的事件过程是______。 A:Private Sub List1_Click() Print Form1.Text End Sub

B:Private Sub Form1_Click() Print List1.Text End Sub

C:Private Sub List1_Click() Print List1.Text End Sub

D:Private Sub Form1_Click() List1.Print List1.Text End Sub

参考答案:C

25、在窗体上从左到右有Text1、Text2两个文本框(见图),要求运行程序时在Text1中输入1个分数后按回车键,则判断分数的合法性,若分数为0~100中的1个数,则光标移到 .

.

Text2中;否则光标不动,并弹出对话框\分数错\。下面程序中正确的是______。

A:Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then ' 回车符的ASCII码是13 a=Val(Text1)

If a<0 And a>100 Then Text2.SetFocus Else

Text1.SetFocus:MsgBox(\分数错\ End If End If End Sub

B:Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then ' 回车符的ASCII码是13 a=Val(Text1)

If a>=0 Or a<=100 Then Text2.SetFocus Else

Text1.SetFocus:MsgBox(\分数错\ End If End If End Sub

C:Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then ' 回车符的ASCII码是13 a=Val(Text1)

If a>=0 And a<=100 Then Text2.SetFocus Else

Text1.SetFocus:MsgBox(\分数错\ End If End If End Sub

D:Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then ' 回车符的ASCII码是13 a=Val(Text1)

If a>=0 And a<=100 Then Text1.SetFocus Else

Text2.SetFocus:MsgBox(\分数错\ End If End If End Sub .

.

参考答案:C

26 、假定通用对话框的名称为CommonDialog1,命令按钮的名称为Command1,则单击命令按钮后,能使打开的对话框的标题为\的事件过程是______。 A:Private Sub Command1_Click()

CommonDialog1.DialogTitle = \ CommonDialog1.ShowPrinter End Sub

B:Private Sub Command1_Click()

CommonDialog1.DialogTitle = \ CommonDialog1.ShowColor End Sub

C:Private Sub Command1_Click()

CommonDialog1.DialogTitle = \ CommonDialog1.ShowOpen End Sub

D:Private Sub Command1_Click()

CommonDialog1.DialogTitle = \ CommonDialog1.ShowFont End Sub

参考答案:C

27、在窗体上画一个通用对话框,程序运行后,通过ShowOpen方法显示\打开\对话框,要求在该对话框的\文件类型\栏中只显示扩展名为DOC的文件,则对通用对话框的Filter属性的正确设置是:______。 A:\ B:\ C:\ D:\参考答案:C

28、以下说法中正确的是______。

A:只有当某个窗体为当前活动窗体时,才能打开菜单编辑器

B:任何时候都可以通过执行\工具\菜单中的\菜单编辑器\命令打开菜单编辑器 C:任何时候都可以通过单击标准工具栏上的\菜单编辑器\按钮打开菜单编辑器 D:只有当代码窗口为当前活动窗口时,才能打开菜单编辑器 参考答案:A

29、为了暂时关闭计时器,应把计时器的某 个属性设置为False,这个属性是______。

A:Timer B:Visble C:Enabled D:Interval 参考答案:C

30、某人在窗体上画了一个名称为Timer1的计时器和一个名称为Label1的标签,计时器的属性设置为Enabled=True,Interval=0,并编程如下。希望在程序运行时,可以每2秒在标签上显示一次系统当前时间。 .

.

Private Sub Timer1_Timer() Label1.Caption=Time$ End Sub

在程序执行时发现未能实现上述目的,那么,他应做的修改是______。 A:通过属性窗口把计时器的Enabled属性设置为False

B:把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time C:通过属性窗口把计时器的Interval属性设置为2000

D:把事件过程中的Label1.Caption=Time$语句改为Timer1.Interval=Time$ 参考答案:C

31、若设置了文本框的属性PasswordChar=\,则运行程序时向文本框中输入8个任意字符后,文本框中显示的是______。

A:无任何内容 B:1个\ C:8个\ D:8个\参考答案:D

32、在窗体上有如下图所示的控件,各控件的名称与其标题相同,并有如下程序: Private Sub Form_Load()

Command2.Enabled = False Check1.Value = 1 End Sub

刚运行程序时,看到的窗体外观是______。

A: B: C: D:

参考答案:D

33、要使两个单选按钮属于同一个框架,正确的操作是______。

A:先画一个框架,再在框架外画两个单选按钮,然后把单选按钮拖到框架中 B:其他选项方法都正确

C:先画一个框架,再在框架中画两个单选按钮

D:先画两个单选按钮,再画框架将单选按钮框起来 参考答案:C

34、在窗体上画一个列表框和一个命令按钮,其名称分别为List1和Command1,然后编写如下事件过程

Private Sub Form_Load() .