单项选择题

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

A．1232
B．232
C．23
D．123
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上添加—个文本框，名为Text1，然后编写如下的Load事件过程，则程序的运行结果是 Private Sub Form_Load( ) Text1.Text=”” Text1.Setfocus t=1 For k=10 To 6 Step-2 t=t*k Next k Text1.Text=t End Sub
A．在文本框中显示120
B．文本框仍为空
C．在文本框中显示480
D．出错
单项选择题
下列程序的执行结果为 Private Sub Command1_C1ick( ) Dim sl As String，s2 AS String s1= abcdef Call lnvert(s1，s2) Print s2 End Sub Private Sub lnvert(ByVal xstr As String，ystr As String) Dim tempstr As Stdng i=Len(xstr) Do While i＞=1 tempstr=tempstr+Mid(xstr，i，1) i=i-1 Loop ystr=tempstr End Sub
A．fedcba
B．abcdef
C．afbecd
D．defabc
相关试题