填空题

执行下面的程序，消息框的输出结果是______。
Option Base 1
Private Sub Command1_Click()
Dim a(10),p(3) As Integer
k=0
For i=1 To 10
a(i)=i
Next i
For i=1 To 5
p(i)=a(i*2)
Next i
For i=1 To 5
k=k+p(i)*a(i)
Next i
MsgBox k
End Sub

【参考答案】

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

填空题
在表格式窗体、纵栏式窗体和数据表窗体中，显示记录按列分隔，每列的左边显示字段名，右边显示字段内容的窗体是______。
填空题
现有一个登录窗体如下图所示。打开窗体后输入用户名和密码，登录操作要求在20秒内完成，如果在20秒内没有完成登陆操作，则倒计时达到0秒时自动关闭本窗体，窗体的右上角是显示倒计时的标签labtime。事件代码如下，要求填空完成事件过程。 Dim flag As Boolean Dim i As Integer Private Sub Form_Load() flag=______ Me.TimerInterval=1000 i=0 End Sub Private Sub Form_Timer() If flag=True And i＜20 Then Me!labtime.Caption=20-i i=______ Else DoCmd.Close End If End Sub Private Sub OK_Click() ’登录程序略 ’如果用户名和密码输入正确，则：falg=False End Sub
相关试题