刚学VB，这几道vb题不会做！

关于1.编写程序，计算数学表达式（x+y）^2 的结果
我的程序编写是这样，可以输入，使用除了不经输入就按“结果”报错以外没有报错，就是看不见结果：
Dim n, m As Integer

Private Sub Command1_Click()
n = Text1.Text
Text1.Text = “”
p = 1
End Sub

Private Sub Command2_Click()
Dim m As Integer
m = Text1.Text
Select Case p
Case 1
Text1.Text = (n + m) ^ 2
End Select
End Sub

Private Sub Form_Load()
Command1.Caption = “连接”
Command2.Caption = “结果”
Form1.Caption = “(x+y)^2 计算器”
End Sub
2.编写程序，找出整型数据32167的最高位数字和最低位数字
还有求反运算符也看不懂
dim a1,a2,a3,a4
a1=26
a2=41
a3=true
a4=false
print not a1
print not a2
print not a3
print not a4
为什么结果却是
-21
-42
false
true
初学用的书不好，麻烦大家详细解答，谢谢！
的问题

command1_click()事件里的p常量是多余的，可以去掉。
在command2_click()的事件过程中，加入：
筛选语句，把不是数值型、或空值的变量判断出来，再处理。
Form_Load() 里最好加入text1=””
试试我写的：
Dim n, m As Integer
Private Sub Command1_Click()
n = val(Text1。
Text)
Text1。Text = “”
End Sub
Private Sub Command2_Click()
m =val(Text1。Text)
if m “” and n “” then
Text1。
Text = (n + m) ^ 2
else
msgbox “输入数字不正确，请重新输入”
end if
End Sub
Private Sub Form_Load()
text1。text=””
Command1。
Caption = “连接”
Command2。Caption = “结果”
Form1。Caption = “(x+y)^2 计算器”
End Sub
你的第二条题，先用len()函数算出一共有几个数字，然后用left()函数取出第一个数字（即最高位），再用right()函数求出最后一位。
取反也是用len(),left(),right()函数把每个数字取出，再重新反向排列。
我就不写出来了，你自已去学学这几个函数就知道怎么做了。