填空题单击窗体上的关闭按钮时，触发的事件是{{U}} 【7】 {{/U}}。

填空题下面程序运行后，单击命令按钮，输出的结果是 (10) 。 Private Sub Command1_Click() Dim a%(1 To 5),1%,s# For i=1 To 5 a(i)=i Next s=Fun(A) Print“s=”；s； End Sub Function Fun(a() As Integer) Dim t#,i% t=1 For i=LBound(A) To UBound(A) t=t*a(i) Next Fun=t End Function

填空题改变驱动器列表框的Drive属性值将引发　【12】　事件。

填空题将算法的5个特性中，算法必须能在执行有限个步骤之后终止指的是算法的{{U}} 【1】 {{/U}}性。

填空题如果存在如下过程： Private Function FMaxla() 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 Command_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 单击命令按钮，其输出结果为 (8) 。

填空题在窗体上画1个名称为Command1和命令按钮和2个名称分别为Text1、Text2的文本框，如图所示，然后编写如下程序：FunctionFun(xAsInteger,ByValyAsInteger)AsIntegerx=x+yIfx<0ThenFun=xElseFun=yEndIfEndFunctionPrivateSubCommand1_Click________DimaAsInteger,bAsIntegera=-10:b=5Text1.Text=Fun(a,B)Text2.Text=Fun(a,B）EndSub程序运行后，单击命令按钮，Text1和Text2文本框显示的内容分别是________和________。

填空题在Visual Basic 的立即窗口内输人以下语句　　X=97 　　? Chr＄ (X) 　　在窗门中显示的结果是{{U}}　【6】　{{/U}} 。

填空题下列过程的功能是：用来计算并输出S=1+1/2+1/3+…+1/100的值。请完善程序。 Function SumF(n As Integer)As Single s=0 For i=1 To n s=______ Next i SuraF=s End Function Private Sub Form_Click( ) Sum1=SumF(100) Print Print "sum1=" :sum1 End Sub

填空题在Visual Basic中按文件的编码方式不同，可将文件分为 【15】 。

填空题由Array函数建立的数组的名字必须是{{U}} 【8】 {{/U}}类型。

填空题编写一个对列表框进行项目添加、修改和删除操作的应用程序，如图10-10所示。列表框(名为lstBooks)中的选项在Porm_Load事件中加载，【添加】按钮(cmdAdd)的功能是将文本框(txtItem)中的内容添加到列表框，【删除】按钮(cmdDelete)的功能是删除列表框中选定的项目。如果要修改列表框，可先选定选项，然后按【修改】按钮(cmdModify)，所选的项目显示在文本框(txtItem)中，当在文本框中修改完之后，按【确定修改】按钮 (cmdModifty_OK)将更新列表框。初始时，【确定修改】按钮是不可使用的。程序代码如下，请填空。 Private Sub CmdAdd_Click() LstBooks.______Txtitem Txtitem="" End Sub Private Sub CmdDelete_Click() LstBooks.RemoveItem______ End Sub Private Sub CmdModify_Click() Txtitem=LstBooks.Text Txtitem.SetFocus CmdAdd.Enabled=False CmdDelete.Enabled=False CmdModify.Enabled=False Cmdmodify_ok.Enabled=______ End Sub Private Sub Cmdmodify_ok_Click() LstBooks.List(______)=Txtitem Cmdmodify_ok.Enabled=False CmdAdd.Enabled=True：CmdDelete.Enabled=True CmdModify.Enabled=True Txtitem="" End Sub Private Sub Form_Load() LstBooks.Addltem"计算机文化基础" LstBooks.Addltem"VB 5.0程序设计教程" LstBooks.Addltem"操作系统" LstBooks.Addltem"多媒体技术" LstBooks.Addltem"网络技术基础" End Sub

填空题在树结构中，树根结点没有{{U}} 【1】 {{/U}}。

填空题下列程序的输出结果是______。 Sub Prin() Dim B As String A=1 B=A & Space(4)& A Print A Print Trim(B) End Sub

填空题下面一段程序的功能是，单击窗体弹出对话框。在对话框中输入一个文件名，窗体中输出该文件名的文件号。请填空。 Private Sub Form_ click() filename = InputSox (“请输入文件名”) Filecode = Open filename For Output As # Filecode Print filename; “的文件号是”; Filecode Close # Filecode End Sub

填空题在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程： Private Sub Form_Click() Text1.Text="VB程序设计" End Sub Private Sub Text1_Change() Picturel.Print"VB Programming" End Sub 程序运行后，单击窗体，则在文本框中显示的内容是______，而在图片框中显示的内容是______。

填空题把窗体的KeyPreview属性设置为True，并编写如下两个事件过程： Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer) Print KeyCode； End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print KeyAscii End Sub 程序运行后，如果按下A键，则在窗体上输出的数值为 【11】 和 【12】 。

填空题在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit对应的菜单。以下是实现上述功能的程序，请填空。 Private Sub Form (15) (Button As Integer,Shift As Integer,X As Single,Y As Single) If Button=2 Then PopupMenu mnuedit End If End Sub

填空题数据库系统阶段的数据具有较高独立性，数据独立性包括物理独立性和______两个含义。

填空题数据库的设计通常可以分为4个步骤：需求分析、概念设计、{{U}} 【4】 {{/U}}和物理设计。

填空题已知B的ASCII码为66，以下程序统计由键盘输入的字符串中各英文字母的使用次数 　　Dim{{U}}　【8】　{{/U}} 　　For i=65 To 90 　　　pp(i) =0 　　Next 　　x$=InputBox("Enter a string"，x$) 　　x$=UCase$(x$) 　　For i=1 To{{U}}　【9】　{{/U}} 　　　n=Asc(Mid$(x$，i，1)) 　　　If n ＞=65 And n ＜=90 Then 　　　　　{{U}}　【10】　{{/U}} 　　　End If 　　Next i 　　For i=65 To 90 　　　If pp(i) ＞0 Then 　　　　Print Chr$(i)；pp(i) 　　　End If 　　Next