填空题设有下列程序，查找并输出该数组中的最小值，请在空白处填上合适的代码，将程序补充完整。 Option Base 1 Private Sub Command1Click() Dim arrl Dim Min As Integer,i As Integer arrl=Array(12,435,76,-24,78,54,866,43) Min=arrl(1) For i=2 To 8 If arrl(i)＜Min Then______ Nexti Print"最小值是:":Min End Sub
填空题以下程序的功能是：把程序文件smtextl．txt的内容全部读入内存，并在文本框Textl中显示出来。请填空。 Private Sub Command1_Click() Dim inData As String Text1.Text=" " Open"smtext1.txt"______As______ DO While______ Input # 2，inData Text1.Text=Text1.Text&inData Loop Close # 2 End Sub
填空题在窗体上绘制一个文本框和一个图片框，然后编写如下两个事件过程： Private Sub Form_Click() Text1.Text="VB程序设计" End Sub Private Sub Text1_Change() Picmml.Print"VBProgramming" End Sub 程序运行后，单击窗体，则在文本框中显示的内容 [9] ，而在图片框中显示的内容是 [10] 。
填空题在一个窗体上有两个命令按钮，cmdMax 和 cmdMin。单击cmdMax时，窗体上显示“字体由小变大”，字号每次增加2；单击cmdMin时，窗体上显示“字体由大变小”，字号每次减小2。请填空。 Private Sub Form_Load() Forml．Caption =“字体变化示范” cmdMax．Caption=“字体变大” cmdMin．Caption=“字体变小” End Sub Private Sub cmdMax_Click() 【9】 Forml．Print”字体由小变大” End Sub Private Sub cmdMin_Click() 【10】 Forml．Print“字体由大变小” End Sub
填空题阅读下面的程序：
PriVate Sub Form_C1ick()
Dim Check As Booleau，Counter As Integer
Check=True
Counter=5
Do
Do While Counter＜20
Counter=Counter+1
If Counter=10 Then
Check=FalSe
EXit Do
End If
Loop
Loop Until Check=FalSe
Print Counter
End Sub
程序运行后，单击窗体，输出结果为______。
填空题下述程序段在运行时的显示结果是【 】。
Cls
x=1．34 + 8
Print Len(x)
填空题数据结构包括数据的逻辑结构、数据的 【2】 以及对数据的操作运算。
填空题下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a，其中最后一项为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的值:") [14] Do Tn=Tn*10+a Sn=Sn+Tn Cout=Cout+1 [15] Debug.Print a，n，Sn End Sub
填空题在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式计算。窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中。请填空。PrivateSubCommand1_Click()DimrAsInteger,nAsIntegern=Text1r=Text2Text3:fun(n)/funf(9))/funfr)EndSubFunctionfun(nAsInteger)AslongDimtAsLong(10)Fork=1Tont=t*kNextfun=tEndFunction
填空题控件和窗体的Name属性只能通过属性窗口设置，不能在
________
期间设置。
填空题在窗体上面画一个命令按钮，然后编写如下程序：
Function M(x As Integer，y As Integer)As Integer
M=IIf(x＞y，x，y)
End Function
Private Sub Command1_Click()
Dim a As Integer，b As Integer
a=1
b=2
Print M(a，B)
End Sub
程序运行后，单击命令按钮，输出结果为______。
填空题下列程序实现的功能是：当在窗体上单击时，把C盘根目录下的文件a1.txt，复制到 D盘，并取名为a2.txt。
Private Sub Form_Click()
Dim Ch As String
Open "c:/a1.txt" For{{U}} 【8】 {{/U}}As #10
Open "d:/a2.txt" For Output As #20
Do While{{U}} 【9】 {{/U}}
Line Input #10, Ch
{{U}} 【10】 {{/U}}
Loop
Close #10
Close #20
End Sub
填空题组合框是组合了文本框和列表框的特性而组成的一种控件。______风格的组合框不允许用户输入列表框中没有的项。
填空题启动窗体在
________
对话框中指定。
填空题以下是一个判断一元二次方程ax2+bx+c=0根的方程的程序，请补充该程序。提示： ·当a＜＞0时有两个根．设delta=b2-4ac，当delta＞0时，有两个不同的实根．当delta=0时，有两个相同的实根。当delta＜0时，有两个不同的虚根。 ·当a=0，b＜＞0时，有一个根。 ·当a=0、b=0时，方程无意义。Private Sub Command1_Click() Dim a As Single Dim b As Single Dim c As Single Dim sb As Single Dim xb As Single Dim re As Single a = InputBox (“请输入a的值”) c = InputBox(“请输入c的值”) if{{U}} 【10】 {{/U}}then delta = b ^2- 4 * a * c re = -b/(2 * a) if {{U}}【11】 {{/U}}then sb = Sqr (delta)/(2 * a) Print “方程有两个实根” Elseif delta = 0 then Print “方程有两个相等实根” Else xb = Sqr( - delta)/(2 * a) Print “方程有两个虚要” End if Else if{{U}} 【12】 {{/U}}then ygz = - b / c Print “方程仅有一个根” Else print “方程无意义” End if End if End Sub
填空题全局变量必须在{{U}} 【14】 {{/U}}模块中定义。
填空题Visual Basic使用的是______字符集。
填空题一棵二叉树第六层(根结点为第一层)的结点数最多 【1】 个。
填空题一棵二叉树上第6层的结点数最多是______。
填空题设窗体上有一个名称为Combo1的组合框，并有下列程序： Private Sub Combo1_KeyPress(KeyAscii As Integer) If______=13 Then 回车符的ASCII码是13 For k=0 To Combo1.ListCount-1 If Combo1.Text=Combo1.List(k)Then Combo1.Text=" " Exit For End If Next k If Combo1.Text＜＞" "Then______ Combo1.Addltem End If End If End Sub 程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑区中的文本删除；否则把编辑区中的文本添加到列表的尾部。请填空。