执行程序代码，如果输入的K 值是6，则最后显示的结果是（）。M=0 I=1 INPUT "K=?" TO K DO WHILE M<=K M=M+I I=I+1 ENDDO ? M
A: 9
B: 10
C: 11
D: 0
A: 9
B: 10
C: 11
D: 0
举一反三
- 中国大学MOOC: 有如下程序段： Dim i%, j%, n%, m%, k% m = 0 : k = 0 For i = 1 To 5 k = k + 1 n = 0 For j = 1 To 2 n = n + 1 m = m + 1 Next j Next i MsgBox(k & & n & & m)运行该程序代码段后，消息对话框中显示的内容为（ ）。
- 有如下程序段： Dim i%, j%, n%, m%, k% m = 0 : k = 0 For i = 1 To 5 k = k + 1 n = 0 For j = 1 To 2 n = n + 1 m = m + 1 Next j Next i MsgBox(k & " " & n & " " & m)运行该程序代码段后，消息对话框中显示的内容为（ ）。 A: 5 10 2 B: 5 10 10 C: 5 2 10 D: 5 2 2
- 有n个正整数组成的数组a，两端的数不能删除，中间每删除一个数，其得分为其本身同其两侧数的乘积，求其中间n-2个数逐个删除后的最大得分？设m[i][j] 为从a[i]到a[j]将中间数删除后的最大得分，从如下公式中选择m[i][j]的递归定义[/i][/i][/i] A: m[i][j]=max(m[i][k]+m[k+1][j]) , i<k<j , if(j-i>1).m[i][j]=0; if(j-i==1). B: m[i][j]=max(m[i][k]+m[k][j]) , i<k<j , if(j-i>1).m[i][j]=0; if(j-i==1) C: m[i][j]=max(m[i][k]+m[k][j]+a[k-1]*a[k]*a[k+1]) , i<k<j , if(j-i>1).m[i][j]=0; if(j-i==1) D: m[i][j]=max(m[i][k]+m[k][j]+a[k-1]*a[k]*a[k+1]) , i<=k<=j , if(j-i>1).m[i][j]=0; if(j-i==1)
- 有n个正整数组成的数组a，两端的数不能删除，中间每删除一个数，其得分为其本身同其两侧数的乘积，求其中间n-2个数逐个删除后的最大得分？设m[i][j] 为从a[i]到a[j]将中间数删除后的最大得分，从如下公式中选择m[i][j]的递归定义[/i][/i][/i] A: m[i][j]=max(m[i][k]+m[k+1][j]) , i<k<j , if(j-i>1).m[i][j]=0; if(j-i==1). B: m[i][j]=max(m[i][k]+m[k][j]) , i<k<j , if(j-i>1).m[i][j]=0; if(j-i==1) C: m[i][j]=max(m[i][k]+m[k][j]+a[k-1]*a[k]*a[k+1]) , i<k<j , if(j-i>1).m[i][j]=0; if(j-i==1) D: m[i][j]=max(m[i][k]+m[k][j]+a[k-1]*a[k]*a[k+1]) , i<=k<=j , if(j-i>1).m[i][j]=0; if(j-i==1)
- 3.输入一个正整数m（>2），判断m是否为素数，并输出结果。请将程序补充完整。 Private Sub Form_Click() Dim m%, i%, k% m = InputBox("请输入m的值(>2)") k = 1 For i = 【1】To【2】 If 【3】 Then k = 0 Next i If 【4】 Then Print m & "是素数" Else Print m & "不是素数" End If End Sub