单项选择题

有如下事件过程： 　　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 * ##
<上一题 目录 下一题>
热门 试题

单项选择题
下列程序的执行结果为( )。Ptivate Sub Commandl_Click()Dim FirStr As StringFirStr= abcdef Print Pct (FirStr)End SubPrivate Function Pct(xStr As String)As StringDim tempStr As String,strLen As IntegertempStr= strLen=Len(xStr)i=1Do While i＜=Len(xStr)-3tempStr=tempStr + Mid(xStr，i，l) + Mid(xStr，strLen - i+i ，1)i=i + 1LoopPct=tempStrEnd FunCtion
A．abcdef
B．afbecd
C．fedcba
D．defabc
单项选择题
下列程序的执行结果为（ ）。Private Sub Command1_Click()Dim FirStr As StringFirSt= abcdef Print Pat(FirStr)End SubPrivate Function Pat(xStr As String)As StringDim tempStr As String，strLen As IntegertempStr= strLen=Len(xStr)i=1Do While i<=Len(xStr)-3tempStr=tempStr+Mid(xStr，i，1)+Mid(xStr，strLen -i+1，1)i=i+1LoopPat=tempStrEnd Function
A．abcdef
B．afbecd
C．fedcba
D．defabc
相关试题