填空题窗体上有一个名称为Text 1的文本框和一个名称为Command l、标题为“计算”的命令按钮，如图所示。函数fun及命令按钮的单击事件过程如下，请填空。
Private Sub Command 1 _Click 1
Dim x As Integer
x=Val（InputBOX（"输入数据"））
Text 1=Str（fun（x）+fun（x）+fun（x））
End Sub
Private Function fun（ByRef n As Integer）
If n Mod 3=0 Then
n=n+n
Else
n=n*n
End If
_【9】_=n
End Function
当单击命令按钮，在输入对话框中输入2时，文本框中显示的是_【10】_
填空题要想在文本框中显示垂直滚动条，必须把ScrollBars属性设置为2，同时还应把______属性设置为True。
填空题DBMS的数据控制功能包括完整性控制、并发控制、安全性控制和
________
。
填空题如图所示，在列表框Listl中已经有若干人的简单信息，运行时在Text1文本框(即“查找对象”右边的文本框)输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项：若未找到，则在Text2中显示“查无此人”。请填空。PrivateSubCommandl_Click()DimkAsInteger,nAsImeger,foundAsBooleanfound=Falsen=Len({{U}}【14】{{/U}})k=0Whilek＜Listl.ListCountAndNotfoundIfText1=Left$(Listl.List(k),n)ThenText2={{U}}【15】{{/U}}found=TrueEndIfk=k+1WendIfNotfoundThenText2="查无此人"EndIfEndSub
填空题设有以下函数过程：
Function fun(m As Integer)As Integer
Dim k As Integer,sum As Integer
sum=0
For k=m To 1 Step -2
sum=sum+k
Next k
fun=sum
End Function
若在程序中用语句s=fim(10)调用此函数，则s的值为{{U}} 【6】 {{/U}}。
填空题以下Prime过程，用于判断—个数是否为素数。素数是只能被1和数本身整除的自然数。一个自然数不是素数，就是合数。用被测试的数除以从2开始到该数本身的数，如果能除尽(余数为0)，则为合数；如果都除不尽(余数均不为0)，则为素数。请在划线处将下面过程补充完整： Function Prime(inputvar As Integer)As Integer For i=2 To inputvar-1 If inputvar Mod i= 【13】 Then GoTocomfinish End If Next i Prime=inpuvar Print"素数" Go To 【14】 comfinish： Prime=inputvar Print"合数" finish: End Function
填空题下列程序用于在带垂直滚动条的文本框Text1中输出3到100之间的全部素数。请填空。 Private Sub Commandl_Click() Text1.Text="" For n=3 To 100 k=Int(Sqr(n)) i=2 Flag=0 Do While i＜=______And Flag=0 If n Mod i=0 Then Flag=1 Else i=i+1 End If Loop If______Then Text1.Text=Text1.Text & Str(n)& Chr(13)&Chr(10) End If Next nEnd Sub
填空题在3种不同类型的组合框中，只能选择而不能输入数据的组合框是______。
填空题关系操作的特点是
________
操作。
填空题设有下列程序，查找并输出该数组中的最小值，请在空白处填上合适的代码，将程序补充完整。
Option Base 1
Private Sub Command1Click()
Dim arrl
Dim Min As Integer,i As Integer
arrl=Array(12,435,76,-24,78,54,866,43)
Min=arrl(1)
For i=2 To 8
If arrl(i)＜Min Then______
Nexti
Print"最小值是:":Min
End Sub
填空题下列程序段的执行结果是______。 i=4 a=5 Do i=i+1 a=a+2 Loop Until i＞=7 Print "A=";a
填空题在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序：
Function M(x As Integer，y As Integer)As Integer
M=IIf(x＞y，x，y)
End Function
Private Sub Command1_Click( )
Dim a As Integer，b As Integer
a=100
b=200
Print M(a，b)
End Sub
程序运行后，单击命令按钮，输出结果为{{U}} 【12】 {{/U}}。
填空题对象的属性是指______。
填空题为了把一个Visual Basic应用程序装入内存，只要装入 (11) 文件即可。
填空题在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、 Label2。要求程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。请填空使程序完整。 Private Sub Combo1_Click() Call ShowItem(Combo1,Label1) End Sub Private Sub Combo2_Click() Call ShowItem(Combo2,Label2) End Sub Public Sub ShowItem(tmpCombo As ComboBox,tmpLabel As Label) ______.Caption=______.Text End Sub
填空题数据结构分为线性结构和非线性结构，带链的队列属于______。
填空题已知在窗体上有一个文本框控件，它的名称为Text1，且输入的字符全部为数字，现在要把该字符转换为整数送给整型变量C，所用到的语句是{{U}} 【7】 {{/U}}。
填空题在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() aS="National Computer Rank Examination" n=Len(a$) s=0 For i=1 To n b$=Mid(as,i,1) If b$="n"Then s=s+1 End If Next i Print S End Sub 程序运行后，单击命令按钮，输出结果是______。
填空题设某循环队列的容量为50，头指针front=5(指向队头元素的前一位置)，尾指针rear=29(指向队尾元素)，则该循环队列中共有{{U}} 【3】 {{/U}}个元素。
填空题在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：
Private Sub Form_Click()
Text1.Text="VB Programming"
End Sub
Private Sub Textl_Change()
Picturel.Print "VB程序设计"
End Sub
程序运行后，单击窗体，则在文本框中显示的内容是______，而在图片框中显示的内容是______。