更多"有如下程序: Private Sub Form_Click( ) "的相关试题:
[单项选择]有如下程序:
Private Sub Form_Click( )
Dim i As Integer,Sum As Integer
Sum=0
For i=2 To 10
If i Mod 2=0 And i Mod 3<>0 Then
Sum=Sum+i
End If
Next
Print Sum
End Sub
程序运行后,单击窗体,输出结果为
A. 12
B. 30
C. 24
D. 18
[填空题]设有如下程序:
Private Sub Form_Click( )
Dim n As Integer, s As Integer n = 8
s = 0
Do
s = s + n n = n - 1
Loop While n > 0
Print s
End Sub
以上程序的功能是 _________。程序运行后,单击窗体,输出结果为 _________。
[填空题]设有如下程序:
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的和。程序运行后,单击窗体,输出结果为______。
[单项选择]程序如下:
Private Sub form_ Activate( )
Dim a As Integer
for i=4 To 5
a=fun(i)
Print a,
Next i
End Sub
Private Function fun(n)As Integer
if n >0 then
fun =n* fun(n-1)
Else
fun=1
End if
End Function
程序最后打印结果是______。
A. 4 5
B. 12 120
C. 24 120
D. 24 60
[单项选择]下面程序:
Private Sub Form_Click( )
Dim x,y,z As Integer
x=5
y=7
2=0
Call P1(x,y,z)
Print Str(z)
End Sub
Sub P1(By Va1 a As Integer,By Va1 b As Integer,c As Integer)
c=a+b
EndSub
运行后的输出结果为_________。
A. 0
B. 12
C. Str(z)
D. 显示错误信息
[填空题]设有如下程序:
Private Sub Form_Cliok( )
Dima As Integer,S As Integer
n=8
s=0
Do
s=s+n
n=n-1
Loop While n>0
Print s
End Sub
以上程序的功能是 [7] ;程序运行后,单击窗体,输出结果为 [8] 。