填空题在KeyPress事件过程中，KeyAscii是所按键的 【7】 值。
填空题假定有如下程序代码，程序运行后，把鼠标光标移到窗体内，每单击一次，变换一种鼠标光标的形状，依次显示鼠标光标的15个属性。请在划线处将程序补充完整。
Private Sub Form_Click( )
Static x As Integer
Cls
Print "Mousepointer Property is now "; x
Forml.
________
=x
x=-x+1
If x = 15 Then x = 0
End Sub
填空题InputBox函数输入数据时，可以单击“确定”按钮或 (11) 表示确认。
填空题设有下列程序，查找并输出该数组中的最小值，请在空白处填上合适的代码，将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim arr1 Dim Min As Integer,i As Integer arr1=Array(12,435,76,-24,78,54,866,43) Min=arr1(1) For i=2 To 8 If arr(i)＜Min Then______ Next i Print"最小值是:";Min End Sub
填空题单元测试又称模块测试，一般采用{{U}} 【3】 {{/U}}测试。
填空题下面程序用来计算：请在空白处填入适当的代码。PrivateSubCommand1_Click()A=Val(Text1,Text)B=Val(Text2.Text)SelectCaseACase______N=A+BCase______N=B/ACase______N=0EndSelectText3.Text=NEndSub
填空题如果一个工人可管理多个设施，而一个设施只被一个工人管理，则实体“工人”与实体“设备”之间存在 【5】 关系。
填空题在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1)，然后编写如下事件过程： Private Sub Command1 Click( ) Text1.Text=InputBox("请输入数据1") Text2.Text=InputBox("请输入数据2") End Sub 程序运行后，如果单击命令按钮，将先后显示两个输入对话框，在两个输入对话框中分别输入123和abc，则两个文本框中显示的内容分别为 (9) 和 (10) 。
填空题软件测试是保证软件质量的重要手段，而软件测试的主要和重要的测试方法是通过测试方法是通过测试数据和 【3】 的设计来实现。
填空题Private Sub Form_Activate() Forj=1 to 3 x=3 ForI=1 to 2 x=x+6 NextI Nextj Print x End Sub 程序运行后，窗体上显示的结果为上______。
填空题窗体上命令按钮Commandl的事件过程如下：
Private Sub Command1_Click()
Dim total As Integer
total=s(1)+s(2)
Print total
End Sub
Private Function s(m As Integer)As Integer
Static x As Integer
For i=1 To m
x=x+1
Next i
s=x
End Function
运行程序，第3次单击命令按钮Command1时，输出结果为【 】。
填空题建立控件时系统自动给控件一个名称，第一个建立的命令按钮名称是 (9) 。
填空题在长度为n的线性表中查找一个表中不存在的元素，需要的比较次数为 【2】 。
填空题在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。以下是实现上述功能的程序，请填空。
Private Sub Form{{U}} 【2】 {{/U}}(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=2 Then
{{U}} 【3】 {{/U}}mnuEdit
End If
End Sub
填空题斐波那契(Fibonacci)数列的构成规律是：数列的第1、2个数是1，从第3个数起，每个数是其前面两个数之和。据此，下面有求斐波那契前12项值的过程，请完善程序。 Sub Fibonacci(N As Integer，s1) s1=0 f1=1 【11】 For i=1 To N/2 Print f1；f2； s1=f1+f2 f1=f1+f2 f2= 【12】 Next i Print End Sub Private Sub Command1_Click() Dim sum As Integer Call Fibonacci(12，sum) Print "Sum="；sum End Sub
填空题栈的基本运算有三种：入栈、退栈和{{U}} 【3】 {{/U}}。
填空题下列事件过程的功能是：建立一个名为Datal的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整。
Private Type Ang
K As Integer
Sinx As Single
Cosx As Single
End Type
Dim Ksc As Ang
Private SubForm_Click()
Dim Y As Single
Open
________
Y=3.14159/180
For i=1 To 90
Ksc.K=i
Ksc.Sinx=Sin(i*Y)
Ksc.Cosx=Cos(i*Y)
________
Next i
Close #2
End Sub
填空题计时器事件之间的间隔通过{{U}} 【11】 {{/U}}属性设置。
填空题把窗体的KeyPreview属性设置为True，并编写如下两个事件过程： Private Sub For_KeyDown(KeyCode As Integer，Shift As Integer) Print KeyCode End Sub Private Sub Fora_KeyPress(Key Ascii AS Integer) Print Key Ascii。 End Sub 程序运行后，如果按下A键，则在窗体上输出的数值为 【12】 和 【13】 。