vb编程写代码

Question

新建工程，在窗体上添加两个命令按钮，标题分别设置为“输入”和“计算”。程序运行后，单击“输入”按钮，可通过输入对话框输入两个整数，单击“计算”按钮，则对输入数据进行乘方运算。例如，输入3和4，得到结果64.

Answer 1

在窗体上放置两个CommandButton，分别为Command1和Command2，代码如下：

Dim Die As Long, Zhi As Long
Private Sub Command1_Click()
    Dim x As Long, y As Long
    x = Val(InputBox("请输入底数：", "输入", "0"))
    y = Val(InputBox("请输入指数：", "输入", "1"))
    If x > 0 And y > 0 Then
        Die = x
        Zhi = y
        Command2.Enabled = True
    Else
        Command2.Enabled = False
    End If
End Sub
Private Sub Command2_Click()
    MsgBox CStr(Die) & " 的 " & CStr(Zhi) & " 次幂的结果为：" & CStr(Die ^ Zhi), vbInformation, "计算结果"
End Sub
Private Sub Form_Load()
    Command1.Caption = "输入(&I)"
    Command2.Caption = "计算(&C)"
End Sub

Answer 2

这个太简单了。