VB点虐 通过输入一个实数，单击计算按钮，输出该数的平方，立方

拖三个textbox，一个button

10余年的崆峒网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。全网营销推广的优势是能够根据用户设备显示端的尺寸不同，自动调整崆峒建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。创新互联从事“崆峒网站设计”,“崆峒网站推广”以来，每个客户项目都认真落实执行。

在窗体上双击button1，在自动生成的button1的Click事件中：

textbox2.text=val(textbox1.text)^2

textbox3.text=val(textbox1.text)^3

求VB平方镜反数怎么编程

以下是平方镜在vb点虐 中的程序，需要一个 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

VB运算的优先级问题

没太明白你的意思，Eval函数是利用Vbs来解析表达式，但也仅限表达式，我此前在vb点虐 中调用vbs的Eval函数，无法识别函数，只能进行表达式识别，用replace函数取代自变量X可以实现普通表达式的函数表达，但你所提到的问题和我说的是两码事，你是想通过某种方法来定义运算符的优先级？首先必要性不大，平方与开方本质上就是次方的特殊形势，为什么要实现这个功能呢？我不太理解。据我所知你如果要定义自己的运算符，在vb6.0中是无法直接实现的，就连在点虐 中也只能对已有的部分运算符进行重载，你要自定义运算符，只能以函数的形式调用，函数调用的优先级比运算符要高，但是据我测试eval函数解析不了函数，不知道vb6.0是否可以

vb点虐 求双平方数字的的方法

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点虐 平方在哪 vb平方的代码怎么写
文章分享：http://chengdu.cdxwcx.cn/article/ddspiph.html