填空题通过在窗体中插入______,用户就可以很方便地把Access的各个对象联系起来。
填空题在Access中,用户在U【7】/U中可以创建或修改宏的内容。
填空题在VBA中双精度的类型标识是{{U}} 【11】 {{/U}}。
填空题有“数字时钟”窗体如下:在窗口中有“[开/关]时钟”按钮,单击该按钮可以显示或隐藏时钟。其中按钮的名称为“开关”,显示时间的文本框名称为“时钟”,计时器间隔已设置为500。请在空白处填入适当的语句,使程序可以完成指定的功能。DimflagAsIntegerPrivateSubForm_Load()flag=1EndSubPrivateSubFormTimer()'“计时器触发”事件过程时钟=Time'在“时钟”文本框中显示当前时间EndSubPrivateSub开关_Click()'“开关”按钮的单击事件过程If______Then时钟.Visible=Falseflag=0Else时钟.Visible=Trueflag=1EndIfEndSub
填空题已知一个名为“学生”的Access数据库,库中的表“stud”存储学生的基本信息,包括学号、姓名、性别和籍贯。下面程序的功能是:通过下图所示的窗体向“stud”表中添加学生记录,对应“学号”、“姓名”、“性别”和“籍贯”的四个文本框的名称分别为tNo、tName、tSex、tRes。当单击窗体中的“增加”命令按钮(名为Command1)时,首先判断学号是否重复,如果不重复则向“stud”表中添加学生记录;如果学号重复,则给出提示信息。请依据所要求的功能,将如下程序补充完整。DimADOcnAsNewADODB.ConnectionPrivateSubFormLoad()'打开窗口时,连接Access数据库SetADOcn=CurrentProiect.ConnectionEndSubPrivateSubCommand1Click()'增加学生记录DimstrSQLAsStringDimADOrsAsNewADODB.RecordsetSetADOrs.ActiveConnectipn=ADOcnADOrs.Open"Select学号FromStudWhere学号=''+tNo+''IfNotADOrs0[14]Then'如果该学号的学生记录已经存在,则显示提示信息MsgBox''你输入的学号已存在,不能增加!''Else'增加新学生的记录strSQL="InsertIntostud(学号,姓名,性别,籍贯)strSQL=strSQL+"Values("+tNo+","+tName+","+tSex+","+fires+")"ADOcn.Execute[15]MsgBox"添加成功,请继续!"EndIfADOrs.CloseSetAPOrs=NothingEndSub
填空题有如下程序: Option Base 1 Private Sub Form_Click() Dim arr,Sum Sum=0 art=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3=arr(i)/3 Then Sum=Sum+arr(i) End If Next i MsgBox Sum End Sub 程序运行后,单击窗体,消息框的输出结果为______。
填空题在关系运算中,要从关系模式中指定若干属性组成新的关系,该关系运算称为 ______ 。
填空题连接运算是将两个或两个以上的关系根据连接条件生成一个{{U}} 【1】 {{/U}}。
填空题以下是一个比赛的评分系统,假设有8名评委,评分标准是去掉一个最高分和一个最低分,剩余分数的平均分即为选手的得分。试将程序补充完整。
Private sub Form_Click( )
Dim max as integer,min as integer,i as integer,num as integer,sum as integer,avg as single
max=0
min=10
For i=1 to 8
num=val(inputbox("请输入分数" )
if{{U}} 【13】 {{/U}}then max=hum
if{{U}} 【14】 {{/U}}then min=num
sum=sum+num
Next i
sum={{U}} 【15】 {{/U}}
avg=sum/6
Msgbox "最后得分:" & avg
End sub
填空题“______”指定对值的分组方式。可用的选项取决于分组字段的数据类型。如果是按表达式分组,将显示对所有数据类型的所有选项。
填空题在面向对象方法中,类的实例称为 【2】 。
填空题现有一个登录窗体如下图所示。打开窗体后输入用户名和密码,登录操作要求在20秒内完成,如果在20秒内没有完成登录操作,则倒计时达到0秒时自动关闭登录窗体,窗体的右上角是显示倒计时的标签Itime。事件代码如下,要求填空完成事件过程。OptionCompareDatabaseDimflagAsBooleanDimiAsIntegerPrivateSubForm_Load()flag=(14)MPTimerTnfPrvH]=1000i=0EndSubPrivateSubForm_Timer()Ifflag=TrueAndi<20ThenMe!ITime.Caption=20-ii=(15)ElseDoCmd.CloseEndIfEndSubPrivateSubOK_Click()'登录程序略'如果用户名和密码输入正确,则falg=False
填空题使用 【8】 创建数据访问页时,用户不需要做任何设置,所有工作都由系统自动完成。
填空题______ 类型是用来存储日期、时间或日期时间,其最多可存储8个字节。
填空题数据库系统的主要特点为数据的集成性、数据的高______、低冗余性、数据的独立性和数据的统一管理和控制。
填空题使用快速创建数据访问页方式创建的数据访问页,页面上的数据都简单的以 【6】 出现,并且没有进行数据分组等信息。
填空题Access数据库内包含三种关系方式,即一对一、一对多、{{U}} 【7】 {{/U}}。
填空题在数据的存储结构中,不仅需要存储各数据元素的信息,还要存放各元素之间的信息。
填空题在n个运动员中选出任意r个人参加比赛,有很多种不同的选法,选法的个数可以用公式(作图)计算,在窗体上设计3个文本框,名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值,单击Command1按钮即可求出选法的个数,并显示在Text3文本框中,请在空白处填入适当语句使程序完整。
Private Sub Command1_Click()
Dim r As Integer,n As Integer
n=Text1
r=Text2
Text3=fun(n)/(______)/fun(r)
End Sub
Function fun(n As Integer)As long
Dim t As Long
______
For k=1 To n
t=t*k
Next k
fun=t
End Function
填空题Access数据库内包含三种关系方式,即一对一、一对多、 【7】 。