题目内容（请给出正确答案）

[主观题]

下列程序的功能是计算PrivateSub Command34_clickt=0m=1sum=0Dot=t+msum==stum+tm=__________Loo

下列程序的功能是计算

PrivateSub Command34_click

t=0

m=1

sum=0

t=t+m

sum==stum+tm=__________

LoopWhile m＜=39

MsgBox’Sum=”&sum

End Sub

为保证程序正确完成上述功能，空白处应填入的语句是（）。

A.m+1

B.m+2

C.t+1

D.t+2

查看答案

如果结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装优题宝APP，拍照搜题省时又省心！

更多“下列程序的功能是计算PrivateSub Command34…”相关的问题

第1题

下列程序的功能是求算式：1-1／24-1／3-1／4+…前80项之和。 PrivateSub Commandl Click（） Dim i as

integer，S assingle．f as integer s=0：f=1 For i=1To 30 s=s+f／i f=__________ Next i Debug．Print”1-1／2+1／3—1／4+…=”：s End Sub 横线处应填写的内容是（）。

A.1*f

B.-l*f

C.1*i

D.-1*i

点击查看答案

第2题

在窗体中有一个名称为run35的命令按钮，单击该按钮从键盘接收学生成绩，如果输入的成绩不在O～100分

之间，则要求重新输入；如果输入的成绩正确，则进入后续程序处理。run35命令按钮的Click的事件代码如下： PrivateSub run35_ClickDim flag As Boolcanresult=O flag=True Do Whileflag result=Val(InputBox(”请输入学生成绩：”，”输入”)) Ifresult＞=0 And result＜=100 Then __________ Else MsgBox”成绩输入错误，请重新输入” End If Loop Rem成绩输入正确后的程序代码略 End Sub 程序中的空白处需要填入一条语句使程序完成其功能。下列选项中错误的语句是（）。

A.flag=False

B.flag=Not flag

C.flag=True

D.Exit Do

点击查看答案

第3题

有如下事件程序，运行该程序后输出结果是（）。 PrivateSub Command33_click Dim x AsInteger，Y A

sInteger x=1：y=0 Do Untily＜=25y=y+x*xx=x+1 Loop MsgBox”x=＆x＆”，y="&Y End Sub

A.x=1，y=0

B.x=4，y=25

C.x=5，y=30

D.输出其他结果

点击查看答案

第4题

已经设计出一个表格式窗体，可以输出教师表的相关字段信息，请按照以下功能要求补充设计：改变当前

记录，消息框弹出提示“是否删除该记录？”，单击“是”，则直接删除该当前记录；单击“否”，则什么都不做。其效果图如下：单击“退出”按钮，关闭窗体。 PrivateSub btnCaneel_Click __________ End Sub 表格式窗体当前记录变化时触发 PrivateSub Form. Current IfMsgBox(”是否删除该记录？”，vbQuestion+vbYesN0，”确认”)=vbYes Then End If End Sub 已经设计出一个表格式窗体，可以输出教师表的相关字段信息，请按照以下功能要求补充设计：改变当前记录，消

横线处应填写的内容是（）。

A.InputBox．close me．Delete

B.doemd．closeVal．delete

C.doemd．close rs．delete

D.doemd．closeme．TS．delete

点击查看答案

第5题

下列程序的功能是计算l0的阶乘，程序空白处应该填写的语句是 A.k＜10B.k＞10C.k＜=10D.k>

下列程序的功能是计算l0的阶乘，程序空白处应该填写的语句是

下列程序的功能是计算l0的阶乘，程序空白处应该填写的语句是 A.k＜10B.k＞10C.k＜=10D

A.k＜10

B.k＞10

C.k＜=10

D.k＞=10

点击查看答案

第6题

下列程序的功能是计算S=1!+2!+…+10!的值，完成程序填空。 S=0 FOR N=1 TO 10 P=1 FOR I=1 TO N 【】

下列程序的功能是计算S=1!+2!+…+10!的值，完成程序填空。

S=0

FOR N=1 TO 10

P=1

FOR I=1 TO N

【】

ENDFOR

S=S+P

ENDFOR

？"SUM="，S

点击查看答案

第7题

下列程序的功能是（)。sum=0foriinrange（100):if（i%10):continuesum=sum+iprint（sum)

A.计算1到100的和

B.计算不是10的倍数的和

C.计算10的倍数的和

D.计算1到10的和

点击查看答案

第8题

窗体中有命令按钮Commandl，事件过程如下： PublicFunction f（x As Integer)As Integer Dim Y AsIn

窗体中有命令按钮Commandl，事件过程如下： PublicFunction f(x As Integer)As Integer Dim Y AsInteger X=20 y=2 f= X *Y End Function PrivateSub Commandl_Click（） Dim y As Integer static x As Integer x=10 y=5 y=f(x) Debug.Print x;y End Sub 运行程序，单击命令按钮，则立即窗口中显示的内容是（）

A.10；5

B.10；40

C.20；5

D.20；40

点击查看答案

第9题

“秒表”窗体中有两个按钮（“开始／停止”按钮bOK，“暂停／继续”按钮bPus)；一个显示计时的标签iNure；窗

“秒表”窗体中有两个按钮(“开始／停止”按钮bOK，“暂停／继续”按钮bPus)；一个显示计时的标签iNure；窗体的“计时器间隔”设为100，计时糟度为0．1秒。要求：打开窗体如图1所示；第一次单击“开始／停止”按钮，从0开始滚动显示计时(见图2)；10秒时单击“暂停／继续”按钮，显示暂停(见图3)，但计时还在继续：若20秒后再次单击“暂停／继续”按钮，计时会从30秒开始继续滚动显示；第二次单击“开始／停止”按钮，计时停止，显示最终时间(见图4)。若再次单击“开始／停止”按钮可重新从0开始计时。 “秒表”窗体中有两个按钮（“开始／停止”按钮bOK，“暂停／继续”按钮bPus)；一个显示计时的标签相关的事件程序如下： Optioncompare Database Dim flag，pause As Boolean PrivateSub bOK_click flag=__________ Me!bOK．Enabled=True Me!bPus．Enabled=flag End Sub PrivateSub bPus_click pause=Notpause Me!bOK．Enabled=Not Me!bOK．Enabled End Sub PrivateSub Form. Open(Cancel As Integer) flag=False Pause=False Me!b0K．Enabled=True Me!bPus．Enabled=False End Sub PrivateSub Form. Timer Staticcount As Single If flag=TrueThen Ifpause=False Then Me!INum．Caption=Round(count,1) End If Count=__________ Else count=0 End If End Sub 横线处应填写的内容是（）。