单项选择题

在窗体上画一个名称为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!”的信息框
<上一题 目录 下一题>
热门 试题

问答题
根据题意，新建“标准EXE”工程，将一个文本框控件和一个命令按钮添加到窗体中，文本框的名称为Text1、Text属性为空，命令按钮的名称为Command1、Caption属性为“当前时间／日期切换”。双击Command1进入代码窗口，编写如下代码： Dim i As Integer Private Sub Command1Click() If i=0 Then Text1．Text=Date i=1 ’显示标识，1表示显示的是日期 Else Text1．Text=Time i=0 ’0表示显示的是时间 End If End Sub Private Sub Form_Load() Text1 Text=Time i=0 End Sub 单击 按钮运行程序，并按要求保存。
问答题
列表框控件用于显示可供单一或多个选择的列表项。在程序运行时可通过代码：列表框名．AddItem“项目”给列表框添加列表项；MultiSelect属性用于设置是否可在列表项中选择多项，值为0(缺省设置) 表示不允许选择多项，值为1表示允许做简单多项选择，值为2表示允许配合使用Shift、Ctrl键做多项选择；Selected(Index)属性用于设置或返回指定索引号的列表项选择状态(索引号从0开始)，值为True表示被选中，值为False表示未被选中；List(Index)属性用于设置或返回指定索引号的列表项的内容；ListCount 属性用来返回列表框中当前的列表项条数。 根据题意，将列表框List的MuhiSelect为1-Simple，双击Command1进入代码窗口，编写如下代码： Private Sub Command1_Click() Dim i As Integer For i=0 To List1．ListCount-1 ’遍历list1列表 If List1．Selected(i)=True Then’找到选中项 List2．AddItem List1．List(i) ’将其加入到list2列表框中 End If Next End Sub 单击 按钮运行程序，并按要求保存。
相关试题