填空题在关系代数中专门的关系运算包括选择，投影、{{U}} 【5】 {{/U}}、除等运算。
填空题创建一个工程，该工程包含两个窗体，名字分别为Form1和Form2。下列程序代码用于实现以下功能：单击命令按钮Command1后，Form1窗体消失，显示Form2，并且Form2中按钮Command2变为可用。请填空。
Private Sub Command1_ Click()
______ Me
Form2______
Command2. Enable = True
End Sub
填空题执行下列语句后，输出结果是______。 s$="ABCDEFG" Print lnStr(S$, "efg") Print LCase$(s $)
填空题运行下列程序，单击Command1命令按钮后，则在窗体上显示第一行和第二行的结果分别是{{U}} 【14】 {{/U}}和{{U}} 【15】 {{/U}}。
Private Sub Command1_Click()
t=1:x=2:y=3:z=4
If t＞0 Or t=x And x ＜＞ y Or y＞z Then
t=fun1(t，z)
Print t
Else
t = fun1(x, y)
Print t
End If
Print x
Print y
End Sub
Function funl(ByVal x As Integer, ByVal y As Integer)As Integer
Do While y ＜＞ 0
t=x/y
x=y
y = t
Loop
fun1 = x
End Function
填空题在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程： Private Sub Coraraand1_Click( ) Text1.Text="计算机" Text2.Text=Text1.Text Text1.Text="等级考试" End Sub 程序运行后，单击命令按钮，两个文本框(Text1和Text2)内容分别为 (6) 和 (7) 。
填空题在KeyPress事件过程中，KeyAscii是所按键的【 】值。
填空题描述"x是小于100的非负整数"的Visual Basic表达式是【 】。
填空题单击窗体上的命令按钮Command1,______ Private Sub Command1_Click() a= "10" b=20 c=Val(a) +b Print c End Sub
填空题在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程： Private Sub Command1_Click() S$=InputBox("请输入一个字符串") Text1.Text=S$ End Sub Private Sub Text1_Change() Label1.Caption=UCase(Mid(Text1.Text,7)) End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串"Visual Basic"，则在标签中显示的内容是______。
填空题在过程定义中出现的变量名叫做{{U}} {{U}} {{/U}} {{/U}}参数，而在调用过程时传送给过程的常数、变量、表达式或数组叫做{{U}} {{U}} {{/U}} {{/U}}参数。
填空题下列程序的功能是：当x＜50时，y=0.8×x；当50≤x≤100时，y=0.7×x；当x＞100时，没有意义。请填空。 Private Sub Command1_Click() Dim x AS Single x=InputBox("请输入x的值!") ______ Case Is＜50 y=0.8*x Case 50 To 100 y=0.7*K ______ Print"输入的数据出界!" End Select Print x，y End Sub
填空题下面程序运行后，单击命令按钮，输出的结果是______。 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
填空题把文字字符串“Hello World”写入#1号文件，然后把回车，换行写入文件的操作应该是______。
填空题设有如下程序： Private Sub search(a()As Variant，ByVal key As Variant，index%) Dim I% For i=LBound(A) To UBound(A) If key=a(I)Then index=I Exit Sub End If Next I index=-1 End Sub Private Sub Form_Load() Show Dim b() As Variant Dim n As Integer b=Array(1，3，5，7，9，11，13，15) Call search(b，11，n) Print n End Sub 程序运行后，输出结果是 【6】 。
填空题下列程序实现的功能是：当在窗体上单击时，将输出a1．txt 文件中的数字字符的个数。
Private Sub form_ Click()
Dim Ch As String * 1
Dim n As Integer
Open "c:/a1. txt" for Input As #10
do while{{U}} 【7】 {{/U}}
Ch = Input(1, #10)
if {{U}}【8】 {{/U}} then
n=n+1
End if
Loop {{U}}【9】 {{/U}}
Close #10
End Sub
填空题如图16-10所示．在列表框List1中已经有若干人的简单信息，运行时在Text1文本框(即“查找对象”右边的文本框)输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。PrivateSubConmlandl_Click()DimkAsInteger,nAsInteger,foundAsBooleanfound=Falsen=Len({{U}}【6】{{/U}})k=0Whilek＜List1.ListCountAndNotfoundIfText1=Left$(List1.List(k),n)ThenText2={{U}}【7】{{/U}}found=TrueEndIfk=k+1WendIfNotfoundThenText2="查无此人"EndIfEndSub
填空题下面程序段的输出结果是 【6】 。 p = 0 s = 0 Do p = p + 2 s = s + p Loop While p＜11 Print “s=”; s
填空题设计两CheckBox，一个显示粗体，一个显示斜体，通过对CheckBox的选择，在一个文本框中显示相应效果的文本，完成下列程序。 Private Sub Form_Load() Check1.Caption="显示粗体" Check2.Caption="显示斜体" Text1.Text="Visual Basic6.0" End Sub Private Sub Check1_Click() If (10) =1 Then Text1.FontBold=True Else Text1.FontBold=False End If End Sub Private Sub Check2_Click() If Check2.Value=1 Then Text1. (11) =True Else Text1. (12) =False End Sub
填空题下列程序弹出对话框中按钮的个数为______。
MsgBox"确认!",vbAbortRetryIgnore+vbMsgBoxHelpButton+vbQuestion,"提示"
填空题所谓{{U}} 【1】 {{/U}}，是指对数据集合中的各元素以各种方式进行运算，包括插入、删除、查找、更改等运算，也包括对数据元素进行分析。