某人设计了如下程序用来计算并输出7!(7的阶乘)Private Sub Command1 Click（ ） t=0 For k=7 To 2 Step-1 t=t*k Next Print t End Sub 执行程序时，发现结果是错误的，下面的修改方案中能够得到正确结果的是（ ）。A.把t=0改为t=1B.把For k=7 To 2 Step-1改为For k=7 T0 1 Step-1C.把For k=7 To 2 Step-1改为For k=1 T0 7D.把Next改为Next k

题目

某人设计了如下程序用来计算并输出7!(7的阶乘)

Private Sub Command1 Click（ ） t=0 For k=7 To 2 Step-1 t=t*k Next Print t End Sub 执行程序时，发现结果是错误的，下面的修改方案中能够得到正确结果的是（ ）。

A.把t=0改为t=1

B.把For k=7 To 2 Step-1改为For k=7 T0 1 Step-1

C.把For k=7 To 2 Step-1改为For k=1 T0 7

D.把Next改为Next k

相似考题

1.（7）在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程：Private Sub Command1_Click( )a$="National Computer Rank Examination"n=Len(a$)s=0For i=1 To nb$=Mid(a$, i, 1)If b$="n" Thens=s+1End IfNext iPrint sEnd Sub程序运行后，单击命令按钮，输出结果是 【7】 。

2.有以下程序： main() {int a[4][4]={{1,4,3,2,},{8,6,5,7,},{3,7,2,5,},{4,8,6,1,)},i,j,k,t； for(i=0;i＜4;i++) for(j=0;j＜3;j++) for(k=j+1;k＜4;k++) if(a[j][i]＞a[k][i]){t=a[j][i];a[j][i]=a[k][i];a[k][i]=t;}/*按列排序*/ for(i=0;i<4;i++)printf("%d,",a[i][i])； } 程序运行后的输出结果是( )。A．1,6,5,7,B．8,7,3,1,C．4,7,5,2,D．1,6,2,1,

3.当Form1_Click事件发生时，程序的输出结果是( )。 Private Sub Form_Click() Dim M As Integer，k As Integer，t As Integer M=5：k=7 Select Case M Case Is＜0 M=M+5 Case 1 To 10 t=M：M=k：k=t Case Else M=k Mod 3 End Select Print M，k，t End SubA．5 5 7B．5 7 5C．7 5 5D．7 5 7

4.某人设计了如下程序用于计算并输出7!(7的阶乘)： Private Sub Command1_Click t = 0 For k = 7 To 2 Step -1 t = t * k Next Print t End Sub 执行程序时，发现结果是错误的。下面的修改方案中能够得到正确结果的是。 A．把t=0改为t=1 B．把For k=7 TO 2 Step -1改为For k=7 TO 1 Step -1 C．把For k=7 TO 2 Step -1改为For k=1 TO 7 D．把Next改为Next k

更多“某人设计了如下程序用来计算并输出7!(7的阶乘) Private Sub Command1 Click( ) t=0 For k=7 ”相关问题

  • 第1题：

    某人设计了下列程序用于计算并输出5!(5的阶乘):

    Private Sub Command1_Click()

    t=0

    For k=5 To 2 Step -1

    t=t*k

    Next k

    Print t

    End Sub

    执行程序时,发现结果是错误的。下列修改方案中能够得到正确结果的是_______

    A. 把t=0改为t=1

    B. 把For k=5 To 2 Step -1改为For k=5 To 1 Step -1

    C. 把For k=5 To 2 Step -1改为For k=1 To 5

    D. 把Next改为Next t


    正确答案：A

  • 第2题：

    在窗体上添加一个命令按钮Command1，并有如下代码，程序执行后，单击命令按钮，显示结果为（）。 Private Sub Command1_Click（) k = 0 For j = 1 To 2 For i = 1 To 3 k = i + 1 Next i For i = 1 To 7 k = k + 1 Next i Next j Print k End Sub

    A．10

    B．6

    C．11

    D．16


    C

  • 第3题：

    下面程序的功能是计算并输出100以内能被4和7同时整除的所有整数，请填空。 Private Sub Form_Click（) Dim i% For i = 28 To 100 If i Mod 4=0_____i Mod 7=0 Then Print i Next i 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。

  • 第4题：

    22、在窗体上添加一个命令按钮Command1，并有如下代码，程序执行后，单击命令按钮，显示结果为（）。 Private Sub Command1_Click（) k = 0 For j = 1 To 2 For i = 1 To 3 k = i + 1 Next i For i = 1 To 7 k = k + 1 Next i Next j Print k End Sub

    A．10

    B．6

    C．11

    D．16


    Len(Str$(A)+Space(10))

  • 第5题：

    某人设计了下列程序用于计算并输出7!（7的阶乘），执行程序时，发现结果是错误的。下列修改方案中能够得到正确结果的是______。 Dim t%, k% t = 0 For k = 7 To 2 Step -1 t = t * k Next Msgbox（t)

    A．把 t=0 改为 t=1

    B．把 For k=7 To 2 Step -1 改为 For k=7 To 1 Step -1

    C．把 For k=7 To 2 Step -1 改为 For k=1 To 7

    D．把 Next 改为 Next k


    A

相关内容