单项选择题

有如下程序： 　　Private Sub Commandl_Click( ) 　　　　Dim i As Integer 　　　　For i=1 To 2 　　　　　　DS 　　　　Next i 　　　End Sub 　　　Sub DS( ) 　　　　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　*　#
B．1　1　*　#
C．1　1　*　#1　1　*　#　1　2　*　#
D．1　1　*　#1　1　*　##　　1　2　*　##
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )Dim m As Integer，n As Integer，p As Integerm=3：n=5：p=OCall Y(m，n，p)Print Str(p)End SubSub Y(ByVal i As Integer，ByVal j As Integer，k As Integer)k=i + jEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。
A．资源文件的扩展名为．res
B．一个窗体对应一个窗体文件
C．Visual Basic中的一个工程只包含一个窗体
D．Visual Basic中一个工程最多可以包含255个窗体
单项选择题
单击命令按钮时，下列程序代码的运行结果为( )。Private Sub Command1_Click()print MyFunc(20，18)End SubPublic Function MyFunc (m As Integer，n As Integer)As IntegerDo While m <>nDo While m ＞ n：m=m - n：LoopDo While m ＜ n：n=n - m：LoopLoopMyFunc=mEnd FunCtion
A．Dim gg[1，5]As String
B．Dim gg[1 To 5，1 To 5]As String
C．Dim gg(1 To 5)As String
D．Dim gg[1：5，1：5]As String
相关试题