教材及光盘机试代码汇总.docxVIP

22.(2.3)窗体标签“bTitle”的标题为文本“tText”输入内容与文本串“等级考试测试”的连接,并消除空白字符bTitle.Caption=Trim(tText+等级考试测试)(Trim取消前后多余的空格)23.数据属性--》行来源类型（改为值列表） 行来源（输入 男,女）控件来源—— =IIf([党员否],党员,非党员)窗体记录源属性为查询对象qEmp 记录源属性—— RecordSourceRecordSource=qEmp 关闭窗体：DoCmd.Close24.(3.5)显示tStudent表中全部记录 Select * from tStudent26.(3.5)单击“修改”按钮后，应使“保存”按钮变为可用 CmdSave.Enabled=True27.(3.4)1 IF rs.Eof Then (rs.Eof文件末尾） 2 tAge=sage32题代码：（光盘）1设置循环For i=len(sl) to 1 step-12将结果显示在bTxt2中bTxt2=s231.(3.2) 控件来源：=[Page]/[Pages](3.4)提示文本框为“请输入大于0的整数值” 提示框：InputBox() 语法格式：变量=InputBox(信息内容,对话框标题,默认内容) 1 K=InputBox(请输入大于0的整数值) 输入2时，预览输入报表对象rEmp打开报表并预览： DoCmd.OpenReport 报表名,acViewPreview 2 DoCmd.OpenReport rEmp,acViewPreview32.(3.4)1 Case Is=32 打开报表并预览输出 DoCmd.OpenReport rEmp,acViewPreview33. (3.4)判断职工编号是否重复的条件为： If ADOrs.EOF=false Then 关闭窗体：DoCmd.Close35.（3.2）控件来源：=[Page]-[Pages] （3.4）1定义19个数量的数组：Dim f(19) As Integer 2For的循环体，计算Fibonacci数列第19项的值：f(i)=f(i-1)+f(i-2) 3将计算的结果显示在窗体上名为tData的文本框内：tData=f(19)36.窗体的标题属性为系统当前日期Caption=Date()37.窗体的标签以红色文本显示 bTitle.Forecolor=255 参数的传递：mdPnt acViewPreview38.数据属性--》行来源类型（改为值列表）行来源（输入 男,女） 窗体记录源属性为查询对象qEmp 记录源属性—— RecordSource RecordSource=qEmp 39.控件来源：=str(Year(Date()))+年+str(Month(Date()))+月 （str是由数值型转换为字符型）添加组—— =left([编号],4) 控件来源：=Avg([年龄]) 40.调用宏对象：Docmd.RunMacro 宏名 Docmd.RunMacro m1 添加标签标题为系统当前日期： Tda.Caption=Date()41.(3.4)Picture=CurrentProject.Path+\test.bmp(CurrentProject.Path确定数据库信息存储的位置；\代表原字符）42.(3.4)窗体标题属性为“****年职工信息输出” Caption=Year(Date())年职工信息输出43.（3.3）控件来源：=avg([年龄]) （3.4）添加组—— =left([编号],4) 控件来源：=count([编号])44.（3.3）添加组—— =left([姓名],1) 控件来源：=left([姓名],1) （3.4）以预览方式打开报表 Docmd.OpenReport rEmp,acViewPreview45.（3.3） 控件来源：=[Page]/[Pages] （3.4） 消息框：MsgBox 消息内容,图标、按钮,对话框标题 =MsgBox(消息内容,图标、按钮,对话框标题)显示消息框，消息框标题为“确认“，消息内容为”报表预览“，显示问号图标和是否两个命令按钮，单击”是“ If MsgBox(报表预览,vbYesNo+vbQuestion,确认)=vbYes