填空题与数学表达式cos (a+B) /3x+5对应的Visual Basic表达式是{{U}} 【9】 {{/U}}。
填空题窗体上有一个名称为List1的列表框，一个名称为Picture 1的图片框。Form_ Load事件过程的作用是，把Datal.txt文件中的物品名称添加到列表框中。运行程序，当双击列表框中的物品名称时，可以把该物品对应的图片显示在图片框中如图所示。以下是类型定义及程序，请填空。
Private Type Pic
gName As String*10 ‘物品名称
picFile As String*20 ‘物品图片的图片文件名
End Type
Dim p1As Pic，pRec As Pic
Private Sub Form Load 2
Open”Datal.txt" For Random As＃1 _【11】_=Len（pRec）
For i=0 To 4
Get＃1，i+l，P（i）
LIStI.AddItem p（i）.gNaine
Next i
Close＃1
End Sub
Private Sub List I-DbICIickO
For i=OTo4
If RTrim（List一List（i））=RTrim（_【12】_）Then
Picture l.，Picture=LoadPicture（p（i）．_【13】_）
Exit For
End If
Next
End Sub
填空题以下程序段的输出结果是 【6】 。 x=8.5 print int (x)+0.6
填空题在窗体上画一个名称为Combol的组合框，画两个名称分别为Label1和Label2及Caption，属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”，如图16-3所示；如果存在，则在Label2中给出提示“输入项已在组合框中”。请在【11】、【12】和【13】处将程序补充完整。PrivateSubComhel【11】(KeyAsciiAsInteger)IfKeyAseii=13ThenFori=0ToCombol.ListCount-1IfCombol.Text=【12】ThenLabel2.Caption="输入项已在组合框中"ExitSubEndIfNextiLabel2.Caption="已成功添加输入项"Combol.【13】Combol.TextEndIfEndSub
填空题在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click( ) Dim a(10)As Integer For i=1 To 10 a(i)=(i) Next Call swap( 【13】 ) For i=1 T0 10 Print a(i) Next End Sub Sub swap(b( )As Integer) n= 【14】 For i=1 To n/2 t=b(i) b(i)=b(n) b(n)=t 【15】 Next End Sub 上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换；a(2)与 a(9)的值互换;……a(5)与a(6)的值互换。请填空。
填空题CASE是一组
________
的集合，可以辅助软件开发生命周期各阶段进行软件开发。
填空题程序测试分为静态测试和动态测试。其中______是指不执行程序，而只是对程序文本进行检查，通过阅读和讨论，分析和发现程序中的错误。
填空题注释说明了程序的功能，它分为
______
注释和功能性注释。
填空题对长度为n的线性表进行顺序查找，最坏情况下所需比较的次数为
________
。
填空题在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1.程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，如图所示，请填空。PrivateSubOptionl_click(IndexASInteger)SelectCaseIndexCase0a=“宋体”Case1a=“黑体”Case2a=“楷体_GB2312”EndSelectText1.______=aEndSub
填空题算法的基本特征是可行性、确定性、 【1】 和拥有足够的‘隋报。
填空题菜单编辑器的“有效”选项对应于菜单控件的______属性。
填空题下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…，其中最后一项为n个。 例如：a=5，n=4时，则Sn=5+55+555+5555。请在空白处填入适当的内容，将程序补充完整。 Private Sub Command1_Click() Dim a As Integer,n As Integer, Cout As Integer Dim Sn As Long, Tn As Long Cout=1 Sn=0 Tn=0 a=InputBox("请输入a的值：") (12) Do Tn=Tn*10+a Sn=Sn+Tn Cout=Cout+1 (13) Debug.Print a，n，Sn End Sub
填空题在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程： Private Sub Coraraand1_Click( ) Text1.Text="计算机" Text2.Text=Text1.Text Text1.Text="等级考试" End Sub 程序运行后，单击命令按钮，两个文本框(Text1和Text2)内容分别为{{U}} {{/U}}和{{U}} {{/U}}。
填空题设一棵完全二叉树共有500个结点，则在该二叉树中有{{U}} 【2】 {{/U}}个叶子结点。
填空题下面程序的功能是找出给定的10个数中最大的一个数，最后输出这个数以及它在原来
10个数中的位置。请在下划线处填入适当的内容，将程序补充完整。 Option Base 1
Private SubForm_Cfick() Dim X
x=Array(23，-5,17,38，-31,46,11，8，5，-4)
Max=1 k=1 10
k=k+1 ifx(k)＞x(max)then {{U}}
[13] {{/U}} End if
Ifk＜10then goto 10 y={{U}} [14]
{{/U}} Print Max，y End Sub
填空题下面的程序用于根据文本框Test中输入的内容进行以下处理：若Text为1，则打印“您的成绩为优秀！”；若Text为2，则打印“您的成绩为良好!”；若Text为3，则打印“您的成绩为一般”；否则打印“您的成绩一般以下!”，请填空。 Private Sub Command1_Click( ) Selct Case Val(Text1.Text) Case______ Print "您的成绩为优秀！" Case______ Print "您的成绩为良好！" Case______ Print "您的成绩为一般！" Case Else Print "您的成绩为一般以下！" End Select End Sub
填空题编写如下通用过程： Sub proc(By Val num As Long， ByRef ren As Long) Dim k As Long K = 1 hum = Abs(num) Do While num k = k *(num Mod 10) num = num/ 10 Loop ren = k End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Dim n As Long， r As Long n = InputBox("请输入一个整数") n = CLng(n) proc n， r Print r End Sub 程序运行后，单击命令按钮，在输入对话框中345，输出结果是______。
填空题在窗体上画一个命令按钮，然后编写如下事件过程：
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}} {{U}} {{/U}} {{/U}}。
填空题Show方法的作用是______，Hide方法的作用是______。