お前ら、Windowsパソコン使ってるならちょっと来い。

遊び感覚でどうぞ

1: 名無しさん 2014/03/09(日)11:34:56 ID:O2Am4439l

メモ帳に
msgbox 8*4 って打って
名前を　aaaa.vbs てしてみろｗ

2: 名無しさん 2014/03/09(日)11:37:17 ID:wo4WQhwfQ

だまされないぞう

5: 名無しさん 2014/03/09(日)11:40:51 ID:O2Am4439l

>>2
いや、パソコンが壊れるわけじゃないぞ？
簡単なプログラムだ。

3: 名無しさん 2014/03/09(日)11:38:31 ID:PqUu7NwCF

パソコンが物故割れた

4: 名無しさん 2014/03/09(日)11:38:46 ID:1Qy5lv1CU

俺Windowsじゃないんで….

5: 名無しさん 2014/03/09(日)11:40:51 ID:O2Am4439l

>>4
まあ、そう言う事でしたら…..

6: 名無しさん 2014/03/09(日)12:05:58 ID:icseUuukF

sub とか function とか無くても動くのか

11: 名無しさん 2014/03/09(日)12:14:28 ID:2t44BjDnC

エイトフォーが表示されるんだろ

13: 名無しさん 2014/03/09(日)12:15:47 ID:TAJuwb0X8

>>11
HAHA!!

7: 名無しさん 2014/03/09(日)12:10:52 ID:eYhXnpLr1

一体何が起こるんです？

10: 名無しさん 2014/03/09(日)12:14:28 ID:Rb4CqBfYk

>>7
8*4の計算結果をメッセージボックスで表示してくれる

8: 名無しさん 2014/03/09(日)12:11:36 ID:O2Am4439l

まあ、簡単なプログラムだからな。

ちなみに、
Dim x, y, op
x = InputBox(“Xの値を入力してください”)
op = InputBox(“+.足し算 -.引き算 *.掛け算 /.割り算どれにしますか？記号を入力してください”)
y = InputBox(“Yの値を入力してください”)
If op = “+” Then
MsgBox x+y
Else
If op = “-” Then
MsgBox x-y
Else
If op = “*” Then
MsgBox x*y
Else
If op = “/” Then
MsgBox x/y
Else
MsgBox “わかりません”
End If
End If
End If
End If

こうすると、計算機が出来るらしい。

19: 名無しさん 2014/03/09(日)12:27:13 ID:O2Am4439l

>>8
そう言えばこのままだとおかしな事になるんだった。

MsgBox x+y

この行を

MsgBox CDbl( x)+CDbl( y)

こう書きかえると使える様になる。

20: 名無しさん 2014/03/09(日)12:32:13 ID:Rb4CqBfYk

元のコードだと5+3が53になった
>>19でちゃんと計算した

9: 名無しさん 2014/03/09(日)12:13:14 ID:TAJuwb0X8

>>1
懐かC

12: 名無しさん 2014/03/09(日)12:14:55 ID:5QtVQ7jgq

そういうプログラミングってどこで覚えるの
独学？

14: 名無しさん 2014/03/09(日)12:17:04 ID:O2Am4439l

>>12
これは、ネットで拾った。
プログラムを覚えたいんだったら、とりあえず検索したら良いと思うよ。
俺は、本を買ったが。

23: 名無しさん 2014/03/09(日)12:49:58 ID:O2Am4439l

前に、いろいろ作ってみたが、これが一番上手くいった。

Dim ans
ans = MsgBox(“あなたは1933年より後に生まれましたか？”, vbYesNo)
If ans = vbYes Then
ans = MsgBox(“あなたは1953年より後に生まれましたか？”, vbYesNo)
If ans = vbNo Then
MsgBox “60才以上80才未満以上でしょう”
Else
ans = MsgBox(“あなたは1973年より後に生まれましたか？”, vbYesNo)
If ans = vbNo Then
MsgBox “40才以上60才未満でしょう”
Else
ans = MsgBox(“あなたは1993年より後に生まれましたか？”, vbYesNo)
If ans = vbNo Then
MsgBox “20才以上40才未満でしょう”
Else
ans = MsgBox(“あなたは2003年より後に生まれましたか？”, vbYesNo)
If ans = vbNo Then
MsgBox “あなたは10歳以上20歳未満でしょう”
Else
MsgBox “10歳未満でしょう”
End If
End If
End If
End If
Else
MsgBox “80才以上です”
End If

これは、質問形式にしたら面白そうだけどな。これ選ぶの面倒だし。

15: 名無しさん 2014/03/09(日)12:20:50 ID:Rb4CqBfYk

これがVB？

16: 名無しさん 2014/03/09(日)12:21:28 ID:O2Am4439l

>>15
多分。

17: 名無しさん 2014/03/09(日)12:23:33 ID:Rb4CqBfYk

なるほど
エクセルVBAは少し覚えたけど、VBは全く知らない
どんな場面で使うのかも分からない

21: 名無しさん 2014/03/09(日)12:37:49 ID:O2Am4439l

+はくっつかせる効果が有るらしいからな。

Dim a,b,c
a=Inputbox(“名前を入力して下さい”)
b=”さんこんにちは。”
c=a+b
msgbox c

これ面白いぞ。

22: 名無しさん 2014/03/09(日)12:45:13 ID:Rb4CqBfYk

やってみた
簡単なのはVBAの知識でもできそうな気が