窗体上有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,053
参考答案：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年计算机等级考试题库
推荐
若有如下Sub过程：
Sub sfun(x As Single,y As Single )
t＝x
x＝t/y
y＝t Mod y
End Sub
在窗体中添加一个命令按钮Command33，对应的事件过程如下：
Private Sub Command33_Click()
Dim a As Single
Dim b As Single
a＝5 ：b＝4
sfun a， b
MsgBox a & chr(10)＋ chr(13)& b
End Sub
打开窗体运行后，单击命令按钮，消息框中有两行输出，内容分别为( )。
在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是( )。
发送电子邮件时，邮件服务系统自动添加的邮件信息是（ ）。
设有表示学生选课的三张表，学生S（学号，姓名，性别，年龄，身份证号），课程C（课号，课名），选课SC（学号，课号，成绩），则表SC的关键字（键或码）为（ ）。
