33. 有如下事件程序,运行该程序后输出结果是______。 Private Sub Command33 Click() Dim X As Integer,Y As Integer x=1:Y=0 Do Until y<=25 y=y+x*x x=x+1 Loop MsgBox "x="&x&",y="&y End Sub
34. 下列程序的功能是计算sum=1+(1+3) +(1+3+5) +…+(1+3+5+…+39) Private Sub Command34_CliCk() t=0 m=1 sum=0 DO t=t+m sum=sum+t m=______ Loop While m<=39 MsgBox "Sum="&sum End Sub 为保证程序正确完成上述功能,空白处应填入的语句是______。
10. 运行下列程序,输入如下两行: Hi, I am here. 弹出的窗体中的显示结果是______。 Private Sub Command11_C1ick() Dim abc As String,sum As string sum="" DO abc=InputBox("输入abc") If Right(abc,1) ="." Then Exit Do sum=sum+abC Loop MsgBox sum End Sub
11. 运行下列程序,窗体中的显示结果是:x=______。 Option Compare Database Dim x As Integer Private Sub Form_Load() x=3 End Sub Private Sub Command11_C1ick() Static a As Integer Dim b As Integer b=x^2 fun1 x,b fun1 x,b MsgBox "X=" &x End Sub Sub fun1(ByRef Y As Integer,ByVal Z As Integer) y=y+z z=y-Z End Sub
“秒表”窗体中有两个按钮(“开始/停止”按钮bOK,“暂停/继续”按钮bPus) ;一个显示计时的标签1Num;窗体的“计时器间隔”设为100,计时精度为0.1秒。 要求:打开窗体如图1所示;第一次单击“开始停止”按钮,从0开始滚动显示计时(见图2) ;10秒时单击“暂停/继续”按钮,显示暂停(见图3) ,但计时还在继续;若20秒后再次单击“暂停/继续”按钮,计时会从30秒开始继续滚动显示;第二次单击“开始/停止”按钮,计时停止,显示最终时间(见图4) 。若再次单击“开始/停止”按钮可重新从0开始计时。 相关的事件程序如下。请在空白处填入适当的语句,使程序可以完成指定的功能。 Option Compare Database Dim flag,pause As Boolean Private Sub bOK Click() flag= 12 Me!bOK.Enabled=True Me!bPus.Enabled=flag End SUb Private Sub bPuS CliCk() pauSe=Not pause Me!bOK.Enabled=NOt Me!bOK.Enabled End SUb Private Sub Form Open(Cancel As Integer) flag=False pause=False Me!bOK.Enabled=True Me!bPus.Enabled=FalSe End Sub Private Sub Form Timer() Static count As Single If flag=True Then If pause=False Then Me!1Num.Caption=Round(count,1) End If count= 13 ElSe count=0 End If End Sub
数据库中有“学生成绩表”,包括“姓名”、“平时成绩”、“考试成绩”和“期末总评”等字段。现要根据“平时成绩”和“考试成绩”对学生进行“期末总评”。规定: “平时成绩”加“考试成绩”大于等于85分,则期末总评为“优”,“平时成绩”加“考试成绩”小于60分,则期末总评为“不及格”,其他情况期末总评为“合格”。 下面的程序按照上述要求计算每名学生的期末总评。请在空白处填入适当的语句,使程序可以完成指定的功能。 Prirate Sub Command0_Click() Dim db As DAO.DatabaSe Dim rs As DAO.RecordSet Dim pscj, ksej, qmzp As DAO.Field Dim count As Integer Set db=CurrentDb() Set rs=db.OpenRecordset("学生成绩表") Set pscj=rs.Fields("平时成绩") Set kscj=rs.Fields("考试成绩") Set qmzp=rs.Fields("期末总评") count=0 Do While NOt rs.EOF 14 If pscj+kscj>=85 Then qmzp="优" ElseIf pscj+kscj<60 Then qmzp="不及格" Else qmzp="合格" End If rs.Update count=count+1 15 Loop rs.CloSe db.CloSe Set rs=Nothing Set db=Nothinq MsgBox "学生人数:"&count End Sub