单项选择题

单击命令按钮时，下列程序的执行结果为
　　　 Private　Sub　Command1_Click(　)
Dim x As Integer，y As Integer
x=12：y=32
Call Proc(x，y)
Print x；y
End Sub
Public Sub Proc(n As Integer，ByVal m As Integer)
n=n Mod 10
m=m Mod 10
End Sub

A．12 32
B．2 32
C．2 3
D．12 3

<上一题目录下一题>

热门试题

单项选择题

在窗体中添加一个命令按钮，名称为Command1；添加一个文本框，名称为Textl，然后编写如下程序： Private Sub Command1_Click( ) Dima(5)，b(5) Forj：1 T04 s(j)=3*j b(j)=a(j)*3 Next j Textl.Text=b(j 2) End Sub 程序运行后，单击命令按钮，在文本框中显示

A．25
B．18
C．36
D．35

单项选择题

下列程序的执行结果为 Private Sub Command1_Click( ) Dim FirStr As String FirSt=”abcdef， Print Pat(FirStr) End Sub Private Function Pat(xStr As String)As String Dim TempStr As String，strLen As Integer tempStr=”” strLen=Len(xStr) i=1 Do While i＜=Len(xStr)-3 tempStr=tempStr+Mid(xStr，i，1)+Mid(xStr，strLen-i+1，1) i=i+1 Loop Pat=tempStr End Function

A．abcdef
B．aPDecd
C．fedcba
D．defabc

相关试题