VB.net通過輸入一個實數(shù)，單擊計算按鈕，輸出該數(shù)的平方，立方

拖三個textbox，一個button

創(chuàng)新互聯(lián)-成都網(wǎng)站建設(shè)公司，專注成都網(wǎng)站制作、做網(wǎng)站、外貿(mào)營銷網(wǎng)站建設(shè)、網(wǎng)站營銷推廣，申請域名，虛擬空間，網(wǎng)站運營有關(guān)企業(yè)網(wǎng)站制作方案、改版、費用等問題，請聯(lián)系創(chuàng)新互聯(lián)。

在窗體上雙擊button1，在自動生成的button1的Click事件中：

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

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

vb.net求雙平方數(shù)字的的方法

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平方鏡反數(shù)怎么編程

以下是平方鏡在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("請輸入最大范圍數(shù)", 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運算的優(yōu)先級問題

沒太明白你的意思，Eval函數(shù)是利用Vbs來解析表達(dá)式，但也僅限表達(dá)式，我此前在vb.net中調(diào)用vbs的Eval函數(shù)，無法識別函數(shù)，只能進(jìn)行表達(dá)式識別，用replace函數(shù)取代自變量X可以實現(xiàn)普通表達(dá)式的函數(shù)表達(dá)，但你所提到的問題和我說的是兩碼事，你是想通過某種方法來定義運算符的優(yōu)先級？首先必要性不大，平方與開方本質(zhì)上就是次方的特殊形勢，為什么要實現(xiàn)這個功能呢？我不太理解。據(jù)我所知你如果要定義自己的運算符，在vb6.0中是無法直接實現(xiàn)的，就連在.net中也只能對已有的部分運算符進(jìn)行重載，你要自定義運算符，只能以函數(shù)的形式調(diào)用，函數(shù)調(diào)用的優(yōu)先級比運算符要高，但是據(jù)我測試eval函數(shù)解析不了函數(shù)，不知道vb6.0是否可以