以下程序的功能是：先将随机产生的10个不同的整数放人数组a中，再将这10个数按升序方式输出。请填空

在窗体上有1个名称为Commandl的命令按钮，并有如下事件过程和函数过程：

Private Sub Commandl Click()

Dim P As Integer

p=m(1)+m(2)+m(3)

Print P

End Sub

Private Function m(n As Integer)As Integer

Static s As Integer

For k=1 To n

s=s+l

Next

m=s

End Function

运行程序，单击命令按钮Commandl后的输出结果为

下列程序的功能是把顺序文件smtextl.txt的内容全部读入内存，并在文本框Textl中显示出来。请填空。

Private Sub Command1_Click()

Dim inData As String

Text1.Text=""

Open "smtext1.txt"【 】As【 】

Do While【 】

Input 2，inData

Text1.Text=Text1.Text & inData

Loop

Close 2

End Sub

在窗体上画一个命令按钮(其Name属性为Commandl)，然后编写如下代码：

Private Sub Commandl_Click()

Dima(5)

Fori=0 To 4

A(i)=i+1

t=i+1

If t=3 Then

Print a(i)

A(t-1)=a(i-2)

Else

A(t)=a(i)

End If

Ifi=3 Thena(i+1)=a(t-4)

A(4)=1

Printa

十位数(1～9)，然后十位数乘10再加上个位数即得到一个两位数。

说明：在窗体上有一个Commandl按钮，单击它将计算10个随机数的和与平均数，

并在窗体上输出平均数。

Private Sub Commandl Click()

Dim m As Integer, n As Integer, sum As Integer

Dim i As Integer, k As Integer, aver As Single

sum=0

Randomize

For i＝1 To 10

m＝Int(9*RnD)+1

n=【 】

k=m*10+n

sum=【 】

Next i

aver=【 】

Print aver

End Sub

由Visual Basic系统事先设定的，能被对象识别和响应的动作称为【 】。

注意：下面出现的“考生文件夹”均为c：\wexam\25160001。

在窗体上有三个菜单，名称分别为Read、Calc和Save，标题分别为“读入数据”、“计算并输出”和“存盘”，一个文本框，名称为Text1，MultiLine属性设置为Tree，ScrollBars属性设置为2，如图21-7所示。

程序运行后，如果执行“读入数据”命令，则读入datain1.txt文件中的100个整数，放入一个数组中，数组的下界为1；如果单击“计算并输出”按钮，则把该数组中下标为奇数的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果单击“存盘”按钮，则把所求得的和存入考生文件夹下的dataout.txt文件中。

在考生文件夹下有一个工程文件sjt5.vbp，窗体文件中的ReadData过程可以把datain1.txt文件中的100个整数读入Air数组中；而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得，文件名为dataout.txt)。请将程序中有问号的地方用相应的代码补完整，将注释号(')去掉。

注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为sjt5.vbp，窗体文件名仍为sjt5.frm。

直线的名称为Linel。程序运行时，单击命令按钮，则汽车每0.1秒向左移动100，车头到达左边的直线时停止移动。请填空完成下面的属性设置和程序，以便实现上述功能。

1)Timer1的Interval属性的值应事先设置为【 】

2)Private Sub Command1_ Click()

Timer1. Enabled=True

End Sub

Private Sub Tuner1_Timer()

If Imagel. Left＞【 】 Then

Image1.Left= 【 】 -100

End If

End Sub

设窗体上有—个名称为Combo1的组合框，并有以下程序：

Privale Sub Combol_ KeyPress(KeyAscii As Integer)

If【 】 =13 Then 回车符的ASCII码是13

For k=0 To Combo1. ListCount-1

If Combo1.Text=Combol. List(k)Then

Combo1.Text=" "

Exit For

End If

Next k

If Combo1. Text＜＞" "Then

Combo1. AddItem 【 】

End If

End If

End Sub

程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则把编辑区中文本添加到列表的尾部。请填空。

框以每2秒钟一次的速度向窗体的右下角移动，每次向左，向右移动100twip。请填空。

Private Sub Form_ Load()

Picture1_icture=LoadPicture(“c:\pic\mouth.ico”)

【 】.Interval=2000

End Sub

Private Sub Timer1_ Timer()

Static x，y As Integer

x=x+100

y=y+100

Pictuer1.Move [x, y]

End Sub