1樓：分享社會民生
程式**：private sub rectacreage(byval sngchangdu as single, byval sngkuandu as single, optional byval intpoint as integer = 3)
msgbox "矩形的長=" sngchangdu & vbcrlf & 矩形的寬=" sngkuandu & vbcrlf & 矩形的面積=" format$(sngchangdu * sngkuandu。
iif(cbool(intpoint), 0." string$(intpoint, "0"),0"))vbinformation + vbokonly, "計算結果"
2樓：網友
private sub rectacreage(byval sngchangdu as single, byval sngkuandu as single, optional byval intpoint as integer = 3)
msgbox "矩形的長=" sngchangdu & vbcrlf & 矩形的寬=" sngkuandu & vbcrlf & 矩形的面積=" format$(sngchangdu * sngkuandu, iif(cbool(intpoint), 0." string$(intpoint, "0"),0"))vbinformation + vbokonly, "計算結果"
end sub
呼叫方法：call rectacreage(矩形長度， 矩形寬度， 計算精度)，例如： call rectacreage(5, 3, 3)，最後乙個引數決定了結果保留的小數位數，如果設定為0，則結果將四捨五入取整。
vb程式設計語言運算題，結果已知，請講解一下詳細過程
3樓：北問邇
設計演算法 設計介面 編寫** 除錯執行。
vb題目，求解題過程～
4樓：網海1書生
這其實就是計算 1 + 1*2 + 1*2*3 + 1*2*3*4 的值，外層迴圈把i從1迴圈到4，內層迴圈則從1累乘到i，最後把積累加起來。
也就是說，當i=1時，t=1，s=0+1=1當i=2時，t=1*2=2，s=1+2=3當i=3時，t=1*2*3=6，s=3+6=9當i=4時，t=1*2*3*4=24，s=9+24=33所以最終s的值是33
vb程式題，怎麼計算的 具體步驟 謝謝大家啦！
5樓：聽不清啊
i j
1 1 n+3次1
2 1 n+3次1
2 2 n+2次1
3 1 n+3次1
3 2 n+2次1
3 3 n+1次1
共加了14次1。所以最後n的值是14。
vb題，求具體過程
6樓：網友
過程：定義 全域性 k 值為0
定義 a=11 ， b=2
k = fun((a), b) +fun(a, a)
第一次呼叫(a)為傳值引用，在程式中不改變a原來的值，不加的b為傳址 程式中會改變b的值。
fun((a), b) |n11 m2 k0
n = n \ 2 5 2 0
k = k + n 5 2 5
n = n + 1 6 2 5
m = m + k 6 7 5
fun = m + n = 13
print m , n => 7 6
這時 a = 11, b = 7 (fun中 m的值呼叫的b值的儲存位址，直接修改就把b的值改了)
k = 13 + fun(a, a)
第二次呼叫是全部為a的傳址呼叫，就是 n和m的值是同乙個，同步修改a的值。
fun(a, a) |n11 m11 k5
n = n \ 2 5 5 5
k = k + n 5 5 10
n = n + 1 6 6 10
m = m + k 16 16 10
fun = m + n = 32
print m, n =>16 16
這時 a = 16, b = 7 (你可以輸出一下)
k = 13 + 32 = 45
7樓：網友
程式執行到k=fun（）+fun（）時，首先執行第乙個fun（（a），b），呼叫fun函式，這時n=a=11，m=b=2,n=n/2=6(四捨五入，奇數加1)，k=k+n=26,n mod 2=0,不執行if，m=m+k=2+6=8,fun=m+k=8+6=14,輸出m,n，所以第一行是8,6
這時候執行第二個fun（a,a），同理這樣去做，注意k為全域性變數，這時k為6
最後結果是。
關於計算機器組成原理的題，關於一個計算機器組成原理的題
對於二進位制補碼來說，你應該認識它產生的必要性和優越性。先來說說原碼吧，因為對於有符號數，原碼同樣也要拿出一位來表示符號，也就是第一位，這樣表示方便，而且直觀。但另外一個問題出現了，那就是原碼對於人來說直觀，但對於機器來說運算上就不方便了，所以此時就迫切需求一種進位制碼的表示，方便常用的計算。於是針...
計算機女生的職業規劃，一個計算機女生的職業規劃
小姑娘你好，我很遺憾的告訴你，儘管你已經讀到了碩士，我從你對自己的分析來說，我的確感覺從職業發展上，你遇到了真正大的挑戰。挑戰的核心在於，你儘管在學習上成績可能還不錯，你考上碩士了，但是你對於這個行業和工作顯然是缺乏感情和激情的。你還不能做到處驚不亂的安心從事技術工作。而對於工科學生而言，實踐能力也...
vb編寫關於階乘的程式，vb編寫一個關於階乘的程式，
來不及寫，教你怎麼做吧 先把文字框的讀取轉存成整數 對這個整數用if判斷 不滿足條件用msgbox提示 滿足條件的話，呼叫函式，引數就是那個整數，返回值就是結果。剛給你寫的 希望對你有幫助 給個滿意回答吧private sub command1 click dim dat1 as variant d...