填空题在窗体中添加一个名称为Text1的文本框，两个名称分别为Command1和Com mand2的命令按钮。要求程序运行后，用户向文本框中输入字母，单击Command1按钮则文本框中字母全部转换为大写；然后单击Command2按钮则文本框中字母全部转换为小写。请在{{U}} 【13】 {{/U}}、{{U}} 【14】 {{/U}}和{{U}} 【15】 {{/U}}处填入适当的内容，将程序补充完整。
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
{{U}}【13】 {{/U}}：Text1. Text
End Sub
Private Sub Command1_Click()
Text1. Text＝{{U}} 【14】 {{/U}}
End Sub
Private Sub Command2 {{U}}【15】 {{/U}}()
Text1. Text＝LCase(Text1. Tag)
End Sub
填空题为了在运行时把窗体Form1的标题(Caption 属性)设置为“Test Program”，应使用的语句为 【6】 。
填空题在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1)，然后编写如下几个事件过程：PrivateSubForm_Load()Timer1.Enabled=FalseTimer1.Interval=________EndSubPrivateSubForm_Click()Timer1.Enabled=________EndSubPrivateSubTimer1_Timer()Label1.Caption=________EndSub程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次(见下图)。请填空。
填空题如下图所示的二叉树，若按后序遍历，则其输出序列为【1】。
填空题如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为______。
填空题控件数组的名字由Name属性指定，而数组中的每个元素由 (9) 属性指定。
填空题通用对话框控件可通过调整其Action属性而改变成各种实用的对话框，但它不能改变成______对话框。
填空题在窗体上有一个“背景色变换”按钮和一个“结束”按钮。单击“背景色变换”按钮，背景色变为红色；再单击，背景色变为绿色；再单击，背景色变为蓝色；再单击背景色变为红色……如此循环。单击“结束”按钮，程序运行结束。请填空。 Private Sub cmdChange_Click() If Mark=0 Then 【13】 Mark=1 ElseIf 【14】 Then Forml．BackColor=vbGreen Mark=2 ElseIf Mark=2 Then Form1．BackColor；vbBlue 【15】 End If End Sub Private Sub cmdExit_Click() End End Sub
填空题在窗体上画—个命令按钮，其名称为Command1，然后编写如下程序：
Function M(x As Integer ,y As Integer)
M=IIf(x＞y,x,y)
End Function
Private Sub Command1_Click()
Dim a As Integer,b As Integer
a=100
b=200
Print M(a,B)
End Sub
程序运行后，单击命令按钮，输出结果为{{U}} 【15】 {{/U}}。
填空题在窗体(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，然后单击命令按钮，则输出结果为{{U}} 【15】 {{/U}}。
填空题窗体上有两个按钮，则执行程序后按键盘Cancel键的输出结果是
________
。
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是否为素数，若是，则函数返回True；否则返回False
Function prime(a As Integer) As Boolean
Dim k As Integer,ispfime As Boolean
If a＜2 Then
isprime=False
Else
isprime=Tme
k=2
Do While k＜a/2 And isprime
If a Mod k=0 Then
isprime=False
Else
k==k+1
End If
Loop
End If
End Function
在测试时发现有一个非素数也被判断为素数，这个错判的数是{{U}} 【15】 {{/U}}。
填空题在数据结构中，用—组地址连续的存储单元一次存储数据元素的方式是 【2】 结构。
填空题以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后的平均分几位最后得分)，如图16-9所示。请填空。PrivateSubCommand1_Click()DimkAsIntegerDimsumAdSingle,maxAsSingle,minAsSinglesum=Text1(0)max=Text1(0)min={{U}}【10】{{/U}}Fork={{U}}【11】{{/U}}To6Ifmax＜Text1(k)Thenmax=Text1(k)EndIfIfmin＞Text1(k)ThenMin=Text1(k)EndIfsum=sum+Text1(k)NextkText2=({{U}}【12】{{/U}})/5EndSub
填空题下面程序的功能是把文件file11.txt中重复字符去掉后(即若有多个字符相同，则只保留一个)写入文件file2.txt。请填空。
Private Sub Command1_Click()
Dim inchar AS String, temp AS String, outchar AS String
Outchar=""
Open "file1.txt" For Input AS #1
Open "file2.txt" For Output AS
________
n=LOF(
________
)
inchar=Input$(n,1)
For k=1 To n
temp=Mid(inchar,k,1)
If InStr(outchar, temp)=
________
Then
outchar=outchar & temp
End If
Next k
print #2,
________
close #2
close #1
End Sub
填空题在Visual Basic中，当改变目录列表框的Path属性值时，改变了当前驱动器的 【8】 。
填空题函数Mal("123.45")+Val("233.6")的值是{{U}} 【7】 {{/U}}。
填空题在窗体上建立—个名称为Text1的文本框，用来接收一个整数。当form1_ Click事件发生时，将在窗体上显示输入整数的各位数字和。Private Function fun(m As Integer) As IntegerDim k As Integer, n As Integerdo n = 【10】 k=k+ n m= m/10Loop until m = 0fun = kEnd FunctionPrivate Sub form_ Click() Dim n As Integer n = Val(Text1. Text) Print 【11】 End Sub
填空题鼠标移动经过控件时，将触发控件的______事件。
填空题在Select case结构中，使用“To表达式”来指定一个范围时，必须把______的值写在前面。