2006年5月軟考《程序員》最新預(yù)測試題2

模擬下午試題

試題四  VB程序設(shè)計(jì)題目

在窗體上畫一個(gè)名稱為Combo1的組合框，畫兩個(gè)名稱分別Label1和Label2及Caption 屬性分別為"城市名稱"和空白的標(biāo)簽。程序運(yùn)行后，當(dāng)在組合框中輸入一個(gè)新項(xiàng)后按回車鍵（ASCII碼為13）時(shí)，如果輸入的項(xiàng)在組合框的列表中不存在，則自動(dòng)添加到組合框的列表中，并在Label2中給出提示"已成功添加輸入項(xiàng)"如圖所示；如果存在，則在Label2中給出提示"輸入項(xiàng)已在組合框中"。請?jiān)诳仗帉⒊绦蜓a(bǔ)充完整。

Private Sub Combo1_ （1） (KeyAscii As Integer)

If KeyAscii = 13 Then

For i = 0 To Combo1.ListCount-1

If Combo1.Text = （2） Then

Label2.Caption = "輸入項(xiàng)已在組合框中"

Exit Sub

End If

（3）

Label2.Caption = "已成功添加輸入項(xiàng)"

Combo1.（4） Combo1.Text

（5）

End Sub

試題七  VB程序設(shè)計(jì)題目

上述程序的功能是，通過調(diào)用過程swap，調(diào)換數(shù)組中數(shù)值的存放位置，即a(1)與a(10)的值互換，a(2)與a(9)的值互換，……，a(5)與a(6)的值互換。

在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下程序：

Option Base 1

Private Sub Command1_Click()

Dim a(10) As Integer

For i = 1 To 10

a(i) = i

Next

Call swap（　（1）�。�

For i = 1 To 10

Print a(i);

Next

End Sub

Sub swap(b() As Integer)

n = （2）

For i = 1 To n / 2

t = （3）

b(i) = b(n)

（4）= t

（5）

Next

End Sub