模擬下午試題

試題四  VB程序設計題目

在窗體上畫一個名稱為Combo1的組合框，畫兩個名稱分別Label1和Label2及Caption 屬性分別為"城市名稱"和空白的標簽。程序運行后，當在組合框中輸入一個新項后按回車鍵（ASCII碼為13）時，如果輸入的項在組合框的列表中不存在，則自動添加到組合框的列表中，并在Label2中給出提示"已成功添加輸入項"如圖所示；如果存在，則在Label2中給出提示"輸入項已在組合框中"。請在空處將程序補充完整。

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 = "輸入項已在組合框中"

Exit Sub

End If

（3）

Label2.Caption = "已成功添加輸入項"

Combo1.（4） Combo1.Text

（5）

End Sub

試題七  VB程序設計題目

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

在窗體上畫一個名稱為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