アプリ版:「スタンプのみでお礼する」機能のリリースについて

VB初心者です。
VBで(zのn乗)-(xのn乗+yのn乗)の計算が出来るようにしたいのですが、答えが必ず-1になってしまいます。
Option Explicit On

Public Class Form1

Dim x As Long
Dim y As Long
Dim z As Long
Dim n As Long

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.Close()

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub

Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

End Sub

Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

End Sub

Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click


TextBox5.Text = (z ^ n) - (x ^ n + y ^ n)


End Sub
End Class

正しいコードの書き方を教えて下さい。
また特定の答えのときにメッセージを表示したいのですが、どうすればいいですか?

A 回答 (2件)

VBAでは0の0乗は1になります。


ということは、すべての変数に値が代入されていないということです。

先にテキストボックスの値を変数に代入しましょう。
    • good
    • 0
この回答へのお礼

ご回答ありがとうございます。
代入のやり方が分からないので正しいコードを教えて下さい。
自分でコードを書いたところ、ビルドエラーが出てしまいました。

お礼日時:2013/09/18 10:57

x,y,z,nそれぞれの変数に値を代入している箇所が無いように見えますが。


それぞれのTextBox?_TextChangedで、その値を変数に取り込むのでは?

この回答への補足

ご回答ありがとうございます。
それはどこから書き始めればいいでしょうか?

補足日時:2013/09/18 10:58
    • good
    • 0
この回答へのお礼

ご回答ありがとうございます。
出来れば完成したコードも教えていただけますか?

お礼日時:2013/09/18 16:05

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!