關於VB shoose 函數

老師出了一題 shoose函數 的題目給我們 可是我搞了好久都搞不出來...

一定要用 shoose函數 寫

課本上的語法是:

shoose(index,運算式1,運算式2,...)

題目是 用2個Text 分別是Text1 Text2

Text1作為輸入用的

Text2作為顯示用的

在Text1輸入國家 要在Text2顯示首都

再Text1輸入"日本"要在Text2顯示"東京"

再Text1輸入"韓國"要在Text2顯示"首爾"

再Text1輸入"美國"要在Text2顯示"華盛頓"

再Text1輸入"法國"要在Text2顯示"巴黎"

再Text1輸入"中國"要在Text2顯示"北京"

題目是這樣 請各位大大幫幫忙...

2 Answers

Rating
  • 水月
    Lv 6
    1 decade ago
    Favorite Answer

    你在表單上放入Text1,Text2,Command1,將下列程式寫入就可以了,並沒shoose這個函數,應該是Choose函數才對,你可能打錯了,你再看一下。

    Private Sub Command1_Click()

    If Text1 = "日本" Then i = 1

    If Text1 = "韓國" Then i = 2

    If Text1 = "美國" Then i = 3

    If Text1 = "法國" Then i = 4

    If Text1 = "中國" Then i = 5

    Text2 = Choose(i, "東京", "首爾", "華盛頓", "巴黎", "北京")

    End Sub

  • 關於你的問題...

    我想先聲明一下喔...

    可能是~本本不同的問題...

    但是函數式的作用還是一樣啦...

    你所說的 shoose(index,運算式1,運算式2,...)

    在我用的VB裡是 choose(index,運算式1,運算式2,...)

    不過用法&內容一樣~這不用擔心^~^...

    你的問題~~我用我的寫法給你...你在適度的改一下應該就OK了!!

    首先~畫面是...2個textbox(輸入框) & 1個button(按鈕)...

    在button_click內寫下面的程式...

    Dim x As String = TextBox1.Text

    If x = "日本" Then

    TextBox2.Text = country(city.日本)

    ElseIf x = "韓國" Then

    TextBox2.Text = country(city.韓國)

    ElseIf x = "美國" Then

    TextBox2.Text = country(city.美國)

    ElseIf x = "法國" Then

    TextBox2.Text = country(city.法國)

    ElseIf x = "中國" Then

    TextBox2.Text = country(city.中國)

    End If

    然後另外在外面寫2個程式...

    第1個...(這是爲了使用choose的index的參考值所做的列舉)

    Enum city As Integer

    日本 = 1

    韓國

    美國

    法國

    中國

    End Enum

    第2個...(這是你要求的那個...)

    Private Function country(ByVal city As Integer) As String

    Return Choose(city, "東京", "首爾", "華盛頓", "巴黎", "北京").ToString()

    End Function

    ==========================================

    我想~~我們用的可能有些許的差異~~

    不過只要弄的出程式來~~大概看一下就知道差異點在哪了...

    你在改成你那個版本的寫法就好了!!

    就這樣~~上面程式方面有不懂的地方可以問我!!

    Source(s): Myself
Still have questions? Get your answers by asking now.