单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： 　　Public Enum S 　　a=4 　　b=3 　　End Enum 　　Private Sub Command1 Click() 　　Dim x As Integer 　　x=a 　　If x>=3 Then MsgBox"Pass!" 　　End Sub 　　运行程序，其结果是( )。

A．运行错误．因为Enum定义有错
B．运行错误．因为x=a类型不匹配
C．运行正常结束，不显示任何信息
D．运行正常．显示内容为“Pass!”的信息框
<上一题 目录 下一题>
热门 试题

单项选择题
设有如下程序： Option Base 1 Private Sub Form Click() Dim a(5)As String，i As Integer For i=1 To 5 a(i)=Chr(Asc( A )+i) Call f(a，i) Next i End Sub Sub f(ta()As String，n As．Integer) Dim i As Integer For i=1 To n Print ta(i)； Next i Print End Sub 对上述程序．以下叙述中正确的是( )。
A．程序有错，因为在过程f的定义中数组参数格式不正确
B．程序可正常运行，输出内容的第一行是一个字母“A”
C．程序可正常运行，输出内容的第一行是一个字母“B”
D．程序可正常运行，输出内容的第一行是数字65
单项选择题
目录列表框Path属性所表示的含义是( )。
A．当前驱动器或指定驱动器上的路径
B．当前驱动器或指定驱动器上的某目录下的文件列表
C．根目录下的文件列表
D．指定路径下的文件列表
相关试题