单项选择题

有如下事件过程： 　　Private Sub Commaild1_Click( ) 　　　　Dim i As Integer 　　　　For i =1 To 2 　　　　　　DC 　　　　Next i 　　End Sub 　　Sub DC( ) 　　　　Dim x As Integer，m As String 　　　　Static y，n 　　　　x=x + 1 　　　　y=y + 1 　　　　m=m&"*"：n=n &"#" 　　　　Print x，y，m，n 　　End Sub 　　程序运行后，输出的结果是( )。

A． 1 1 * # 　　 1 1 * #
B． 1 1 * #　　 1 2 * #
C．1 1 * #　　1 1 * ##
D． 1 1 * #　　 1 2 * ##
<上一题 目录 下一题>
热门 试题

单项选择题
以下程序运行后，单击按钮输出结果是( )。Private Sub Commandl_Click( )Dim x As Integer，y As Integer，z As IntegerX=4：y=2： Z=3Call Gopd(x，x，z)Print x；X；ZCall Gopd(x，y，y)Print x；y；yEnd SubPrivate Sub Gopd(x As Integer，y As Integer，z As Integer)X=3 * Z + 1y=2 * zz=x + yEnd Sub
A．6　6　12 7 11 11
B．8　5　105 11 11
C．9　6　129 10 15
D．8　10　105 9 10
单项选择题
在窗体上画一个通用对话框，其名称为CommonDialogl，然后画一个命令按钮，并编写如 下事件过程：Private Sub Commandl_Click()CommonDialogl，Flags=vbOFNHideReadOnlyCommontDialogl．Filter= All Files(*．*)|*．*|Text Files (*.*)|*．txt| _& Batch Files (*．bat) |*．bat CommonDialogl．Filterlndex=1CommonDialogl．ShowopenMsgBox CommonDialogl．FileNameEnd Sub程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是( )。
A．All Fries(*.*)
B．Text Files(*.*)
C．Batch Files(*．bat)
D．All Files (*．*)|Text Files(*．*)
相关试题