发布时间 : 2024/5/20 20:04:33 星期一 文章2007年4月全国计算机等级考试二级VB语言笔试试题及答案更新完毕开始阅读374d258b842458fb770bf78a6529647d2628340f

(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

Text1. SetFocus ; MsgBox(“分数错” End If End If End Sub

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

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

Text2. SetFocus ; MsgBox(“分数错” End If End If End Sub

C Private Sub Text1__KeyPress(KeyAsciiAS Integer If KeyAscii=13Then ‘回车符的 ACSII 码是 13 a=Val(Text1 If a<0And a>100Then Text2.SetFocus