填空题有一个VBA计算程序的功能如下:该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为:Text1、Text2、Text3和Text4,3个按钮分别为:清除(名为 G1)、计算(名为C2)和退出(名为C3)。窗体打开运行后,单击“清除”按钮,则清除所有文本框中显示的内容;单击“计算”按钮,则计算在Wext1、Text2和Text3三个文本框中输入的3个数字的和并将结果存放在名为Text4的文本框中;单击“退出”按钮则退出程序。依据上述功能,请将下列程序补充完整。
Private Sub C1 Click()
Me!Text1=""
Me!Text2=""
Me!Text3=""
Me!Text4=""
End Sub
Private Sub C2 Click()
IfMe!Text1=""Or Me!Text2=""Or Me!Text3=""Then
MsgBox"三个文本框都要输入值!"
______
Me!Text4=(Val(Me!Text1)+Val(Me!Text2)+______)
End If
End Sub
Private Sub C3 Click()
Docmd.
End Sub
填空题在向数据表中输入数据时,若要求所输入的字符必须是字母,则应该设置的输入掩码是 【8】 。
填空题执行下面的程序,消息框的输出结果是 【15】 。 Option Basel Private Sub Commandl Click() Dim a(10),P(3)As Integer k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 P(i)=a(i*i) Next i For i=1 To 3 k=k+p(i)*2 Next i MsgBox k End sub
填空题SQL查询就是用户使用SQL语句来创建的一种查询。SQL查询主要包联合查询、传递查询、______和子查询等。
填空题在窗体上画一个命令按钮,然后编写如下程序:
Function fun(By Val num As Long)As Long
Dim k As Long
k=1
num=Abs(num)
Do While num
k=k*(num/10)
num=num/10
Loop
fun=k
End Function
Private Sub Command1_Click()
Dim n As Long
Dim r As Long
n=InputBox("请输入一个数")
n=CLng(n)
r=fun(n)
MsgBox r
End Sub
程序运行后,单击命令按钮,在输入对话框中输入234,消息框显示的结果为{{U}} {{U}} {{/U}} {{/U}}。
填空题窗体由多个部分组成,每个部分称为一个节,大部分的窗体只有 【11】 。
填空题Access数据库包含有______、______、______、报表、页、宏、模块等7种数据库对象。
填空题Jackson方法是一种面向 【3】 的结构化方法。
填空题假定当前日期为2002年8月25日,星期日,则执行以下语句后,a、b、c和d的值分别是25、8、2002、{{U}} 【13】 {{/U}}。
a=day(now)
b=month(now)
C=year(now)
d=weekday(now)
填空题在设置查询的“准则”时,可以直接输入表达式,也可以使用表达式{{U}} 【11】 {{/U}}来帮助创建表达式。
填空题OLE对象字段最大可为______,它受磁盘空间限制。
填空题有如下程序
a$="Flying":b$="IS":c$="funny!"
Print a$+""+LCase$(b$)+""+UCase$(c$)
End
运行后输出的结果是{{U}} 【15】 {{/U}}。
填空题下列程序段的执行结果为{{U}} 【14】 {{/U}}。
K=0
For J=1 To 2
For I=1 To 3
K=I+1
Next I
For I=1 To 7
K=K+1
Next I
Next J
Print K
填空题下面程序的输出结果是{{U}} 【15】 {{/U}}。
Private Sub Commandl_Click( )
Dim a(1 To 20)
Dim i
Fori = 1 To 20
a(i) = i
Next i
For Each i In a( )
a(i) = 20
Next i
Print a(2)
End Sub
填空题VBA中使用的3种选择函数是 【12】 、Switch和Choose。
填空题在报表向导中可以更改记录源并从其他______和______中选择所需字段。
填空题______窗体允许用户对表格内的数据进行操作;用户也可以改变透视表的布局,以满足不同的数据分析方式和要求。
填空题运行如下程序段:
K=l
y=1
z=1
For j=1 To?
For k=1 To 3
If j=1 Then
x=x + y +z
Else If j=2Then
x=2*x+2*y+2*z
E1se
x=3*x+3*y+3*z
End If
Next k
Next j
x的值应是{{U}} 【15】 {{/U}}
填空题VBA中的控制结构包括顺序结构,分支结构和{{U}} 【9】 {{/U}}结构。
填空题数据的逻辑结构被分为______、线性结构、树形结构和图形结构4种。
