注意：下面出现的“考生文件夹”均为C:\wexam\25160002。 在考生文件夹下有一个工程文件sjt5.vbp在名

在下划线处填入适当的内容，将程序补充完整。

Option Base 1

Private Sub Form_Click0

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

行后，若在文本框Text1中输入一个字符串。若该字符串超过15个字符后，超出部分在文本框Text2中显示。如图12所示程序中不得使用任何变量。

注意：存盘时必须存放在考生文件夹下，工程文件名为ylc4.vbp，窗体文件名为ylc4.frm。

n及命令按钮的单击事件过程如下，请填空。

Private Sub Command1_Click()

Dim x As Integer

x=Val(InputBox(“输入数据”))

Text1=Str(fun(x)+fun(x)+fun(x))

End Sub

Private Function fun(ByRef n As Integer)

Ifn Mod 3=0 Then

n=n+n

Else

n=n*n

End If

________=n

End Function

当单击命令按钮，在输入对话框中输入2时，文本框中显示的是_______。

和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的列表中，并在Label2中给出提示“已成功添加新输入项。”，如图所示。如果输入的项目已存在，则在Label2中给出提示“输入项已在组合框中。”。请填空。

Private Sub Combo1_KeyPress(KeyAscii As Integer)

If KeyAscii=13 Then

For i＝0 To Combo1.ListCount-1

If Combo1.Text=【 】Then

Label2.Caption="输入项已在组合框中。"

Exit Sub

End If

Next i

Label2.Caption="已成功添加新输入项。"

Combo1.【 】Combo1.Text

End If

End Sub

两个数相比较(第1个数与第2个数，第2个数与第3个数……如此重复)，若前面的数较大，则这两个数交换位置。这样执行一遍后，最后一个数已经是数组中最大的数。然后将数组的前n-1个数重复上述过程。如此继续，可将数组排序，请将程序补充完整。

Option Base 1

Private Sub Command1_Click()

Dim a()

a=Array(678，45，324，528，439，387，87，875，273，823)

Fori＝【 】

Forj= 【 】

If a(j)【 】a(j+1)Then

a1=a(j)

a(j)＝a(j+1)

a(j+1)=al

End lf

Nextj

Next i

For i＝1 To 10

Print a(i)

Next i

End Sub

)，代码如下。请填入适当的内容，将程序补充完整。

Private Sub Combo1_Cliek()

TextFontName=ComboList(ComboListlndex)

End Sub

Private Sub Form_Load()

With Combol

Addltem"宋体"

Addltem"隶书"

Addltem"黑体"

&8226;Addltem"楷体_GB2312""

&8226;Listlndex＝0

End With

Text1.【 】30

Textl. 【 】=Combol.List(0)

End Sub

值为True的属性是______。

滚动条中的滚动框向右移动与该数相等的刻度，但如果超过了滚动条的最大刻度，则不移动，并且显示“文本框中的数值太大”；如果输入的是负数，则滚动框向左移动与该数相等的刻度，但如果超过了滚动条的最小刻度，则不移动，并且显示“文本框中的数值太小”，如图18所示。

题目中提供的“移动”按钮控件Command1的Click事件的源代码如下：

Private Sub Command1_Click()

Dim nCount As Integer

nCount=CInt(Text1.Text)

If(nCount＞=?)Then

HScrolll.Value=HScrolll.Max

?

Else

If (nCount＜=HScrolll.Min) Then

?=HScrolll.Min

MsgBox("文本框中的数字太小")

Else

HScrolll.Value=?

End If

End If

End Sub

注意：不能修改程序中的其他部分，不能修改控件的属性，最后把修改后的程序以原来的文件名存盘。存盘时必须存放在考生文件夹下。

到第二个文本框(text2)，而不是用TAB键来切换。请填空。

Private Sub [11] KeyDown(KeyCode As Integer,Shift As Integer)

If KeyCode [12] vbKeyRetum Then

Text2.SetFocus

End If

End Sub

下列程序的执行结果是______。

PrivateFunctionP(NASInteger)

Fori=1 To N

SUM=SUM+i

Nexti

P=SUM

End Function

Privte Sub Commandl_Click()

S=P(1)+P(2)+P(3)+P(4)

Print S

End Sub