单项选择题

窗体上有一个名称为Command1的命令按钮，并有如下程序： 　　Private Sub Command1Click() 　　Dim m As Integer，n As Integer 　　m=InputBox("输入第一个数") 　　nzInputBox("输入第二个数") 　　Do While m<>n 　　 Do While m>n 　　 m= m-n 　　 Loop 　　 Do While n>m 　　 n=n-m 　　 Loop 　　Loop 　　Print m 　　End Sub 　　该程序的功能是( )。

A．求数值m和n的最大公约数
B．求数值m和n的最小公倍数
C．求数值m和n中的较大数
D．求数值m和n中的较小数
<上一题 目录 下一题>
热门 试题

问答题
在窗体上绘制出3个文本框，名称分别为Text1、Text2和Text3。要求程序运行时，焦点位于Text1，当按Tab键时，焦点从Text1越过Text2直接跳到Text3上。本题不得使用任何变量。程序运行时的窗体界面如图2—2所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sj2．vbp。
问答题
在考生文件夹下有一个工程文件sj5．vbp，相应的窗体文件为sj5．frm，此外在考生文件夹下还有一个名为in5．txt的文本文件，其内容如下： 10，11，12，13，14．15，16，17，18，19，20，21，22，23，24，25，26，27，28，29，30，31，32，33。34 程序运行后，双击窗体，将把文件in5．txt中的数据输入到二维数组Arr中，在窗体上按5行×5列的矩阵形式显示出来，并在其下显示该矩阵左上一右下对角线的右上部分。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并使之能正确运行。程序运行效果如图2—5所示。要求：去掉程序中的注释符“’”，把程序中的“”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
相关试题