填空题下列程序段的功能是：从文本框中输入一个数值，如果该数值满足“除以4余1，除以5余2”条件，则在窗体上输出文本框中的数值，否则，将焦点定位在文本框中，并清除文本框的内容。请填空。 Private Sub Command1_Click() x=Val(Text1.Text) If______Then Print x Else ______ Text1.Text="" End If End Sub
填空题在Visual Basic中可以建立{{U}} 【12】 {{/U}}菜单和{{U}} 【13】 {{/U}}菜单。
填空题为了把一个Visual BASIC应用程序装入内存，只要装入 【6】 文件即可。
填空题在窗体上加上一个文本框控件TextBox，画一个命令按钮，当单击命令按钮的时候将显示“保存文件”对话框，设置该对话框可用于保存文本文件(默认)和Word文档，然后在文本框控件中显示保存的文件名，请填空。
Private Sub Command1_Click( )
CommonDialog1．Filter={{U}} 【13】 {{/U}}
CommonDialog1．Filter={{U}} 【14】 {{/U}}
CommonDialog1．ShowSave
TextBox．Text={{U}} 【15】 {{/U}}
End Sub
填空题在进行关系数据库的逻辑设计时， E-R 图中的属性常被转换为关系中的属性， 联系通常被转换为________
填空题在面向对象程序设计中，从外面看只能看到对象的外部特征，而不知道也无需知道数据的具体结构以及实现操作的算法，这称为对象的 【3】 。
填空题文件的打开和关闭语句分别是{{U}} 【10】 {{/U}}和{{U}} 【11】 {{/U}}。
填空题在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，然后编写如下代码： Dim SaveAll As String Private Sub Command1_Click() Text1.Text=Left(UCase(SaveAll),4) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii) End Sub 程序运行后，在文本框中输入abcdefg，单击命令按钮，则文本框中显示的内容是______。
填空题对于长度为n的顺序表，插入或删除表中元素的时间复杂度为{{U}} 【2】 {{/U}}；对于顺序栈或队列，插入或删除表中元素的时间复杂度为{{U}} 【3】 {{/U}}。
填空题数据结构分为逻辑结构和存储结构，循环队列属于{{U}} 【1】 {{/U}}结构。
填空题设有以下循环： x=1 Do x=x+2 Print x Loop Until ______ 要求程序运行时执行3次循环体，请填空。
填空题下列程序是判断一个整数(>=3)是否为素数，请补充完整。 Dim n As Integer n=InputBox("请输入一个整数(>=3)") k=Int(Sqr(n)) i=2 swit=0 While i If n Mod i=0 Then 【7】 Else 【8】 End If Wend If swit=0 Then Print n；"是一个素数。" Else Print n；"不是一个素数。" End If
填空题下列程序的功能是：弹出一个对话框询问用户是否输出，如果是，则输出；否则结束。 请填空。 Sub PrintOutO Dim aAs Integer a=MsgBox("输出结果?"，vblnformation+vbYesNo，"提示：") If a=______Then Print "Myresult" EndIf EndSub
填空题当运行下列程序，单击窗体后，分别输入72和24，信息框上显示的结果是{{U}} {{U}} {{/U}} {{/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顺序表的删除算法，它最坏情况的时间复杂性及其量级分别是______和______，平均时间复杂性及其量级分别为______和______。
填空题首先执行循环体，然后再进行条件判断，决定是否结束循环的循环语句是 (7) 。
填空题在窗体上画一个命令按钮Command1，然后编写如下程序：
Private Sub Command1_click()
Dim arr() As Integer
ReDim arr(3)
For i=0 To 3
arr(i)=i
Next i
x=InputBox("请输入一个数字：")
If Val(x)＞4 Then
ReDim arr(4)
an(4)=x
End If
Me.Print(an(4)-arr(3))
End Sub
程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为{{U}} 【10】 {{/U}}。
填空题在窗体上加上一个文本控件PCSTextBox，画一个命令按钮，当单击命令按钮的时候将显示“打开文件”对话框，设置该对话框只用于打开文本文件，然后在文本控件中显示打开的文件名。请填空。
Private Sub Command1_Click()
CommonDialog1. Filter={{U}} 【14】 {{/U}}
CommonDialog1. ShowOpen PCSTextBox. Text＝{{U}} 【15】 {{/U}}
End Sub
填空题在数据库系统中,实现各种数据管理功能的核心软件称为 【 】。
填空题假定建立了一个工程，该工程包括两个窗体，其名称(Name属性)分别为Form1和Form2，启动窗体为 Form1。在Form1中画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请将程序补充完整。
Private Sub Command1_Click()
{{U}}【8】 {{/U}}Me
Form2．{{U}} 【9】 {{/U}}
End Sub