填空题

执行下面的程序，消息框的输出结果是______。 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 BooleanDim i As IntegerPrivate Sub Form_Load()flag=______Me.TimerInterval=1000i=0End SubPrivate Sub Form_Timer()If flag=True And i＜20 ThenMe!labtime.Caption=20-ii=______ElseDoCmd.CloseEnd IfEnd SubPrivate Sub OK_Click()’登录程序略’如果用户名和密码输入正确，则：falg=FalseEnd Sub
相关试题