填空题把窗体的KeyPreview属性设置为True，然后编写如下两个事件过程： Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 程序运行后，如果直接按键盘上的“A”键(即不按住Shift键)，则在窗体上输出的字符分别是______和______。
填空题有如下程序，该程序的执行结果是{{U}} 【6】 {{/U}}。
Private Sub Command1_lick()
For i= 1 To 4
x= 4
For j =1 To 3
x =3
For k=1 To 2
X= K+5
Next k
Next j
Next i
Print x
End Sub
填空题下列程序的功能是把文件C:/a1.txt复制成C:/a2.txt，请填空。 Private Sub Form C1ick() Dim ch As String Open "C:/a1.txt" For 【13】 Open "C:/a2.txt" For 【14】 Do While Not 【15】 ch＝Input(1,10) Print #20,ch; Loop Close #10,#20 End Sub
填空题下列程序段在窗体上输出______，在立即窗口中输出______。 S1="software" S2="hardware" S3="computer" Print Right(S1, 3) Picture1.Print Mid(S2, 2, 4) Debug.Print Left(S3, 2)
填空题有64个结点的完全二叉树的深度______(根的层次为1)。
填空题在窗体上画一个名为Label1的标签和一个名为List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Label1中显示所选中的项目，如图16-1所示。请在{{U}}【9】{{/U}}和{{U}}【10】{{/U}}处填入适当的内容，将程序补充完整。(2002年9月)PrivateSubForm_load()List1.AddItem"北京"List1.AddItem"上海"List1.AddItem"河北"EndSubPrivateSub{{U}}【9】{{/U}}()Label1.Caption={{U}}【10】{{/U}}EndSub
填空题若s、i均为整型变量，执行下列程序段后s的值为{{U}} 【11】 {{/U}}。
S=0
i=1
DO
S=S+i
┊
i=i+1
Loop Until i>5
填空题以下程序段的功能为，输入8个数给数组a,然后采用插入排序算法，将数组a中的数按照升序排列存入数组b中。请填空。
Private Sub Command1_Click ()
Dim a(1 To 8), b(1 To 8)
For i = 1 To 8
a(i) = InputBox("请输入")
Print a(i)
Next i
Print
For i = 1 To 8
s = 1
For j = 1 To 8
If
________
Then
s = s + 1
End If
Next j
________
Next i
End Sub
填空题以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Commandl的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后的平均分即为最后得分)，如下图所示。请填空。PfivaleSubCommaildl_C1iCk()DimkAshtegerDimsumAsSingle，maxAsSingle，minAsSinglesum=Text1(0)max=Text1(0)min=______Fork=1To6Ifmax＜Text1(k)Thenmax=Text1(k)EndIfIfmin＞Text1(k)Thenmin=Text1(k)EndIfsum=sum+Text1(k)NextkText2=(Sum-max-min)/5EndSub
填空题以下程序用来建立一个10*10矩阵，该矩阵两条对角线上的元素为1，其余元素为0，请补充完该程序。
该程序运行结果见下图。
Private Sub Form_ click()
Dim s(10, 10) As Integer
For n = 1 To 10
For m = 1 To 10
If{{U}} 【12】 {{/U}}Or{{U}} 【13】 {{/U}}Then
s (n, m) = 1
Else
s (n, m) = 0
End If
Next m
Next n
For n = 1 To 10
For{{U}} 【14】 {{/U}}。
Picturel. Print Tab(m * 3); s(n, m)
Next m
Print
Next n
End Sub
填空题假定建立了一个工程，该工程包括两个窗体，其名称分别为Form1和Fom2，启动窗体为Form1。在Form1上面画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示Form2，请在{{U}} 【8】 {{/U}}和{{U}} 【9】 {{/U}}处将程序补充完整。
Private Sub Command1_Click( )
{{U}}【8】 {{/U}}
form2{{U}} 【9】 {{/U}}
End Sub
填空题设A=27，则Hex(A)= [8] ，Oct(A) [9] 。
填空题有如下事件过程： Private Sub Form Active ( ) Dim Score (1 to 3) As Integer Dim i As Integer Dim t As Variant Fori=3 To 1 step-1 Score (i) = 2 * i Next For Each t In Score Print t Next End Sub 程序运行后窗体上显示的值为 【14】 。
填空题图像框中的图形能与图像框的大小相适应，必须把该图片框的Stretch属性设置为_______。
填空题下面程序是用来打印九九乘法表的，请填空。 Dim i As Integer，j As Integer，Str1 $ Str1="" For i=1 To 9 For j=1 To 9 If [12] Then Str1=Str1+Str$(j)+"X"+Str$(i)+"="+Str$(Val(i*j)) Else Str1=Str1 & Chr(13) [13] End If Next Next Print Str1
填空题在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1)，然后编写如下两个事件过程： Private Sub Command1_Click() A=Text1.Text+Text2.Text Print A End Sub Private Sub Form Load() Text1.Text=" " Text2.Text=" " End Sub 程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入123和 321，然后单击命令按钮，则输出结果为 【15】 。
填空题窗体上有两个控件：一个是驱动器列表框Drive1，另一个是目录列表框Dir1，现在要使目录列表框跟随驱动器列表框的变化而变化，则需在Drive1_Change事件过程中填入语句 【7】 。
填空题若要求输入密码时文本框中只显示“*”号，则应当在文本框的属性窗口中设置______属性。
填空题下列程序段运行结果是______。 Dim c As Integer,num As Integer Num=29483 Do c=num Mod 10 Print c； num=num/10 Loop While num＜＞0
填空题下列程序实现的功能是：从键盘上输入10个整数，并把它们写到“D：”盘“a1．dat”文件中，然后从中读出第5个数并输出。 Private Sub Form_Click() Dim k As Integer Dim n As Integer，i As Integer n=Len(k) Open 【13】 As#10 Len=n For i=1 To 10 k=InputBox("请输入一个整数") 【14】 Next i 【15】 Get #10，，k Print k End Sub