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