填空题

下面程序的运行结果是 (14) 。程序的功能是 (15) 。
Public 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
Myfun=m
End　Function
Private Sub Command1_Click()
Print myfun(15,15)
End Sub

【参考答案】

E
<上一题 目录 下一题>
热门 试题

填空题
Not EOF(1)或EOF(1)=False或EOF(1)＜＞True
填空题
在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程： Private Sub Command1_Click() S$=InputBox( 请输入一个字符串 ) Text1.Text=S$ End Sub Private Sub Text1_Change() Label1.Caption=UCase(Mid(Text1.Text,7)) End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串 Visual Basic ，则在标签中显示的内容是______。
相关试题