☆論理式☆ (ID:124832)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Geo=TK3さん、 またまた、ご返信ありがとうございます。 悲しい騎士さんの定義だと私もバカの仲間入りだけど、いきがかり上 今しばらく付き合わさせてもらいます。 ＜＜ いえいえ、あなたを馬鹿の仲間入りにはしませんよ♪ ところで例の件なのですがｗ 私が↓の様に記述した動き的にはできるようになったのですが、 できたら、いちいち奇数の数を手入力せずに 関数か論理式で奇数の値だけを取り出してテキストボックスに表示させることは出来ないものでしょうか？ For i = 0 To 9 '配列10個が満タンになるまで代入 nSTART = InStr(nSTART + 1, "sas(lk(sec(ops(mjie(dgeta(emn(es(((ljgh", "(") '"("の文字を探す nLOC(i) = CStr(nSTART) '検索位置を保存 nLOC(i) = CStr(Mid("sas(lk(sec(ops(mjie(dgeta(emn(es(((ljgh", nLOC(i) + 1, 2)) Select Case i Case "1", "3", "5", "7", "9" TextBox1.Text = TextBox1.Text + nLOC(i) + vbCrLf End Select Next i