阅读下面的程序： Private Sub Form_Click() Dim m，n As Integer m=InputBox("请输入M的值") m=Val(m) m1=m n=InputBox("请输入N的值") n=Val(n) n1=n Do While n＜＞0 remin=m Mod n m=n n=remin Loop Print m1，n1，m End Sub 程序运行后，单击窗体，在对话框中分别输入16和24，则程序在窗体上的输出结果为A．16 24 4B．16 24 8C．24 16

题目

阅读下面的程序： Private Sub Form_Click() Dim m，n As Integer m=InputBox("请输入M的值") m=Val(m) m1=m n=InputBox("请输入N的值") n=Val(n) n1=n Do While n＜＞0 remin=m Mod n m=n n=remin Loop Print m1，n1，m End Sub 程序运行后，单击窗体，在对话框中分别输入16和24，则程序在窗体上的输出结果为

A．16 24 4

B．16 24 8

C．24 16 6

D．24 16 8

相似考题

1.1+ + + +…….n 最大的n。请填空Private Sub Command1__Click（）Dim s ,m,n AS Integerm=Val（InputBox（“请输入一个大于100的整数”））n=_______s=0Do While s N=n+1S=s+n*nLoopPrint “满足不等式的最大n是_______End Sub

2.（21）窗体上有 Command1、Command2 两个命令按钮。现编写以下程序：Option Base 0Dim a( ) As Integer, m As IntegerPrivate Sub Command1_Click( )m=InputBox("请输入一个正整数")ReDim a(m)End SubPrivate Sub Command2_Click( )m=InputBox("请输入一个正整数")ReDim a(m)End Sub运行程序时，单击 Command1 后输入整数 10，再单击 Command2 后输入整数 5，则数组a 中元素的个数是（ ）。A）5B）6C）10D）11

3.下列程序在输入m后,求满足条件“n! using下列程序在输入m后，求满足条件“n!＜=m＜=(n+1)!”的值n，请将程序补充完整。include ＜iostream＞using namespace std;int main(){int n,m, jc = 1;cin＞＞m;for(n=2;jc＜=m;n++)jc = jc*n;cout＜＜"n="＜＜【 】＜＜end1;return 0;}

4.（ 6 ） 下面程序的功能是从键盘输入 1 大于 100 的整数 m ，计算并输出满足不等式1+22+32 +42 + …… .+n2<m的最大的 n 。请填空Private Sub Command1__Click （）Dim s ,m,n AS Integerm=Val （ InputBox （ “ 请输入一个大于 100 的整数 ” ））n=_________s=0Do While s<mn=n+1s=s+n*nLoopPrint “ 满足不等式的最大 n 是_____End Sub

更多“阅读下面的程序:Private Sub Form_Click() Dim m,n As Integer m=InputBox("请输入M的值") m=Val ”相关问题

  • 第1题：

    下面程序的功能是从键盘输入—个大于100的整数m，计算并输出满足不等式

    1+22+32+42+…+n2＜m

    的最大的n。请填空。

    Private Sub Command1_Click()

    Dim s,m,n As Integer

    m=Val(InputBox("请输入一个大于100的整数"))

    n=【 】

    s=0

    Do While s＜m

    n=n+1

    s=s+n*n

    Loop

    Print "满足不等式的最大n是";【 】

    End Sub


    正确答案：0 n-1
    0 , n-1 解析：Do While…Loop是先判断条件表达式的值是否为True，如果为True，则执行循环体，如果为False，则执行Loop后面的语句。由循环体可知该题的第1空应该填0。当循环条件不满足时跳出循环，此时的n是满足不等式1+22+32+42+…+n2＞=m的最小的n，所以该题的第2空应该填n-1。

  • 第2题：

    阅读下面的程序，当输入分别为111和222时，程序输出为 ______。 n1=InputBox(”请输入第一个数：”) n2=Val(1nputBox("请输入第二个数：")) Print n1+n2

    A．111222

    B．222

    C．333

    D．程序出错


    正确答案：C
    解析：由于InputBox函数的默认返回值是字符串，因此n1的值为111，n2经过函数Val转换后成为数值型，其值为222。按照Visual Basic自动结合的原则，n1会先自动转换为数值型再和n2进行运算，最终输出结果为333。
      为了提高程序的可读性，最好对每一个变量都进行定义。故在程序的最前面加上：
      Dim n1 As Integer
      Dim n2 As Integer

  • 第3题：

    请仔细阅读程序，将程序的执行结果详细的写出来。注意字符和标点符号的书写 int main（) { int p,r,n=4,m=7,temp; if（n＜m) {temp=n;n=m;m=temp;} p=n*m; while（m!=0) { r=n%m; n=m; m=r; } printf（"%d,%d",n,p/n); return 0; }


    A 本题考查考生阅读Java程序的能力。题目程序看似复杂，但流程非常简单。程序的public类是throwsException，类中定义了Proc(intsel)方法。程序入口是main（）方法，使用try-catch-finally来捕获Arithmet-icException和ArrayIndexoutOfBoundsException异常，这两个异常是关于算术异常或数组索引越界的异常。执行Proc(O)时，输出InSituation0和noExceptioncaught两条信息；执行Proe(1)时，输出InSituationl和inProefinally两条信息。整个程序并未发生异常。

  • 第4题：

    有以下程序:include main( ) { int m,n,p;seanf( "m = % dn = % dp = % d", &m, &

    有以下程序: #include ＜stdio.h＞ main( ) { int m,n,p; seanf( "m = % dn = % dp = % d", &m, &n,&p) printf( "% d% d% d \n", m, n, p); } 若想从键盘上输入数据，使变量m中的值为123,n中的值为456, p中的值为789,则下列选项中正确的输入是( )。

    A．m = 123n =456p =789

    B．m = 123 n =456 p =789

    C．m= 123,n =456,p =789

    D．123 456 789


    正确答案：A
    解析：程序中的输入函数scanf("m=%dn=%dP=%d"，&m，&n，&p)；要求在输入数据时，要输入"m="、"n="、"p="字符中，且中间不能含有空格，所以选项A)正确。

  • 第5题：

    下列程序的输入值分别为100,10则执行结果为非作歹______ 。 m=Val (inputbox (“请输入数学1”) ) n=Val (inputbox (“请输入数学2”) ) If n*m=0 Then MsgBox “两数能不能为0” Exit Sub If m＜n Then t=m: m=n: n=t End If End If DO R=m Mod n m=n n=f Loop While r＜＞0 Print m

    A． 10

    B．100

    C．50

    D．250


    正确答案：A

相关内容