填空题建立随机文件TEST．DAT，存放学生的姓名和总分，然后把该文件中的数据读出来显示。 请在空白处填适当的内容，将程序补充完整。 Type Record Student As String *20 Score As Single End Type Dim Class As Record Open "Text．dat" For ______ As #1 Len=Len (Class) Class.Student= "LiuMin"： Class.Score=596 Put #1，1，Class Close #1 Open "Text.dat" For Random As #1 Len=Len(Class) ______ Print "STUDENT："， Class， Studnet Print "SCORE："，Class．Score Close #1 End
填空题简单的交换排序方法是______。
填空题________
的功能是查看指定表达式的值。
填空题假设一棵二叉树的后序遍历序列为DGJHEBIFCA，中序遍历序列为DBGEHJACIF，则其前序遍历序列为 【2】 。
填空题软件开发过程主要分为需求分析、设计、编码与测试4个阶段，其中______阶段产生“软件需求规格说明书”。
填空题在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为Dhvel、 Dirl和File1。为了使它们同步操作，必须触发Drive1_Change()事件和Dir1_Change()事件，在这两个事件中执行的语句分别是 【8】 和 【9】 。
填空题一个类可以直接或间接的祖先中继承所有的属性和方法．采用这个方法可以提高了软件的 {{U}}【1】 {{/U}}。
填空题在KeyDown和KeyUp事件过程中，当参数Shift的值为十进制数1，2，4时，分别代表Shift、 【8】 、 【9】 。
填空题汇编语言是面向 【1】 的，可以完成高级语言无法完成的特殊功能，如与外部设备之间的一些接口工作。
填空题给定年份，下列程序用来判断该年是否为闰年，请填空。 提示：闰年的条件是年份可以被4整除但不能被100整除，或者能被400整除。 Private Sub Comand6_Click() Dim y As Integer y=InputBox("请输入年份") If(y Mod 4=0______y Mod 100＜＞0)or(y Mod 400=0)Then Print"是闰年" Else Print"是普通年份" End If End Sub
填空题窗体的属性可在属性窗口中设置，也可在程序中用 【6】 语句动态设置。
填空题标准模块和窗体模块的功能是计算和打印两个复数之和，在横线上填上适当内容。标准模块 Type comp re As Single im As Single End Type Public c As comp 窗体模块 Private Sub Command1_Click( ) Dim a As comp，b As compa．re=InputBox(“输入a的实部”)a．im=InputBox(“输入a的虚部”)b．re=tnputBox(“输入b的实部”)b．im=lnputBox(“输入b的虚部”) 【6】 Print“c=”；c．re；“+”；c.im；"i" End Sub Private Sub s( 【7】 ) C.re=r1.re+r2.re c.im=r1.im+r2.im End Sub
填空题在窗体上有5个控件：一个名称为Text1的文本框控件，用来显示文本；两个名称分别为Check1(设置显示文本的下划线)和Check2(设置显示文本的加粗)的复选框；两个名称分别为Option1(设置字的大小为12磅)和Option2(设置字的大小为16磅)的单选按钮。当Check1被选中时，文本框中显示的字体加下划线，当Option2被选中时，文字框中显示的字体大小为16磅，程序运行时的界面如图20-5所示。请填空。PrivateSubCheck1_Click()IfCheck1．Value={{U}}【7】{{/U}}ThenText1．FontUnderline=TrueElseText1．FontUnderline=FalseEndIfEndSubPrivateSubOption2_Click()Text1．{{U}}【8】{{/U}}EndSub
填空题响应某个事件后所执行的操作通过一段程序代码来实现，这样的一段程序代码叫做{{U}} 【6】 {{/U}}。
填空题阅读下面的程序： Private Sub Form_Click() Dim Check As Boolean，Counter As Integer Check=True Counter=5 Do Do While Counter＜20 Counter=Counter+1 If Counter=10 Then Check=Fadtse EXit Do End If Loop Loop Until Check=False Print Counter End Sub 程序运行后，单击窗体，输出结果为 ______。
填空题下列程序是判断一个整数(＞=3)是否为素数，请补充完整。 Dim n As Integer n=InputBox("请输入一个整数(＞=3)") k=Int(Sqr(n)) i：2 swit=0 While i If n Mod i=0 Then [7] E1se [8] End If Wend If swit=0 Then Print n；"是一个素数。" E1se Print n；"不是一个素数。" End If
填空题控件被拖动时显示的图标是由控件的______属性决定的。
填空题数学表达式3/5ex＋2的VB表达式是{{U}} 【5】 {{/U}}。
填空题下面程序的功能是统计字符串中“i”的个数，请填空。
Sub COU()
Dim n As Integer
a$="Beijing University of Technology"
n=Len(a$)
For i=1 To n
b$=______
If b$="i" Then x=x+1
Next
Print "x=":x
End Sub
填空题下列程序的功能是：单击窗体时随机生成20个两位数依次赋值给一个由20个元素组成的数组，然后把数组反序存放，再输出。 Option Base 1 Private Sub Form Click() Dim a(20)As Integer，i As Integer Dim t As Integer，j As Integer Randomize For i=1 To 20 a=10+Int(90*Rnd) Print a(i)； Next Print i=1: 【4】 Do While i＜j t=a(i): 【5】 a(j)=t i=i+1: j=j-1 Loop For i=1 To 20 Print a(i); Next i Print End Sub