填空题

有如下程序： 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
<上一题 目录 下一题>
热门 试题

填空题
函数Mid(“计算机等级考试”，4，2)的执行结果是______。
填空题
在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式(作图)计算，在窗体上设计3个文本框，名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中，请在空白处填入适当语句使程序完整。Private Sub Command1_Click()Dim r As Integer，n As Integern=Text1r=Text2Text3=fun(n) (______) fun(r)End SubFunction fun(n As Integer)As longDim t As Long______For k=1 To nt=t*kNext kfun=tEnd Function
相关试题