填空题

设有如下程序：
Private Sub Form_Click()
Dim a As Integer,S As Integer
n=8:S=0
Do
S=S+n:n=n-1
Loop While n＞0
Print S
End Sub
以上程序的功能是计算1-8的和。程序运行后，单击窗体，输出结果为 (10) 。

【参考答案】

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

填空题
一元二次方程aX2+bX+c=0有实根的条件是a≠0，并且b2-4ac≥0，表示该条件的布尔表达式是 (9) 。
填空题
有如下程序： Private Sub command1_Click() a=1:b=1 Print“a=”：a;“，b=”；b Call mult(a)，b) Prinf“a=”；a：“，b=”；b 语句 End Sub Sub mult(x,y) k=1 x=2*k y=3*k Pnint“X=“；X；“，y=”；y End Sub 运行后，标有“语句”的Print语句的输出结果是 (8) 。
相关试题