TOP

2011年9月笔试试卷(八)
2012-06-03 20:37:46 来源: 作者: 【 】 浏览:1179次 评论:0
微信搜索关注"91考试网"公众号,领30元,获取公务员、事业编、教师等考试资料40G!
sp;  Access数据库中的字节(Byte)数值类型在数据库中占        字节。

(7)       在报表重要显示格式为“第N页”的页码,页码格式设置是:=”第” &          & “页”。

(8)       要将Access数据库中保存的数据发布到网络上,可以采用的对象是       

(9)       若窗体名称为Form1,则将该窗体标题设置为”Access窗体”的语句是       

(10)   下列程序段得功能是求1到100的累加和。请在空白处填入适当的语句,是程序完成指定的功能。

Dim s As Integer , m As Integer

s = 0

m = 1

do While         

s = s +m

m = m+1

Loop

(11)   下列程序的功能是求算式:1-1/2+1/3-1、4+……前30项之和。请在空白处填入适当的语句,使程序可以完成指定的功能。

Private Sub Command1_Click()

Dim i as integer , s as single , f as integer

s = 0 : f = 1

For i =1 To 30

    s = s + f/i

    f=       

Next i

Debug.Print “1-1/2+1/3-1/4+……”; s

End Sub

(12)   有一个标题为“登录”的用户登录窗体,窗体上有两个标签,标题分别为“用户名:”和“密码:”,用于输入用户名的文本框名为“UserName”,用于输入密码的文本框名为“UserPassword”,用于进行倒计时显示的文本框名为“Tnum”,窗体上有一个标题为“确认”的按钮名为“OK”,用于输入完用户名和密码后单击此按钮确认。

    输入用户名和密码,如用户名或密码错误,则给出提示信息:如正确,则显示“欢迎使用!”信息。要求整个登录过程要在30秒中完整,如果超过30秒还没有完成正确的登录操作,则程序给出提示自动终止整个登录过程。请在程序空白处填入适当的语句,使程序完成指定的功能。

    Option Compare Database

    Dim Second As Integer

    Private Sub Form_Open(Cancel As Integer)

        Second=0

    End Sub

   

    Private Sub Form_Timer()

        If Second >30 Then

            MsgBox “请在30秒钟登录”,vbCritical,”警告”

            DoCmd.Close

        Else

            Me!Then = 30 – Second           ‘倒计时显示

        End If

        Second =         

    End Sub

 

    Private Sub OK_Click()

        If Me.UserName <> “123” Or Me.UserPassword <> “456” Then

            MsgBox “错误!”+ “您还有” & 30-Second & “秒”,vbCritical,”提示”

        Else

            Me.TimerInterval =            ‘终止Timer事件继续发生

            MsgBox “欢迎使用!”,vbInformation,”成功”

            DoCmd.Close

        End If

        End Sub

(13)   数据库中有“平时成绩表”,包括“学号”、“姓名”、“平时作业”、“小测验”、“期中考试”、“平时成绩”和“能否考试”等字段,其中

Tags: 责任编辑:91kaoshiwang
】【打印繁体】【投稿】【收藏】 【推荐】【举报】【评论】 【关闭】 【返回顶部
上一篇2011年3月计算机等级考试二级Acce.. 下一篇2012年3月全国计算机等级考试二级..

相关栏目

最新文章

推荐文章

网站客服QQ: 960335752 - 14613519 - 48225117