という事で外出したりしてました。

外食をしたり、近所にあるサクラヤへいったり、近所にあるサクラヤへ行ったり・・・

PCの価格を見に行ったんだけど、

やっぱりPCは他界。本当に他界。

貯金30000円の僕はとても手が届かない。

もうちょっと安くなると助かるんだけど(´･ω･`)

それはそうと、今日も色々とネットを漁ってました。

カオスな曲を集めたりして。

アナゴ・谷口・・・　色々ありすぎ。

youtubeも探してたら年末の番組のアレが・・・

http://www.youtube.com/watch?v=QwQ_39MiXMM

こ　れ　は　凄　い　カ　オ　ス　で　す　ね

じゃあ今日はもう書けることないのでここらへんで勘弁してください

糞ブログでスマンカッタ

繰り返し構造を勉強してました。

Do・・・Loopステートメントが中心。

最後に練習したのは3回パスを間違えると入力できなくなるというもの

こんな漢字

Public Sub ex14()

'変数の宣言
Dim password As String
Dim n As Integer

'変数の初期化
n = 0


Do

'回数のチェック
n = n + 1

If n > 3 Then
MsgBox "これ以上は処理を続けられません"
Exit Do
End If

'パスワードの入力
password = InputBox("パスワードを入力")
Loop Until password = "apple"

End Sub

appleがパスワード　なぜappleがここででてくるのかは不明

聞かないでください

↓他に本日練習したもの

入力された数字列の桁数を表示

http://www.geocities.jp/client399/ex11.txt

入力しなくなるまで数字列を足していく

http://www.geocities.jp/client399/ex12.txt

パスワードを入力するまで入力画面表示(前判断)

http://www.geocities.jp/client399/ex13pre.txt

パスワードを入力するまで入力画面表示(後判断)

http://www.geocities.jp/client399/ex13post.txt

アドバイスなどがあればコメントまでおねがいします

ここで自己紹介でもしようと思う(^ω^)

いいからガキは寝ろとかなしね

HN　Client

趣味　PCいじったりとか

好きな物など　　はいもういえませんごめんなさい

嫌いなものなど　　いえませんゆるしてくださいおねがいします

このブログについて色々

単なる趣味のブログだと思ってもらって結構です　実際そうですから

面白かった動画や管理人の勝手な趣味関係の事を書いたり書かなかったり

おすすめツールも書いたり　たまにアングラな世界に入っていくかも

とにかく一日一度は書きます　多分　手抜きでも我慢してください

まあその場のふいんき←(なぜか変換できない)で

アクセス数いまいちの予感は的中しそう

本を紹介したいと。

僕はまず、VBAから勉強してみようかなと思ったから、2000円でこの本を買ってきた。

最近、僕から見ると入門書は最初からポインタだの配列だのいってくるから

難しく見えたから、図書館で借りて読む事を諦めて買う事にした。

そして基礎の基礎というんだから今の僕にはうってつけだと思い切って買ってみた。

ペラペラ読んでみるとなかなか簡潔に書いてあって分かりやすかった。

今日はこのくらいまで進んでる。

Public Sub gouhi()

Dim key As String
Dim a As Integer
Dim b As Integer

key = InputBox("中間テストの点数を入力")
If key = "" Then
MsgBox "無効な入力"

Exit Sub
End If
a = Val(key)

key = InputBox("期末テストの点数を入力")
If key = "" Then
MsgBox "無効な入力"

Exit Sub
End If
b = Val(key)

If (a >= 90) Or (b >= 90) Then
MsgBox "合格"

Else
MsgBox "再テスト"

End If
End Sub

間違っている点・改善できる点があればアドバイスください。

この度、ちょっとプログラミングを始めてみようなんて思い立って、

その気になっています。

まあどうせ直ぐに挫折するはずですから、暖かい目で見てもらえれば。