填空题在窗体上画—个命令按钮,然后编写如下代码: Private Sub Command1_Click() Dim M(10) As Integer For k=1 To 10 M(k) =12-k Next k x=6 Msgbox M(2+M(x) ) End Sub 程序运行后,单击命令按钮,消息框显示的是 【13】 。
填空题阅读下列程序。 Option Base 1 Private Sub Form CliCk() Dim x(3,3) For j=1 to 3 For k=1 to 3 If j=k then x(j,k)=1 If j<> k then x(j,k)=3 Next k Next j Call fun(x()) End Sub Private Sub fun(a()) For j=1 to 3 For k=1 to 3 Print a (j,k); Next k Next j End Sub 运行程序时,输出的结果是 【12】 。
填空题OpenForm操作打开{{U}} 【7】 {{/U}}。
填空题在Access中, 【15】 查询的运行一定会导致数据表中数据的变化。
填空题在窗体上画一个命令按钮,然后编写如下程序: Dim x As Integer Sub inc(a As Integer) x=x+a End Sub Private Sub Commandl_Click() inc 2 inc 3 inc 4 Msgbox x; End Sub 程序执行后,单击Commandl命令按钮,消息框显示结果是 【14】 。
填空题有如下程序
aS="Flying":b$="IS':c$="funny!"
Print a$+”"+LCase$(b$)+""+UCase$(cS)
End
运行后输出的结果是{{U}} 【13】 {{/U}}。
填空题实体一联系模型是一种常用的高级概念数据模型,而 【4】 是实体—联系模型中的核心。
填空题窗体由多个部分组成,每个部分称为一个{{U}} 【11】 {{/U}},大部分的窗体只有{{U}} 【12】 {{/U}}。
填空题一下程序找出50以内所有能构成直角三角形的整数组。阅读下列程序,并完成程序。
Private Sub Commandl C土ick()
For a=l to 50
For b=a to 50
C=Sqr(a∧上标2+b∧上标2)
If{{U}}【15】{{/U}}then print a;b;c
next b
next a
end Sub
C<=50 And C=Int(c)
填空题数据库中有工资表,包括“姓名”、“工资”和“职称”等字段,现要对不同职称的职工增加工资,规定教授职称增加15%,副教授职称增加10%,其他人员增加5%。下列程序的功能是按照上述规定调整每位职工的工资,并显示所涨工资的总和。请在空白处填入适当的语句,使程序可以完成指定的功能。 Private Sub Command3_Click() Dim ws As DAO.Workspaee Dim db As DAO.Database Dim rs As DAO.Reeordset Dim gz As DAO.Field Dim zc As DAO.Field Dim sum As Currency Dim rate As Single Set db=CurrentDb() Set rs=db.OpenRecordset("工资表") Set gz=rs.Fields("工资") Set ZC=rs.Fields("职称") Sum=0 Do While Not (14) rs.Edit Select Case ze Case Is="教授" rate=0.15 Case Is="副教授" rate=0.1 Case Else rate=0.05 End Select sum=sum+gz * rate gz=gz+gz * rate (15) rs.MoveNext Loop rs.Close db.Close Set rs=Nothing Set db=Nothing MsgBox"涨工资总计:" & sum End Sub
填空题数据管理技术经历了人工处理阶段、{{U}} [7] {{/U}}和{{U}} [8] {{/U}}、分布式数据库系统、面向对象数据库系统5个发展阶段。
填空题有如下用户定义类型及操作语句: Type Student SNo As String SName As String SAge As Integer End Type Dim Stu As Student With Stu .SNo="200609001" .SName="陈果果" .Age=19 End With 执行MsgBox Stu.Age后,消息框输出结果是______。
填空题将当前窗体输出的字体改为粗体显示的语句为{{U}} 【7】 {{/U}}。
填空题二维表中的一行称为关系的一个 【6】 。
填空题在窗体上添加一个命令按钮(名为Command1),然后编写如下程序:
Function m(x as Integer,y as Integer) as Integer
m=IIf(x>y,x,y)
End Function
Private Sub Commandl Click()
Dim a as Integer,b as Integer
a=1
b=2
MsgBox m(a,B)
End Sub
打开窗体运行后,单击命令按钮,消息框的输出结果为{{U}} 【12】 {{/U}}。
填空题数据库管理系统是位于 【5】 之间的软件系统。
填空题若一个关系的任何非主属性都不部分依赖和传递依赖于任何候选码,则称该关系达到______范式。
填空题有如下用户定义类型及操作语句: Type Student No As String Name As String Age As Integer End Type Dim Stu As Student With Stu .No="200801001" .Name="高强" .Age=23 End With 执行MsgBox Stu.Name后,消息框输出结果是______。
填空题Access中,VBA通过数据库引擎可以访问的数据库有以下三种类型:本地数据库、外部数据库和{{U}} 【9】 {{/U}}。
填空题要在报表上显示形如“第x页/共y页”的页码,则控件来源应设置为______。