填空题
在窗体上有一个命令按钮Command1，编写事件代码如下： Private Sub Command1_Click() Dim a(10)，P(3) As Integer k=5 For i=1 To 10 a(i)=i * i Next i For i=1 To 3 P(i)=a(i * i) Next i For i=1 To 3 k=k+p(i) *2 Next i MsgBox k End Sub 打开窗体运行后，单击命令按钮，消息框中输出的结果是______。
【参考答案】
201
点击查看答案&解析
相关考题
-
填空题
数据库中有工资表，包括“姓名”、“工资”和“职称”等字段，现要对不同职称的职工增加工资，规定教授职称增加15%，副教授职称增加10%，其他人员增加5%。下列程序的功能是按照上述规定调整每位职工的工资，并显示所涨工资的总和。请在空白处填入适当的语句，使程序可以完成指定的功能。Private Sub Command3_Click()Dim ws As DAO.WorkspaeeDim db As DAO.DatabaseDim rs As DAO.ReeordsetDim gz As DAO.FieldDim zc As DAO.FieldDim sum As CurrencyDim rate As SingleSet db=CurrentDb()Set rs=db.OpenRecordset("工资表")Set gz=rs.Fields("工资")Set ZC=rs.Fields("职称")Sum=0Do While Not (14) rs.EditSelect Case zeCase Is="教授"rate=0.15Case Is="副教授"rate=0.1Case Elserate=0.05End Selectsum=sum+gz * rategz=gz+gz * rate(15) rs.MoveNextLooprs.Closedb.CloseSet rs=NothingSet db=NothingMsgBox"涨工资总计：" & sumEnd Sub -
填空题
以下程序的功能是在立即窗口中输出100～200之间所有的素数，并统计输出素数的个数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。Private Sub Command2_Click()Dim i%，j%，k%，t% ’t为统计素数的个数Dim b AS BooleanFor i=100 T0 200b=Truek=2J=Int(Sqr(i))Do While k＜=j And bIf i Mod k=0 Thenb= (12) End Ifk= (13) LoopIf b=True Thent=t+1Debug.Print iEnd IfNext iDebug.Print"t="；tEnd Sub -
填空题
下列程序的功能是找出被5和7除余数为1的最小的5个正整数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。Private Sub Form_Click()Dim Ncount%，n%Ncount=0n=0Don=n+1If______ThenDebug.Print nNcount=Ncount+1End IfLoop Until Ncont=5End Sub
