(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
相关推荐：
loading