填空题Visual Basic对象可以分为两类，分别为______和______。
填空题在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Private Sub Command1_Click() Dim M(10) As Integer For k=1 To 10 M(k)=12-k Next k x=6 Print M(2+M(x)) End Sub 程序运行后，单击命令按钮，输出结果是 (10) 。
填空题以下程序用于计算“1+1/3+1/5+…+1/(2n+1)”，直至“1/(2n+1)”小于10-4。阅读下面程序，请在【6】和【7】处填上正确内容。Private Sub Command1_Click() Sum = h: n = i do n={{U}} 【6】 {{/U}} term =1/ n Sum = Sum + term if term ＜0.0001 then{{U}} 【7】 {{/U}} Loop Text1.Text = n Text2 *Text = SumEnd Sub
填空题下列事件过程的功能是：建立一个名为Data1的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为 1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整。
Private Type Ang
K As Integer
Sinx As Single
Cosx As Single
End Type
Dim Ksc As Ang
Private Sub Form_Click()
Dim Y As Single
Open {{U}} {{U}} {{/U}} {{/U}}
Y=3.14159/180
For i=1 To 90
Ksc.K=i
Ksc.Sinx=Sin(i*Y)
Ksc.Cosx=Cos(i*Y)
{{U}} {{U}} {{/U}} {{/U}}
Next i
Close #2
End Sub
填空题当对象得到焦点时，会触发{{U}} 【10】 {{/U}}事件，当对象失去焦点时将触发{{U}} 【11】 {{/U}}事件。
填空题假定有以下当循环：
While Not条件
循环体
Loop
则执行循环体的“条件”是{{U}} 【9】 {{/U}}。
填空题下图中，图1、图2是应用程序的部分界面。运行程序首先出现图1的对话框，要求用户输入口令，输入完毕后单击“确定”按钮。如果输入的口令正确，则显示图2的界面。如果输入的门令错误，则出现图3的信息框。单击图1中的“取消”按钮，则结束程序。PrivateSubiommand1_Click()DimpassworAsStringpassword=Text1.Textifpassword="Myname"then{{U}}【12】{{/U}}form1.ShowElsed=MsgBox({{U}}【13】{{/U}})RefreshEndifEndSubPrivateSubcommand2_Click(){{U}}【14】{{/U}}EndSub在图1的窗体中，文本框对象的名称属性是{{U}}【15】{{/U}}。
填空题在数据库系统中，实现各种数据管理功能的核心软件称为______。
填空题语句Form2.Show0表示______； 语句Form3.Show1表示______；
填空题在窗体上画一个名称为Command1的命令按钮。编写如下事件过程：
Private Sub Command1_Click()
Dim a As String
A={{U}} 【6】 {{/U}}
For i=1 To 5
Print Space(6-i); Mid$(a, 6-i, 2*i-1)
Next i
End Sub
程序运行后，单击命令按钮，要求窗体上显示的输出结果为：
5
456
34567
2345678
123456789
请填空。
填空题在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为Drive1、Dir1和File1。为了使它们同步操作，必须触发Drive1_Change( )事件和Dir1_Change( )事件，在这两个事件中执行的语句分别是 (8) 和 (9) 。
填空题下列程序的功能是：将数据1，2，…，8写入顺序文件Num．txt中，请补充完整。 Private Sub Form_Click() Dim i As Integer Open"Num．txt"For Output As #1 For i=1 To 8 【15】 Next i Close #1 End Sub
填空题下列程序段的输出结果为 (15) 。 Dim S1(5) As Integer,S2(5) As Integer,S3(5) As Integer N=4 For I=1 To N S1(I)=I S2(I)=L Next I S3(5)=0 For K=1 To N S3(K)=S1(K)*S2(K) S3(5)=S3(5)+S3(K) Next K Print S1(3); S1(5); S1(2) Print S2(4); S31); S3(5)
填空题由Array函数建立的数组的名字必须是{{U}} 【11】 {{/U}}类型。
填空题单击命令按钮后，下列程序代码的执行结果是______ 。
Public Sub fun (a As Integer, b As Integer, c As Integer)
Do
a=b+ c
n=n+1
Loop While n ＞ 3
End Sub
Private Sub command1_ click()
Dim m As Integer, n As Integer, i As Integer
For i = 0 To 2: m = n + 1: Next i
For i = 1 To 2: Call fun (m, n, i): Next i
For i = 0 To 3
Print m;
Next i
End Sub
填空题通常，将软件产品从提出、实现、使用维护到停止使用退役的过程称为{{U}} 【4】 {{/U}}。
填空题设有如下程序段：
a$=“BejingShanghai”
b$＝Mid(a$，InStr(a$，“g”)+1)
执行上面的程序段后，变量b$的值为【 】。
填空题结构化程序设计方法的主要原则可以概括为知顶向下、逐步求精、{{U}} 【2】 {{/U}}和限制使用goto语句。
填空题数据库在经过一定时间运行后，其性能会逐步下降，这时需要对数据库进行数据库
________
。
填空题下面程序是由鼠标事件在窗体上画图，如果按下鼠标可以画图，双击窗体则可以清除所画图形。补充完整下面的程序。首先在窗体层定义如下变量： Dim PaintStart As Boolean 编写如下事件过程： Private Sub Form_Load() DrawWidth=2 ForeColor=vbGreen End Sub Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X AS Single，Y AS Single) PaintStart=True End Sub Private Sub Form_MouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single) If PaintStart Then PSet(X，Y) End If End Sub Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single，Y As Single) End Sub Private Sub Form_DblClick() Cls End Sub