Option Base 1
Private Sub Command1_Click()
Dim arr1()
Dim Min As Integer,i As Integer
Arr1=Array(12,435,76,-24,78,54,866,43)
Min=______
For i=2 To 8
If arr1(i)<Min Then______
Next i
Text1=Min
End Sub
第1题
在窗体上添加两个文本框和一个按钮,在按钮的单击事件中添加如下代码:
Private sub command1_Click( )
Text1="vba test"
Text2=text1
Text1= "test end"
End sub
单击按钮后,text2中的文本内容是【 】。
第2题
在考生文件夹下有“学生”数据库。
(1)使用“图表向导”创建报表“学生”,显示统计每个班级的人数柱形图。报表结果如图所示。
(2)使用“标签向导”创建“教师”报表,选择产品编号为“28522”标签尺寸,公制度量单位,连续标签,宋体16号加粗文本,显示教师ID、教师姓名和性别字段,排序依据为教师ID。报表结果如图所示(局部)。
第3题
列标题,主键分别为“书ID”和“读者ID”,将导入表分别命名为book和reader。
(2)将book表的书ID字段和reader表的读者ID字段长度改为10。
(3)按照下列要求创建lend表。
第4题
要确定“库存量”乘以“单价”的平均值是否大于等于¥501且小于等于¥1000,可输入【 】。
第5题
在考生文件夹下有“学生.mdb”数据库。
(1)创建宏“关闭窗体”,实现关闭“窗体1”同时弹出“关闭窗体”消息框。
(2)在“窗体1”窗体中添加“课程信息”和“关闭窗体”按钮,分别实现打开“课程”窗体和运行“关闭窗体”宏。窗体1结果显示如图所示。
第8题
在“入学登记表.mdb”数据库中有入学登记表、系和专业表。
(1)以入学登记表、系和专业表为数据源,创建查询“查询1”,实现查询每个系的最高高考分数。结果显示系名称和最高分字段,最高分=[入学登记表].[高考分数]之Sum。查询结果如图所示。
(2)以入学登记表为数据源,创建查询“查询2”,实现查询1980年和1981年之间出生的考生信息。结果显示姓名、性别、出生年月日、高考所在地和高考分数字段。查询结果如图所示。
第9题
人事管理数据库中有基本情况、工资变动、部门和职务四张表。
(1)以产品表为数据源,建立“牙膏查询”的模糊查询,查询所有牙膏产品信息,结果显示产品ID、产品名称和产品价格字段。查询的结果如图所示。
(2)以基本情况表为数据源,建立删除查询“按人员编号删除”,输入人员编号删除员的全部信息,参数提示为“请输入人员编号:”
第10题
有如下程序:
AS="Flying": b$="Is":c$="funny!"
Print a$+""+LCase$(b$)+""+ UCase$(e$)
End
运行后输出的结果是【 】。
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!