拖三个textbox，一个button
创新互联-成都网站建设公司，专注成都网站制作、做网站、外贸营销网站建设、网站营销推广，申请域名，虚拟空间，网站运营有关企业网站制作方案、改版、费用等问题，请联系创新互联。
在窗体上双击button1，在自动生成的button1的Click事件中：
textbox2.text=val(textbox1.text)^2
textbox3.text=val(textbox1.text)^3
Public Function panduan(ByVal n As Integer) As Boolean
Dim res As Boolean = False
Dim a, b, c, d, temp1, temp2 As Integer
a = n \ 1000
b = (n \ 100) Mod 10
c = (n \ 10) Mod 10
d = n Mod 10
temp1 = Sqrt(n)
temp2 = Sqrt(a + b + c + d)
If temp1 * temp1 = n And temp2 * temp2 = (a + b + c + d) Then
res = True
End If
Return res
End Function
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Dim str As String = "", temp As Integer = 0, sum As Integer = 0, x As Integer
For i = 1000 To 9999 Step 1
If panduan(i) Then
temp = i
Exit For
End If
Next
TextBox6.Text = temp
End Sub
以下是平方镜在vb.net中的程序，需要一个 listbox和command
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim xx As Long, j As String, i As String
xx = InputBox("请输入最大范围数", 100000)
For m = 10 To xx
i = m
j = StrReverse(i)
If i = j Then GoTo 10
If Int(i) ^ 2 = StrReverse(Int(j) ^ 2) Then
ListBox1.Items.Add(i " " j " " i ^ 2 " " j ^ 2)
End If
10:
Next
End Sub
End Class
如果想在vb6中运行 就把 ListBox1.Items.Add 改成 list1.additem
没太明白你的意思，Eval函数是利用Vbs来解析表达式，但也仅限表达式，我此前在vb.net中调用vbs的Eval函数，无法识别函数，只能进行表达式识别，用replace函数取代自变量X可以实现普通表达式的函数表达，但你所提到的问题和我说的是两码事，你是想通过某种方法来定义运算符的优先级？首先必要性不大，平方与开方本质上就是次方的特殊形势，为什么要实现这个功能呢？我不太理解。据我所知你如果要定义自己的运算符，在vb6.0中是无法直接实现的，就连在.net中也只能对已有的部分运算符进行重载，你要自定义运算符，只能以函数的形式调用，函数调用的优先级比运算符要高，但是据我测试eval函数解析不了函数，不知道vb6.0是否可以