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
求數的平方的簡便方法，求一個數的平方的簡便方法
村裡唯一的希望喲 1 求任意一個數的平方 方法 先把這個數看成 5 的倍數與一個小於 5 的數的和 或差 的形式，再用這兩個數的平方和加上 或減去 這兩個數的積的 2 倍。2 求任意一個兩位數的平方 方法 用這個數加上它的個位數的補數的和乘以它們的差，再用這個積加上這個補數的平方。3 求一千零幾的平...
有關vb程式設計的一個問題，急啊 關於VB程式設計的小問題
這需要使用資料庫來做分析。建立職工表 惟一號碼 姓名 職稱 工齡 然後對應職工實際資訊輸入進職工表中。然後執行sql語句。select 四室兩廳住房數 count from 職工表 where 職稱 副高階 and 工齡 20 select 四室一廳住房數 count from 職工表 where ...
求VBA程式設計題，求一個VBA程式設計題
private sub commandbutton1 click select case combobox1.text case commandbutton1.caption val textbox1.text val textbox2.text case commandbutton1.captio...