填空题有一个VBA计算程序的功能如下,该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为:Text1、Text2、Text3和Text4。3个按钮分别为:清除(名为Command1)、计算(名为Command2)和退出(名为Command3)。窗体打开运行后,单击“清除”按钮,则清除所有文本框中显示的内容;单击“计算”按钮,则计算在Text1、Text2和Text3三个文本框中输入的3科成绩的平均成绩并将结果存放在Text4文本框中;单击“退出’’按钮则退出。请将下面程序补充完整。 Private Sub Command1_Click() Me! Text1 = "" Me! Text2 = "" Me! Text3 = "" Me! Text4 = "" End Sub Private Sub Command2_Cliek( ) If Me! Text1="" Or Me! Text2 = "" Or Me! Text3 = "" Then MsgBox "成绩输入不全" Else Me! Text4 = 【13】 +Val(Me! Text2)+Val(Me! Text3)) 【14】 End Sub Private Sub Command3_Click( ) Docmd. 【15】 EndSub
填空题数据表中的“列”称为 【10】 。
填空题程序风格是指编写程序时所表现出的特点、习惯和逻辑思路等,遵循______的原则。
填空题在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() Dim arr(1 To 100)As Integer For i=1 T0 100 arr(i)=Int(Rnd* (12) ) Next i Max=arr(1) Min=arr(1) For i=1 To 100 If (13) Then Max=arr(i) End If If (14) Then Min=arr(i) End If Next i MsgBox Max MsgBox Min End Sub 程序运行后,单击命令按钮,将产生100个1000以内的随机整数,放入数组arr中,然后查找并先后使用消息框输出这100个数中的最大值和最小值,请将程序补充完整。
填空题下面程序的运行结果为{{U}} 【16】 {{/U}}。
x=-2.3
y=125
z=Len(Str$(x)+Str$(y))
Print z
填空题Access提供了6种类型的窗体,分别是 {{U}}【13】{{/U}}、表格式窗体、 {{U}}【14】{{/U}}、主/子窗体、图标窗体和数据透视表窗体。
填空题在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1 Click() Do While b>=0 a=Val(InputBox("请输入a的值")) b=Val(InputBox("请输入b的值")) c=a+b Loop MsgBox c End Sub 程序运行后,依次输入3,2,1,0,-1,-2,则输出结果是______。
填空题控件是窗体上用于显示数据、 【13】 和装饰窗体的对象。
填空题假定w、x、y、z、m均为int型变量,有如下程序段:
w = 1; x = 2; y = 3; z = 4;
m = (w<x)? w:x;
m = (m<y)? m:y;
m = (m<z)? m:z;
运行程序后,m的结果是{{U}} 【2】 {{/U}}。
填空题Access字段名长度最多为 【6】 个字符。
填空题宏的窗口分为设计区和参数区两部分,设计区由四列组成,它们分别是“宏名”、“条件”、“操作”和“备注”列。上述四列中的内容,不能省略的是{{U}} 【10】 {{/U}}。
填空题下列软件系统结构图的宽度为________。
填空题在数据库逻辑结构的设计中,将E-R模型转换为关系模型应遵循相关原则。对于三个不同实体集和它们之间的多对多联系m:n:p,最少可转换为 【4】 个关系模式。
填空题有一个VBA计算程序的功能如下:该程序用户界面由4个文本框和3个按钮组成,4个文本框的名称分别为Text1、Text2、Text3和Text4,3个按钮分别为清除(名为Command1) 、计算(名为 Command2) 和退出(名为Command3) 。窗体打开运行后,单击清除按钮,则清除所有文本框中显示的内容;单击计算按钮,则计算在Text1、Text2和Text3三个文本框中输入的3科成绩的平均成绩并将结果存放在Text4文本框中;单击退出按钮则退出。请将下列程序填空补充完整。 Private Sub Command1_Click( ) Me!Text1="" Me!Text2="" Me!Text3="" Me!Text4="" End Sub Private Sub Command2_Click( ) If Me!Text1=""Or Me! Text2=""Or Me! Text3=""Then MsgBox“成绩输入不全” Else Me!Text4=( [13] +Val(Me!Text2) +Val(Me!Text3) ) /3 [14] End Sub Private Sub Command3_Click( ) DocmD [15] End Sub
填空题一下程序找出50以内所有能构成直角三角形的整数组。阅读下列程序,并完成程序。 Private Sub Command1_Click() For a=1 to 50 For b=a to 50 c=Sqr(a^2+b^2) If 【15】 then print a;b;c next b next a end Sub c<=50 And c=Int(c)
填空题在使用Dim语句定义数组时,在缺省情况下数组下标的下限为______。
填空题在窗体上画一个命令按钮,然后编写如下代码: Private Sub Command1_click() Dim M(10)As Integer For k=1 To 10 M(k)=12-k Next k x=6 MsgboxM(2+M(x)) End Sub 程序运行后,单击命令按钮,消息框显示的是 【13】 。
填空题运行下面程序,其运行结果k的值为 【14】 其最里层循环体执行次数为 【15】 。 Dim I =j,k AS Integer I =l Do For j:I TOjStep2 k=k +j Next I =i+2 Loop Until I >8
填空题在树型结构中,树根结点没有{{U}} 【1】 {{/U}}。
填空题若a=12,b=14,c=0,则表达式“((y=(a>b)?a:b)?y:c)?y:c”的值为{{U}} 【6】 {{/U}}。
