はてなブックマーク

Sub 角丸() Dim tmpText As String Dim shapeRadius As Integer Dim flag As Boolean Dim roundedRectangle As Shape flag = False Do tmpText = InputBox("角丸四角形の半径を入力してください") If StrPtr(tmpText) = 0 Then Exit Sub 'キャンセル時は終了 End If shapeRadius = Val(tmpText) '数値に変換 If shapeRadius <= 0 Then MsgBox "0以上の数値を設定してください" Else flag = True End If Loop Until flag = True With ActiveWindow.Selection If .Type = ppSelection

1. 緒言 VRChatには、多くの美少女アバターが居る。そして、その衣装は美しくデザインされ、アバター使用者の個性や性癖を表現し、見るものを楽しませる。また、シェーダーを用いて現実世界ではありえないようなデザインをすることも可能である。その中で、文化的に特異性を有しているのが「下着」である。「下着」はVRChatと現実においてその在り方が全く異なると考えられる。本稿では、下着を見て何故興奮するのかという視点から、VRChatにおける美少女アバターの下着デザインについて言及する。 2. なぜ下着を見て興奮するのか まず、前提として「一般男性は女性用下着を見て性的興奮を覚える」ということを確認しておきたい。以下に、下着の普及に従って羞恥心が生まれたという考察と、下着姿になった女性に対して公然わいせつ罪を適用するのかという判例に対する考察、下着が性交渉を想起させるスイッチであるという考察を引用

早稲田大学 https://www.waseda.jp/ 身延山大学 http://www.min.jp/ 高千穂大学 http://www.takachiho.jp/ 玉川大学 http://www.tamagawa.jp/university/ 聖学院大学 https://www.seigakuin.jp/ 聖徳大学 http://www.seitoku.jp/univ/ 神奈川工科大学 http://www.kait.jp/ 桐蔭横浜大学 http://toin.ac.jp/univ/ 横山薬科大学 http://www.hamayaku.jp/ 日本ウェルネススポーツ大学 http://www.nihonwellness.jp/ 白鴎大学 http://hakuoh.jp/ 北海学園大学 http://hgu.jp 弘前医療福祉大学 http://www.hirosakiuhw.j