填空题

有如下程序：
Option Base 1
Private Sub Form_Click()
Dim arr，sum
Sum=0
arr=Array(1，3，5，7，9，11，13，15，17，19)
For i=1 To 10
If arr(i)/3=arr(i)\3 Then
Sum=Sum+arr(i)
End If
Next i
MsgBox Sum
End Sub
程序运行后，单击窗体，消息框的输出结果为______。

【参考答案】

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

填空题
一般用于存放供其他Access数据库对象使用的公共过程称为______。
填空题
在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式(作图)计算，在窗体上设计3个文本框，名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中，请在空白处填入适当语句使程序完整。 Private Sub Command1_Click() Dim r As Integer，n As Integer n=Text1 r=Text2 Text3=fun(n) (______) fun(r) End Sub Function fun(n As Integer)As longDim t As Long______ For k=1 To n t=t*k Next k fun=t End Function
相关试题