填空题阅读程序： 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}}。
填空题每一个窗体或者控件都有一个名字，为提高程序的可读性，可以用前缀的方式来表示对象的类型，如Form的前缀为frm，则Image的前缀为 【8】 ，Picture的前缀为 【9】 。
填空题在Visual Basic中，要显示程序代码，必须在______窗口；要设计程序的运行界面必须在______窗口。
填空题以下程序的功能是：将当前目录下的顺序文件mText1.txt的内容读入内存，并在图片框 Picture1中显示出来。请完善程序。 Private Sub Command1_Click() Dim inData As String Open "./mText1.txt" 【13】 As 1 Do While Not EOF(1) Input #1，inData Picture1.Print inData Loop Close #1 End Sub
填空题设有整型变量S，取值范围为0～100，表示学生的成绩。有如下程序序段： If s＞＝90 Then Level="A" Else If s＞=75 Then Level="B" Else If s＞=60 Then Level="C" Else Level="D" End If 下面用Select Case结构改写上述程序，使两段程序所实现的功能完全相同。请填空。 Select Case s Case______＞＝90 Level="A" Case 75 To 89 Level="B" Case 60 To 74 Level="C" Case______ Level="D" ______