填空题当用______方式打开文件时，如果对文件进行与操作，则写入的数据附加到原来文件的后面。
填空题下面程序的功能是：计算1～10之间奇数之和及偶数之和。
Dim a，b，c，i
a=0
c=0
For i=0 To 10 Step 2
a=i+a
{{U}} 【10】 {{/U}}
c=b+c
Next i
Print "偶数之和="；a
Print"奇数之和=" ;c-11
填空题在窗体上建立一个单选按钮组Option1和一个图片框Picture1，如图所示。当选择不同的单选按钮时，图片框中填充不同的图案，请填写程序的空白处，使程序完整。PrivateSubOption1_Click(______)DimH,WPicture1.CisPicture1.FillStyle=______W=Picture1.ScaleWidth/2H=Pieture1.ScaleHeight/2Pieture1.Circle(W,H),W/2EndSub
填空题在Visual Basic中，当改变目录列表框的Path属性值时，改变了当前驱动器的{{U}} 【8】 {{/U}}。
填空题欲打开各种Visual Basic窗口或显示工具栏，其对应的菜单命令均放置于主菜单项______。的下拉菜单中。
填空题局部变量声明使用的语句是______，模块级变量声明使用的语句是______，全局变量声明使用的语句是______。
填空题顺序查找一般是指在 【1】 中查找指定的元素。
填空题在窗体上画一个列表框，然后编写如下两个事件过程： Private Sub Form_Click( ) List1.RemoveItem 1 List1.RemoveItem 3 List1.RemoveItem 1 End Sub Private Sub Form_Load( ) List1.AddItem "ItemA" List1.AddItem "ItemB" List1.AddItem "ItemC" List1.AddItem "ItemD" List1.AddItem "ItemE" End Sub 运行上面的程序，然后单击窗体，列表框中所显示的项目为______。
填空题对如图4所示的二叉树进行中序遍历的结果是______。
填空题当下列程序运行，单击窗体后，分别输入72和24，信息框上显示的结果是______。 Private Sub Form_Click( ) Dim X As Inte9er, y As Integer x=Val(InputBox("输入整数72")) y=Val(InputBox("输入整数24")) z=funl(x，y) MsgBox Str(z) End Sub Private Function funl(ByVal a As Integer, ByVal b As Integer)As Integer Do r=a Mod b a=b h=r Loop Until r=0 funl=a End Function
填空题设有如下程序
Option Base 1
Private Sub Command1_Click()
Dim arrl
Dim Min As Integer，i As Integer
arrl=Array(12，435，76，-24，78，54， 866， 43)
Min=____
For i=2 To 8
If arrl(i)＜Min Then
Next i
Print “最小值是：”；Min
End Sub
以上程序的功能是：用Arcay函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。
填空题软件生命周期可分为定义阶段、开发阶段和维护阶段。编码和测试属于 (4) 阶段。
填空题设有如下记录类型：
Type student
Number As String*10
Name As String*8
End Type
窗体中有若干控件，单击其中的一个按钮Command1时，执行如下事件过程，该过程的功能是把数据输出到指定的文件中。根据题意，请完善下列程序。
Private sub Command1_click()
Dim stu As student
Open "C:/file, dat" For Random As #1 Len=Len({{U}} 【11】 {{/U}})
Title $="写记录到随机文件"
Str1 $="请输入学生名"
Str2 $="请输入学生名"
For i=1 To 5
stu. Number=InputBox(Str1 $, Title $)
stu. Name=InputBox$(Str2 $, Title $)
{{U}} 【12】 {{/U}}#1, i, stu
Next i
Close{{U}} 【13】 {{/U}}
End Sub
填空题下面程序的功能是从键盘输入1个大于100的整数m,计算并输出满足不等式1+2的2次方+3的2次方+4的2次方+...+n的2次方
填空题如果存在如下过程： Private Function Fun(a() As Integer) Dim First As Integer, Last As Integer,i As Integer First=LBound(a) Last=UBound(a) Max=a(First) For i=First To Last If a(i)＞ Max Then Max=a(i) Next Fun=Max End Function 在窗体上添加一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() ReDim m(1 To 4)As Integer m(1)=20: m(2)=30: m(3)=50: m(4)=100 c=Fun(m) Print C End Sub 单击命令按钮，其输出结果为 (9) 。
填空题在关系数据库中，把数据表示成二维表，每一个二维表称为【4】。
填空题下列过程的功能是：用来计算并输出S = 1+1/2+1/3+…+1/100的值。请完善程序。 Function SumF(n As Integer)As Single s = 0 For i = 1 To n s = ______ Next i SumF = s End Function Private Sub Form_Click( ) Sum1 = SumF(100) Print Print "sum1 = "; sum1 End Sub
填空题下面的程序代码实现将一个一维数组中元素向右循环移动，移动次数由文本框Text1输入。例如数组各元素的值依次为0，1，2，3，4，5，6，7，8，9，10；移动三次后，各元素的值依次为8，9，10，0，1，2，3，4，5，6，7。
Private Sub MoveRight(x()As Integer)
Dim i As Integer
Dim j As Integer
Dim k As Integer
i＝UBound(x)
j＝x(i)
For k＝i To {{U}}【9】 {{/U}} Step—1
{{U}}【10】 {{/U}}
Next k
x(LBound(x))＝j
End Sub
Private Sub Command1_Click()
Dim a(10) As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
For i＝0 To 10
a(i)＝i
Next i
j＝Val(Text1.Text)
k=0
Do
k＝k+1
Call MoveRight(a)
Loop Until k＝j
For i=0 To 10
Print a(i);
Next i
End Sub
填空题把窗体的KeyPreview属性设置为True，并编写如下两个事件过程：
Private Sub For_KeyDown(KeyCode As Integer，Shift As Integer)
Print KeyCode
End Sub
Private Sub Fora_KeyPress(Key Ascii AS Integer)
Print Key Ascii。
End Sub
程序运行后，如果按下A键，则在窗体上输出的数值为{{U}} 【12】 {{/U}}和{{U}} 【13】 {{/U}}。
填空题在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序：
Function M(x As Integer，y As Integer) 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}}。