2. 计算机
  3. 窗体上有1个名称为Command1的命令按钮，事件过程如下： Private Sub Command1_Click() 　　Dim x%， y%， z% 　　x＝InputBox("请输入第1个整数") 　　y＝InputBox("请输入第2个整数") 　

窗体上有1个名称为Command1的命令按钮，事件过程如下： Private Sub Command1_Click() 　　Dim x%， y%， z% 　　x＝InputBox("请输入第1个整数") 　　y＝InputBox("请输入第2个整数") 　

admin2019-03-14  25
问题 窗体上有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
答案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。
转载请注明原文地址:https://jikaoti.com/ti/3Ym0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)