填空题

运行下面程序代码后，变量J的值为______。
Private Sub Fun()
Dim J as Integer
J=10
DO
J=J+3
Loop While J＜19
End Sub

【参考答案】

S
<上一题 目录 下一题>
热门 试题

填空题
以下程序的功能是：求被5和7除余数均为1的数。请在空白处填入适当的语句，使程序可以完成指定的功能。 Private Sub Form_Click() Dim Ncount%，n% Ncount=0 n=1 Do n=n+1 If ______ Then Debug.Print n Ncount=Ncount+1 End If Loop Until Ncount=5 End Sub
填空题
下列程序的功能是求算式：1+1 2!+1 3!+i 4!+……前10项的和(其中n!的含义是n的阶乘)。请在空白处填入适当的语句，使程序完成指定的功能。 Private Sub Command1_Click() Dim i as Integer，s as single，a as single a=1：s=0 For i=1 To 10 a=______ s=s+a Next i Debug.Print 1+1 2!+1 3!+…= ；s End Sub
相关试题