1樓：匿名使用者
樓主您好！
什麼也不用畫，直接複製貼上**。
簡單就一句：
msgbox "這個數的平方為：" & val(inputbox("請輸入要求平方的數!", "提示視窗") ^ 2), 64 + vbokcancel + vbdefaultbutton1, "提示視窗"
多寫點就這樣：
dim number1 as double
dim number2 as double
number1 = val(inputbox("請輸入要求平方的數!", "提示視窗"))
number2 = number1 ^ 2
msgbox "你輸的數為：" & number1 & vbcrlf & _
number1 & "^2=" & number2, 64 + vbokcancel + vbdefaultbutton1, "提示視窗"
望採納~~
2樓：匿名使用者
dim a as double
dim b as double
a=inputbox("輸入求平方的數：")b=a*a
msgbox( ”所求的數的平方為：" & b)說實話，這太簡單了，程式設計要自己動腦筋想想才練水平
3樓：
x的平方就是：
x ^ 2
vb程式設計求一個數的算術平方根 求解!!!!
4樓：匿名使用者
有現成函式sqr（100）返回10
如果是任意次開方可以自己做一個函式，先做一個連乘的乘方函式，再做一個開任意次方。因為開方就是不斷的用連乘來試驗的，如下
'定義連乘函式，或者叫乘方
private function lc(number, n as integer)
dim myresult
myresult = 1
dim i as integer
for i = 1 to n
myresult = myresult * number
next
lc = myresult
end function
'開任意次方
private function power(number as double, n as integer)
dim j as double
dim myresult as double
myresult = 0.0000001
for j = p to number step 0.00001
dim mynum as double
mynum = lc(j, n)
if mynum <= number then
myresult = j
else
exit for
end if
next
power = myresult
if lc(int(power) + 1, n) = number then
power = int(power) + 1
else
power = myresult
end if
end function
呼叫示範：
msgbox power(28, 3)
用vb程式程式設計 輸入一個數字，輸出的是這個數的平方根
5樓：尐巴
private sub command1_click() dim n as integer n = val(inputbox("輸入一個數字")) print sqr(n) end sub
關於VB程式設計的問題 高手請進，急求一個VB的問題！高手請進。
加一個文字框text1，一個按鈕command1private sub command1 click if trim text1.text thenmsgbox 請輸入數字 text1.setfocus else msgbox val trim text1.text 100 米 left cstr ...
求數的平方的簡便方法，求一個數的平方的簡便方法
村裡唯一的希望喲 1 求任意一個數的平方 方法 先把這個數看成 5 的倍數與一個小於 5 的數的和 或差 的形式，再用這兩個數的平方和加上 或減去 這兩個數的積的 2 倍。2 求任意一個兩位數的平方 方法 用這個數加上它的個位數的補數的和乘以它們的差，再用這個積加上這個補數的平方。3 求一千零幾的平...
如何快速求數平方的方法，如何快速求一個數平方的方法
您輸入了違法字元 1 求任意一個兩位數的平方 方法 先把這個數看成 5 的倍數與一個小於 5 的數的和 或差 的形式，再用這兩個數的平方和加上 或減去 這兩個數的積的 2 倍。2 求任意一個兩位數的平方 方法 用這個數加上它的個位數的補數的和乘以它們的差，再用這個積加上這個補數的平方。3 求一千零幾...