プログラム板雑談スレ ..
[2ch|▼Menu]
304:広告代理店募集!
08/12/18 20:47:04
当出版社は、以下の文面↓をあっちこっちのスレにコピペしてくれるボランティアの方を募集しています。

****************************************

「ひなた先生が教えるデバッグが256倍早くなるテクニック」
(やねうらお著)が書籍化されました!(`ω´)

【やねうらおプロフィール】
学歴詐称 (大卒と自称しているが、卒業証書を持っていない)
教員免許詐称(同じく証明書を持っていない)
エロゲー専門
ダッチワイフ愛用(人形愛の変態性欲者、自分のブログで世界に向けて発信)
労働基準法違反(やねう企画タコ部屋、社員は週100時間以上の労働で月給は17万円程度)
競馬詐欺ソフト製作
脱税目的で計画倒産。大阪国税局から税務査察を受け追徴金を払うものの、依然として再犯意欲旺盛
違法コピー常習
違法コピーの指南書出版
海賊版ソフト製作
フィッシング詐欺
BM98、著作権モロ侵害
ネットでは慢性的自演中毒。集団ストーカー&ナリスマシもやる

305:デフォルトの名無しさん
08/12/19 11:38:54
>>304 弓月城太郎乙

306:デフォルトの名無しさん
08/12/22 18:49:04
>>301
お前、この基地外だろ 死ねや蛆虫!
URLリンク(d.hatena.ne.jp)

307:デフォルトの名無しさん
08/12/22 18:55:58
雑談しようよ

308:デフォルトの名無しさん
08/12/25 09:02:03
年末年始 何する?
来週からひまやな

309:デフォルトの名無しさん
08/12/25 09:30:04
自分は某オープンソースプロジェクトに参加してるんで
それの改良するよ

310:デフォルトの名無しさん
08/12/26 08:25:56
おお!前向きだ

311:デフォルトの名無しさん
08/12/26 23:50:48

Sub e1d()
Dim tuki(12) As String
Dim a As Integer

tuki(1) = "睦月": tuki(2) = "如月": tuki(3) = "弥生": tuki(4) = "卯月"
tuki(5) = "皐月": tuki(6) = "水無月": tuki(7) = "文月": tuki(8) = "葉月"
tuki(9) = "長月": tuki(10) = "神無月": tuki(11) = "霜月": tuki(12) = "師走"

a = InputBox("1から12までの数を入れよ")
MsgBox a & "月は" & tuki(a)


End Sub

上のプログラムを変化させて月の逆引きを作りたいのですが
どう変化させたらいいのかまったくわかりません
教えてください

312:デフォルトの名無しさん
08/12/27 00:22:37
C#があるんだからVBなんてやめろ

313:デフォルトの名無しさん
08/12/27 03:24:11
>>311
Dim n As String
Dim m As Integer
n = InputBox("月名を入れよ")
m = (InStr("睦月 如月 弥生 卯月 皐月 水無月文月 葉月 長月 神無月霜月 師走", n) + 2) / 3
MsgBox n & "は" & m & "月"

314:デフォルトの名無しさん
08/12/27 05:43:14
>>311
完全マッチの必要がないなら、先頭の1文字だけ見る手もある。

315:デフォルトの名無しさん
08/12/27 09:48:25
>>311です
教えていただき、本当に助かりました。
みなさんありがとうございました。



最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
暇つぶし2ch

5393日前に更新/72 KB
担当:undef