• 2021-04-14
    中国大学MOOC: 若有如下循环,程序执行后显示______次MsgBox。Dim s%Do While s<=3 s=s+1 MsgBox(s)Loop
  • 4

    内容

    • 0

      【填空题】设 n 和 s 均为整型变量,分别具有初值 1 和 10 。试指出下列循环语句的循环体各执行多少次,以及结束循环后 n 值各为多少? Do while n <= s n=n+3 Loop 循环体执行____(1)____次,结束循环后n值是______(2)______。 Do Until n*s>40 n=n*2 Loop 循环体执行____(3)____次,结束循环后n值是______(4)______。 while n<s n=n+3 Wend 循环体执行____(5)____次,结束循环后n值是______(6)______。 Do n=3*n Loop Until n>s 循环体执行____(7)____次,结束循环后n值是______(8)______。 Do n=s n=n+2 Loop While n<s 循环体执行____(9)____次,结束循环后n值是______(10)______

    • 1

      中国大学MOOC: 若有如下程序,在文本框中输入“VisualBasic”,程序运行后Label1显示的是__________。 Dim s$,ch$,k%s=For k=1 TO Len(Text1.Text) ch = Mid(Text1.Text,k,1) s = ch+sNext kLabel1.Caption = s

    • 2

      程序段如下,程序运行后消息框显示的结果是______。 Dim a, s As String, i As Integer a = &quot;晴空万里&quot; s = &quot;&quot; For i = 1 To 4 Step 2 s &amp;= Mid(a, 4 - i, 2) Next MsgBox(s)? 万里|晴空|万里晴空|晴空万里

    • 3

      有如下程序段:s = 0For i = 1 To 10 s = s + iNext iPrint s与上述程序段输出结果相同的程序段为( )。 A: s = 0: i = 0 While i <= 10 i = i + 1 s = s + i Wend Print s B: s = 0: i = 1 While i < 10 i = i + 1 s = s + i Wend Print s C: s = 0: i = 1 Do s = s + i i = i + 1 Loop While i < 10 Print s D: s = 0: i = 1 Do s = s + i i = i + 1 Loop Until i > 10 Print s

    • 4

      下列程序执行后s的值是____1____,i的值是____2____ s = 1: i = 1 Do While True s = s + i i = i + 2 If i = 7 Then Exit Do Loop