填空题在窗体上画两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程：
Private Sub Commandl_Click()
Text1＝"VB programming"
Text2＝Text1
Text1＝"ABCD"
End Sub
程序运行后，单击命令按钮，文本框Text2中显示的内容为{{U}} 【12】 {{/U}}。
填空题三种基本的程序控制结构中， 【2】 是按照程序语句行的自然顺序，依次执行语句。
填空题下面VBA程序段运行时，内层循环总次数是______。 For m=0 To 7 Step 3 For n=m-1 To m+1 Next n Next m
填空题以下程序的功能是：从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，显示结果。请填空。
Private Sub Form_click()
Dim x，y As Single
Dim z As Integer
x=InputBox("Enter a score")
Do while{{U}} 【13】 {{/U}}。
y=y+x
z=z+1
x=InputBox("Enter a score")
Loop
If z=0 Then
z=1
End If
y=y/z
msgbox y
End Sub
填空题已知一个名为“学生”的Access数据库，数据库中的表“stud”存储学生的基本信息，包括学号、姓名、性别和籍贯。下面程序的功能是：通过下图所示的窗体向“stub”表中添加学生记录，对应“学号”、“姓名”和“籍贯”的4个文本框的名称分别为tNo、tName、tSex和tRes。当单击窗体中的“增加”命令按钮时，首先判断学号是否重复，如果不重复则向“stud”表中添加学生记录；如果学号重复，则给出提示信息。PrivateSubForm_Load'打开窗口时，连接Access数据库SetADOcn=CurrentProjeet．ConnectionEndSubDimADOcnAsNewADODB．ConnectionPrivateSubCommand1_Click'增加学生记录DimStrSQLAsStringDimADOrsAsNewADODB．RecordsetSetADOrs．ActiveConnection=ADOcnADOrs．Open"Select学号FromStudWhere学号="+tNo+"'IFNotADOrs(14)Then'如果该学号的学生记录已经存在，则显示提示信息MsgBox"你输入的学号已存在，不能增加!"Else'增加新学生的记录strSQL="InsertIntostud(学号，姓名，性别，籍贯)"strSQL=strSQL+"Values(""+tNo+"，"+tName+tSex+"，"+tRes+"")"ADOen.Execute(15)。MsgBox"添加成功，请继续!"EndIfADOrs．CloseSetADOrs=NothingEndSub
填空题有如下程序 tota1=0 For k=1 To 3 If k＞1 Then part=1 ElseIf k＞=2 Then part=2 ElseIf k＞=3 Then part=3 Else part=4 End If Print part； total=total+part Next k Print total 运行时输出的结果是 【14】 。
填空题下面程序的运行结果为{{U}} 【15】 {{/U}}。
x=-2.3
y=125
z=Len(Str$(x)+Str$(Y))
Print z
填空题阅读程序： a=1:b=1 Do Print a, b a=a+b:b=a+b If a ＞ 20 Then Exit Do Loop 程序中的Do...Loop循环的循环体执行 【13】 次。
填空题在Access中，创建报表的三种方式______、使用向导功能和使用“设计”视图功能创建。
填空题在下面的程序中，要求循环体执行四次，请填空。
Private Sub Command1_click()
x=1
Do While{{U}} 【13】 {{/U}}
x=x+2
Loop
End Sub
填空题在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1)，编写如下事件过程： Private Sub Command1_Click() Dim x As Integer,y As Integer,z As Integer x=3:y=5:z=10 Me!Text1="" Call f(x,y,z) Me!text1=z End Sub Sub f(a As Integer,b As Integer,c As Integer) c=b*a End Sub 打开窗体运行后，单击命令按钮，文本框中显示的内容是______。
填空题设有“a=5,b=6,c=7,d=8”，则执行语句x=IIF((a＞b)And(c＞d)，10,20)后，x的值为 ______。
填空题设有命令按钮Commandl的单击事件过程，代码如下： Private SubCommandl_Click() Dim a(3,3) As Integer For i＝1 To 3 For i＝1 To 3 a(i,j) ＝i*j+i+j Next j Next i Sum＝0 Fori＝1 To 3 Sum＝Sum+a(i,4-i) Next i MsgBox Sum End Sub 运行程序，单击命令按钮，消息框输出结果是______。
填空题以下程序用来输出20个在开区间(10，87)上的随机整数R，每行输出4个整数。请完成空白处。 Private Sub Command1 Click() For I=1 To 10 R=Int(Rnd*76+11) Print R； If 【16】 Then Print Next I End Sub
填空题数据访问页的后缀名是{{U}} 【14】 {{/U}}。
填空题组合框和列表框的主要区别是：是否可以在框中{{U}} 【9】 {{/U}}。
填空题有如下程序
total=O
For k=l TO 3
If k＞=1 Then
part=1
ElseIf k＞=2 Then
part=2
ElseIf k＞=3 Then
part=3
Else
part=4
End If
Print part；
total=total+part
Next k
Print total
运行时输出的结果是
________
。
填空题使用______控件可以标示数据访问页各级主题。
填空题Print Datediff("m",#2002/09/24#,#2002/09/25#)输出结果为 【11】 。
填空题如果要将某表中的若干记录删除，应该创建 【10】 查询。