微信搜索关注"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) 数据库中有“平时成绩表”,包括“学号”、“姓名”、“平时作业”、“小测验”、“期中考试”、“平时成绩”和“能否考试”等字段,其中