大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
拖三个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是否可以