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
請問 怎麼求數的平方根，請問 怎麼求一個數的平方根
楣書易 早就想給你做了，可是實在怕你看不懂，不是很難，而是這樣說不清楚。看沒人幫你解決，我還是做一下吧 譬如開 2 那一一得一，先寫1 餘11後面添兩個0 得100 然後你使 1 20 x x小於100取x的最大值，得出x 4注意 1 20中的1就是第三行的1。x 4,所以 1 20 x x 96 ...
C 中如何求數的平方根，C 中如何求乙個數的平方根？
6哈庫那瑪塔塔 1 呼叫庫math.h 2 在最開頭加入語句 include 3 平方根函式原形 double sqrt double x 第一種 float i sqrt num int result abs ceil i i abs floor i i floor i ceil i 第二種 in...
vb程式設計 急求 隨機產生n個1 100之間的數（包含1和
新增乙個command控制項即可，如下 private sub command1 click dim a 5 z,s,max,min as integer print 生成的數字 for i 1 to 5 陣列裡面有5個不同數值a1,a2,a3,a4,a5，此處i的最大值n對應dim中的a n 可以...