これからはネットマナーを守って楽しく使いましょうねwww 
Why don't you do your best? Wow, it's big !
De∀th note LASS を研究する会 ぽえぽえぽえむも研究する会
ポエム と VBA 


T O P
PROFILE
DIARY
B B S
L I N K
勇者 高○(RPG)
高速チャット
チャット2
荒らしに自信のあるひとぞーど
お絵かき(K)



2010年3月1日
このホームページは
ぽえぽえぽえむ と VBAプログラム
をテーマにリニューアルします
 
来たら何でもいいから
書き込んでください
みなさんからのポエムは大歓迎しますよ

低能な荒らしをしたら
このページから追放します。
(フォースで・・)
基本的に書き込みは削除しません
くだらない荒らしがしつこい場合は
それなりの対処をします
キリ踏んだら書き込んでくれYO
隠しページ搭載発見したらBBSに書き込んでください
(正解ページにいけたら クリアした人はTOPに
名前を 載せたいと思います 正解→眼鏡迷宮)

3500Hit達成!
来てくれたみんなに感謝する



注意 このHP上のプログラムによってパソコンになんらかの故障が生じても責任は負いかねます

問題が発生したばあい

 Ctrl + Pause Break

を同時押しすることによって中断してください

 

Sub DEMO()

LBL_START:
B = 0
Select Case MsgBox("デモ" & Chr(10) _
& "デモン  " & Chr(10) _
& "デモンストレーション", vbclitical + vbOKCancel)
Case vbOK: MsgBox "おk  キタ──────――(゜∀゜)─――――――――!? "


Line1:
Windows.Arrange ArrangeStyle:=wdIcons

Dim MyValue, x As Long
MyValue = 0
k = 0
L = 0
x = 0
B = B + 1

Randomize
MyValue = Int((2 * Rnd) + 1)
x = Int((10 * Rnd) + 1) '
x = x + 47 '48 〜 57
If MyValue = 1 Then GoTo Chrline

For k = 1 To 100000
For L = 1 To 25
Next L
Next k

With Selection
.TypeBackspace
End With

Chrline:
For k = 1 To 100000
For L = 1 To 25
Next L
Next k
A = Chr(x)
Selection.TypeText Text:=" " & A & " "


If B = 30 Then GoTo Line2

GoTo Line1

Case Else: MsgBox "逃げるな"
GoTo LBL_START
End Select

Line2:

MsgBox ("end")

End Sub

  

低能な荒らしをする人はこないでくれ

(有能ならいいとする)

 

 クリア達成 高見沢 ガメタ

コノれすまじ魔力ありすぎ・・・
隠しページがあります 


3000HIT 達成!

基本的に荒らしは禁止・・(例外も・・)


 















Select Case MsgBox("プログラム「dennko」を起動します (・∇・)" & Chr(10) _
& "続行する場合は[OK]中断する場合は[キャンセル]をせんたくしてください", vbDefaultButton1 + vbOKCancel + vbInformation + vbMsgBoxRight, "WindoeseXPerience")
Case vbCancel: GoTo 40
End Select
MsgBox ("処理中")
90 Let D = InputBox("プログラム[dennko]では、オームの法則を解く作業を行います" & Chr(10) _
& "↓の選択肢から求めたい変数の項目を数値(1〜3)で選んで入力してください" & Chr(10) _
& "" & Chr(10) _
& "@ R(抵抗)" & Chr(10) _
& "A V(電圧)" & Chr(10) _
& "B I(電流)" & Chr(10) _
& "", "でんこちゃん", 1)
If D = 1 Then GoTo 10
If D = 2 Then GoTo 20
If D = 3 Then GoTo 30
10 Let V = InputBox("電圧(V)の値を入力してください ≪単位はいらないよ", "でんこちゃん[R]", 100, 100, 100)
Let i = InputBox("電流(I)の値を入力してください ≪単位はいらないよ", "でんこちゃん[R]", 100, 100, 100)
R = V / i
MsgBox ("計算中です")
Select Case MsgBox("抵抗は " & R & " Ω  です" & Chr(10) _
& "" & Chr(10) _
& " プログラムを終了する場合は[キャンセル]再度使用する場合は[再思考]から進んでください", vbDefaultButton2 + vbInformation + vbRetryCancel, "でんこちゃん")
Case vbRetry: GoTo 90
Case vbCancel: GoTo 40
End Select
20 Let R = InputBox("抵抗(R)の値を入力してください ≪単位はいらないよ", "でんこちゃん[V]", 100, 100, 100)
Let i = InputBox("電流(I)の値を入力してください ≪単位はいらないよ", "でんこちゃん[V]", 100, 100, 100)
V = R * i
MsgBox ("計算中です")
Select Case MsgBox("電圧は " & V & " V です" & Chr(10) _
& "" & Chr(10) _
& " プログラムを終了する場合は[キャンセル]再度、使用する場合は[再思考]から進んでください", vbDefaultButton2 + vbInformation + vbRetryCancel, "でんこちゃん")
Case vbRetry: GoTo 90
Case vbCancel: GoTo 40
End Select
30 Let V = InputBox("電圧(V)の値を入力してください ≪単位はいらないよ", "でんこちゃん[I]", 100, 100, 100)
Let i = InputBox("抵抗(R)の値を入力してください ≪単位はいらないよ", "でんこちゃん[I]", 100, 100, 100)
i = V / R
MsgBox ("計算中です")
Select Case MsgBox("電流は " & i & " A  です" & Chr(10) _
& "" & Chr(10) _
& " プログラムを終了する場合は[キャンセル]再度使用する場合は[再思考]から進んでください", vbDefaultButton2 + vbInformation + vbRetryCancel, "でんこちゃん")
Case vbRetry: GoTo 90
Case vbCancel: GoTo 40
End Select
40 MsgBox ("プログラムを終了しますノシ")
Documents(Application.ActiveWindow).Close SaveChanges:=wdDoNotSaveChanges
End Sub>!>


キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?
キタ──────――(゚∀゚)─――――――――!?

最後までスクロールしてくれてありがとー!!

3000Hitしました

来てくれた人全員に感謝する

 

 

あsdfghjk 

 

 


対戦相手  日付    点    勝利投手     敗戦投手       セーブ投手  HR打った方


●対横浜 戦10月 4日 4−3  [横 木塚    ]  [巨 高橋尚 ]  クルーン25  李41
○対横浜 戦10月 3日 1−5  [巨 パウエル    ]  [横 三浦  ]  豊田13    高橋由13
●対広島 戦10月 1日 3−0  [広 斉藤    ]  [巨 姜     ]     永川26    森笠6 倉4
●対広島 戦 9月30日 3−5  [広 ベイル    ]  [巨 高橋尚 ]  永川25    前田20 阿部9
●対ヤクルト 戦 9月28日 0−6  [ヤ 石井一    ] [巨 上原    ]          岩村31 ラミレス24
●対ヤクルト 戦 9月27日 7−9  [ヤ 鎌田   ] [巨 野間口 ]     高津12   
●対阪神 戦 9月24日 4−1  [阪 福浦   ] [巨 姜     ]  藤川14   
●対阪神 戦 9月23日11−7  [阪 下柳   ] [巨 内海   ]          浜中18 藤本3 小久保18
○対広島 戦 9月19日 7−5  [巨 林     ] [広 永川   ]  高橋尚15  高橋由12 二岡24 小久保17 梵8
●対広島 戦 9月18日 3−4  [広 大竹    ] [巨 上原   ]  永川22    李40 嶋24

●対横浜 戦 9月17日 4−2  [横 加藤    ] [巨 久保   ]   川村2      村田29
○対横浜 戦 9月16日 5−2  [巨 内海    ] [横 吉見    ]    高橋尚14   
●対中日 戦 9月12日10−2  [中 中田    ] [巨 パウエル  ]             井上9、10
○対ヤクルト 戦 9月10日 1−0  [巨 上原     ] [ヤ 藤井   ]  豊田12     二岡23
○対ヤクルト 戦 9月 9日 2−1  [巨 姜     ] [ヤ 館山   ]  高橋尚13   青木9、阿部8
○対ヤクルト 戦 9月 8日 2−1  [巨 内海    ] [ヤ ガトームソン]     高橋尚12 
○対阪神 戦 9月 7日 0−3  [巨  グローバー ] [阪 井川   ]  高橋尚11   李38
●対阪神 戦 9月 5日 2−5  [阪 福原    ] [巨 パウエル  ]
○対阪神 戦 9月 4日 4−0  [巨 姜     ] [中 佐藤充 ]                         二岡22
●対広島 戦 9月 2日 6−2  [広 山本昌  ] [巨 内海   ]           小久保16 福留22
○対広島 戦 8月30日 4−0  [巨 グローバー ] [広 佐々岡  ]
○対広島 戦 8月29日 6−0  [巨 パウエル    ] [広 大竹   ]
●対阪神 戦 8月27日 3−2  [阪 藤川      ] [巨 林    ]           二岡21
○対阪神 戦 8月26日10−0  [巨 内海      ] [阪 オクスプリング]             小久保14、小久保15
○対阪神 戦 8月25日 5−2  [巨 上原      ] [阪 ウィリアルス ]  高橋尚10   シーツ15
●対横浜 戦 8月24日10−6  [横 山北      ] [巨 グローバー ]  加藤1     李37、鶴岡2、吉村20
○対横浜 戦 8月23日 3−1  [巨 パウエル    ] [横 吉見   ]  高橋尚9
○対横浜 戦 8月22日 3−1  [巨 姜       ] [横 三浦   ]  高橋尚8         
○対中日 戦 8月20日 3−1  [巨 内海     ] [中 佐藤充 ]  高橋尚7    井上5
●対中日 戦 8月19日 3−0  [中 山本昌   ] [巨 グローバー ]  岩瀬32    森野6
●対中日 戦 8月18日 6−1  [中 川上      ] [巨 上原   ]           谷繁8、谷繁9、二岡20
○対ヤクルト 戦 8月17日 3−2  [巨 パウエル] [ヤ 石川   ]  高橋尚6
●対ヤクルト 戦 8月16日11−2  [ヤ 石井一  ] [巨 西村    ]           岩村24、25. リグス26,27、
○対ヤクルト 戦 8月15日10−3  [巨 内海     ] [ヤ ガトームソン]           リグス25
○対広島 戦 8月13日11−6  [巨 久保     ] [広 佐竹    ]           高橋11、阿部7、新井17、嶋18
●対広島 戦 8月12日 2−3  [広 高橋     ] [巨 久保    ]           嶋17   
●対広島 戦 8月11日 2−1  [広 黒田     ] [巨 パウエル   ]   永川16   森笠5
●対ヤクルト 戦 8月10日 7−2  [ヤ 石井一  ] [巨 西村   ]                         李36、宮出7、岩村21
○対ヤクルト 戦 8月 9日 8−4  [巨 野間口   ] [ヤ 藤井   ]   高橋尚5   二岡19、高橋10、ラミレス18、城石1
         8月   8日    中止
○対横浜 戦 8月 6日 4−1  [巨 上原    ] [横 牛田  ]   高橋尚4   村田25、高橋由9、阿部6
○対横浜 戦 8月 5日 5−8  [巨 林       ] [横 高宮  ]           小池3、吉村16、二岡17、18、李35
●対横浜 戦 8月 4日 1−2  [横 吉見    ] [巨 グローバー]       クルーン17      吉村17、ディロン5
●対阪神 戦 8月 3日 1−5  [阪 下柳     ] [巨 内海   ]           スペンサー6
○対阪神 戦 8月 2日 2−3  [巨 西村     ] [阪 福原     ]   高橋尚    浜中15、李34
○対阪神 戦 8月 1日 4−2  [巨 久保     ] [阪 井川    ]           鳥谷8、李32,33
●対中日 戦 7月30日 4−2  [中 朝倉     ] [巨 パウエル   ]   岩瀬26
●対中日 戦 7月29日11−1  [中 マルティネス ] [巨 グローバー ]           李31、ウッズ23、アレックス10
●対中日 戦 7月28日 2−0  [中 佐藤充   ] [巨 内海      ]   岩瀬25
○対広島 戦 7月27日 5−4  [巨 真田    ] [広 横山   ]           高橋8 緒方3
○対広島 戦 7月26日 7−6  [巨 上原    ] [広 佐々岡 ]       高橋尚2  多数のため省略
●対広島 戦 7月25日 2−4  [広 大竹    ] [巨 パウエル  ]       永川14   李30
●対阪神 戦 7月19日 0−1  [阪 福原    ] [巨 上原      ]   藤川10   なし
○対ヤクルト 戦 7月16日 4−3  [巨 林      ] [ヤ 高津    ]   高橋尚1   高橋由7、矢野6
○対ヤクルト 戦 7月15日11−9  [巨 内海    ] [ヤ 丸山貴   ]   真田5    高橋6、李29、岩村15 
●対ヤクルト 戦 7月14日 4−3  [ヤ 花田   ] [巨 豊田     ]                        なし
●対横浜 戦 7月12日 1−2  [横 門倉    ] [巨 林       ]       クルーン15      村田22
●対横浜 戦 7月11日 1−5  [横 牛田    ] [巨 パウエル   ]                        李28、鈴木2
●対広島 戦 7月 9日 3−4  [広 横山    ] [巨 豊田     ]                        アリアス1、李27、栗原16
●対広島 戦 7月 8日 3−1  [広 佐竹    ] [巨 内海   ]      永川11   なし
●対広島 戦 7月 7日 4−2  [広 黒田    ] [巨 上原   ]     永川10   栗原15、森笠3
●対中日 戦 7月 6日 9−5  [中 川上    ] [巨 工藤      ]             渡辺1、谷繁5、二岡15、16、ディロン1
●対中日 戦 7月 5日 2−1  [中 佐藤充  ] [巨 高橋尚    ]      岩瀬21   なし
●対中日 戦 7月 4日 0−4  [中 朝倉    ] [巨 木佐貫    ]                       井端3 ウッズ19
○対阪神 戦 7月 2日 2−0  [巨 内海    ] [阪 井川     ]                    李26
○対阪神 戦 7月 1日 4−2  [巨 上原   ] [阪 オクスプリング]   豊田 11     金本11
●対阪神 戦 6月30日11−0  [阪 下柳       ] [巨 工藤       ]                     浜中12、シーツ11、矢野10
●対横浜 戦 6月29日 3−1  [横 山口      ] [巨 パウエル     ]   クルーン14   亀井1
●対横浜 戦 6月28日 9−3  [横 門倉      ] [巨 木佐貫    ]                     李25、小池2、金城6
●対横浜 戦 6月27日 2−1 [横  那須野    ] [巨 内海       ]   クルーン13   二岡14
●対中日 戦 6月25日 7−4 [中  マルティネス  ] [巨  上原       ]  岩瀬20    森野4
●対中日 戦 6月24日 6−5 [中 高橋       ] [巨 豊田        ]            森野3
●対中日 戦 6月23日 4−2 [中 川上       ] [巨 パウエル      ]   岩瀬19   李24 、福留15


SINCE 2020.08.10



 


 




RAK2ホームページ作成
>> 誰でも作れる、超!簡単な無料ホームページ
あなたのホームページ・メールマガジンに広告を載せてみませんか?
成功報酬型で広告費を支払うエーハチネットがおすすめ。
  簡単!無料HP
  @games
  ゲーム特集
×