タイトル | : Re^2: ネッカフェのPC |
記事No | : 9118 |
投稿日 | : 2009/06/26(Fri) 01:27 |
投稿者 | : れお |
> > 自分のPCとネッカフェのPCと、色々と相違点があるんですが。 > > 広告の違いとかは関係ありませんが。 > > 故障でしょうか? > > ソースも違うし。 > > 印刷してメーカーに検査してもらうと回答してもらえるのかなぁ? > > どなたか、試された人はいますか? > > > > ん。誰も返事がNothing。 > 今日、久さしぶりにVB無料版2008で遊んだが、システム変更がチョコチョコあるみたい。 > こりゃアンサーも大変ですね。 > Option Strict On > Public Class Form1 > > Dim a As Integer = 7 > Private b As Integer = 8 > > Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click > MsgBox(a) > MsgBox(b) > End Sub > End Class > 以前だと7の数字は初期化されて0になってたが、現状は保持になってる。 > マイクロの社員も日々がんばってますね。
寝る時間がきた// VBの教科書も6冊購入したが、 プロ目線で入門書を書くとゆうのは、いろいろ混乱になりやすい。 opthon stict onも混乱の元だ。 OFFの状態でも信頼性のあるようにすればいいのに。 そこのトコ、マイクロ社員も努力せよ。^^
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click ' Dim price As Integer ' price = TextBox2.Text * 220 + TextBox3.Text * 140 'Label3.Text = price End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Try Dim price% price = CInt(TextBox2.Text) * 220 + CInt(TextBox3.Text) * 140 Label3.Text = price.ToString Catch ex As Exception MsgBox("エラー") End Try End Sub
初心者は困惑しますね。
|