填空题下列程序的功能是：将数据1，2，…，8写入顺序文件Num.txt中，请填空。 Private Sub Form_Click() Dim i As Integer Open"Num.txt"For Output As #1 For i=1 To 8 ______ Next i Close #1 End Sub
填空题在窗体上画一个命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(1,2,3,4)
j=1
For i=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next i
Print s
End Sub
运行上面的程序，单击命令按钮，其输出结果是
________
。
填空题下列程序运行后，单击窗体，在窗体上显示：1，1+2，1+2+3，1+2+3+4，1+2+3+4+5的和。请在横线处填写适当的内容，将程序补充完整。 Private Sub Form_Click() Dim i As Integer,tt As Integer Fori=1 To 5 tt=Sum(i):Print "tt=";tt, Next i End Sub Private Function Sum(______) ______ j=j+n Sum=j End Function
填空题在面向对象的方法中，一个对象请求另一个对象为其服务是通过发送 【3】 来完成的。
填空题在执行KeyPress事件过程时，KeyAscii表示所按键的盟值。
填空题建立窗口并存盘后，除了生成窗体文件外，还会生成______文件。
填空题下列程序的功能是：找出给定的12个数中最大的一个数，然后输出这个数以及它在原来12个数中的位置。请填空。 Option Base 1 Private Sub Form_Click() Dim X x=Array(57，-9，17，42，-31，46，11，8，6，-4，3，90) Max=1 For k=2 To 10 Step 1 If x(k)＞x(Max)Then ______ End If Next k Y=______ End Sub
填空题数据结构分为逻辑结构与存储结构，线性链表属于______ 。
填空题控件数组的名字由{{U}} 【9】 {{/U}}属性指定，而数组中的每个元素由{{U}} 【10】 {{/U}}属性指定。
填空题在窗体上画一个命令按钮Command1，然后编写如下程序： Private Sub Command1_click() Dim arr() As Integer ReDim arr(3) For i=0 To 3 arr(i)=i Next i x=InputBox("请输入一个数字：") If Val(x)＞4 Then ReDim arr(4) an(4)=x End If Me.Print(an(4)-arr(3)) End Sub 程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为 【10】 。
填空题软件危机出现于60年代末，为了解决软件危机，人们提出了
________
的原理来设计软件，这就是软件工程诞生的基础。
填空题要求打开随机文件“c:/Example.txt”文件，文件号为1，实现的语句是 【8】 。
填空题在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色)。当向文本框中输入任何字符时，命令按钮Command1变为可用。请在 【6】 处填入适当的内容，将程序补充完整。 Private Sub Form_Load( ) Command1.Enabled=False End Sub Private Sub Text1 【6】 ( ) Command1.Enabled=True End Sub
填空题在窗体上面有一个列表，然后编写如下两个事件过程： Private Sub Form_Click() List1.RemoveItem 1：List1.RemoveItem 2 List1.RemoveItem 3 End Sub Private Sub Form_Load() List1.AddItem"ItemA"：List1.AddItem"ItemB" List1.AddItem"ItemC"：List1.AddItem"ItemD" List1.AddItem"ItemE" End Sub 运行上面的程序，然后单击窗体，列表框中显示的项目是______。
填空题下列程序的功能是：找出给定的12个数中最大的一个数，然后输出这个数以及经在原来12 option Base 1 Private Sub Form_Click() Dim x x = Array(57,-9, 17,42, -31,46, 11, 8, 6, -4, 3,90) Max=1 For k=2 To 10 Step 1 If x(k) ＞ x(Max) Then ______ End If Next k y=______ Print Max, y End Sub
填空题在文本框中，通过______，属性能获得当前插入点所在的位置。
填空题给定年份，下列程序用来判断该年是否是闰年，请填空。Sub YN( ) Dim X AS Integer x＝Input Box("请输入年号") If( x Mod 4=0{{U}} 【10】 {{/U}}x Mod l000){{U}} 【11】 {{/U}}(x Mod 400=0)Then Print"是闰年" Else Print"不是闰年，是普通年份" End IfEnd Sub
填空题在窗体上画名称为Command1、标题为"计算"的命令按钮；画两个文本框，名称分别为Text1和Text2；然后画4个标签，名称分别为Label1、Label2、Label3和Label4，标题分别为"操作数1"、"操作数2"、"运算结果"和空白；再建立一个含有4个单选按钮的控件数组，名称为Option1，标题分别为"+"、"-"、"*"和"/"。程序运行后，在Text1、Text2中输入两个数值，选中一个单选按钮后单击命令按钮，相应计算结果显示在Label4中，程序运行情况如图所示。请在空处填入适当的内容，将程序补充完整。PrivateSubCommand1_Click()Fori=0To3If(9)=TrueThenopt=Option1(i).CaptionEndIfNextSelectCase(10)Case"+"Result=Val(Text1.Text)+Val(Text2.Text)Case"-"Result=Val(Text1.Text)-Val(Text2.Text)Case"*"Result=Val(Text1.Text)*Val(Text2.Text)Case"/"Result=Val(Text1.Text)/Val(Text2.Text)EndSelect(11)=ResultEndSub
填空题在Visual Basic中，顺序文件的读操作通过______、______语句或______函数实现。随机文件的读写操作分别通过______和______语句实现。
填空题窗体如图所示，其中汽车是名称为Imagel的图像框，命令按钮的名称为Command1，计时器的名称为Timer1，直线的名称为Line1。程序运行时，单击命令按钮，则汽车每0.1秒向左移动100，车头到达左边的直线时停止移动。请填空完成下面的属性设置和程序，以便实现上述功能。①Timer1的Interval属性的值应事先设置为{{U}}{{U}}3{{/U}}{{/U}}。②PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubTimer1_Timer()IfImage1.Left＞=Line1.x1ThenImage1.Left={{U}}{{U}}4{{/U}}{{/U}}-100EndIfEndSub