单项选择题

下列程序的执行结果为( )。 　　 Private Sub Comrnandl_Click( ) 　　　　Dim p As Integer, q As Integer 　　　　p=12：q=20 　　　　Call Value(p, q) 　　　　Print p; q 　　 End Sub 　　 Private Sub Value(ByVal m As Integer, ByVal n As Integer) 　　　　m=m * 2: n=n - 5 　　　　Print m; n 　　 End Sub

A．*．vbp*．frm *．frx
B．*．vbp*．cls *．bas
C．*．bas*．ocx *．res
D．*．frm *．cls*．bas
<上一题 目录 下一题>
热门 试题

单项选择题
阅读程序：Option Base 1Dim arr() As IntegerPrivate Sub Form_Click()Dim i As Integer, j As IntegerReDim arr(3, 2) For i = 1 To 3For j = 1 To 2 arr(i, j) = i * 2 + jNext j Next i ReDim Preserve arr(3, 4) For j = 3 To 4arr(3, j) = j + 9Next j Print arr(3, 2) + arr(3, 4) End Sub程序运行后，单击窗体，输入结果为______。
A．21
B．13
C．8
D．25
单项选择题
单击命令按钮，下列程序的执行结果为( )。Private Sub Commandl_Click()Dim x As Integer，y As Integerx=32：y=42Call PCS(x，y)Print x；yEnd SubPublic Sub PCS(Byval n As Integer，ByVal m As Integer)n=n Mod 10+1m=m Mood 10+1End Sub
A． 32 42
B． 2 32
C． 2 3
D． 12 3
相关试题