单项选择题

有如下事件过程：　　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 * ##

<上一题目录下一题>

热门试题

单项选择题下列说明中，不属于随机文件特点的是

A．可以随意读取随机文件中任一记录的数据
B．随机文件没有只读或只写的操作方式，随机文件只要一打开，就既可读又可写
C．随机文件的操作是以记录为单位进行的
D．随机文件的读、写操作语句与顺序文件的读写操作语句一样

单项选择题有如下程序： Private Sub Commandl_Click( ) a$= A WORKER IS HERE x=Len(a$) For i=1，To x-1 b$=Mid$(a$，i，3) If b$= WOR Then S=S+1 Next Print S End Sub 单击命令按钮，程序运行结果为

A．1
B．2
C．3
D．5

有如下事件过程： 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 程序运行后，输出的结果是