填空题以下程序的功能是:程序运行后,单击命令按钮,输出结果为: 1 4 7 2 5 8 3 6 9 请填空。 Private Sub Command1_Click( ) Dim Arr(3,3)As Integer For i=1 To 3 For j=1 To 3 Arr(i,j)=______ Print Arr(i,j); Next j Print Next i End Sub
填空题在窗体上先画一个名为Text1的文本框和一个名为Label1的标签,再画一个名为OP1的有4个单选按钮数组,其Index属性按季度顺序为0~3(见图5)。在文件sales.txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时,鼠标单击一个单选按钮,则Text1中显示相应季度的销售总额,并把相应的文字显示在标签上。图6是单击“第3季度”单选按钮产生的结果。请填空。Dimsales(12)AsLongPrivateSubForm_Load()open"sales.txt"ForInputAS#1Fork=1To12Input#1,sales(k)NextkClose#1EndSubPrivateSub(7)(Index,ASInteger)DimsumASLong,kASIngeger,monthASIngegersum=0month=Index*(8)Fork=1To3month=month+1sum=sum+sales(month)NextkLabel1.Caption=Opl(Index).(9)&"销售总额:"Text1=sumEndSub
填空题在最坏情况下,堆排序需要比较的次数为
________
。
填空题窗体上命令按钮Commandl的事件过程如下:
Private Sub Command1_Click()
Dim total As Integer
total=s(1)+s(2)
Print total
End Sub
Private Function s(m As Integer)As Integer
Static x As Integer
For i=1 To m
x=x+1
Next i
s=x
End Function
运行程序,第3次单击命令按钮Command1时,输出结果为{{U}} 【7】 {{/U}}。
填空题以下程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中各元素的最小值。请填空。
Option Base 1 Private Sub Commandl_Click()
Dimarrl DimMin As Integer,i As
Integer arrl=Array(12,435,76,-24,78,54,866,43)
Min={{U}} {{U}} 14 {{/U}} {{/U}}
Fori=2 To 8 If arrl(i)<Min
Then{{U}} {{U}} 15 {{/U}} {{/U}}
Nexti Print"最小值是:";Min End Sub
填空题设有程序: Option Base 1 Private Sub Command1 Click() Dim arrl,Max as Integer arrl=Array(12,435,76,24,78,54,866,43) ______ =arrl(1) For i=1 To 8 If arrl(i)>Max Then_______ Next i Print“最大值是:”;Max End Sub 以上程序的功能是:用Atray函数建立一个含有8个元素的数组,然后查找并输出该数组中元素的最大值。请填空。
填空题为了使标签能自动调整大小以显示全部文本内容,应把标签的______属性设置为True。
填空题对于图书管理数据库,将图书表中“人民邮电出版社”的图书的单价涨价5%。请对下面的SQL语句填空: UPDATE 图书______WHERE出版单位=“人民邮电出版社”
填空题设有命令按钮Command1的单击事件过程,代码如下:
Private Sub Command1_Click()
Dim a(30)As Integer
For i=1 To 30
a(i)=i
Next
For Each arrItem{{U}} 【13】 {{/U}}a
If arrItem Mod 7=0 Then Print arrItem:
If arrItem>90 Then Exit For
Next
End Sub
请填空。
填空题新建一个工程,内有两个窗体,窗体Form1上有一个命令按钮Command1,单击该按钮,Form1窗体消失,显示Form2窗体,程序如下:
Private Sub Command1_Click()
______
Form2. ______
End Sub
试补充完整。
填空题算法的基本特征是可行性、确定性、 【1】 和拥有足够的情报。
填空题当循环队列非空且队尾指针等于队头指针时,说明循环队列已满,不能进行入队运算。这种情况称为 (1) 。
填空题以下程序的功能是:生成20个200到300之间的随机整数,输出其中能被5整除的数并求出它们的和。请填空。 Private Sub Command1_Click() For i=i To 20 x=Int(______*101 +200) If______=0 Then Print x S=S+______ Ena If Next i Print"Sub="; S End Sub
填空题若二叉树中度为2的结点有15个,度为1的结点有10个,则有 【3】 个叶结点。
填空题在窗体上画一个命令按钮,然后编写如下事件过程:
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(1,2,3,4)
j=1
For i=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next i
Print s
End Sub
运行上面的程序,单击命令按钮,其输出结果是{{U}} 【15】 {{/U}}。
填空题要对文本框中已有的内容进行编辑,按下键盘上的按键,但不起作用,原因是设置了______。
填空题软件测试分为功能测试和结构测试两类,路径测试是属于{{U}} 【3】 {{/U}}的一种。
填空题执行下面的程序段后,s的值为______。 s=5 For i=2.6 To 4.9 Step 0.6 s=s+1 Next i
填空题如果存在如下过程:
Private Function FMax(a( )As Integer)
Dim First As Integer,Last As Integer,i As Integer
First=LBound(A)
Last=UBound(A)
Max=a(First)
For i=First To Last
If a(i) > Max Then Max=a(i)
Next i
FMax=Max
End Function
在窗体上添加一个命令按钮,然后编写如下事件过程:
Private Sub Command1 Click( )
ReDim m(1 To 4) As Integer
m(1)=20:m(2)=30:m(3)=50:m(4)=100
c=FMax(m)
Print c
End Sub
单击命令按钮,其输出结果为{{U}} 【12】 {{/U}}。
填空题某个菜单项设计为分割线,则该菜单项的标题应设置为 【11】 。