当运行下列程序 单击窗体后 分别输入72和24 信息框上显示的结果是【 】。 Private Sub
当运行下列程序，单击窗体后，分别输入72和24，信息框上显示的结果是【 】。 Private Sub Form_Click() Dim x As Integer，y As Integer x=Val(InputBox("输入整数72")) y=Val(InputBox("输入整数24")) z=fun1(x，y) MsgBox Str(Z) End Sub Private Function funl(ByVal a As Integer， ByVal b As Integer)As Integer Do r=a Mod b a = b b = r Loop Until r=0 funl=a End Function
请帮忙给出正确答案和分析，谢谢！
参考解答
435***263
2023-07-21 19:02:55
正确答案：24
由“欧几里德”求最大公约数的算法可知，当余数r为零时，a为a和b的最大公约数。72和24的最大公约数为6。“Mod”运算符用来对两个数做除法运算并且只返回余数。
相似问题
下面的程序用于根据文本框Test中输入的内容进行以下处理： 若Text为1 则打印“您的成绩为优秀！
下面的程序用于根据文本框Test中输入的内容进行以下处理： 若Text为1，则打印“您的成绩为优秀！”；若Text为2，则打印“您的成绩为良好!”；若Text为3
在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1)
在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1)， 然后编写如下事件过程： Private Sub Command1 Click() Text1．T
在窗体上画两个文本框 然后编写程序。程序运行后 如果在第一个文本框中输入A B C D或a b c
在窗体上画两个文本框，然后编写程序。程序运行后，如果在第一个文本框中输入A、B、 C、D或a、b、c、d，则在第二个文本框中显示EFDH。请完善下列程序。
要想在文本框中显示垂直滚动条 必须将ScrollBars属性设置为2 同时还应将【 】属性设置为Tr
要想在文本框中显示垂直滚动条，必须将ScrollBars属性设置为2，同时还应将【 】属性设置为True。请帮忙给出正确答案和分析，谢谢！
在Visual Basic中 当改变目录列表框的Path属性值时 改变了当前驱动器的【 】。请帮忙给
在Visual Basic中，当改变目录列表框的Path属性值时，改变了当前驱动器的【 】。请帮忙给出正确答案和分析，谢谢！
