投稿者 若葉マークのレオです  (小学生) 投稿日時 2009/1/8 15:52:58
そうゆう意味ではないけどね。
まじめそうなんで書いたんですよ。
いろいろ、やり方のある例です。
コードは自由自在。正しいとか、そんなの関係ねぇ~(小島風)
Option Strict On
'VisualBasic2008 
'テキストボックス1と2を用意 
'ボタン1,2,3を用意します 
'a+bの答えを表示する例(3通り) 
Public Class Form1
    Private kotae As Integer
    Private a, b As Integer
    Private Sub tasizan()
        Try
            a = CInt(TextBox1.Text) : b = CInt(TextBox2.Text)
            kotae = a + b
        Catch ex As Exception
            MsgBox(ex.ToString)
            Return
        End Try
        MsgBox(kotae)
    End Sub
    Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = Nothing Or TextBox2.Text = Nothing Then
            MsgBox("両方のテキストボックスに入力してね♪")
            Return
        End If
        tasizan()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles Button2.Click
        If TextBox1.Text = Nothing And TextBox2.Text = Nothing Then GoTo 20
        If TextBox1.Text = Nothing Then GoTo 10
        If TextBox2.Text = Nothing Then GoTo 30
        GoTo 40
10:     MsgBox("左側のテキストボックスに入力してね♪") : Return
20:     MsgBox("両方のテキストボックスに入力してね♪") : Return
30:     MsgBox("右側のテキストボックスに入力してね♪") : Return
40:     tasizan()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles Button3.Click
        Select Case TextBox1.Text
            Case Nothing
                MsgBox("左側のテキストボックスに入力してね♪") : Return
        End Select
        Select Case TextBox2.Text
            Case Nothing
                MsgBox("右側のテキストボックスに入力してね♪") : Return
        End Select
        tasizan()
    End Sub
End Class