-2

航空券の簡易予約で困っています。

  • 10 個のテキストボックスがフォームに追加されます
  • 1-5 テキストボックスは喫煙者専用です
  • 6-10 テキストボックスは禁煙エリアのみです。

ねじれは、Inputbox を使用してユーザー入力 1 を喫煙者として、2 を非喫煙者として入力することです。

ユーザーがタイプ 1 の場合、座席のテキストボックスはユーザーが設定するのではなく、コンピューターによってランダムに配置される必要があります (テキストボックス 1 ~ 5)。非喫煙者にも同じことが当てはまります。

私たちの先生は、テキストボックスの作成配列についてヒントを与えましたが、それがどのように機能するかについては本当に無知のようです.

基本的に座席指定。

このコードでは、何を追加する必要があるかわかりません。

Dim reserve() As TextBox = {smokingtxt1, smokingtxt2, smokingtxt3, smokingtxt4, smokingtxt5}

Dim reserve1() As TextBox = {nonsmokingtxt1, nonsmokingtxt2, nonsmokingtxt3, nonsmokingtxt4, nonsmokingtxt5}
Dim notification As Integer

notification = InputBox("Enter 1 or 2")

If notification = 1 Then
  For Each i As TextBox In reserve
    i.Text = "Reserve"
  Next
ElseIf notification = 2 Then
  For Each j As TextBox In reserve1
    Randomize()
  Next
Else
  MessageBox.Show("Invalid operation")
End If 
4

1 に答える 1