ACCES程序题.docVIP

1. 运行下列程序，结果是 Private Sub Command32_Click() f0=1：fl=1：k=1 Do While k=5 f=f0+f1 f0=f1 f1=f k=k+1 Loop MsgBox f= f End Sub f=13 2. 有如下事件程序，运行该程序后输出结果是 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 x=1， y=0 3. 下列程序的功能是计算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= m+2 Loop While m=39 MsgBox Sum= sum End Sub 4. 运行下列程序，输入如下两行： Hi， I am here． 弹出的窗体中的显示结果是 Hi， Private Sub Command11_Click() 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 5. 运行下列程序，窗体中的显示结果是：x= 21 。 Option Compare Database Dim x As Integer Private Sub Form_Load() x=3 End Sub Private Sub Command11_Click() 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 6. 数据库中有学生成绩表，包括姓名、平时成绩、考试成绩和期末总评等字段，现要根据平时成绩和考试成绩对学生进行期末总评。规定：平时成绩加考试成绩大于等于85分，则期末总评为优，平时成绩加考试成绩小于60分，则期末总评为不及格，其他情况期末总评为合格。 下面的程序按照上述要求计算每名学生的期末总评。请在空白处填入适当的语句，使程序可以完成指定的功能。 Private Sub Command0_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Dim pscj，kscj，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 rs.edit If pscj+kscj=85 Then qmzp=优 ElseIf pscj+kscj60 Then qmzp=不及格 Else qmzp=合格 End If rs.Update count=count+1 rs.movenext Loop rs．Close db.Close Set rs=Nothing Set db=Nothing MsgBox 学生人数： count End Sub 7. 窗体中有命令按钮Command1，事件过程如下： Public Function f(x AS Integer)As Integer 　Dim y As Integer 　x＝20 　y＝2 　f＝x*y End Function Private Sub Commandl_Click() 　Dim y As Integer 　Static x As Integer 　x＝10 　y＝5 　y＝f(x) 　Debug.Print x；y End Sub 运行程序，单击命令按钮，则立即窗口中显示的内容是 20　40 8. 窗体中有命令按钮Command1和文本框Text1，事件过程如下： Function result(ByVal x As Integer)A