填空题本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个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}}。
填空题下图中，图1、图2是应用程序的部分界面。运行程序首先出现图1的对话框，要求用户输入口令，输入完毕后单击“确定”按钮。如果输入的口令正确，则显示图2的界面。如果输入的门令错误，则出现图3的信息框。单击图1中的“取消”按钮，则结束程序。PrivateSubiommand1_Click()DimpassworAsStringpassword=Text1.Textifpassword="Myname"then________form1.ShowElsed=MsgBox(________)RefreshEndifEndSubPrivateSubcommand2_Click()________EndSub在图1的窗体中，文本框对象的名称属性是________。
填空题执行如下程序段后，intsum的值为 【13】 。 Private Sub Command1_Click() sum=0 For i=1 To 18 Step 2 For j=2 To 6 If(i Mod j)＜＞0 Then sum=sum+j Next Next Print sum End Sub
填空题快捷键Ctrl+O的功能相当于执行文件菜单中的______命令。
填空题当对象得到焦点时，会触发GotFocus事件，当对象失去焦点时将触发______事件。