填空题在进行模块测试时，要为每个被测试的模块另外设计两类模块：驱动模块和承接模块(桩模块)。其中{{U}} 【5】 {{/U}}的作用是将测试数据传送给被测试的模块，并显示被测试模块所产生的结果。
填空题窗体中有一组文件系统控件，分别是驱动器列表框drive1、目录列表框dir1和文件列表框file1，在它们下面有一个图片框pic1。要求选择一个bmp文件，即单击文件列表框中的某个文件时，将该文件显示在图片框中。请在空白处填入适当的内容，将程序补充完整。 Option Explicit Private Sub File1_Click() Dim fn As String If Len(Dir1.Path)=3 Then Fn=Dir1.Pach+File1.FileName Else Fn=Dir1.Path & "/"&______ End if Pic1.AutoSize=True:Pic1.ScaleMode=vbPixels Pic1.Picture=______ End Sub Private Sub Form Load() File1.FileName="*.bmp" End Sub Private Sub Dir1_Change() File1.Path=Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path=Drive1.Drive End Sub
填空题在C盘当前文件夹下建立一个名为StuData. txt的顺序文件。要求用InputBox函数输入5名学生的学号(StuNo)、姓名(StuName)和英语成绩(StuEng)。 Private Sub Form Click() Open"C: StuData. txt"For OutPut As#1 Fori=1 To 5 StuNo=InpuzztBox(“请输入学号”) StuName=InputBox(“请输入姓名”) StuEng=Val(InputBox(“请输入英语成绩”)) 【15】 Next i Close#1End Sub
填空题在窗体上有一个名称为Label1的标签和一个名称List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Labe1中显示所选中的项目，如图2.2所示。请在空白处填入适当的内容，将程序补充完整。PrivateSubForm_Load()List1.AddItem"北京"List1.AddItem"上海"List1.AddItem"河北"EndSubPrivateSubList1_Dblclick()Labe1.Caption=______EndSub
填空题阅读程序： OptionBase1 PrivateSubForm_Click() Dima(3)AsInteger Print“输入的数据是：”； Fori＝1To3 a(i)=InputBox(“输人数据”) Printa(i)； Next Print Ifa(1)a(3)Then m=a(2) ElseIfa(1)>a(3)Then m=________ Else m=________ EndIf Print“中间数是：”；m EndSub程序运行后，单击窗体，在输入对话框中分别输人三个整数，程序将输出三个数中的中间数，如图所示。请填空。
填空题若有一个动态数组a有两个元素a(0)和a(1)，现要令数组a有三个元素a(0)、a(1)和a(2)，则应当使用
________
语句。
填空题VB6识别对象靠的是对象的______属性。
填空题结构图是描述软件结构的工具，基本图符有矩形、带实心圆的箭头和带空心圆的箭头等，箭头表示模块间调用关系，其中用带实心圆的箭头表示传递的是______。
填空题下面程序运行后，输出的结果为______。
填空题将代数式转换成程序设计中的表达式为【2】。
填空题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivmeSubCommand1_Click()n=5f=1s=0Fori=1Tonf=f【12】s=s+fNextPrintsEndSub该事件过程的功能是计算的值。请填空。
填空题下列程序运行后的输出结果是______。 Private Sub f(k,s) s=1 For j=1 To k S=S*j Next End Sub Private Sub Command1_Click() Sum=0 For i=1 To 3 Call f(i,s) Sum=Sum+s Next Print Sum End Sub
填空题要使一个文本框具有水平和垂直滚动条，应先将其MultiLine属性设置为True，然后再将ScrollBar属性设置为______。
填空题以下Prime过程，用于判断一个数是否为素数。素数是只能被1和数本身整除的自然数。一个自然数不是素数，就是合数。用被测试的数除以从2开始到该数本身的数，如果能除尽(余数为0)，则为合数；如果都除不尽(余数均不为0)，则为素数。请在划线处将下面过程补充完整： Function Prime(inputvar As Integer)As Integer For i=2 To inputvar-1 If inputvar Mod i= 【13】 Then Go To comfinish End If Next i Prime=inputvar Print"素数" Go To 【14】 comfinish： Prime=inputvar Print"合数" finish： End Function
填空题下列这个Sub过程的功能是统计字符串中“a”的个数，请在空白处填上合适的代码，将程序补充完整。
Private Sub numCoun()
Dim num As Integer
s＄="software And hardware"
num=Len(s＄)
For i=1 To num
b＄=______
Ifb＄="a"Then x=x+1
Next i
Print "x=";x
End Sub
填空题属性窗口主要是针对窗体和控件设置的。在VB中，窗体和控件被称为______。每个对象都可以用一组属性来刻画其特征，而属性窗口就是用来设置窗体或窗体中的控件属性。
填空题以下程序的功能是，从键盘上输入若干学生的成绩，统计并输出最高分数和最低分数，当输入负数时结束输入，请填空。 Private Sub Command1_C1iek() Dim x As Single Dim amax As Single,amln As Single x=InputBox("请输入分数") amax=x amin＝x Do While 【8】 If x＞amax Then amax=x End If If 【9】 Then amin=x End If x＝InputBox("请输入分数") Loop Print amax,amin End Sub
填空题下列程序的功能是：将数据1，2，…，10写入顺序文件Base.txt中，请填空。 Private Sub Form_Click() Dim i As Integer Open______As#1 For i=1 To 10 Print #1，i Next Close #1 End Sub
填空题在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1)，然后编写如下两个事件过程：
Private Sub Command1_Click()
a = Text1.Text + Text2.Text
Print a
End Sub
Private Sub Form_Load()
Text1.Text = " "
Text2.Text = " "
End Sub
程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入1234和4321，然后单击命令按钮，则输出结果为{{U}} 【8】 {{/U}}。