单项选择题

有如下程序：
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
　　a=5:b=4
　　Call Sub1(a,b)
End Sub
Sub Sub1(x As Single，y As Single)
　　t=X
　　X=t\Y
　　Y=t Mod y
End Sub
在调用运行上述程序后，a和b的值分别为

A．0 0
B．1 1
C．2 2
D．1 2
<上一题 目录 下一题>
热门 试题

单项选择题
有如下程序： Private Sub Command1_Click() Dim k As Integer，m As Integer Dim op As Integer k=4:m=1 op=PPC(k,m):Print op； op=PPC(k.m):Print op End Sub Private Function PPC(a As Integer，b As Integer) Static m As Integer，i As Integer m=0:i=2 i=i+m+1 m=i+a+b PPC=m End Function 程序运行后，输出的结果为
A．4 6
B．6 6
C．8 8
D．10 12
单项选择题
在窗体上画一个文本框，其名称为Text1，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String Str=Chr(KeyAscii) KeyAscii=Asc(UCase(str)) Text1.Text=String(2,KeyAscii) End Sub 程序运行后，如果在键盘上输入字母 b ，则在文本框Text1中显示的内容是
A．bbb
B．BBB
C．BB
D．bb
相关试题