填空题全面支持软件开发过程的软件工具集合被称为______。
填空题在代码窗口中输入某行代码并按回车键后，如果代码变成红色，表示______。
填空题设有下列二叉树：对此二叉树前序遍历的结果为【4】
填空题下面程序的功能是统计字符串中“i”的个数，请填空。
Sub COU( )
Dim n As Integer
a$ = "Beijing University of Technology"
n = Len(a$ )
For i = 1 To n
b$ =Mid$(a$,i, 1)
If{{U}} 【11】 {{/U}}Then x=x + 1
Next
Print "x ="; x
End Sub
填空题表达式25.38Mod 6.98的值是______。
填空题在一个窗体上有一个命令按钮，CmdMax。单击CmdMax时，窗体上显示“字体由小变大”，字号每次增加2。请填空。
Private Sub Form_Load()
Form1.Caption=“字体变化示范”
CmdMax.Caption=“字体变大”
End Sub
Private Sub CmdMax_Click()
{{U}}【8】 {{/U}}
Form1.Print“字体由小变大”
End Sub
填空题设a=10，b=9，c=8，则执行以下两条语句，变量b的值为______。 a=CInt(b/(10/(c/2))) b=c Mod a
填空题为了在运行时把“d:/pie”文件夹下的图形文件“a. jpg”装入图片框Picturel，所使用的语句为 【6】 。
填空题以下循环的执行次数是{{U}} 【9】 {{/U}}。
k=0
Do Until k＞=10
k=k+1
Loop
填空题组合框有3种不同的类型，这3种类型是下拉式组合框、简单组合框、下拉式列表框，分别通过将 【11】 属性设置为0、1、2宋实现。
填空题Visual Basic中的对象主要指______和______。Visual Basic中含有三种控件： ______、______和OLE控件。
填空题给定年份，下列程序用来判断该年是否是闰年，请填空。
Sub YN( )
Dim X AS Integer
x＝Input Box("请输入年号")
If( x Mod 4=0 【 】 x Mod l000) 【 】 (x Mod 400=0)Then
Print"是闰年"
Else
Print"不是闰年，是普通年份"
End If
End Sub
填空题下面程序的功能是：将数组a中下标值为偶数的元素从小到大排列，其他元素不变。 Dim a(1 To 10)，i，j，k For i=1 To 10 a(i)：InputBox("input：") Next i For i；1 To 10 Print a(i) Next i Print For i=2 To 10 【14】 For j=i+2 To 10 If 【15】 Then t=a(i) a(i)=a(j) a(j)=t End If Next j Next i For i=1 To 10 Print a(i) Next i
填空题下列程序段的作用是控制窗体的显示与隐藏。请填空。
Private Sub Form_Click()
Dim msg As Integer
Me.
________
MsgBox "单击Ok显示窗体"
Form1.
________
End Sub
填空题设有如下程序： Private Sub Form_Click()
Dim a As Integer,s As Integer n=8
s=0 Do s=s+n n=n-1
Loop While n＞0 Print s End
Sub 以上程序的功能是{{U}} {{U}} 5 {{/U}}
{{/U}}。程序运行后，单击窗体，输出结果是{{U}} {{U}} 6 {{/U}} {{/U}}。
填空题为了把通用对话框控件添加到工具箱中，应在______对话框的“控件”选项卡中选择______。
填空题下面的程序用冒泡法将数组a中的10个整数按升序排列，请在三处将程序补充完整。
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(678，45，324，528，439，387，87，875，273，823)
For i=______
For j=______
If a(i)______a(j)Then
a1=a(i)
a(i)=a(j)
a(j)=a1
End If
Next j
Next i
For i=1 To 10
Print a(i)
Next i
End Sub
填空题在修改列表框内容时，RemoveItem方法的作用是【 】。
填空题在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
a=0
For i=1 To 2
For j=1 To 4
If j Mod 2＜＞0 Then
a=a+1
End If
a=a+1
Next j
Next i
Print a
End Sub
程序执行后，单击命令按钮，输出结果是{{U}} 【7】 {{/U}}。
填空题运行下列程序：
Dim t As Integer
Private Sub Form_C1ick
____
t=2
x=Val(InputBox("输入一个整数5"))
Print funl(x)；t
End Sub
Private Function funl(v)
If y＞0 Then
fun1=1:t=10
Else If y=0 Then
fun1=0:t=20
Else
fun1=-1:t=30
End If
End Function
从键盘为变量x输入数据5，输出的结果是______。