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.Object, ByVal 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.Object, ByVal 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.Object, ByVal 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