填空题文件的打开和关闭语句分别是
________
和
________
。
填空题我国古代数学家张丘建在其著名的《算经》中提出了百鸡问题：每只公鸡5元，每只母鸡3元，三只雏鸡1元；如何用100元买100只鸡，即公鸡、母鸡、雏鸡各多少只。请在空白处填入适当的内容，将程序补充完整。 Private Sub Commandl_Click() Dim Cock As Integer Dim Hen As Integer Dim Chick As Integer Forml．Print“公鸡数”，“母鸡数”，“雏鸡数” For Cock；0 To 20 For Hen=0 To 33 For Chick=0 To 100 If 【7】 Then Form1．Print Cock，Hen，Chick End If Next Chick Next Hen Next Cock End Sub
填空题在窗体上画一个文本框，名称为Text1，然后编写如下程序： Private Sub Form_Load() Open "d:/temp/dat.txt" For Output As #1 Text1.Text="" End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then If Ucase(Text1.text)= (10) Then Close #1 End Else Write #1, (11) Text1.Text="" End If End If End Sub 以上程序的功能是：在D盘temp文件夹下建立一个名为dat.txt的文件，在文本框中输入字符，每次按回车键都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容；如果输入END，则不写入文件，直接结束程序。请填空。
填空题软件危机出现于60年代末，为了解决软件危机，人们提出了{{U}} 【3】 {{/U}}的原理来设计软件，这就是后期软件设计的基础。
填空题已知一棵含有n个结点的树中，只有度为k的结点和度为0的叶子结点，则该树中含有的叶子结点个数为______。
填空题在运行时，MDI父窗体中的子窗体最小化时，其图标将显示在______。
填空题在窗体上画一个名称为Combol的组合框，画两个名称分别Label1和Label2及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”如图所示：如果存在，则在Label2中给出提示“输入项已在组合框中”。请在【12】、【13】和【14】处将程序补充完整。PrivateSubCombo1【12】(KeyAsciiAsInteger)IfKeyAscii=13ThenFori=0TOComb01.ListCount-1IfCombo1.Text=【13】ThenLabel2.Caption=“输入项已在组合框中”ExitSubEndIfNextiLabel2.Caption=“已成功添加输入项”Combo1.【14】Combo1.TextEndIfEndSub
填空题在窗体上绘制一个文本框和一个图片框，然后编写如下两个事件过程： Private Sub
Form_Click() Text1.Text="VB程序设计" End
Sub Private Sub Text1_Change()
Picmml.Print"VBProgramming" End Sub
程序运行后，单击窗体，则在文本框中显示的内容{{U}} [9] {{/U}}，而在图片框中显示的内容是{{U}} [10]
{{/U}}。
填空题下列语句的输出结果为 【6】 。 Print Format$(10009.36，"000，000.000")
填空题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
n = 5
f = 1
s = 0
For i = 1 To n
f = f{{U}} 【12】 {{/U}}
s = s + f
Next
Print s
End Sub
该事件过程的功能是计算
s=1+1/2!+1/3!+…+1/n!
的值。请填空。
填空题Define a定义的变量a是______类型的变量。
填空题下列语句的输出结果是______。 Print Format(Int(12345.6789*100+0.5)/100,"00,000.00")
填空题在面向对象方法中，类的实例称为【2】。
填空题对于一个具有n个结点的单链表，已知p所指结点后插入一个新结点的时间复杂度是O(1)；在给定值为x的结点后插入一个新结点的时间复杂度是{{U}} 【2】 {{/U}}。
填空题在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数。
下面是实现上述功能的程序，请填空。
Private Sub Form_Load()
List1.AddItem "AAAAA"
List1.AddItem "BBBBB"
List1.AddItem "CCCCC"
List1.AddItem "DDDDD"
End Sub
Private Sub Command1_Click()
Dim L1 As Integer
L1={{U}} 【12】 {{/U}}
If L1 ＞=0 Then
List1.RemoveItem{{U}} 【13】 {{/U}}
Labell.Caption={{U}} 【14】 {{/U}}
Else
MsgBox("请选择要删除的项目")
End If
End Sub
填空题测试用例包括输入值集和【 】值集。
填空题设有如下记录类型： Type student Number As String*10 Name As String*8 End Type 窗体中有若干控件，单击其中的一个按钮Command1时，执行如下事件过程，该过程的功能是把数据输出到指定的文件中。根据题意，请完善下列程序。 Private Sub Command1_click() Dim stu As student Open"C:/file. dat" For Random As #1 Len=Len( 【13】 ) Title $="写记录到随机文件" Str1 $="请输入学生名" Str2 $="请输入学生名" For i=1 To 5 stu. Number=InputBox(Str1 $, Title $) stu. Name=InputBox$(Str2 $, Title $) 【14】 #1, i, stu Next i Close 【15】 End Sub
填空题在Select case 结构中，使用“To表达式”来指定一个范围时，必须把
________
的值写在前面。
填空题下面程序对已知数组b，删除数组中某指定值的元素，但程序不完整，请填空。 Private Sub Command1_Click() Dim m, n%, i%, j% m=Array(1,3,5,29,34,50) n=Val(InputBox("请输入要删除的值")) For i=0 To UBound(m) If (12) Then For j=i+1 To UBound(m) (13) Next j ReDim Preserve (14) MsgBox("删除完成") Exit For End If Next i End Sub
填空题一个数据库的数据模型至少应该包括以下3个组成部分， 【5】 、数据操作和数据的完整性约束条件。