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程式設計的小問題
private sub command1 mousemove button as integer,shift as integer,x as single,y as single dim myvalue randomize myvalue int rnd 1 生成 窗體高度內的一個隨機數值。myva...
編寫vb程式，求1編寫一個vb程式，求11213141n的值。測試資料n50答案
private sub mand1 click print 第3題 dim n as integer,s as doublen inputbox n 50 for i 1 to n s s 1 i next i print sum n format s,0.00 end sub private su...
求C語言程式設計題,求一個C語言程式設計題
include int a 3 5 void main for i 0 i 3 i printf d n t t 32768 上面的 來程式可以按源照你說的處理資料。程式不難,有問題hi我。一個方法裡寫三個冒泡 這算題麼 include int main printf d d d n t 0 t 1...