单项选择题

单击命令按钮时，下列程序的运行结果为( )。
Private Sub Command1_Click()
Print Fun(23, 18)
End Sub
Public Function Fun(m As Integer,n As Integer) As Integer
Do While m ＜＞n
Do While m＞n:m=m-n:Loop
Do While m ＜ n:n=n-m:Loop
Loop
Fun=m
End Function

A) 0
B) 1
C) 3
D) 5

<上一题目录下一题>

热门试题

单项选择题

窗体上有Text1、Text2两个文本框及一个命令按钮Command1，编写下列程序： Dim y As Integer Private Sub Command1_Click() Dim X As Integer x=2 Text1.Text:Fun2Fun1(x),y Text2.Text=Fun1(x) End Sub Private Function Fun1(x As Integer) As Integer x=x+y:y=x+y Fun1=x+y End Function Private Function Fun2(x As Integer,y As Integer) As Integer Fun2=2*x+y End Function 当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别是( )。

A) 2 4
2 4
B) 2 4
4 8
C) 10 10
58 58
D) 4 4
8 8

单项选择题

在窗体上画一个命令按钮Command1和两个文本框，名称分别为Text1和Text2。编写如下两个事件过程： Dim Str1 As String, str2 As String Private Sub form_load() Text1.Text=“” Text2.Text=“” Text1.Enabled=False Text2.Enabled=False End Sub Private Sub Form_KeyPress(KeyAsai As Integer) str1=str1&Chr(KeyAscii) End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) str2=str2＆Chr(KeyCodel End Sub Private Sub Command1_Clickt) Text1.Text=str1 Text2.Text=str2 str1=“” str2:“” End Sub 当在设计阶段的窗体的KeyPreview属性设置为True时，程序运行过程中，在键盘上输入小写字母abc,然后单击命令按钮，则文本框Text1中显示的内容为( )。

A) abc
B)不显示任何信息
C) ABC
D)出错

相关试题