单项选择题

窗体上有1个名称为Command1的命令按钮，事件过程如下：
Private Sub Command1_Click()
Dim x%, y%, z%
x = InputBox( "请输入第1个整数" )
y = InputBox( "请输入第2个整数" )
Do Until x =y
If x＞y Then x=x-y Else y=y-x
Loop
Print x
End Sub
运行程序，单击命令按钮，并输入2个整数169和39，则在窗体上显示的内容为( )。

A) 11
B) 13
C) 23
D) 39

<上一题目录下一题>

热门试题

单项选择题

窗体上有1个名称为Text1的文本框，1个名称为Label1的标签。程序运行后，如果在文本框中输入信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程为( )。

A) Private Sub Label1_Click()

Label1. Caption = Text1. Text
End Sub
B) Private Sub Label1_Change()

Label1. Caption = Text1. Text
End Sub
C) Private Sub Text1_Click()

Label1. Caption = Text1. Text
End Sub
D) Private Sub Text1_Change()

Label1. Caption = Text1. Text
End Sub

单项选择题

窗体上有1个名称为Command1的命令按钮，事件过程及函数过程如下： Private Sub Command1_Click() Dim m As String m = InputSox( 请输入字符串 ) Print pick_str(m) End Sub Private Function pick_str(s As String)As String temp = i=1 sLen = Len (s) Do While i ＜ = sLen 2 temp=temp +Mid(s, i, 1)+Mid(s, sLen-i+1, 1) i=i+1 Loop pick_str = temp End Function 运行程序，单击命令按钮，并在输入对话框中输入“basic”，则在窗体上显示的内容为( )。

A) bcai
B) cbia
C) bcais D) cbias

相关试题