单项选择题

下列程序的运行结果是( )。

Private Function myfun(m,n)

Do While m>n

Do While m>n:m=m-n:Loop

Do While n>m:n=n-m:Loop

Loop

my fun=m

End Function

Private Sub Command1_Click()

Print myfun(9,8)

End Sub

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

单项选择题
在窗体上放置一个命令按钮Command1，并编写下列单击事件的程序： Option Base 1 Pdvate Sub Command1_Click() Dim c As Integer,d As Integer d=0 c=6 X=Array(2,4,6,8,10,12) For i=1 To 6 If X(i)>c Then d=d+X(i) c=X(i) Else d=d-c End If Next i Print d End Sub 程序运行后，单击命令按钮，则在窗体上输山的结果是( )。
A．10
B．12
C．16
D．20
单项选择题
在窗体上有一个文本框Text1，Text属性值为空，然后编写下列事件过程： Private Sub Text1 KeyPress(KeyAscii As Integer) Dim str As String,n As Integer str=UCase(Chr(KeyAscii)) n=Len(str) Text1.Text=String(n,str) End Sub 程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为( )。
A．pp
B．pP
C．PP
D．Pp
相关试题