填空题在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim i As Integer,n As Integer n=0 For i=1 To 50 i=i+3 n=n+1 If i>10 Then Exit For Next i Text1.Text=Str(n) End Sub
填空题在设计条件宏时,对于连续重复的条件,可采用符号U 【9】 /U来代替重复条件。
填空题阅读下面的程序段:
for i=1 to 3
for j=i to 1
for k=j to 3
a=a+1
next k
next j
next i
执行上面的三重循环后,a的值为{{U}} 【14】 {{/U}}。
填空题返回由数值表达式的值确定的空格个数组成的空字符串的函数为______。
填空题隐藏表中列的操作,可以限制表中______的显示个数。
填空题在宏中引用窗体控件的命令格式是( 【9】 ) 。
填空题在报表设计中,可以通过添加______控件来控制另起一页输出显示。
填空题 【1】 是指反映数据元素之间逻辑关系的数据结构。
填空题参照完整性是一个准则系统,Access使用这个系统用来确保相关表中的记录之间______的有效性,并且不会因意外而删除或更改相关数据。
填空题结构化程序设计所规定的三种基本控制结构是循环结构、选择结构和{{U}} 【4】 {{/U}}。
填空题在表格式窗体、纵栏式窗体和数据表窗体中,将窗体最大化后显示记录最多的窗体是上{{U}} 【8】 {{/U}}。
填空题{{U}}【10】 {{/U}}是一个或多个操作的集合。
填空题假设变量intVar为一个整型变量,则执行赋值语句intVa="2"+3之后,变量intVar的值是{{U}} 【14】 {{/U}}。
填空题在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序: Private Sub S(By Val P As Integer) P=P*2 End Sub Private Sub Command1_Click() Dim i As Integer i=3 Call s(i) If i>4 Then i=i^2 MsgBox i End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果为______。
填空题对窗体test上文本框控件txtAge中输入的学生年龄数据进行验证。要求:该文本框中只接受大于等于15且小于等于30的数值数据,若输入超出范围则给出提示信息。该文本控件的BeforeUpdate事件过程代码如下,请在空白处填入适当的语句,使程序可以完成指定的功能。
Private Sub txtAge_BeforeUpdate(Cancel As Integer)
IfMe!txtAge=""or{{U}} 【14】 {{/U}} (Me!txtAge)Then
'数据为空时的验证
MsgBox"年龄不能为空!",vbCritical,"警告"
Cancel=Tree '取消BeforeUbdate事件
ElseIf IsNumeric(Me!txtAge)=False Then
'非数值数据输入的验证
MsgBox"年龄必须输入数值数据!", vbCritical,"警告"
Cancel=True '取消BeforeUpdate事件
ElseIf Me!txtAge<15 Or Me!txtAge{{U}} 【15】 {{/U}}Then
'非法范围数据输入的验证
MsgBox"年龄为15-30范围数据!",vbCriticat,"警告"
Cancel=True '取消BeforeUpdate事件
Else '数据验证通过
MsgBox"数据验证OK!",vbInformation,"通告"
End If
End Sub
填空题在窗体上画一个名称为Command1的命令按钮和3个名称为Labe11、Labe12、Labe13的标签,然后编写如下程序段:
Private x As Integer
Private Sub Command1_Click()
Static y As Integer
Dim z As Integer
n=10
z=n+z
y=y+z
X=X+Z
Labe11.Caption=x
Labe12.Caption=y
Labe13.Caption=z
End Sub
运行程序,连续3次单击命令按钮后,则3个标签中显示的内容是{{U}} 【15】 {{/U}}
填空题在Access 2003数据访问页对象中, 【8】 是一个为数据访问页提供字体、横线、背景图案以及其他元素的统一设计和颜色方案的集合。
填空题窗口事件是指操作窗口时所引发的事件。常用的窗口事件有“打开”、“______”和“______”等。
填空题一台机器的原价值为100万元,如果每年的折旧率为4%,那么多少年后它的价值不足 50万元。程序设计如下,请补充完整。 Y=0 P=100 X=0.04 DO P= 【13】 Y=Y+1 LOOP UNTIL P< 【14】 MSGBOX Y
填空题“秒表”窗体中有两个按钮(“开始/停止”按钮bOK,“暂停/继续”按钮bPus);一个显示计时的标签1Num;窗体的“计时器间隔”设为100,计时精度为0.1秒。要求:打开窗体如图1所示;第一次单击“开始停止”按钮,从0开始滚动显示计时(见图2);10秒时单击“暂停/继续”按钮,显示暂停(见图3),但计时还在继续;若20秒后再次单击“暂停/继续”按钮,计时会从30秒开始继续滚动显示;第二次单击“开始/停止”按钮,计时停止,显示最终时间(见图4)。若再次单击“开始/停止”按钮可重新从0开始计时。相关的事件程序如下。请在空白处填入适当的语句,使程序可以完成指定的功能。OptionCompareDatabaseDimflag,pauseAsBooleanPrivateSubbOKClick()flag=(12)Me!bOK.Enabled=TrueMe!bPus.Enabled=flagEndSUbPrivateSubbPuSCliCk()pauSe=NotpauseMe!bOK.Enabled=NOtMe!bOK.EnabledEndSUbPrivateSubFormOpen(CancelAsInteger)flag=Falsepause=FalseMe!bOK.Enabled=TrueMe!bPus.Enabled=FalSeEndSubPrivateSubFormTimer()StaticcountAsSingleIfflag=TrueThenIfpause=FalseThenMe!1Num.Caption=Round(count,1)EndIfcount=(13)ElSecount=0EndIfEndSub
