在考生文件夹下有“db4.mdb”数据库。
鸡和兔子共30只,脚共90只,编写模块“模块1”实现计算鸡和兔子共多少只,结果用消息框显示,要求用Do While循环实现。
第1题
在考试文件夹下有“库存管理系统.mdb”数据库。
(1)将考试文件夹下“产品信息表.xls”导入数据库,第一行包含列标题,将产品代码设置为主键,将导入表命名为“产品信息表”。
(3)以产品出库表为数据源,创建参数筛选产品代码,参数提示为“请输入产品代码”。产品出库表如图所示。
执行筛选显示如图。
第4题
在Access中,数据类型主要包括:自动编号、文本、备注、数字、日期/时间、【 】、是/否、OLE对象、超级链接和查询向导等。
第5题
在“工资表mdb”数据库中有部门和工资表两张表。
(1)建立一个基于工资表的窗体“工资情况表”,在窗体中显示员工姓名、基本工资、奖金、保险金和税前工资自动。税前工资:基本工资+奖金-保险金。布局:纵栏表:样式:标准。
(2)设置窗体宽度为8.497厘米。
窗体结果如图所示。
第6题
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1 Click()
Do Until b<O
a=InputBox("输入a的值")
a=Val(A)
b=InputBox("输入b的值")
b=Val(B)
a=a+b
Loop
Print a
End Sub
程序运行后,依次输入5,4,3,2,1,0,-1,-2,则输出结果是 【 】
第7题
在窗体中添加一个名称为Com1的命令按钮,然后编写如下程序:
Private Sub s(ByVal p As Integer)
p=p*2
End Sub
Private Sub Com1_Click()
Dim i As Integer
i=3
Call s(i)
If i>4 Then i=i^2
End sub
窗体打开运行后,单击命令按钮,则消息框的输出结果为( )。
第8题
在窗体上添加一个命令按钮(名为Command1),然后编写如下程序:
Private Sub Command1_Click()
Dim a As Integer,b As Integer
x=10
y=20
End Sub
打开窗体运行后,单击命令按钮,消息框的输出结果为( )。
第9题
在窗体中添加一个命令按钮,名称为Command1,然后编写如下程序:
Private Sub Command1_Click()
sum=0
For i=1 To 100 step 2
Next i
MsgBox sum
End Sub
窗体打开运行后,单击命令按钮,则消息框的输出结果为( )。
第10题
Access中VBA通过数据库引擎可以访问的数据库有以下3种类型:本地数据库;外部数据库和【 】。
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!