窗体上有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 xEnd Sub运行程序，单击命令按钮，并输入2个整数169和39，则在窗体上显示的内容为( )。
- A.11
- B.13
- C.23
- D.39
热度🔥1,031
参考答案：B
解析：
【解析】程序中Do循环比较输入的两个数的大小，把较大的数值减去较小的数值后再与较小的值比较，直到两个数值相等。程序中输入169和39，则x＝169－39＝130,130>y即130>39，因此x＝130－39＝91，如此循环x＝91－39＝52－39＝13，此时13>39为假，执行y＝y－x＝39－13＝26，循环y＝26－13＝13，此时x、y都为13，循环结束，因此窗体上显示为13。
【解析】程序中Do循环比较输入的两个数的大小，把较大的数值减去较小的数值后再与较小的值比较，直到两个数值相等。程序中输入169和39，则x＝169－39＝130,130>y即130>39，因此x＝130－39＝91，如此循环x＝91－39＝52－39＝13，此时13>39为假，执行y＝y－x＝39－13＝26，循环y＝26－13＝13，此时x、y都为13，循环结束，因此窗体上显示为13。
复制题目向AI提问
扫码免费计算机二级刷题
2025年计算机等级考试题库
推荐
设有如下通用过程：Public Function Fun(xStr As String)As String Dim tStr As String， strL As Integer tStr＝"" strL＝Len(xStr) i＝1 Do While i<＝strL / 2 tStr＝tStr & Mid(xStr， i， 1)& Mid(xStr， strL－i＋1， 1) i＝i＋1 Loop Fun＝tStr End Function 在窗体上画一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim S1 As String S1＝"abcdef" Print UCase(Fun(S1)) End Sub 程序运行后，单击命令按钮，输出结果是( )。
下面关于USB接口的叙述中，错误的是（ ）。
使用扩充的结构化分析方法建立的分析模型的核心是
