填空题设有一个有10个元素的数组，下列程序将该数组的第1个元素与第10个元素交换，第2个元素与第9个元素交换……，第5个元素与第6个元素交换，请填空。 Private Sub Command1_Click() Dim a(1 To 10)As Integer Dim i As Integer Dim p As Integer Dim t As Integer Dim j As Integer For i=1 To 10 a(i)=i Next i For j=1 To 5 t=a(j) ______ ______ Next j For i=1 To 10 Print a(i) Next i End Sub
填空题对如图4所示的二叉树进行中序遍历的结果为______。
填空题窗体是一种对象，由属性定义其外观，由______定义其行为，由事件定义其与用户的交互。
填空题在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为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"，则在标签中显示的内容是______。
填空题阅读程序：OptionBase1PrivateSubFormClick()Dima(3)AsIntegerPrint“输入的数据是：”；Fori=1To3a(i)=InputBox(“输入数据”)Printa(i)；NextPrintIfa(1)＜a(2)Thent=a(1)a(1)=a(2)a(2)=______EndIfIfa(2)＞a(3)Thenm=a(2)ElseIfa(1)＞a(3)Thenm=______Elsem=______EndIfPrint“中间数是:”；mEndSub程序运行后，单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数中的中间数，如图所示。请填空。
填空题软件测试是保证软件质量的重要手段，而软件测试的主要和重要的测试方法是通过测试数据和{{U}} 【4】 {{/U}}的设计宋实现。
填空题如果在立即窗口中执行以下操作： a=8 b=9 print (a＞b); 则输出结果为______。
填空题下列程序的功能是把文件C:/a1.txt复制成C:/a2.txt，请填空。
Private Sub Form C1ick()
Dim ch As String
Open "C:/a1.txt" For
________
Open "C:/a2.txt" For
________
Do While Not
________
ch＝Input(1,10)
Print #20,ch;
Loop
Close #10,#20
End Sub
填空题有如下事件过程： Private Sub Form_Adivate() Dim Score(1 to 3 ) As Integer Dim i As Integer Dim t As Variant For i=3 To 1 step-1 Score(i)=2*1 Next For Each t In Score Print t Next End Sub 程序运行后窗体上显示的值为 (10)
填空题下面程序的功能是统计字符串中“i”的个数请填空。 Sub COU( ) Dim n As Integer a$ =" Beijing University of Technology" n = Len(a$) For i = 1 To n b$ = 【15】 If b$ ="i" Then x=x+1 Next Print" x="; x End Sub
填空题在链表的运算过程中，能够使空表与非空表的运算统一的结构是______。
填空题为了把一个Visual Basic应用程序装入内存，只要装入______文件即可。
填空题菜单编辑器可分为3个部分，即数据区、 【11】 和菜单项显示区。
填空题与数学表达式cos2(a+b)/3x+5 对应的Visual Basic表达式是{{U}} 【6】 {{/U}} 。
填空题以下程序段执行后y的值是
________
。
x=8.6
y=int(x+0.5)
print y
填空题窗体KeyUp事件过程如下，启动程序后按小写字母“a”，输出结果为______。
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode)
End Sub
填空题在有下面一个程序段从文本框中输入数据，如果该数据满足条件，除以6余2，脓以5余3，则输出．否则，特焦点定位在文本框中，并清除文本框的内容。 Private Sub Command1_Click( ) num=Val(Text1．Text) If 【8】 Then Print num Else Text1．Text=" " 【9】 End If End Sub
填空题事件驱动是一种适用于______的编程方式。
填空题在刚建立工程时，使窗体上的所有控件具有相同的字体格式，应对______的属性进行设置。
填空题下列程序的功能是：当X＜50时，y=0.8×x；当50≤x≤100时，y:0.7×X；当x＞100时，没有意义。请填空。 Private Sub Commandl_Click() Dim x As Single x=InputBox("请输入x的值!") [10] Case Is ＜50 Y=0.8*x Case 50 To 100 Y=0.7*x [11] Print"输入的数据出界!" End Select Print x，y End Sub