填空题以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后的平均分即为景后得分)，如图所示。请填空。PrivateSubCommand1_Click()DimkAsIntegerDimsumAsSingle，maxAsSingle，minAsSinglesum=Text1(0)max=Text1(0)min={{U}}{{U}}{{/U}}{{/U}}Fork={{U}}{{U}}{{/U}}{{/U}}To6Ifmax＜Text1(k)Thenmax=Text1(k)EndIfIfmin＞Textloc)Thenmin=Text1(k)EndIfsum=sum+Textl(k)NextkText2={{U}}{{U}}{{/U}}{{/U}}/5EndSub
填空题在程序中动态地给图片框加载图像文件的函数为______。
填空题新建一个工程，内有两个窗体，窗体Form1上有一个命令按钮Command1，单击该按钮，Form1窗体消失，显示Form2窗体，程序如下，请填空。 Private Sub Command1_Click() Form1.Hide Form2. (12) End Sub
填空题数据库完整性的实现应该包括两个方面：一是系统要提供定义完整性约束条件的功能；二是提供 【5】 的方法。
填空题计时器事件时间的间隔通过______属性设置。
填空题菜单编辑器的“可见”选项对应于菜单控件的______属性。
填空题若进栈序列为a，b，c，则通过入出栈操作可能得到的a，b，c的不同排列个数为 【2】 。
填空题在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式计算，图2.1的窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时，在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中(见图2.1)。请填空。PrivateSubCommand1_Click()DimrAsInteger，nAsIntegern=Text1r=Text2Text3=fun(n)/fun(______)/fun(r)EndSubFunctionfun(nAsInteger)aslongDimtAsLongx=1Fork=1Tont=t*kNextfun=tEndFunction
填空题以下程序计算自然数e的值，要求精确到1015，阅读下列程序。已知e的计算公式为：e=1+1/1!+1/2! + …+1/n!。请在{{U}} 【6】 {{/U}}和{{U}} 【7】 {{/U}}处填上正确内容。Private Sub Commandl_ Click() {{U}} 【6】 {{/U}} n =0: term = 1: t = 1 do n= n +1 t=t/n {{U}} 【7】 {{/U}} Loop while t ＞1.0E-15 Text1. Text = termEnd Sub
填空题在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
For i=1 To 4
X=4
For j=1 To 3
x=3
For k=1 To 2
x=x+6
Next k
Next j
Next i
Print x
End Sub
程序运行后，单击命令按钮，输出结果是{{U}} 【14】 {{/U}}。
填空题InputBox函数输入数据时，可以单击“确定”按钮或______表示确认。
填空题下列表达式有错误，正确的写法应该是 【6】 。 [(a+B) +e]/80-5÷(d+e)
填空题VisualBasic中有一种控件组合了文本框和列表框的特性，这种控件是______。
填空题下面程序的功能是产生10个小于100(不含100) 的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。
Sub PR()
Randomize
Dim a(10)
For i=1 To 10
a(i) =Int({{U}} [14] {{/U}})
If {{U}}[15] {{/U}}Then k=k+1
Print a(j)
Next j
Print
Print k/10
End Sub
填空题在窗体上画一个名称为Combol的组合框，画两个名称分别为Label1和Label2及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按＜Enter＞键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”，如下图所示：如果存在，则在Label2中给出提示“输入项已在组合框中”。请将程序补充完整。PrivateSubCombol_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenFori=0ToCombol.ListCount-1IfCombol.Text={{U}}【2】{{/U}}ThenLabel2.Caption="输入项已在组合框中"ExitSubEndIfNextiLabel2.Caption="已成功添加输入项"Combol.{{U}}【3】{{/U}}Combol.TextEndIfEndSub
填空题与数学表达式COS2(a+b)/5x+8对应的Visual Basic表达式是 【1】 。
填空题在先左后右的原则下，根据访问根结点的次序，二叉树的遍历可以分为三种：前序遍历、{{U}} 【1】 {{/U}}遍历和后序遍历。
填空题如果要在单击命令按钮时执行一段代码，则应将这段代码写在
________
事件过程中。
填空题如图所示，在列表框Listl中已经有若干人的简单信息，运行时在Text1文本框(即“查找对象”右边的文本框)输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项：若未找到，则在Text2中显示“查无此人”。请填空。PrivateSubCommandl_Click()DimkAsInteger,nAsImeger,foundAsBooleanfound=Falsen=Len(______)k=0Whilek＜Listl.ListCountAndNotfoundIfText1=Left$(Listl.List(k),n)ThenText2=______found=TrueEndIfk=k+1WendIfNotfoundThenText2="查无此人"EndIfEndSub
填空题为了在运行时把图形文件piefile.jpg装入图片框对象Picture1之中，应该使用的语句为 【7】 。