填空题在窗体上添加一个命令按钮(名为Command1),然后编写如下程序:
Function m(x as Integer,y as Integer) as Integer
m=IIf(x>y,x,y)
End Function
Private Sub Command1_Click()
Dim a as Integer,b as Integer
a=1
b=2
MsgBox m(a,b)
End Sub
打开窗体运行后,单击命令按钮,消息框的输出结果为
________
。
填空题关系操作的特点是 【5】 操作。
填空题阅读程序: a=1;b=1 Do Print a,b a=a +b:b=a +b If a>20 Then Exit Do Loop 程序中的Do-Loop循环的循环体执行 【13】 次。
填空题在名为"Form1"的窗体上添加三个文本框和一个命令按钮,其名称分别为"Text1"、"Text2"、"Text3"和 "Command1",然后编写如下两个事件过程:
Private Sub Command1_Click()
Text3=Text1+Text2
End Sub
Private Sub Fonn1_Load()
Text1=" "
Text2=" "
Text3=" "
End Sub
打开窗体Form1后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入5和7,然后单击命令按钮Command1,则文本框(Text3)中显示的内容为{{U}} 【14】 {{/U}}。
填空题下面程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并在文本框Text1中输出该数组中各元素的最小值。请填空。 Option Base 1 Private Sub Command1_Click() Dim arr1() Dim Min As Integer, i As Integer arr1=Array(12,-24,435,76,866,78,43,54) Min= (14) For i=2 To 8 If arr1(i)<Min Then (15) Next i Text1=Min End Sub
填空题假定窗体的名称为fm Test,则把窗体的标题设置为“计算机等级考试”的语句是 【12】 。
填空题设有以下窗体单击事件过程: Private Sub Form_Click() a=1 For i=1 To 3 Select Case i Case 1, 3 a=a+1 Case 2, 4 a=a+2 End Select Next i MsgBox a End Sub 打开窗体运行后,单击窗体,则消息框的输出内容是______。
填空题在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程。 Private Sub Command1_Click() n=5 f=1 s=0 For i=1 To n f=f ______ s=s+f Next i Print s End Sub 该事件过程的功能是计算s=1+1/2!+1/3!+…+1/n!的值,请填空。
填空题数据管理技术经历了人工处理阶段、{{U}} 【6】 {{/U}}、{{U}} 【7】 {{/U}}、分布式数据库系统、面向对象数据库系统等几个发展阶段。
填空题以下是一个竞赛评分程序。8位评委,去掉一个最高分和一个最低分,计算下均分(设满分为10分),
请填空补充完整。
Private Sub Form_Click()
Dim Max as Integer,Min as Integer
Dial 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{{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
填空题数据库管理系统是位于{{U}} 【1】 {{/U}}之间的软件系统。
填空题宏是一个或多个{{U}} {{U}} {{/U}} {{/U}}的集合。
填空题创建窗体可以使用 【10】 和使用 【11】 两种方式。
填空题对如图所示的二叉树进行中序遍历的结果为______。
填空题某次大奖赛有7个评委同时为一位选手打分,去掉一个最高分和一个最低分,其余5个分数的平均值为该名参赛者的最后得分。请填空完成规定的功能。 Sub Command1_Click() Dim mark!,aver!,i%,max1!,min1! aver=0 For i=1 To 7 mark=InputBox("请输入第"&i&"位评委的打分") If i=1 then max1=mark:min1=mark Else If mark<min1 then min1=mark Else If mark>max1 then (12) End If End If (13) Next i aver=(aver-max1-mini)/5 MsgBox aver End Sub
填空题在窗体上有一个命令按钮Command1,编写事件代码如下。 Private Sub Command1_Click() Dim a(10),p(3) As Integer k=5 For i=1 To 10 a(i)=i*i Next i For i=1 To 3 D(i)=a(i*i) Next i For i=1 To 3 k=k+p(i)*2 Next i MsgBox k end Sub 打开窗体运行后,单击命令按钮,消息框中输出的结果是______。
填空题查询是专门用来进行______,以及便于以后进行数据加工的一种重要的数据库对象。
填空题{{U}} 【14】 {{/U}}主要用于对数据库中的数据进行分组、计算、汇总和打印输出。
填空题DAO的中文含义是 【11】 。
填空题有如下程序: total = 0 For k = 1 To 3 If k> =1 Then part = 1 Elself k > = 2 Then part = 2 Elself k > =3 Then part = 3 Else part = 4 End If Print part; total = total + part Next k Print total 运行时输出的结果是 【14】 。