福建省高职单招计算机考试模拟卷(12)

计算机专业模拟卷

n = UBound(a)

For i = n To 2 Step -1 For j = 1 To n - 1 If a(j) < a(j + 1) Then

t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next j Next i

End Sub程序运行时，单击命令按钮后显示的结果是：____ ____________。 五、程序填空题（请正确填充下面的VB程序，使其完成所要求的功能。每空3分，共30分）

1．下面事件过程的功能是：输出100 以内个位数为8 且能被３整除的所有数，在横线上填上适当内容。

Private Sub Command1_Click() Dim i%, a%

For i = 0 To ____ _（1）___________ a = i * 10 + 8

If ____ （2） ____________Then Print a Next I End Sub

2．窗体上有一个名称为Combo1的组合框， 其初始内容为空，有一个名称为Command1、标题为“添加项目”的命令按钮。程序运行后，如果单击命令按钮，会将给定数组中的项目添加到组合框中，如图所示。请填空。

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库福建省高职单招计算机考试模拟卷(12)在线全文阅读。