填空题假定有以下程序段: n=0 for i=1 to 3 for j=1 to 3 n=n+1 next j next i 运行完毕后,n的值是______。
填空题设某循环队列的容量为50,头指针front=5(指向队头元素的前一位置),尾指针reaf=29(指向队尾元素),则该循环队列中共有{{U}} 【3】 {{/U}}个元素。
填空题运行下列程序,输入如下两行: Hi, I am here. 弹出的窗体中的显示结果是______。 Private Sub Command11_C1ick() Dim abc As String,sum As string sum="" DO abc=InputBox("输入abc") If Right(abc,1) ="." Then Exit Do sum=sum+abC Loop MsgBox sum End Sub
填空题下列程序段的执行结果是 【14】 。 x=Int(Rnd+4) Select Case X Case 5 Print"优秀" Case 4 Print"良好" Case 3 Print"合格" Case Else Print"不合格" End Select
填空题若要查找最近 20 天之内参加工作的职工记录,查询准则为_________。
填空题在窗体上添加一个命令按钮(名为Command1),然后编写如下程序: Function m(x as Integer,y as InteSer)as Integer m=IIf(x>y,x,y) EndFunction Private Sub Command1_Click() Dim a as Integer,b as InteSer a=l b=2 MsgBox m(a,B) End Sub 打开窗体运行后,单击命令按钮,消息框的输出结果为______。
填空题在宏的表达式中引用报表控件的值可以用表达式______。
填空题执行以下程序段后,x的值为______。 Dim x As Integer,i As Integer x=0 For i=20 To 1 Step -2 x=x+i/5 Next i
填空题Access数据库系统中字段的“有效性规则”属性是一个限定该字段______的表达式。
填空题缺省情况下,报表中的记录是按照【 】排列显示的。
填空题下面程序段运行后,变量X的值为{{U}} 【16】 {{/U}}。
Dim x AS Integer
Dim I As Integer
x=0
for I=0 to 50 step 10
x=x+1
next I
Print x
填空题以下程序用来输出20个在开区间(10, 87)上的随机整数R,第行输出4个整数。请完成空白处。
Private Sub Command1_Click()
For I=1To 10
R= Int(Rnd*76+1)
Print R;
If{{U}} 【16】 {{/U}}Then Print
Next I
End Sub
填空题问题处理方案的正确而完整的描述称为{{U}} 【5】 {{/U}}。
填空题有多个操作构成的宏,执行时是按 【9】 执行的。
填空题VBA的运行机制是{{U}} 【6】 {{/U}}。
填空题算法的基本特征是可行性、确定性、{{U}} 【1】 {{/U}}和拥有足够的情报。
填空题参照完整性是一个准则系统,Access使用这个系统用来确保相关表中的记录之间 【6】 的有效性,并且不会因意外而删除或更改相关数据。
填空题可以在窗体和数据表中使用{{U}} 【9】 {{/U}}跳到同一或另一Access数据库中的对象上,或跳到因特网上的文档上。
填空题运行下面程序,其运行结果k的值为{{U}} 【14】 {{/U}}其最里层循环体执行次数为{{U}} 【15】 {{/U}}。
Dim I =j,k AS Integer
I =l
Do
For j:I TOjStep2
k=k +j
Next
I =i+2
Loop Until I >8
填空题以下是一个竞赛评分程序。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 = Val(InputBox("请输入分数:")) If _________Then Max = x
If_________Then Min = x s = s + x
Next i
s = _________
p = s / 6
MsgBox "最后得分:" & p
End Sub