VB考试题库,二级习题(含答案)

.

If a(k)>max Then max=a(k) End If Next k Print max End Sub

运行程序时发现,当输入10个正数时,可以得到正确结果,但输入10个负数时结果是错误的,程序需要修改。下面的修改中可以得到正确运行结果的是______。 A:把max=a(k)改为a(k)=max

B:把If a(k)>max Then改为If a(k)

C:把第2个循环语句For k=1 To 10改为For k=2 To 10 D:把max=0改为max=a(10)

参考答案:D

2、设有语句:Open \,以下叙述中错误的是______。 A:执行该语句后,就可以通过Print#语句向文件Test.txt中写入信息 B:用该语句建立的文件的文件号为1

C:该语句打开d盘根目录下一个已存在的文件Test.txt,之后就可以从文件中读取信息 D:若d盘根目录下无Test.txt文件,则该语句创建此文件 参考答案:C

3、工程中有2个窗体,名称分别为Form1、Form2,Form1为启动窗体,该窗体上有命令按钮Command1。要求程序运行后单击该命令按钮时显示Form2,则按钮Click事件过程应该是______。

A:Private Sub Command1_Click() Form2.Load End Sub

B:Private Sub Command1_Click() Form2.Visible End Sub

C:Private Sub Command1_Click() Load Form2 End Sub

D:Private Sub Command1_Click() Form2.Show End Sub

参考答案:D

4、在窗体上画一个名为Command1的命令按钮,然后编写如下代码: Option Base 1

Private Sub Command1_Click() Dim a .

.

a=Array(1,2,3,4) j=1

For i=4 To 1 Step -1 s=s+a(i)*j j=j*10 Next i Print s End Sub

运行上面的程序,其输出结果是______。 A:12 B:1234 C:34 D:4321

参考答案:B

5、设在窗体中有一个名称为List1的列表框,其中有若干个项目(如图)。要求选中某一项后单击Command1按钮,就删除选中的项,则正确的事件过程是______。

A:Private Sub Command1_Click() List1.Clear List1.ListIndex End Sub

B:Private Sub Command1_Click() List1.Clear End Sub

C:Private Sub Command1_Click() List1.RemoveItemList1.ListIndex End Sub

D:Private Sub Command1_Click() List1.RemoveItem End Sub 参考答案:C

6、窗体上有一个名称为Frame1的框架(如图),若要把框架上显示的\改为汉字\框架\,下面正确的语句是______。

A:Frame1.Caption=\框架\ B:Frame1.Name=\框架\ C:Frame1.Text=\框架\ D:Frame1.Value=\框架\

参考答案:A

7、设窗体上有一个图片框Picture1,要在程序运行期间装入当前文件夹下的图形文件 .

.

File1.jpg,能实现此功能的语句是______。 A:Call LoadPicture(\

B:Picture1.Picture=LoadPicture(\ C:LoadPicture(\ D:Picture1.Picture=\

参考答案:B

8、在窗体上画一个名称为Timer1的计时器控件,要求每隔0.5秒发生一次计时器事件,则以下正确的属性设置语句是______。 A:Timer1.Interval=50 B:Timer1.Interval=5 C:Timer1.Interval=0.5 D:Timer1.Interval=500

参考答案:D

9、在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程:

Private Sub Command1_Click()

CommonDialog1.Filter=\ \ CommonDialog1.FilterIndex=3 CommonDialog1.ShowOpen

MsgBox CommonDialog1.FileName End Sub

程序运行后,单击命令按钮,将显示一个\打开\对话框,此时在\文件类型\框中显示的是______。

A:Text Files(*.txt) B:AllFiles(*.*)

C:Executable Files(*.exe) D:不确定 参考答案:C

10、在窗体上画一个名称为Command1命令按钮,然后编写如下事件过程: Private Sub Command1_Click() c = \ For n = 1 To 4 Print ______ Next End Sub

程序运行后,单击命令按钮,要求在窗体上显示如下内容 D CD .

.

BCD ABCD

则在______处填入的内容为。

A:Left(c,n) B:Right(c,n) C:Mid(c,n,n) D:Mid(c,n,1) 参考答案:B

11、在窗体上画一个名称为Label1、标题为\考试\的标签,两个名称分别为Command1和Command2、标题分别为\开始\和\停止\的命令按钮,然后画一个名称为Timer1的计时器控件,并把其Interval属性设置为500,如图所示。 编写如下程序:

Private Sub Form_Load() Timer1.Enabled=False End Sub

Private Sub Command1_Click() Timer1.Enabled=True End Sub

Private Sub Command2_Click() Timer1.Enabled = False End Sub

Private Sub Timer1_Timer() If Label1.Left

Label1.Left = Label1.Left + 20 Else

Label1.Left=0 End If End Sub

程序运行后,单击\开始\按钮,标签在窗体中移动。 对于这个程序,以下叙述中错误的是______。

A:单击\停止\按钮后再单击\开始\按钮,标签从停止的位置继续移动 B:标签的移动方向为自右向左

C:当标签全部移出窗体后,将从窗体的另一端出现并重新移动 D:标签按指定的时间时隔移动

参考答案:B

12、执行下列语句

strInput=InputBox(\请输入字符串\字符串对话框\字符串\

将显示输入对话框。此时如果直接单击\确定\按钮,则变量strInput的内容是______。 A:\请输入字符串\ B:空字符串 C:\字符串\ D:\字符串对话框\参考答案:C

13、假定在图片框Picture1中装入了一个图形,为了清除该图形(不删除图片框),应采用的正确方法是______。

A:执行语句Picture1.Picture =\ .

.

B:执行语句Picture1.Picture = LoadPicture (\ C:选择图片框,然后按Del键

D:选择图片框,在属性窗口中选择Picture属性条,然后按回车键 参考答案:B

14、在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序:

Private Sub Command1_Click()

a=InputBox(\请输入日期(1~31)\ t=\旅游景点:\

& IIf ( a > 0 And a <= 10,\长城\ & IIf ( a >10 And a <= 20,\故宫\ & IIf ( a > 20 And a <= 31,\颐和园\ Text1.Text = t End Sub

程序运行后,如果从键盘上输入16,则在文本框显示的内容是______。 A:旅游景点:长城颐和园 B:旅游景点:长城故宫 C:旅游景点:颐和园 D: 旅游景点:故宫 参考答案:D

15、若变量a未事先定义而直接使用(例如:a=0),则变量a的类型是______。 A:Variant B:String C:Boolean D:Integer 参考答案:A

16、有如下程序:: Private Sub Form_Click()

Dim i As Integer, sum As Integer sum = 0

For i = 2 To 10

If i Mod 2 <> 0 And i Mod 3 = 0 Then sum = sum + i End If Next i Print sum End Sub

程序运行后,单击窗体,输出结果为______。 A:30 B:12 C:24 D:18 参考答案:B

17、以下能从字符串\中直接取出子字符串\的函数是______。 A:String B:Mid C:Left D:Instr .

联系客服:779662525#qq.com(#替换为@) 苏ICP备20003344号-4