填空题设有程序: Option Base 1 Private Sub Command1_Click() Dim arr1,Max as Integer arr1=Array(12,435,76,24,78,54,866,43) 【12】 =arr1(1) For i=1 To 8 If arr1(i)>Max Then 【13】 Next i Print"最大值是:";Max End Sub 以上程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中元素的最大值。请填空。
填空题有64个结点的完全二叉树的深度{{U}} 【3】 {{/U}}(根的层次为1)。
填空题在窗体上建立名称为Text1、Text2和删的三个文本框,其中Text1和Text2文本框用来接受两个整数(假设为M和N),建立一个名称为command1的命令按钮,单击它将得到数M从右边起的N位数字,并把该数字显示在Text3文本框中,如下图所示。请填空。privateFuctiondigit(ByValmAsInteger,ByValnAsInteger)AsIntegerDimiAsIntegerFori=1Ton-1M=m/10NextiDigit={{U}}【6】{{/U}}EndFunctionPrivateSubCommand1_Click()DimmAsInteger,nAsInteger,kAsIntegerm=Val(Text1.Text)n=Val(Tex2.Text)k={{U}}【7】{{/U}}Text3.Text=Str(k)EndSub
填空题下面程序的功能是:计算1~10之间奇数之和及偶数之和。 Dim a,b,c,i a=0 c=0 For i=0 To 10 Step 2 a=i+a 【10】 c=b+c Next i Print "偶数之和=";a Print"奇数之和=" ;c-11
填空题软件维护活动包括以下几类:改正性维护、适应性维护、
________
维护和预防性维护。
填空题数据库管理系统(DBMS)是数据库的机构,通常由数据定义语言、数据控制语言, 【5】 和一些实用程序四部分组成。
填空题要想在文本框中显示垂直滚动条,必须把Scrolebars属性设置为2,同时还应把______属性设置为了True。
填空题完成下面的程序,使显示结果如下图所示。PrivateSubForm_Click()FontSize=18Samples="9"x=(ScaleWidth_TextWidth(Samples))/2y=(ScaleHeight_TextHeight(Samples))/2CurrentX=xCurrentY=y10Sample$EndSub
填空题为了定义自己的鼠标光标,首先应把MousePointer属性设置为______,然后把______属性设置为一个图标文件。
填空题假定有如下程序代码,程序运行后,把鼠标光标移到窗体内,每单击一次,变换一种鼠标光标的形状,依次显示鼠标光标的15个属性。请在划线处将程序补充完整。
Private Sub Form_Click()
Static x As Integer
Cls
Print "Mousepointer Property is now";x
Form1.{{U}} 【12】 {{/U}}=x
x=x+1
If x=15 Then x=0
End Sub
填空题窗体如下图所示,其中汽车是名称为Imagel的图像框,命令按钮的名称为Command1,计时器的名称为Timer1,直线的名称为Line1。程序运行时,单击命令按钮,则汽车每0.1秒向左移动100,车头到达左边的直线时停止移动。请填空完成下列的属性设置和程序,以便实现上述功能。(1)Timer1的Interval属性的值应事先设置为______(2)PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubTimer1_Timer()IfImage1.Left>=______ThenImage1.Left=______-100EndIfEndSub
填空题下列软件系统结构图的宽度为______。
填空题在KeyDown和KeyUp事件过程中,当参数Shift的值为十进制数1,2,4时,分别代表Shift、______、______。
填空题假定编写了如下事件过程:
Private Sub Form MouseMove(Button As Integer,
Shift As Integer, X As Single, Y As Single)
If (Button And 3) = 3
Print "AAAA"
End If
End Sub
程序运行后,为了在窗体上输出AAAA,应执行的操作是______ 。
填空题为显示弹出式菜单,可以使用______方法。
填空题下列程序段的执行结果为
________
。
Dim A (10,10)
For i = 2 To 4
For j =4 To 5
A(i,j) =i*j
Next
Next
Print A (2,5) +A(3,4) +A(4,5)
填空题设A="345678",则表达式Val(Mid(A,4,2)+Right(A,4))的值为______。
填空题算法的复杂度主要包括空间复杂度和 【1】 复杂度。
填空题二叉树是结点的有限集合,这个有限集合或者为{{U}} {{U}} {{/U}} {{/U}},或者由一个根结点及两棵不相交的二叉树组成,分别作为根的左子树和右子树。
填空题以下过程用来在w数组中插入x,w数组中的数已按由小到大的顺序存放,n指存储单元中存放数组中数据的个数,插入后数组中的数仍有序。请填空补充程序。
Sub fun(w,x,n)
Dim i,p
p=0
w(n)=x
Do While x>w(p)
______
Loop
For i=n to p+1 Step-1
w(i)=______
Next i
w(p)=x
n=n+1
Sub End
