填空题在窗体上画1个文本框，名称为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 {{U}}【13】 {{/U}}=13 Then
If UCase(Text1.Text)={{U}} 【14】 {{/U}} Then
Closer #1
End
Else
Write #1，{{U}} 【15】 {{/U}}
Text1.Text=" "
End If
End If
End Sub
以上程序的功能是，在D盘temp目录下建立1个名为dat.txt的文件，在文本框中输入字符，每次按回车键(回车符的ASCII码是13)都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容；如果输入“END”，则结束程序。请填空。
填空题软件工程的目的是成功地开发大型软件系统，主要内容是软件开发技术和{{U}} 【2】 {{/U}}两方面。
填空题为了显示一个窗体，所使用的方法为 【13】 ；为了隐藏一个窗体，、所使用的方法为 【14】 。
填空题斐波那契(Fibonacci)数列的构成规律是：数列的第一、第二个数是1，从第三个数起，每个数是其前面两个数之和。据此，下面有求斐波那契前12项值的过程，请完善程序。 Private Sub Command1_Click() Dim sum As Integer Call Fibonacci(12,sum) Print"Sum=";sum End Sub Sub Fibonacci(N As Integer, s1) s1=0 f1=1 (10) For i=1 To N/2 Print f1：f2： s1=f1+f2 f1=f1+f2 f2= (11) Next i Print End Sub
填空题在KeyPress事件过程中，KeyAscii是所按键的 【13】 值。
填空题在文件对话框中，假定有一个名为“fc.exe”的文件，它位于“d:/PP”目录下，则“FileName”属性的值为 [14] ；FileTitle属性的值为 [15] 。
填空题在默认情况下，工具箱中只显示______控件。
填空题在命令按钮上释放鼠标按钮时，所触发的事件称为______。
填空题窗体上有一个名称为CD1的通用对话框，通过菜单编辑器建立如下图左图所示的菜单。程序运行时，如果单击“文件”菜单项，则执行打开文件的操作，当选定了文件(例如G:/VB/2010-9/in.txt)并打开后，该文件的文件名会被添加到菜单中，如下图右图所示，各菜单项的名称和标题等定义如下表所示。各菜单项的名称和标题标题名称内缩索引可见文件File无无True打开mnuOpen…无True关闭mnuClose…无Truemnu…无True(空)FName…0False以下是单击“文件”菜单项的事件过程，请填空。DimmnuCounterAsIntegerPivateSubmnuOpen_Click()CDlShowOpenIfCD1.FileName＜＞""ThenOpen______ForInputAs#1mnuCounter=mnuCounter+1LoadFName(mnuCounter)FName(mnuCounter).Caption=CD1.FileNameFName(mnuCounter).______=TrueClose#1EndIfEndSub
填空题在窗体上有一个名称为Label1的标签和一个名称List1的列表框。程序运行后，在列表中添加若干列表项。当双击列表框中的某个项目时，在标签Labe1中显示所选中的项如图所示。请在空白处填入适当的内容，将程序补充完整。 PrivateSubForm_Load() List1．AddItem"北京" List1．Addltem"上海" List1．AddItem"河北" EndSub PrivateSubList1{{U}}【9】{{/U}}() Labe1．Caption={{U}}【10】{{/U}} EndSub
填空题程序执行结果S的值是 【11】 。 Private Sub Command1_Click() i=0 Do i=i+1 s=i+s Loop Until i＞=4 Print s End Sub
填空题设A=2，B=-4，则表达式3*A＞5 Or B+8＞0的值是______。
填空题下列程序的功能是：单击窗体时将求出随机生成的10个两位数中的最大数及其下标，请填空。
Option Base 1
Private Sub Form_Click()
Dim a(10) As Integer，i As Integer
Dim max As Integer，max_i As Integer
Randomize
For i=1 To 10
a(i)={{U}} 【12】 {{/U}}
Next i
max=a(1)：max_i=1
For i=1 To 10
If{{U}} 【13】 {{/U}}Then
max=a(i)
max_i=i
End If
Next i
Print max,max_i
End Sub
填空题假定在工程文件中有一个标准模块，其中定义了如下记录类型： Type Books Name As String*10 TelNum As String*20 End Type 要求在执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。将以下程序补充完整。 Private Sub Command1_Click() Dim B As Books open "c:/person.txt"For output As#1 B.Name=InputBox(“请输入姓名”) B.TeINum=InputBoxt“请输入电话号码“) write#1， (13) close#1 End Sub
填空题软件结构是以 【3】 为基础而组成的一种控制层次结构。
填空题设有如下记录类型：
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({{U}} 【13】 {{/U}})
Title $="写记录到随机文件"
Str1 $="请输入学生名"
Str2 $="请输入学生名"
For i=1 To 5
stu. Number=InputBox(Str1 $, Title $)
stu. Name=InputBox$(Str2 $, Title $)
{{U}} 【14】 {{/U}}#1, i, stu
Next i
Close{{U}} 【15】 {{/U}}
End Sub
填空题浮点数由3部分组成，即符号、【 】和尾数。
填空题在面象对象程序设计中，从外面看只能看到对象的外部特征，而不知道也无须知道数据的具体结构以及实现操作的算法，这称为对象的______。
填空题能够将文本框控件隐藏起来的属性是
________
。
填空题(-1)*Sgn{-100+Int(Rnd*100)}的值是
________
。