填空题在窗体上添加两个文本框和一个按钮,在按钮的单击事件中添加如下代码: Private sub command1_Click( ) Text1="vba test" Text2=text1 Text1= "test end" End sub 单击按钮后,text2中的文本内容是 【11】 。
填空题VBA中打开窗体的命令语句是 。
填空题在SQL中,每个视图中的列可以来自不同的______,它是在原有表的基础上的逻辑意义上的新关系。
填空题设一个关系为R(A,B,C,D,E),它的最小函数依赖集为FD=A→B,A→C,(A,D)→E),该关系只满足______范式,若要规范化为高一级的范式,则将得到______个关系。
填空题使用“报表向导”创建报表,报表包含的字段个数在创建报表时可以选择,还可以定义______。
填空题在Access中可以定义三种主关键字:自动编号、单字段及 【7】 。
填空题用VBA编程操作本地数据库时,提供一种DAO数据库打开的快捷方式是 CurrentDB(),而相应地也提供了一种ADO的默认连接对象是__________。
填空题若—个关系的任何非主属性都不部分依赖于任何候选码,则称该关系达到______范式。
填空题以下是一个竞赛评分程序8位评委,去掉一个最高分和一个最低分,计算平均分(设满分为10分),请填空补充完整。
Private Sub Form_Click()
Dim Max as Integer,Min as Integer
Dim i aS Integer, X as Integer,S as Integer
Dim p aS Single
Max=0
Min=10
For i=1 TO 8
x=Va1(1nputBox("请输入分数:"))
If{{U}} 【13】 {{/U}}Then Max=x
If{{U}} 【14】 {{/U}}Then Min=x
s=s+x
Next i
s={{U}} 【15】 {{/U}}
p=s/6
MsgBox"最后得分:"& p
End Sub
填空题现有一个登录窗体如下图所示。打开窗体后输入用户名和密码,登录操作要求在20秒内完成,如果在20秒内没有完成登陆操作,则倒计时达到0秒时自动关闭本窗体,窗体的右上角是显示倒计时的标签labtime。事件代码如下,要求填空完成事件过程。DimflagAsBooleanDimiAsIntegerPrivateSubForm_Load()flag=______Me.TimerInterval=1000i=0EndSubPrivateSubForm_Timer()Ifflag=TrueAndi<20ThenMe!labtime.Caption=20-ii=______ElseDoCmd.CloseEndIfEndSubPrivateSubOK_Click()'登录程序略'如果用户名和密码输入正确,则:falg=FalseEndSub
填空题已知序列17,18,60,40,7,32,73,65,85,采用冒泡排序法对该序列作降序排序时,第4趟的结果是______。
填空题软件开发环境是全面支持软件开发全过程的 【4】 。
填空题表的设计视图分为上下两部分,上半部分是_______,下半部分是字段属性区。
填空题在窗体中有一个名为command12的命令按钮,click事件的代码如下。该事件所完成的功能是:接受从键盘输入的10个大于0的整数,找出其中的最大值和对应的输入位置。请依据上述功能要求将程序补充完整。
Private Sub Command12_Click()
max=0
max_n=0
For i=1 To 10
Num=Val(InputBox("请输入第"& i &"个大于0的整数:"))
If(nunl>Inax)Then
max={{U}} (12) {{/U}}
max_n={{U}} (13) {{/U}}
End If
Next i
MsgBox("最大值为第"&max_n &"个输入的" & max)
End Sub
填空题已知如下程序段: Dim MyInt As Integer Dim MyLen MyLen=Len(MyInt) 执行以上程序段后,MyLen为______。
填空题常用的黑箱测试有等价分类法、{{U}} 【2】 {{/U}}、因果图法和错误推测法四种。
填空题运行以下程序段后,输出结果为 【12】 。 a=4: b=2 Print a*(a-B)
填空题—个项目具有—个项目主管,一个项目主管可管理多个项目,则实体“项目主管”与实体“项目”的联系属于{{U}} 【4】 {{/U}}的联系。
填空题在窗体上添加一个命令按钮(名为Cmd),然后编写如下事件过程: Private Sub Cmd_Click( ) Dim sum,k For k=1 to 6 sum=30+k Next k MsgBox sum+k End Sub 打开窗体后,单击命令按钮,消息框的输出结果是______。
填空题下面程序段的运行结果是{{U}} 【15】 {{/U}}。
Option Base 1
Private Sub Swap (a() As Integ
For I=1 to 10/2
t=a(I)
a(I)=a(10-I+1)
a(10-I+1)=t
Next I
End Sub
Private Sub Form_Click()
Dim x(10) As Integer
For I=1 to 10
x(I)=I*2
Next I
Swap x()
For I=1 to 10
Print x(I)
Next I
End Sub