Visual Basic 中学校 掲示板 投稿内容
タグのない投稿を抽出 統計 RSS

Visual Basic 中学校 > 投稿一覧 >

配列の要素を検索して最初に見つかった要素のインデックスを返す 解決済み

タグの編集...

投稿者 カサブランカ   (その他)   投稿日時 2015/6/4 09:11:25
お世話になります。
昨日質問させていただきましたが変換ミスが多いため再度改めて質問させてください。

http://homepage1.nifty.com/rucio/main/dotnet/shokyu/standard27.htm

下記の記述を確認するためにプロシージャ―は何を使って(ListBox?TextBox?)表示させてMsgBoxで確認しようとしますが表示できません。表示の仕方をお教えください。またMsgBoxの引数は?

よろしくお願いいたします。


Dim States(5) As String
Dim Index As Integer
Dim LastIndex As Integer
Dim NoneIndex As Integer
States(0) = "カリフォルニア"
States(1) = "テキサス"
States(2) = "ニューヨーク"
States(3) = "ニューヨーク"
States(4) = "カリフォルニア"
States(5) = "ミシシッピ"

Index = Array.IndexOf(States, "ニューヨーク") '2を返します。

LastIndex = Array.LastIndexOf(States, "カリフォルニア") '4を返します。

NoneIndex = Array.LastIndexOf(States, "兵庫") '-1を返します。



投稿者 カサブランカ   (その他)   投稿日時 2015/6/4 15:13:41
わかりました。プログラムの内容が把握できていませんでした
 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim States(5) As String
        Dim Index As Integer
        Dim LastIndex As Integer
        Dim NoneIndex As Integer

        States(0) = "カリフォルニア"
        States(1) = "テキサス"
        States(2) = "ニューヨーク"
        States(3) = "ニューヨーク"
        States(4) = "カリフォルニア"
        States(5) = "ミシシッピ"

        Index = Array.IndexOf(States, "ニューヨーク") '2を返します。

        LastIndex = Array.LastIndexOf(States, "カリフォルニア") '4を返します。

        NoneIndex = Array.LastIndexOf(States, "兵庫") '-1を返します。
        MsgBox(LastIndex)
    End Sub
これで確認できました。