填空题如图所示，在列表框List1中已经有若干人的简单信息，运行时在Text1文本框（即“查找对象”右边的文本框）输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。PrivateSubCommand1_Click________DimkAsInteger,nAsInteger,foundAsBooleanfound=Falsen=Len(________)k=0Whilek
填空题在窗体上画一个名称为“Command1”的命令按钮。然后编写如下事件过程
Private Sub Command1 Click()
Dim a As String
a＝"123456789"
For i=1 To 5
Print Space(6-i)；Mid$(a，{{U}} 【8】 {{/U}}，2*i-1)
Next i
End Sub
程序运行后，单击命令按钮，窗体上的输出结果是
5
456
34567
2345678
123456789
请填空。
填空题下列程序段的输出结果为______。
Check = True: a = 1
Do
a = a + 1
Check = Check + 1
Loop While a ＜ 10
print Check
填空题应用程序结构指的是组织指令的______，即指令存放的______和指令的______顺序。
填空题以下程序段的输出结果是{{U}}【2】 {{/U}}。
num=0
While num＜=2
num=num+1
Wend
Print num
填空题在类型说明符号中，双精度浮点数用______表示，字符串型数据用______表示，整型数据用______表示。
填空题以下程序用来产生20个100以内的随机整数，并将其中的偶数在窗体上显示，请填空。 Randomize Fori=1 To 20 x= [5] If x/2= [6] Then PrintX End If Nexti
填空题在窗体上建立一个单选按钮组Option1和一个图片框Picture1，如图所示。当选择不同的单选按钮时，图片框中填充不同的图案，请填写程序的空白处，使程序完整。PrivateSubOption1_Click(______)DimH.WPicture1.ClsPicture1.FillStyle=______W=Picture1.ScaleWidth/2H=Picture1.ScaleHeight/2Picture1.Circle(W,H),W/2EndSub
填空题以下程序的功能是，从键盘上输入若干数据，统计并输出最大值和最小值，当输入负数时结束输入，请填空。
Dim amax As Single，amin As Single
x=InputBox("请输入数据")
amax=x
amin=x
Do While{{U}} 【8】 {{/U}}
If x＞amax Then
amax=x
End If
If{{U}} 【9】 {{/U}}Then
amin=x
End If
x=InputBox("请输入数据")
Loop
Print "Max="；amax；"Min="；amin
End Sub
填空题数据库设计分为以下6个设计阶段：需求分析阶段、{{U}} 【4】 {{/U}}、逻辑设计阶段、物理设计阶段、实施阶段、运行和维护阶段。
填空题程序是一个窗体双击事件代码，窗体的名称是Mywindow。窗体上有一个名为text1的文本框，用来显示文本。 程序段首先在文本框中显示“窗体能够触发双击事件”然后将该文本清除；重复上述过程5次。 Option Explicit Private ______ Dim k As Integer For k=1 To 100 If k Mod 20 Then _______ Else Text1.Text=" " End If Print“程序运行完毕，可再双击窗体” End Sub
填空题若串s="Program"，则其子串的数目是{{U}} 【3】 {{/U}}。
填空题Jackson结构化程序设计方法是英国的M．Jackson提出的，它是一种面向
________
的设计方法。
填空题某二叉树中度为2的节点有n个，则该二叉树中有______个叶子节点。
填空题窗体上已有名称分别为Dri、,e1、Dir1、Fite1的驱动器列表框、目录列表框和文件列表框，且有1个名称为Text1的文本框。以下程序的功能是：将指定位置中扩展名为“*.txt”的文件显示在File1中，如果双击File1中的某个文件，则在Text1中显示该文件的内容。 请填空。 Private Sub Form_Load() File1. Pattern= (13) End Sub Private Sub Dirt1_Change() File1.Path=Dir1. Path End Sub Private Sub Drive1_Change() Dir1. Path=Drive1. Drive End Sub Private Sub File1_DblClick() Dim s As String *1 If Right(File1. Path, 1)="/"Then f_name=File1. Path+File1. FileName Else f_name=File1. Path+"/"+File1. FileName End If Open f_name (14) As #1 Text1. Text="" Do While (15) s=Input(1, #1) Text1. Text=Tex 1. Text+s Loop Close #1 End Sub
填空题下列程序的功能是：当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的值!") (14) Case Is＜50 y=0.8*x Case 50 To 100 y=0.7*K (15) Print"输入的数据出界!" End Select Print x，y End Sub
填空题下列程序的功能是将字符串“abcde”逆序打印出来。请填写空白处以完善程序。 Function rev(str1) As String B=Mid(______,1,1) If B=""Then rev="" Else rev=rev(Mid(str1,2))+______ End If End Function Private Sub Form_Click() old="abedE" Print rev(old) End Sub
填空题有如下函数过程：
Function gys(By Val x As Integer, ByVal y As Integer) As Integer
Do While y＜＞0
preminder=x/y
x=Y
y=preminder
Loop
gys=x
End Function
以下是调用该函数的事件过程：
Private Sub Command1_Click
Dim a As Integer,b As Integer
a=10；b=2
x=gys(a，b)
Print x
End Sub
该程序的运行结果是______。
填空题在窗体上画一个名称为Combo1的组合框，画两个名称分别Labe11和Labe12及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按(Enter)键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Labe12中给出提示“已成功添加输入项”，如图20-3所示；如果存在，则在Labe12中给出提示“输入项已在组合框中”。请在{{U}}{{/U}}、{{U}}{{/U}}和{{U}}{{/U}}处将程序补充完整。PrivateSubCombo1{{U}}{{U}}{{/U}}{{/U}}(KeyAsciiAsInteger)IfKeyAscii=13ThenFori=0ToCombo1；ListCount-1IfCombo1．Text={{U}}{{U}}{{/U}}{{/U}}ThenLabe12．Caption="输入项已在组合框中"ExitSubEndIfNextiLabe12．Caption="已成功添加输入项"Combo1．{{U}}{{U}}{{/U}}{{/U}}Combo1．TextEndIfEndSub
填空题在一个工程中有两个窗体，窗体Form1上有一个命令按钮Disp，单击该按钮，Form1窗体隐藏，显示Form2窗体，程序如下，请补充完整。 Private Sub Disp_Click() Me．Hide Form2. 【10】 End Sub