填空题数据结构分为线性结构和非线性结构,带链的队列属于{{U}} 【3】 {{/U}}结构。
填空题在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Label1,然后编写如下事件过程: Private Sub Command1_Click() Counter=0 For i=1 To 4 For j=6 To 1 Step-2 Counter=Counter+1 Next j Next i Labell.Caption=Str(Counter) End Sub 程序运行后,单击命令按钮,标签中显示的内容是_______。
填空题设有序顺序表为18,35,67,83,150,369,590,采用折半搜索时,搜索成功的平均搜索长度是 【2】 。
填空题在面向对象方法中,信息隐蔽是通过对象的 【2】 性来实现的。
填空题宏是Access的一个对象,其主要功能是使操作 ______。
填空题以下程序段运行后消息框的输出结果为______。 s="Access" Dim str As String For i=1 To Len(s) str=UCase(Mid(S,I,I))+str Next i MsgBox str
填空题Access中的______也可以作为一种特殊的格式窗体在本地机上使用。
填空题下列程序的功能是找出被5、7除,余数为1的最小的5个正整数,请在程序空白处填入适当的语句,使程序可以完成指定的功能。 Private Sub Form Click() Dim Ncount%,n% Ncount=0 n=1 Do n=n+1 If______Then Debug.Print n Ncount=Ncount+1 End If Loop Until Ncount End Sub
填空题有一个VBA计算程序的功能如下:该程序用户界面由4个文本框(T1、T2、T3和T4)和3个按钮(C1、C2和C3)分别显示为清除、计算和退出。运行窗体后,单击“清除”按钮,则清除所有文本框中显示的内容;单击“计算”按钮,则计算在T1、T2和T3这3个文本框中输入的3个数字的和并将结果存放在名为T4的文本框中;单击“退出”按钮则退出程序。请将下列程序补充完整。 Private Sub C1_Click() Me!T1=" " Me!T2=" " Me!T3=" " Me!T4=" " End Sub Private Sub C2_Click() If Me!T1=" "Or Me!T2=" "Or Me!T3=" "Then MsgBox"三个文本框都要输入值!" ______ Me!T 4=(Val(Me!T1)+Val(Me!T2)+______) End If End Sub Private Sub C3_Click() Docmd.______ End Sub
填空题某个窗体已编写以下事件过程。打开窗体运行后,单击窗体,消息框的输出结果为 Private Sub Form_Click() a=1 i=1 Do Until i>10 a=a+2 i=i+3 Loop MsgBox a End Sub
填空题在数据处理过程中,如果希望只是满足指定条件执行宏的一个或多个操作,可以使用条件来控制这种流程。使用了这种控制的宏称为________。
填空题在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command l-Click ()
a=0
For I =l T02
For j=l To4
if j Mbd2<>0 Then
a=a+1
End lf
a= a +l
Next j
Next i
Ms g Box a
End Sub
程序执行后,单击命令按钮,消息框显示的是{{U}} 【15】 {{/U}} 。
填空题Access提供了6种类型的窗体,分别是{{U}} 【13】 {{/U}}、表格式窗体、{{U}} 【14】 {{/U}}、主/子窗体、图表窗体和数据透视表窗体。
填空题某个窗体己编写以下事件过程。打开窗体运行后,单击窗体,消息框的输出结果为 ______。
Private Sub Form_Click()
a=1
i=l
Do Until i>10
a=a+2
i=i+3
Loop
MsgBox a
End Sub
填空题有如下程序:
A$="Flying": b$="is":C$="funny!"
Print a$+""+LCase$(b$)+""+UCase$(C$)
End
运行后输出的结果是{{U}} 【12】 {{/U}}。
填空题现有一个登录窗体如下图所示。打开窗体后输入用户名和密码,登录操作要求在20秒内完成,如果在20秒内没有完成登录操作,则倒计时到达0秒时自动关闭登录窗体,窗体的右上角是显示倒计时的文本框Itime。事件代码如下,要求填空完成事件过程。OptionCompareDatabaseDimflagAsBooleanDimiAsIntegerPrivateSubForm_Load()flag=______Me.Timednterval=1000i=0EndSubPrivateSubForm_Timer()Ifflag=TrueAndi<20ThenMe!Time.Caption=20-ii=______ElseDoCmd.CloseEndIfEndSubPrivateSubok_Click()登录程序略如果用户名和密码输入正确,则flag=FalseEndSub
填空题运行下列程序,窗体中的显示结果是:x=______。 Option Compare Database Dim x As Integer Private Sub Form_Load() x=3 End Sub Private Sub Command11_C1ick() Static a As Integer Dim b As Integer b=x^2 fun1 x,b fun1 x,b MsgBox "X=" &x End Sub Sub fun1(ByRef Y As Integer,ByVal Z As Integer) y=y+z z=y-Z End Sub
填空题Visual Basic中,允许一个变量未加定义直接使用,这样VB即把它当做变体类型的变量。若使用Dim语句定义这种类型的变量,则在As后面应使用【8】关键字。
填空题Print Datediff("m",#2002/09/24#,#2002/09/25#)输出结果为 【13】 。
填空题执行下面的程序段后,变量S的值为 【13】 。 S=5 For i=2.6 To 4.9 Step 0.5 S=S+1 Next i