填空题有下列程序，程序运行后，单击“Command1”按钮，在列表框List1中显示的第一行和第二行的结果分别是{{U}} 【13】 {{/U}}和{{U}} 【14】 {{/U}}，最后一行的结果是{{U}} 【15】 {{/U}}。
Type type_a
chr1 As String*1
num1 As Integer
End Type
Private Sub Command1_Click()
Dim testdata As type_a, n As Integer
Dim f1 As Integer, c()As String*1
f1=FreeFile
Open "d:/data. txt" For Random As #f1 Len=Len(testdata)
n=1
For I=97 To 102
ReDim Preserve c(n)
c(n)=Chr(I)
testdata. chr1=c(n)
testdata. num1=I
n=n+1
Put #f1, , testdata
Next I
Seek #f1, 1
For I=1 To UBound(c)
Get #f1, , testdata
List1. AddItem testdata. chr1 & testdata num1
Next I
List1. AddItem UBound(c)
Close
End Sub
填空题在窗体上画一个命令按钮(其Name属性为Commandl)，然后编写如下代码： Private Sub Commandl_Click() Dima(5) Fori=0 To 4 A(i)=i+1 t=i+1 If t=3 Then Print a(i) A(t-1)=a(i-2) Else A(t)=a(i) End If Ifi=3 Thena(i+1)=a(t-4) A(4)=1 Printa(i) NextI End Sub 程序运行后，单击命令按钮，输出结果是上______。
填空题设有如下程序：PrivateSubForm_Click()Clsa$="ABCDFG"Fori=1To6PrintTab(12-i);{{U}}【9】{{/U}}NextiEndSub程序运行后，单击窗体，结果如图所示，请填空。
填空题Visual Basic应用程序由______、______和______3种模块组成。
填空题如果要将形状控件的内部设置为水平线，应将Fillstyle属性设置为【 】。
填空题栈和队列通常采用的存储结构是 【1】 。
填空题以下程序的功能是：求x的y次方。根据题意，请完善下列程序。
Private Function funl(x As Double, y As Integer)As Double
Dim i As Integer
Dim z As Double
z={{U}} 【8】 {{/U}}
For i=1 To y
z=z*x
Next i
{{U}} 【9】 {{/U}}
End Function
Private Sub Command1_Click()
Dim m As Double
Dim n As Integer
Dim t As Double
m=InputBox("输入x数:")
n=InputBox("输入次方数:")
t=funl(m, n)
Print Str(m)+"^"+Str(n)+"="; {{U}}【10】 {{/U}}
End Sub
填空题当运行下列程序，单击窗体后，分别输入72和24，信息框上显示的结果是{{U}} 【13】 {{/U}}。
Private Sub Form_Click()
Dim x As Integer，y As Integer
x=Val(InputBox("输入整数72"))
y=Val(InputBox("输入整数24"))
z=fun1(x，y)
MsgBox Str(Z)
End Sub
Private Function funl(ByVal a As Integer， ByVal b As Integer)As Integer
Do
r=a Mod b
a = b
b = r
Loop Until r=0
funl=a
End Function
填空题在长度为n的线性表中顺序查找元素x时，成功查找的平均查找长度为{{U}} 【2】 {{/U}}。
填空题为了在运行时将窗体Form1的标题(Caption属性)设置为“Test Program”，应使用的语句为 【8】 。
填空题设计一个窗体，在其上设计如下事件过程： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y A.s Single) If Button=1 Then Print"AAAAAAAA" Elself Button=2 Then Print"BBBBBBBB" End If End Sub 程序运行后，在窗体上单击鼠标左键输出结果为______，单击鼠标右键输出结果为______。
填空题事件的方法是用于______。
填空题在实际数据库系统中，其所支持的数据模型主要有层次模型、网状模型和{{U}} 【5】 {{/U}}。
填空题数学式子5+(a+b)×2对应的Visual Basic表达式是______。
填空题在窗体上有一个名为Image1的图像框，现在要把“D：”盘根目录下的图片文件“Fox．bmp”在其中显示出来，使用的语句是
________
。
填空题在窗体上有一个列表，然后编写如下两个事件过程：
Private Sub Form_Click()
List1.RemoveItem 1:List1.RemoveItem 2
List1RemoveItem 3
End Sub
Private Sub Form_Load()
List1.AddItem"ItemA":List1.AddItem"ItemB"P
List1.AddItem"ItemC ":List1.AddItem"ItemD"
List1.AddItem"ItemE”
End Sub
运行上面的程序，然后单击窗体，列表框中显示的项目是
________
。
填空题以下程序完成的功能是输入一个数n，并判断它是否为素数，是或不是都通过消息对话框(MsgBox)来给出提示。请将程序补充完整。Private Sub Cemmand1_Click() n = InputBox (“请输入一个整数”) k = Int(Sqr(n)) i = 2 Flag = 0 do while i＜= k And Flag = 0 if 【6】 = 0 then Flag = 1 Else i= i+ 1 End if Loop if 【7】 then MsgBox “这是一个素数!”，vbOKOnly，“提示” Else MsgBox “这不是一个素数!”，vbOKOnly，“提示” End ifEnd Sub
填空题以下程序的功能是从键盘输入若干个学生的考试成绩，统计并输出最高分和最低分，当输入负数时结束输入。请填空。 Private Sub Command1_Click() Dim x,amax,amin As Single x=InputBox("Enter a score") amax=x amin=x Do While______ If x＞amax Then amax=x End If If______Then amin=x End If x=InputBox("enter a score") Loop Print "max=";amax,"min=";amin End Sub
填空题下列程序执行时，要求输入一个密码，如果密码不正确，则显示出非法用户的对话框。请填空。
Const PassWord="12345678"
Dim inpass As String
inpass={{U}} 【5】 {{/U}}("请输入你的密码"，"输入密码")
If inpass=PassWord Then Exit Sub
Else
{{U}} 【6】 {{/U}}"对不起!你是非法用户。"，vbOKOnly＋vbCritical，"拒绝"
Unload Me
End If
填空题如果要将形状控件的内部设置为水平线，应将Fillstyle属性设置为{{U}} 【7】 {{/U}}。