填空题“输入掩码”属性用于设定控件的输入格式,其中仅可以对文本型和_______数据进行输入掩码向导的设置。
填空题下面程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并在文本框Text1中输出该数组中各元素的最小值。请依据上述功能将程序补充完整。
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 arr l(i)<Min Then______
Next i
Text1=Min
End Sub
填空题在Access 2003数据访问页对象中,{{U}} 【8】 {{/U}}是一个为数据访问页提供字体、横线、背景图案以及其他元素的统一设计和颜色方案的集合。
填空题在n个运动员中选出任意r个人参加比赛,有很多种不同的选法,选法的个数可以用公式面计算,在窗体上设计3个文本框,名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值,单击Commandl按钮即可求出选法的个数,并显示在Text3文本框中,请填空。PrivateSubCommandl_Click()DimrAsInteger,nASIntegern=Text1r=Text2Text3=fun(n)/({{U}}[14]{{/U}})/fun(r)EndSubFunctionfun(nAsInteger)ASlongDimtAsLong{{U}}[15]{{/U}}Fork=1Tont=t*kNextkfun=tEndFunction
填空题设有序顺序表为10,20,30,4,50,60,70),采用折半搜索时,搜索成功的平均搜索长度是 【2】 。
填空题若要查找最近20天内注册用户的信息,查询准则应设为{{U}} 【7】 {{/U}}。
填空题在VBA中变体类型的类型标识是{{U}} 【10】 {{/U}}。
填空题使用“设计”视图建立表结构,要详细说明每个字段的______和所使用的______。
填空题阅读下列程序。
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) = k
Next k
Next j
Call fun(x( ) )
End Sub
Private Sub fun(x( ) )
For j = 1 to 3
For k = 1 to 3
Print x(j, k);
Next k
Next j
End Sub
运行程序时,输出结果为{{U}} 【13】 {{/U}}。
填空题如下程序的功能为:使用While…Wend语句来增加计数变量的值。如果条件判断值为True,则循环内的语句将一直执行下去。当Counter______时循环中止。 Dim Counter Counter=0 While Counter<20 Counter=Counter+1 Wend
填空题在窗体上添加一个命令按钮(名为Command1)和一个文本框(名为Text1),并在命令按钮中编写如下事件代码。 Private Sub Command1_Click() m=2.17 n=Len(Str $(m)+Space(5)) Me!Text1=n End Sub 打开窗体运行后,单击命令按钮,在文本框中显示为______。
填空题在______窗体中可以随意地安排字段。
填空题数据操纵包括对数据库数据的检索、_______________、_______________和删除等基本操作。
填空题在窗体中添加一个命令按钮(名为Command1),然后编写如下代码: Private Sub Command1 Click() Dim b, k For k=1 to 6 B=23+k Next k MsgBox b+k End Sub 窗体打开运行后,三次单击命令按钮,消息框的输出结果是______。
填空题二维表中的行称为关系的______。
填空题现有用户登录界面如下:窗体中名为username的文本框用于输入用户名,名为pass的文本框用于输入用户的密码。用户输入用户名和密码后,单击“登录”名为login的按钮,系统查找名为“密码表”的数据表,如果密码表中有指定的用户名且密码正确,则系统根据用户的“权限”分别进入“管理员窗体”和“用户窗体”:如果用户名或密码输入错误,则给出相应的提示信息。密码表中的字段均为文本类型,数据如下图所示。单击“登录”按钮后相关的事件代码如下,请补充完整。PrivateSublogin_Click()DimstrAsStringDimrsASNewADODB.RecordsetDimfdAsADODB.FieldSeten=CurrentProjeet.Connectionlogname=Trim(Me!username)pass=Trim(Me!pass)IfLen(Nz(logname))=0ThenMsgBox"请输入用户名"ElseIfLen(Nz(pass))=0ThenMsgBox"请输入密码"Elsestr="select*from密码表where用户名="&logname&"and密码="&passrs.Openstr,cn,adopenDynamic,adLockOptimistic,adCmdTextIf{{U}}{{/U}}ThenMsgBox"没有这个用户名或密码输入错误,请重新输入"Me.username=""Me.pass=""ElseSet{{U}}{{/U}}=rs.Fields("权限")Iffd="管理员"ThenDoCmd.CloseDoCmd.OpenForm"管理员窗体"MsgBox"欢迎您,管理员"ElseDoCmd.CloseDoCmd.OpenForm"用户窗体"MsgBox"欢迎使用会员管理系统"EndIfEndIfEndIfEndSub
填空题在Access中,数据类型主要包括:自动编号、文本、备注、数字、日期/时间、{{U}} 【7】 {{/U}}、是/、OLE对象、超级链接和查向导等。
填空题在数据表中,将记录定位到第一条记录中的当前字段的快捷键为______。
填空题若窗体中已有一个名为Command1的命令按钮、一个名为Label1的标签和一个名为Text1的文本框,且文本框的内容为空,然后编写如下事件代码:
Private Function f(x As Long) As Boolean
If x Mod 2=0 Then
f=True
Else
f=False
EndIf
End Function
Private Sub Commandl_Click()
Dim n As Long
n=Val(Me!text1)
p=If(f(n),"Even number","Odd number")
Me!Label1.Caption=n& "is"&p
EndSub
窗体打开运行后,在文本框中输入21,单击命令按钮,则标签显示内容为【 】。
填空题对窗体Test上文本框控件txtAge中输人的学生年龄数据进行验证。要求:该文本框中只接受大于等于15且小于等于30的数值数据,若输入超出范围则给出提示信息。该文本控件的BeforeUpdate事件过程代码如下,请在空白处填入适当的语句,使程序可以完成指定的功能。 Private Sub txtAge_BeforeUpdate(Cancel As Integer) If Me!txtAge=" "Or (14) (Me!txtAge)Then '数据为空时的验证 MegBox"年龄不能为空!",vbCritical,"警告" Cancel=Ture '取消BeforeUpdate事件 Else If IsNumeric(Me!txtAge)=False Then '非数值数据输入的验证 MsgBox"年龄必须输入数值数据!",vbCritical,"警告" Cancel=True '取消BeforeUpdate事件 Else If Me!txtAge<15 Or Me! txtAge (15) Then '非法范围数据输入的验证 MsgBox"年龄为15-30范围数据!",vbCritical,"警告" Cancel=True Else MsgBox"数据验证OK!",vblnformation,"通告" End If End Sub