填空题在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图6-1所示。下面是实现上述功能的程序，请填空。 Private Sub Form_Load( ) List1.AddItem "AAAAA" List1.AddItem "BBBBB" List1.AddItem "CCCCC" List1 .AddItem "DDDDD" End Sub Private Sub Command1_Click( ) Dim L1 As Integer L1 ={{U}} {{/U}} If L1 ＞ = 0 Then List1.RemoveItem{{U}}______{{/U}} Label1.Caption ={{U}} {{/U}} Else MsgBox"请选择要删除的项目" End If End Sub
填空题以下程序段的功能为，输入8个数给数组a,然后采用插入排序算法，将数组a中的数按照升序排列存入数组b中。请填空。
Private Sub Command1_Click ()
Dim a(1 To 8), b(1 To 8)
For i = 1 To 8
a(i) = InputBox("请输入")
Print a(i)
Next i
Print
For i = 1 To 8
s = 1
For j = 1 To 8
If{{U}} 【6】 {{/U}}Then
s = s + 1
End If
Next j
{{U}}【7】 {{/U}}
Next i
End Sub
填空题下列过程的功能是：在对多个文本框进行输入时，对第1个文本框(text1)输入完毕后用回车键使焦点跳到第2个文本框(text2)，而不是用Tab键来切换。请完成该程序。 Private Sub Text1_KeyDown(Keycode As Integer , Shift As Integer) If______Then Text2.______ End If End Sub
填空题设窗体上有一个名称为CD1的通用对话框、一个名称为Text1的文本框和一个名称为Command1的命令按钮。程序执行时，单击Command1按钮，则显示打开文件对话框，操作者从中选择一个文本文件，并单击对话框上的“打开”按钮后，则可打开该文本文件，并读入一行文本，显示在Text1中。下面是实现此功能的事件过程，请填空。 Private Sub Command1_Click() CD1.Filter="文本文件|*.txt|Word文档|*.doc" CD1.FilterIndex=1 CD1.ShowOpen If CD1.FileName＜＞"" Then Open (9) For Input As #1 Line Input #1, Ch$ Close #1 Text1.Text= (10) End If End Sub
填空题窗体如图所示，其中汽车是名称为Imagel的图像框，命令按钮的名称为Command1，计时器的名称为Timer1，直线的名称为Line1。程序运行时，单击命令按钮，则汽车每0.1秒向左移动100，车头到达左边的直线时停止移动。请填空完成下面的属性设置和程序，以便实现上述功能。①Timer1的Interval属性的值应事先设置为7。②PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubTimer1_Timer()IfImage1.Left＞=Line1.x1ThenImage1.Left=8-100EndIfEndSub
填空题数据库管理系统是位于用户与
________
之间的软件系统。
填空题在关系运算中，查找满足一定条件的元组的运算称之为
________
。
填空题记时器控件能有规律的以一定时间间隔触发 【6】 事件，并执行该事件过程中的程序代码。
填空题设二叉树如下： 对该二叉树进行后序遍历的结果为________。
填空题有64个结点的完全二叉树的深度
________
(根的层次为1)。
填空题设有如下程序：PrivateSubForm_Click________Clsa＄="ABCDFG"Fori=1To6PrintTab(12-i)；________NextiEndSub程序运行后，单击窗体，结果如图所示，请填空。
填空题在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：
Private Sub Form_Click( )
Text1.Text=“VB程序设计”
End Sub
PrivmeSubText1_Change()
Picture1.Print"VB Programming"
End Sub
程序运行后，单击窗体，则在文本框中显示的内容是{{U}} 【7】 {{/U}}，而在图片框中显示的内容是{{U}} 【8】 {{/U}}。
填空题有如图所示的窗体。程序执行时先在Text1文本框中输入编号，当焦点试图离开Text1时，程序检查编号的合法性，若编号合法，则焦点可以离开Text1文本框；否则，显示相应错误信息，并自动选中错误的字符，且焦点不能离开Text1文本框。合法编号的组成是：前2个字符是大写英文字母，第3个字符是"-"，后面是数字字符(至少1个)。下面程序可实现此功能，请填空。PrivateSubText1_LostFocus()Dimk%.n%。n=Len((13))Fork=1ToIIf(n＞3，n，4)c=Mid(Text1.Text,k,1)SelectCasekCase1.2Ifc＜"A"Orc＞"Z""ThenMsgBox("第"＆k＆"个字符必须大写字母!")SetPositionk：ExitForEndIfCase3Ifc＜＞"_"ThenMsgBox"第"＆k＆"个字符必须是字符""-"""SetPositionk：ExitForEndIfCaseElseIfc＜"0"Orc＞"9"ThenMsgBox("第"＆k＆"个字符必须是数字!")SetPositionk：ExitForEndIfEndSelectNextkEndSubPrivateSubSetPosition(posAsInteger)Text1.SelStart=pos-1Text1.SelLength=(14)Text1.(15)EndSub
填空题控件和窗体的Name属性只能通过属性窗口设置，不能在{{U}} 【8】 {{/U}}期间设置。
填空题以下程序用来产生20个(0，99)之间的随机整数，并将其中的偶数打印出来。请填空。 Private Sub Command1_Clcik() Randomize For I=1 To 20 X=Int(Rnd*______) If X/2=______Then Print x Next I End Sub
填空题以下程序用于求S=1+3+32+33+…+310的值。 Private Sub Commandl_Click() S=1 T=1 ForI=1 To 10 T=______ S=S+T NextI Print"S="；S End Sub
填空题设窗体上有一个名称为Hscroll1的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离(即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数)。下面是可实现此功能的程序，请填空。 Dim (10) As Integer Private Sub Form_Load() pos=HScroll1.Value End Sub Private Sub HScroll1_Change() print (11) -pos pos=HScroll1.Value End Sub
填空题软件工程的出现是由于{{U}} 【2】 {{/U}}。
填空题在长度为n的线性表中查找一个表中不存在的元素，需要的比较次数为{{U}} 【2】 {{/U}}。
填空题逻辑运算时，参与运算的两个量都为False，结果才会是False的逻辑运算是______运算。