0全国计算机等级考试二级VB语言笔试试题及答案

Open CommonDialog1.FileName For Input As#1 End Sub 算法 2:

Private Sub Command1_Click( CommonDialog1.ShowOpen

IfCommonDialog1.FileName<>” ”Then Open CommonDialog1.FileName For Input As#1 End If End Sub

下面关于这两种算法的叙述中正确的是(B

A 显示打开文件对话框后若未选择或输入任何文件名, 则算法 2会出错, 算法 1不会

B 显示打开文件对话框后若未选择或输入任何文件名, 则算法 1会出错, 算法 2不会

C 两种算法的执行结果完全一样

D 算法 1允许输入的文件名中含有空格,而算法 2不允许

(30 窗体上有 1个名称为 List 的列表框, 其中已经输入了若干个项目 (如 图所示 :还有 2个文本框, 名称分别为 Text1、 Text2, 1个名称为 Command1的命令按钮,并有以下程序

Private Sub Command1_Click(

Dim str As String, s As String, k As Integer s=Text1 Str=” ”

For k=List1.ListCount-1to 0Step-1 If InStr(List.List(k,s>0then str=str&List.List(k&” ” End If Next k If str=” ”Then

Text2=”没有匹配的项目” Else Text2=str End If End Sub

程序运行时,在 Text1中输入“京” ,单击命令按钮,则在 Text2中显示的 内容是(C A 京 B 北京 南京 C 南京

D 没有匹配的项目

(31在窗体上画 1一个名称为 Command1的命令按钮,并编写以下程序 Private Sub Command1_Click(

Print fun(“ABCDEFG” End Sub

Function fun(stAs String As String stlen=Len(st temp=” ” For k fun=temp End Function

程序运行时,单击命令按钮,则窗体上显示的是(B AABCDEFG BAGBFCE CGFEDCBA DAGBFCED

(32在窗体上先后画 2个图片框,名称分别为 Picture1和 banana,banana 中添加了香蕉图片 (见图 1 ,且将 banana.DragMode 属性设置为 1。要求程序运 行时,可以用鼠标把 banana 拖拽到 Picture1中(见图 2 。能实现此功能的事 件过程是(C

A Priate Sub Form_DragDrop(SourceAs Control,X As Single,Y As Single banana.Move Picture1.Left+X,Picture1.Top+Y

End Sub

BPrivate Sub banana _DragDrop(SourceAs Control,X As Single,Y As Single Source.Move Picture1.Left+X.Picture1.Top+Y End Sub

C BPrivate Sub Picture1_DragDrop(SourceAs Control,X As Single,Y As Single Source.Move Picture1.Left+X.Picture1.Top+Y End Sub

D BPrivate Sub Picture1_DragDrop(SourceAs Control,X As Single,Y As Single banana.Move banana.Left+X,banana.Top+Y End Sub

(33在窗体上画 1个名称为 Command1的命令按钮,然后编写如下事件过程 Option Base 1

Pribate Sub Command1_Click( Dim a(5.5As Integer For i=1To 5 a(I,j*5\\10 Next j Next i S=0

For i=1To 5 S=s+a(i,i Next i Print s End Sub

程序运行后,单击命令按钮,输出结果是(A A 15 B13 C11 D9

(34在窗体上从左到右有 Text1、 Text2两个文本框 (见图 ,要求程序运行 时, 在 Text1中输入 1个分数后按回车键, 则判断分数的合法性, 若分数为 0~100中的 1个数,周围光标移到 Text2中;否则光标不动,并弹出对话框显示“分数 错” ,下面程序中正确的是(D

APrivate Sub Text1__KeyPress(KeyAsciiAS Integer If KeyAscii=13Then ‘回车符的 ACSII 码是 13 a=Val(Text1

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