填空题执行下面的语句后，所产生的信息框的标题是{{U}} 【13】 {{/U}}。
a=msgbox ("AAAA",,"BBBB","",5)
填空题计算For循环次数的公式是______。
填空题为了选择多个控件，可以按住{{U}} 【6】 {{/U}}键，然后单击每个控件。
填空题图案■表示______。
填空题以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在图片框Picture1中显示出来。请填空。 Private Sub Command1_Click( ) Dim inData As String Open "./mText1.txt" (13) As 1 Do While Not EOF(1) Input #i，inData Picture1.Print inData Loop Close#1 End Sub
填空题一下程序的作用是生成一个10×10的矩阵．该矩阵主对角线上的数据为1，其余数据为0(程序运行结果如下图所示)。该程序不完整，请补充完改程序。PrivateSubCommand1_Click()Dima(10，10)AsIntegerFori=1To______Forj=1To10If______Then______=1Elsea(i，j)=0EndIfNextjNextiFori=1To10Forj=1To10Printa(i，j)；NextjPrintNextiEndSub
填空题扩展名为.bas的文件称为______。
填空题在鼠标事件过程MouseDown和MouseUp中，参数Button的值为1、2、4时，分别代表按下鼠标的______、______和______键。
填空题阅读以下程序：
Private Sub Form click()
Dim k,n, m As integer
n=10
m=1
k=1
Do While k＜=n
m=m+2
k=k+1
Loop
Print m
End Sub
单击窗体程序的执行结果是{{U}} 【10】 {{/U}}。
填空题在用Ⅵsual Basic开发应用程序时，一般需要建立可视用户界面、设置对象属性和{{U}} 【6】 {{/U}}3步。
填空题运行下列程序： Dim t As Integer Private Sub Form_Click() t = 2 x = Val(InputBox("输入一个整数5")) Print fun1(x); t End Sub Private Function fun1(y) If y ＞ 0 Then fun1 = 1: t = 10 ElseIf y = 0 Then fun1 = 0: t = 20 Else fun1 = -1: t = 30 End If End Function 从键盘为变量x输入数据5，输出的结果是______。
填空题庄面向对象程序设计方法中，类的实例称为______。
填空题Visual Basic识别对象靠的是对象的{{U}} 【7】 {{/U}}属性。
填空题假设窗体中已经有了一个驱动器列表框Drivel和一个目录列表框Dirl，如图20-10所示。当改变了驱动器列表框中的驱动器时，希望在目录列表框中显示相应驱动器的目录结构，可在Drive1_Change事件中输入语句 【7】 。
填空题有如下事件过程：
Private Sub Form_Active()
Dim Score(1 to 3) As Integer
Dim i As Integer
Dim t As Variant
For i=3 To 1 step-1
Score (i)=2*i
Next
For Each t In Score
Print t
Next
End Sub
程序运行后窗体上显示的值为______。
填空题在窗体上画一个名为Command1的命令按钮。下列程序的功能是：从输入对话框输入一个正整数n。用随机函数产生n个1～100范围的随机数，然后求出去掉一个最大数和最小数的平均数。根据题意，请完善下列程序： Private Sub Command1_Click() Dim ave As Single, max As Integer, i As Integer, n As Integer Dim min As Integer, Sum As Integer, s As String Dim t As Integer s=InputBox("输入一个正整数:") n=Val(s) If n＞0 Then max=n: min=n: Sum=0 For j=1 To n t= 【9】 Print t; Sum=Sum+t If t＜min Then min=t Elself max＜t Then max=t End If Next j 【10】 ave=Sum/n MsgBox"平均值="+Str(ave)，，"去掉最大数和最小数后" End If End Sub
填空题设在界面上放置了一个滚动条Hscroll1和一个标签控件Label1，请补齐以下代码，要求每次单击滚动条两端箭头，或滚动条滑块与两端箭头之间的空白区域时，滚动条的值能够反映在标签中。
Private Sub Hscroll1______
Label1.Caption=Hscroll1______
End Sub
填空题窗体如图所示，其中汽车是名称为Imagel的图像框，命令按钮的名称为Command1，计时器的名称为Timer1，直线的名称为Line1。程序运行时，单击命令按钮，则汽车每0.1秒向左移动100，车头到达左边的直线时停止移动。请填空完成下面的属性设置和程序，以便实现上述功能。①Timer1的Interval属性的值应事先设置为(8)。②PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubTimer1_Timer()IfImage1.Left＞=Line1.x1ThenImage1.Left=(9)-100EndIfEndSub
填空题下列程序的输出结果为______。 Private Sub Command1_Click() Dim a(5) For i=LBound(a)To UBound(a) a(i)=i*i+2*i+1 Next i Print a(LBound(a)) End Sub
填空题在Visual Basic中，用于管理文件系统的3个控件是文件列表框、目录列表框和 【10】 。