填空题在窗体上面有一个列表，然后编写如下两个事件过程： Private Sub Form_Click() List1.RemoveItem 1：List1.RemoveItem2 List1.RemoveItem 3 End Sub Private Sub Form_Loab() List1.AddItem "ItemA ":List1.AddItem "Item B" List1.AddItem"Item C"：List1.AddItem "ItemD" List1.AddItem "ItemE" End Sub 运行上面的程序，然后单击窗体，列表框中显示的项目是 【11】 。
填空题以下程序用来建立一个10*10矩阵，该矩阵两条对角线上的元素为1，其余元素为0，请补充完该程序。 该程序运行结果见下图。 Private Sub Form_ click() Dim s(10, 10) As Integer For n = 1 To 10 For m = 1 To 10 If 【12】 Or 【13】 Then s (n, m) = 1 Else s (n, m) = 0 End If Next m Next n For n = 1 To 10 For 【14】 。 Picturel. Print Tab(m * 3); s(n, m) Next m Print Next n End Sub
填空题有如下Sub过程：
Sub ind(a As Integer)
Static x As Integer
x= x + a
Print x：
End Sub
以下是调用它的事件过程，程序运行后，单击命令按纽Command1三次，输出结果为{{U}} 【14】 {{/U}}。
Private Sub Command1_Click()
Ind 2
End Sub
填空题响应某个事件后所执行的操作通过一段程序代码来实现，这样的一段程序代码叫做 【6】 。
填空题本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于—次投币，1代表正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。PrivateSubCommand1_Click()Randomizen=CInt(Text1.Text)n1=0n2=0Fori=1To【6】r=Int(Rnd*2)Ifr=【7】Thenn1=n1+1Elsen2=n2+1EndIfNextTcxt2.Text=n1Text3.Text=n2EndSub
填空题在关系模型中，"关系中不允许出现相同元组"的约束是通过【1】实现的。
填空题为避免几个进程可能同时对同一文件进行存取，用______和______语句可以对文件“锁定”和“解锁”。
填空题下列事件过程的功能是：建立一个名为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
________
Y=3.14159/180
For i=1 To 90
Ksc.K=i
Ksc.Sinx=Sin(i*Y)
Ksc.Cosx=Cos(i*Y)
________
Next
Close#2
End Sub
填空题在窗体上画一个标签、一个计时器和一个命令按钮，其名称分别为Label1、Timer1和Command1，如图1所示。程序运行后，如果单击命令按钮，则标签开始闪烁，每秒钟"欢迎"二字显示、消失各一次，如图2所示。以下是实现上述功能的程序，请填空。PrivateSubForm_Load()Label1.Caption="欢迎"Timer1.Enabled=FalseTimer1.Interval=(6)Command1.Caption="开始闪烁"EndsubPrivateSubTimer1_Timer()Label1.visible=(7)EndsubPrivateSubCommand1_Click()(8)Endsub
填空题InputBox函数返回值的类型为{{U}} 【1】 {{/U}}。
填空题成本效益分析的目的是从 【5】 角度评价开发一个项目是否可行。
填空题下列程序运行时，若输入123，输入对话框的提示信息是______。
Private Sub Command1_Click()
X1=InputBox("请输入")
MsgBox(X1)
End Sub
填空题在窗体上画一个命令按钮Command1，然后编写如下程序： Private Sub Command1_Click() Dim arr() As Integer ReDim arr(3) For i=0 To 3 art(i)=i Next i x=InputBol("请输入一个数字：") If Val(x)＞4 Then ReDim arr(4) art(4)=x End If Me.Print (arr(4)-arr(3)) End Sub 程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为 【10】 。
填空题在窗体上画一个命令按钮，其名称为command1，然后编写如下代码： Option Base 1 Private Sub Command1_ Click() Dim Arr Arr = Array(43, 68f -25, 65, -78, 12, -79, 43, -94, 72) pos = 0 neg = 0 For k = 1 To 10 If Art(k) ＞ 0 Then Else End If Next k Print pos, neg End Sub以上程序的功能是，计算并输出数组Arr中10个数的整数之和pos与负数之和neg，请填空。
填空题人员基本信启、一般包括身份证号、姓名、性别、年龄等。其中可以作为主关键字的是______。
填空题下列程序的功能是：单击窗体时将随机生成10个1～100之间的数，求出它们的总和及平均数。请填空。 Option Base 1 Private Sub Form_Click() Dim a(10)As Integer,i As Integer Dim sum As Integer,aver As Single 【12】 For i=1 To 10 a(i)=Int(100*Rnd)+1 sum=sum+a(i) Next i 【13】 Print sum,aver End Sub
填空题用户可以用{{U}} 【8】 {{/U}}语句定义自己的数据类型。
填空题软件危机出现于60年代末，为了解决软件危机，人们提出了 【3】 的原理来设计软件这就是软件工程诞生的基础。
填空题以下程序需要实现的功能是：在C盘根目录下建立一个名为Students.txt的顺序文件。单击命令按钮后，输入4个学生的个人信息，包括name、sex和age，将这些信息写入文件中。请填空。
Private Sub Form_Click()
Open{{U}} 【9】 {{/U}}For Output As #1
For i=1 To 4
name=InputBox("姓名")
age=InputBox("年龄")
sex=InputBox("性别")
Write{{U}} 【10】 {{/U}}
Next i
Close #1
End Sub
填空题把窗体的KeyPreview属性设置为True，并编写如下两个事件过程：
Private Sub Form_KeyDown(KcyCode As Integer,Shift As Integer)
Print Key Code；
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Key Ascii
End Sub
程序运行后，如果按下A键，则在窗体上输出的数值为{{U}} 【11】 {{/U}}和{{U}} 【12】 {{/U}}。