タイトル : Re^3: ネッカフェのPC 投稿日 : 2009/06/26(Fri) 16:27 投稿者 : reo
> > > 自分の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 > > 初心者は困惑しますね。 ネッカフェからアクセスしても同じだココ。 ^^わからん。 |