填空题数据库设计包括概念设计、 (5) 和物理设计。
填空题下列程序运行后的输出结果是{{U}} 【9】 {{/U}}。
Private Sub f(k，s)
s=1
For j=1 To k
s=s*j
Next
End Sub
Private Sub Command1_Click()
Sum=0
For i=1 To 3
Call f(i，s)
Sum=Sum+s
Next
Print Sum
End Sub
填空题一个控件在窗体上的位置由Top和Left属性决定，其大小由{{U}} 【6】 {{/U}}和{{U}} 【7】 {{/U}}属性决定。
填空题数据结构分为逻辑结构与______。
填空题将C盘根目录下的图形文件moon.jpg装入图片框Picturel的语句是______。
填空题标准模块也称全局模块，由______ 、模块层声明及______ 等几部分组成。其中全局变量声明放在标准模块的首部，因为每个模块都可能要求有它自己的具有唯一名字的全局变量，因此全局变量声明总是在______ 时执行。模块层声明包括在标准模块中使用的变量和常量。
填空题为了把一个Visual Basic应用程序装入内存，只要装入{{U}} 【5】 {{/U}}文件即可。
填空题Visual Basic中的控件分为3类，它们是标准控件、 【6】 可插入对象。
填空题窗体上有两个按钮，则执行程序后按键盘Cancel键的输出结果是 【7】 。 Private Sub Command1 _ Click( ) Print"北京"； End Sub Private Sub Command2 _ Click( ) Print"南京"； End Sub Private Sub Form _ Load( ) Command2．Cancel＝True Command1．Cancel=True End Sub
填空题下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请将程序补充完整。
Option Base 1
Private Sub Command1_Click()
Dim a
a = Array(549, 45, 324, 561, 439, 258, 87, 435, 587, 823)
For i ={{U}} 【5】 {{/U}}
For j ={{U}} 【6】 {{/U}}
If a(i){{U}} 【7】 {{/U}}a(j) Then
al = a(i)
a(i) = a(j)
a(j) = al
End If
Next j
Next i
For i = 1 To 10
Print a(i)
Next i
End Sub
填空题当循环队列非空且队尾指针等于队头指针时，说明循环队列已满，不能进行人队运算。这种情况称为{{U}} 【1】 {{/U}}。
填空题建立控件时系统自动给控件一个名称，第一个建立的命令按钮名称是 (8) 。
填空题使通用对话框C1显示为一个标准的颜色对话框，应使用语句______，使通用对话框C1显示为一个标准的字体对话框，应使用语句______。
填空题随机文件使用Put语句写数据，使用 【15】 语句读数据。
填空题函数Int(Rnd*10)+10的值的范围是 (12) 。
填空题图像框和图片框在使用时有所不同，这两种控件中，能作为容器容纳其他控件的是______。
填空题工程中有Form1、Form2两个窗体，Form1窗体外观如图1所示。程序运行时，在Form1中名称为Text1的文本框中输入______个数值(圆的半径)，然后单击命令按钮“计算并显示”(其名称为Command1)，则显示Form2窗体，且根据输入的圆的半径计算圆的面积，并在Form2的窗体上显示出来，如图2所示。如果单击命令按钮时，文本框中输入的不是数值，则用信息框显示“请输入数值数据!”，请填空。PrivateSubCommand1_Click()IfText1.Text=""ThenMsgBox"请输入半径!"ElseIfNotIsNumeric({{U}}[6]{{/U}})ThenMsgBox"请输入数值数据!"Elser=Val({{U}}[7]{{/U}})Form2.Show{{U}}[8]{{/U}}.Print"圆的面积是"&3.14*r*rEndIfEndSub
填空题程序运行时，单击水平滚动条右边的箭头时，滚动条的Value属性值将______。
填空题下面程序运行后，单击命令按钮，输出的结果是______。 Private Sub Command1_Click() Dim a%(1 To 5)，i%，s# For i=1 To 5 A(i)=i Next S=Fun(a) Print "s="；s； End Sub Function Fun(a()As Integer) Dim t#,i% t=1 For i=LBound(a)To UBound(a) t=t*a(i) Next Fun=t End Function
填空题下列程序为比较排序法排序程序，请补充完该程序(该程序对10个数值数据进行排序处理)。
Dim a(1 To 10)AS Integer
Private Sub Form _Click()
Randomize
p=“”
For i = 1 To 10
Do
x = Int (Rnd * 90) + 10
yes = 0
For j = 1 To
________
If x = a(j) Then yes = 1: Exit For
Next
Loop While yes = 1
a(i) = x
Next i
For i = 1 To 9
For
________
To 10
If a(i) ＞ a(j) Then
t = a(i)
________
a(j) = t
End If
Next j
Next i
p = Str(a(1))
For i = 2 To 10
p = p & “,” & Str(a(i))
Print p
Next i
End Sub