填空题数据库保护分为：安全性控制 【5】 并发性控制和数据的恢复。
填空题在KeyPress事件过程中，KeyAscii是所按键的{{U}} 【6】 {{/U}}值。
填空题在数据库的外模式、模式和内模式三级模式的体系结构中，存在两级映像：外模式到模式的映像定义了外模式与模式之间的对应关系；模式到内模式的映像定义了数据库的逻辑结构与{{U}} 【4】 {{/U}}之间的对应关系。
填空题在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Textl、Labell和 Commandl，然后编写如下两个事件过程：
Private Sub Commandl_Click()
S$=InputBox(“请输入一个字符串”)
Textl.Text=S$
End Sub
Private Sub Text1_Change()
Labell.Caption=UCase(Mid(Text1.Text，7))
End Sub
程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串
"VisualBasic"，则在标签中显示的内容是______。
填空题为了使一个标签透明且没有边框，必须把它的BorderStyle属性设置为______，并把Backstyle属性设置为0。
填空题下列是一个体操评分程序。设满分为10分，20位评委，除去一个最高分和一个最低分，计算平均分。 Private Sub Command1_Click() Max=0 Min=10 For i=1 To 20 n=Val(InputBox("请输入分数")) If n>Max Then Max=n If n s=s+n ______ s=s-Min-Max p=s/18 Print"最高分";Max;"最低分";Min Print"最后得分:";p End Sub
填空题在窗体上画一个标签、一个计时器和一个命令按钮，其名称分别为Labl1、Timer1和Command1，如图1所示。程序运行后，如果单击命令按钮，则标签开始闪烁，每秒钟“欢迎”二字显示、消失各一次，如图2所示。以下是实现上述功能的程序，请填空。 PrivateSubForm_Load________ Label1.Caption="欢迎" Timer1.Enabled=False Timer1.Interval=________ EndSub PrivateSubTimer1_Timer________ Label1.Visible=________ EndSub PrivateSubcommand1_Click________ ________ EndSub
填空题有如下程序：
Private Sub Command1_Click()
For j=5 To 3 Step-1
Call s (n)
m=m+n
Next j
Print m; n
End Sub
Private Sub s(n)
n=1+2*n
End Sub
运行后，输出的结果是______。
填空题在窗体上画一个命令按钮，然后编写如下程序：
Function fun(ByVal num As Long)As Long
Dim k As Long
k=1
num=Abs(num)
Do While num
k=k*(num Mod 10)
num=num/10
Loop
fun=k
End Function
Private Sub Command1_Click()
Dim n As Long
Dim r As Long
n=InputBox("请输入一个数")
n=CLng(n)
r=fun(n)
Print r
End Sub
程序运行后，单击命令按钮，在输入对话框中输入"345"，输出结果为{{U}} 【10】 {{/U}}。
填空题假设某文件存储的多个用户自定义类型记录，使用Get语句将数据从文件中读出的所有记录放到某数组中。完成该程序。 定义用户自定义的数据类型： Type Record ID As Integer Name As String * 20 End Type Sub GetRecord() Dim MyRecord As Record, Position Open"TESTFILE"For Random As #1 Len=______ Position=3 Get #1, Position, MyRecord Close #1 End Sub
填空题在程序设计语言中，重复结构对应两类循环语句，对先执行循环体后判断的称为______循环结构。
填空题在窗体上画一个文本框(其Name属性为Text1)，编写下列事件过程，运行结果是______。 Private Sub Form_Load() Show Text1.Text="你好!" Text1.SetFocus For i=1 To 15 Sum=Sum+i Next i Text1.Text=Sum End Sub
填空题下列程序的作用是将三个数按从大到小进行排序，请填空。 If a＜b Then d=a a=b b=d End If If a＜c Then d=a a=c c=d End If If______Then d=b b=c c=d End If Printa,b,c
填空题Visual Basic中的控件分为3类，它们是标准控件、{{U}} 【6】 {{/U}}可插入对象。
填空题以下程序的功能是单击Command1按钮，将输出1～100之间的所有同构数。同构数是指该数出现在它的平方数的右边，如52=25、252=625。 Private Sub Command1_Click() Dim i As Integer,ip As Integer For i=1 To 100 ip= 【9】 If i＜10 Then If 【10】 Then Print i，ip End If Else If 【11】 Then Print i，ip End If End If Next i End Sub
填空题下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请将程序补充完整。
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(678，45，324，528，439，387，87，875，273，823)
For i={{U}} 【8】 {{/U}}
For j={{U}} 【9】 {{/U}}
If a(i){{U}} 【10】 {{/U}}a(j)Then
a1=a(i)
a(i)=a(j)
a(j)=a1
End If
Next j
Next i
For i=1 To 10
Print a(i)
Next i
End Sub
填空题在窗体上面有一个列表，然后编写如下两个事件过程： Private Sub Form_Click() List1.RemoveItem1:List1.RemoveItem2 List1.RemoveItem3 End Sub Private Sub Form_Load() List1.AddItem"ItemA":List1.Addhem"ItemB" List1.AddItem"ItemC":List1.Addhem"ItemD" List1.AddItem"ItemE" End Sub 运行上面的程序，然后单击窗体，列表框中显示的项目是______。
填空题使用已经存在的类作为基础建立新类的定义，这种技术叫做类的{{U}} 【3】 {{/U}}。
填空题诊断和改正程序中错误的工作通常称为{{U}} 【3】 {{/U}}。
填空题在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程： Private Sub Form_Click() Text1.Text="VB程序设计" End Sub Private Sub Text1_Change) Picture1. Print"VB programming" End Sub 程序运行后，单击窗体，则在文本框中显示的内容是 【7】 ，而在图片框中显示的内容是 【8】 。