【2つ目の条件分岐】3が付く数字であるか '変数 LPcnt の数が3の倍数でなかったとき ElseIf LPcnt Like "*3*" Then 先ほどのIF文の条件である「3の倍数であるか」を満たさなかったときは、次の条件式へ飛んできます。 「ElseIF」とは、最初の条件を満たさなかったとき、また別の条件を提示して「そうであるか」「そうでないか」を判定します。 変数「LPcnt」の格納された数字が「3の倍数」でなかったので、次にその数字が「3が付く数字」であるか判定します。 変数「LPcnt」の数が3の付く数字かどうかは、「Like」を使用しました。「Like」は比較演算子といい、「=」が完全一致を表すのに対し、「*」や「?
3の倍数でアホになるコドライバー作ってみた - Niconico Video
1 れもん 2021/04/14(水) 19:55:03. 82 ID:iR4dl7bE0 1 ハ%'') シュルリシュリ… / ‰ [ ̄ ̄] ソー ハ%'') ウッシャァァー!!! / ‰ 今度コソ 触手ノカチィー! [ ̄ ̄] 華麗ナル 忍ビコミデ触手選手大勝利ナノダー!! ミタカー!コレガ触手ノ実力ゥウゥ! ハ%'') ・・・・・ / ‰ [ ̄ ̄] ハ%'') 次ハ54カ… / ‰ [ ̄ ̄] シュルッ ハ%'') イェーースうぅ!! / ‰ 触手選手二度目ノ勝利デスッ!! [ ̄ ̄] コノ美しい蔓サバキ!! 昼ノ最悪デハ無敵ニ独走シテオリマス!! アホアホダンス モ決まっテマスねぇー! ヨッ!オレ カッコイイ!!モテスター! シュルッ ピシーィー!! ハ%'') ・・・次ハ57 / ‰ [ ̄ ̄] ハ%'') ソーォーッと / ‰ [ ̄ ̄] シュルン ハ%'') オレッテ ツオォイイー!! / ‰ フゥーフゥーフゥーフウゥー♪ [ ̄ ̄] アホ モンスタァーフウゥー♪ ハ%'') ・・・次60!! / ‰ [ ̄ ̄] ( ̄ ̄ ̄ ̄⌒ヽ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ~ ̄ ̄ ̄(_ノ、ノ < 暖かく見守ってるよ触手の一人遊びかわいいねよしよし UU ̄ ̄ U U \__________ ハ%'') オウフゥゥーーーーッ!!! / ‰ 育ムヨウナ暖かナ視線・・・ [ ̄ ̄] コレハ・・・ハズカシイィィーー!!ヒョうー!!! ３の倍数でアホになるナベアツ電卓 - YouTube. 61 れもん 2021/04/15(木) 12:26:14. 53 ID:q2dhPCzE0 そろそろどれが3の倍数かわからなくなってきたぞ。。。 62 れもん 2021/04/15(木) 15:22:34. 18 ID:q2dhPCzE0 触手こういうスレ好きやったんやね。意外。 ( ̄ ̄ ̄ ̄⌒ヽ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ~ ̄ ̄ ̄(_ノ、ノ < 63は素数なので3の倍数ではないはず UU ̄ ̄ U U \__________ 64 れもん 2021/04/15(木) 16:15:36. 31 ID:q2dhPCzE0 めちゃ頭ええアホや。 65 k 2021/04/15(木) 20:54:26. 25 ID:0iERmpM10 ∧☆彡 / ̄ ̄ ̄ ̄ ̄ ̄ ~''"1☆''∬゚∀゚) < 全回避☆ UU ̄ ̄ U U \______ 66 れもん 2021/04/15(木) 20:57:36.
「3の倍数と3が付く数字のときだけアホになります」のネタといえは、世界のナベアツ(現: 桂 三度 かつら さんど )さん。 こいつをVBAの繰り返し処理でやってみましょう。 そうそう、今回のネタはAccessだけでなく、ExcelなどのVBAでもできますよ。 懐かしの名ネタをVBAで再現! 繰り返す範囲は、1~40。 1、2…とメッセージボックスを繰り返し40回表示させます。せっかくなんで、途中でやめてしまう処理も含めます。 アホにならないときは、 (* ̄o ̄)/< 1 ! というメッセージボックスを。 アホになるときは、 3 ━━━━(@∀@)/━━━━!! 3 の 倍数 で アホ に なるには. を表示させます。 VBAのコードです 使用される際は、そちらの環境で十分テストのうえ使用してください。 コードはこちら。標準モジュールに記述してください。 Option Compare Database Option Explicit Sub fool_when_Including3_or_MultipleOf3() Dim LPcnt As Long Const srusmsg = "(* ̄o ̄)/< " 'アホでないときの顔文字を格納 Const flmsg = " ━━━━(@∀@)/━━━━!!" 'アホの顔文字を格納 '1から40まで繰り返し For LPcnt = 1 To 40 '変数 LPcnt の数が3の倍数のとき If LPcnt Mod 3 = 0 Then If MsgBox(LPcnt & flmsg, vbOKCancel, "アホ") = vbCancel Then Exit Sub '変数 LPcnt の数が3の倍数でなかったとき '3が含まれるかどうか判定する ElseIf LPcnt Like "*3*" Then '変数 LPcnt の数が 3を含む数であったとき Else 'そうでなかったとき If MsgBox(srusmsg & LPcnt & "! ", vbOKCancel, "アホではない") = vbCancel Then Exit Sub End If Next LPcnt MsgBox "オーモロ" & flmsg, vbExclamation, "世界のナベアツに敬意を込めて!" End Sub 実際に動かしてみましょう では、実行してみます。 「OK」を押せば、カウントアップして次のメッセージボックスを表示させます。 「もうええわ!」となったところで「キャンセル」を押してください。繰り返し処理から抜け出します。 解説です Dim LPcnt As Long 変数「LPcnt」を宣言します。ちなみにLoop counterの略です。ループしている回数を数えます。 Const srusmsg = "(* ̄o ̄)/< " 'アホでないときの顔文字を格納 Const flmsg = " ━━━━(@∀@)/━━━━!!"
/_ " / ̄ ̄"===-, )''//rl_--::::::::::::::::/:/ヽ"'=--": 97 彳ィ冫ポ部隊00000111(7)号 2021/06/05(土) 01:07:26. 44 ID:ulZ/mHVS0,. =-''' ̄ ̄ ̄ ̄ ̄ ̄` -、 / \. /. \ {}. | / ̄""''-=,,,, _,,,,,, ==-'''"\ |. l,. (,. - '. 、,. -,. } | l >, =ニ\ ゛ | ''゛_, =ヘ、 r' {_ /~''i //_\_.. `7| l、{''″/__`>ヽ |r`i 数え続ける世界のナベアツbot l. {`|. / ヽ二・ニゝチ、!. ゝrニ・二r}! i l { {(l { ノ | | ヽ::}| ソ/ ヽヽ|. { / | | \ i. |// 3万台地獄すぎワロタ \|. i /,,.. | l. _,,. \ i! / 乂i / - (__, )-゛ ' {丿. l.! 、.,. !.,., / | 人 \.! ''''" ̄~ ̄`''! / 人. / |. \, \ '-"" ゛-' / / |. ヽ ノ. { \. ヽ,.,. 【繰り返し処理】「3の倍数と3が付く数字のときだけアホになります」を再現！ | 旅馬. :, イ /} ヽ -'″ l `' 、`. ───″. } ヽ (5ch newer account) 98 れもん 2021/06/06(日) 14:48:09. 71 ID:/pOqGqRr0 いやぁ本当に3の倍数で良かった。 99 彳ィ冫ポ部隊00000111(7)号 2021/06/07(月) 14:37:42. 16 ID:/vRaA/yF0,. `7| l、{''″/__`>ヽ |r`i l. ゝrニ・二r}! i l 100!!!!!!!!! { {(l { ノ | | ヽ::}| ソ/ ヽヽ|. |// \|. } ヽ 100 れも子 2021/06/07(月) 22:46:27. 30 ID:IGcLhmRi0 これほど安心感のある100は史上初めて!
2021/6/15 19:54
先日、告知させていただきましたが、 ブログのほうでも、触れさせてください。 わたくし宮野真守のライブエンタテインメントの、 再開への第一歩として、 「MAMORU MIYANO COMEBACK LIVE 2021 〜RELIVING! 〜」の開催が決定いたしました。 有観客でのライブの開催です。 繋いできた想いが、ここに辿り着きました。 真っ直ぐ真っ直ぐ向かっていきます。 いまだ、 予断を許さない状況下ではあります。 感染対策をしっかりとり、 真摯に向かっていきます。 どうか、 どうか、 皆様の想いとともに、 結実しますように。 ここからまた始まり、 続いていく、 宮野のエンタメの、 シルシとなりますように。 「MAMORU MIYANO COMEBACK LIVE 2021 ~RELIVING! ~」 会場、ぴあアリーナMM(神奈川) 2021年10月9日(土)
おめでとう おめでとう コウイチローくーん、おめでとう。 おめでとうの歌声が手をつないで輪になって あなたのまわりをまわっています こぼれそうになった幸せは 赤い風船に詰め込んで みんなの空に飛ばしてください。 おめでとう コウイチローくーん この感激をいつの日も! おめでとう おめでとう マユコちゃーん、おめでとう。 こぼれそうになった喜びは 赤いリボンで束にして みんなの胸に届けてください。 おめでとう マユコちゃーん、この感激をいつの日も!
大杉久美子 おめでとうのうた 作詞:高木美智子 作曲:キダ・タロー おめでとう おめでとう ○○○○○○ おめでとう おめでとうの うたごえが 手をつないで わになって あなたのまわりを まわっています こぼれそうになった しあわせは 赤い風船に つめこんで みんなの空に とばしてください おめでとう ○○○○○○ このかんげきを いつの日も 更多更詳盡歌詞 在 ※ 魔鏡歌詞網 おめでとう おめでとう ○○○○○○ おめでとう おめでとうの うたごえが 手をつないで わになって あなたのまわりを まわっています こぼれそうになった よろこびは 赤いリボンで たばにして みんなの胸に とどけてください おめでとう ○○○○○○ このかんげきを いつの日も
おめでとうのうた - YouTube
おめでとう おめでとう ○○○○○○ おめでとう おめでとうの うたごえが 手をつないで わになって あなたのまわりを まわっています こぼれそうになった しあわせは 赤い風船に つめこんで みんなの空に とばしてください おめでとう ○○○○○○ このかんげきを いつの日も おめでとう おめでとう ○○○○○○ おめでとう おめでとうの うたごえが 手をつないで わになって あなたのまわりを まわっています こぼれそうになった よろこびは 赤いリボンで たばにして みんなの胸に とどけてください おめでとう ○○○○○○ このかんげきを いつの日も
おめでとうのうた おめでとう おめでとう ○○○○○○ おめでとう おめでとうの うたごえが 手をつないで わになって あなたのまわりを まわっています こぼれそうになった しあわせは 赤い風船に つめこんで みんなの空に とばしてください おめでとう ○○○○○○ このかんげきを いつの日も おめでとう おめでとう ○○○○○○ おめでとう おめでとうの うたごえが 手をつないで わになって あなたのまわりを まわっています こぼれそうになった よろこびは 赤いリボンで たばにして みんなの胸に とどけてください おめでとう ○○○○○○ このかんげきを いつの日も