填空题在窗体上画一个文本框和一个图片框，然后编写下列两个事件过程： Private Sub Form_C1ick() Textl.Text="VB Programming" End Sub Private SubText1_change() Picture1.Print"VB程序设计" End SUb 程序运行后，单击窗体，则在文本框中显示的内容是______，而在图片框中显示的内容是______。
填空题下列程序用于判断一个整数是否为质数，试将程序补充完整。
Private Sub Command1_Click()
Dim n As Integer
n = InputBox("请输入")
t = Int(Sqr(n))
i = 2
flag = 0
While i ＜= t And flag = 0
If ______ Then
flag = 1
Else: i = i + 1
End If
Wend
If ______ Then
Print "这是一个质数"
Else
Print "这不是一个质数"
End If
End Sub
填空题下列程序实现的功能是：当在窗体上单击时，将随机产生100个3位数，并把它们写到D盘根目录下的文件myfile1．Dat中。 Private Sub Form_Click() Dim k As Integer Open 【13】 Randomize For i=1 To 10 k=100+Int(899*Rnd) 【14】 Next i 【15】 End Sub
填空题描述“X是小于100的非负整数”的Visual Basic表达式是______。
填空题阅读下面的程序：
Private Sub Form_Click( )
Dim Check As Boolean，Counter As Integer
Check=Tree
Counter=5
DO
DO While Counter＜20
Counter=Counter+1
If Counter=10 Then
Check=False
Exit Do
End if
Loop
Loop Until Check=False
Print Counter
End Sub
程序运行后，单击窗体，输出结果为{{U}} 【9】 {{/U}}。
填空题已知B的ASCII码为66，以下程序统计由键盘输入的字符串中各英文字母的使用次数
Dim【 】
For i=65 To 90
pp(i) =0
Next
x$=InputBox("Enter a string"，x$)
x$=UCase$(x$)
For i=1 To【 】
n=Asc(Mid$(x$，i，1))
If n ＞=65 And n ＜=90 Then
【 】
End If
Next i
For i=65 To 90
If pp(i) ＞0 Then
Print Chr$(i)；pp(i)
End If
Next
填空题在先左后右的原则下，根据访问根结点的次序，二叉树的遍历可以分为三种：前序遍历、 【5】 遍历和后序遍历。
填空题使用FileListBox，如果不显示只读文件，需要设置______属性。
填空题全局变量必须在标准模块中定义，所使用的语句为{{U}} 【7】 {{/U}}。
填空题窗体上有名称为Command1的命令按钮事件过程及2个函数过程如下：
Private Sub Command1_Click()
Dim x As Integer，y As Integer，z
x=3
y=5
z=fy(y)
Print fx(fx(x)),y
End Sub
Function fx(ByVal a As Integer)
a=a+a
fx=a
End Function
fy=a
Function fy(ByRef a As Integer)
a=a+a
fy=a
End Function
运行程序，并单击命令按钮，则窗体上显示的2个值依次是______和______。
填空题数据流图的类型有 【4】 和事务型。
填空题为了实现鼠标自动拖放，必须把______属性设置为______；而为了执行手动拖放，必须把该属性设置为______。
填空题执行以下程序段后，变量c$的值是 【7】 。 a$="北京" b$="Shanghai" c$="Left(a$,2)+String(3,"—")+Right(b$,8)
填空题在程序运行执行闲置循环过程中，程序的控制权被系统占用。若要获得控制权，可以使用一个语句。这样用户可以在获得系统的控制权后进行其他操作。这个语句是______。
填空题在数据库管理系统提供的数据定义语言，数据操纵语言和数据控制语言中， (5) 负责数据的模式定义与数据的物理存取构建。
填空题菜单命令中有“…”标记表示该命令是______的命令。
填空题以下程序的功能是：生成20个200～300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。
Prirate Sub Command1_Click()
For i=1 To 20
x=Int(______*100+200)
If______=0 Then
Print x
S=S+ ______
End If
Next i
Print "Sum="；S
End Sub
填空题在窗体上画一个名称为Comb01的组合框，然后画两个名称分别为Label1、Label2，标题分别为“城市名称”和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的列表中，并在Label2中给出提示“已成功添加新输入项”，如下图所示。如果输入的项目已存在，则在Label2中给出提示“输入项已在组合框中”。请填空。PrivateSubCombo1_KeyPress(KeyAsciiAsInteger) IfKeyAscii=13Then Fori=0ToCombo1.ListCount-1 IfCombo1.Text=(10)Then Label2.Caption="输入项已在组合框中" ExitSub EndIf Nexti Label2.Caption="已成功添加新输入项" Combo1.(11)Combo1.Text EndIfEndSub
填空题数据模型按不同的应用层次分为3种类型，它们是{{U}} 【5】 {{/U}}数据模型、逻辑数据模型和物理数据模型。
填空题在窗体上画一个名称为“Command1”，标题为“计算”的命令按钮，再画7个标签，其中5个标签组成名称为Label1的控件数组；名称为Label2的标签用于显示计算结果，其Caption属性的初始值为空；标签Label3的标题为“计算结果”。运行程序时会自动生成5个随机整数，分别显示在标签控件数组的各个标签中，如图所示。单击“计算”按钮，则将标签数绍各元素的值累加，然后将计算结果显示在Label2中。请填空。 PrivateSubCommand1_Click________ Sum=0 Fori=0To4 Sum=Sum+________ Next ________=Sum EndSub