1樓：匿名使用者
這個涉及遞迴呼叫自己，第二引數是奇數，所以 執行p1=x*p1(x,n\2)，每次呼叫時引數n先被整除2，所以這個引數依次為 7，3，1，0 。直到引數為0時執行p1=1語句，所以整個過程相當如下：
dim pp=1 ：n=0
p=p* ：n=1
p=p* ：n=3
p=p* ：n=7
p1=p
2樓：俄羅斯
屬性，事件，方法。
設計模式，除錯模式，中斷模式。
解釋執行，編譯執行。
從s中取後兩個字元。
sqr(16)= 4
"a*b="
（我親自測試過的）
求為滿意。
vb題目求解
3樓：匿名使用者
完整**如下：
dim s1, s2, l as doubledim i as integer
l = 1 +
s1 = 0
for i = 1 to 24
s1 = s1 + 1000 * l ^ i - 1)next i
s2 = 0
for i = 1 to 24
s2 = s2 + 1000 + i - 1) *100next i
if s1 > s2 then
msgbox "選擇a公司"
elsemsgbox "選擇b公司"
end if
執行結果顯示選擇：a
4樓：我tm不管
private sub form_click()print "加工資的方式a："
salary = 1000
for i = 1 to 24
salary = round(salary * 第" &i & 個月：" salarysuma = suma + salary
nextprint "加工資的方式a24個月工資總和：" sumaprint ""
print "加工資的方式b："
salary = 1000
for i = 1 to 24
salary = salary + 100print "第" &i & 個月：" salarysumb = sumb + salary
nextprint "加工資的方式b24個月工資總和：" sumbprint ""
print "加工資的方式a與加工資的方式b的差額：" suma - sumb
end sub
求用vb解答
5樓：聽不清啊
製作這個程式的時候先在窗體中加入一個標籤，並且把窗體標籤的內容設定為空，然後再製作一個命令按鈕，也把命令按鈕的顯示改為開始，再加入一個定時器控制元件。核心在於計時器控制元件中。需要設定一個全域性變數t，並且在窗體的裝載事件中設定t的值為60，並且把標籤的顯示就是等於t。
然後設定定時器控制元件的屬性，時間屬性為1000毫秒，每隔1000毫秒之後，定時器控制元件就觸發一次，把t的值減1，並且更新標籤的顯示內容，當t的值達到0的時候就不顯示0，而是顯示「時間到」三個漢字。並設定定時器控制元件的interval屬性為0
dim t as integer
private sub form_load()t = 60 = t
= 開始"
end sub
private sub timer1_timer()t = t - 1
if t > 0 then
= t = 時間到"
end if
end sub
vb題求解答
6樓：仙昭
由點（1200，1200）開始按步長（1000，500）畫一個矩形，則當前點由（1200，1200）變為（1200+1000，1200+500）即（2200，1700），也就是座標點的x、y分別為x=2200，y=1700。
currentx是當前點座標x的值，currenty是當前點座標y的值。
解答vb題
7樓：匿名使用者
雙重for迴圈 內層迴圈就是tab（）難理解一點吧？
例：print tab（5）;"就是在當前輸出行的最前面開始數，在第5個位置上輸出*。
x=5,y=1 to 1
y=1 print tab(6);"第6位上輸出* 並回車。
print '空行。
x=4,y=1 to 2
y=1 print tab(6);"第6位上輸出* 並回車。
y=2 print tab(7);"第7位上輸出* 並回車。
8樓：匿名使用者
tab[(n)] 可選的 n 引數是在顯示或列印列表中的下一個表示式之前移動的列數。
private sub command1_click()
for x = 5 to 1 step -1 'x的值從5遞減到1，每次遞減1
for y = 1 to 6 - x 'y的值從1遞增到6-x，因為x的值是5 4 3 2 1，所以y的值是從1遞增到1 2 3 4 5
print tab(y + 5); 意思就是輸出y+5個空格後接著輸出*，認真代入y值即可得出結果。
nextprint 'y迴圈完畢即輸出一空行。
nextend sub
'當x=5時，y=1，所以輸出6個空格加*；
'當x=4時，y=1，所以輸出6個空格加*；
' y=2，所以輸出7個空格加*；
'當x=3時，y=1，所以輸出6個空格加*；
' y=2，所以輸出7個空格加*；
' y=3，所以輸出8個空格加*；
'當x=2時，y=1，所以輸出6個空格加*；
' y=2，所以輸出7個空格加*；
' y=3，所以輸出8個空格加*；
' y=4，所以輸出9個空格加*；
'當x=1時，y=1，所以輸出6個空格加*；
' y=2，所以輸出7個空格加*；
' y=3，所以輸出8個空格加*；
' y=4，所以輸出9個空格加*；
' y=5，所以輸出10個空格加*；
9樓：匿名使用者
結果如下：
* *執行過程：
外層迴圈第一次。
x=5執行內迴圈。
for y=1 to 6-5
列印 tab(y+5)=tab(6)，即右移動6個製表符的位置，再列印「 *
next每次內迴圈結束後，列印一個空行【print】外層迴圈第二次（step-1）
x=4...
一次類推，得出以上結果。
求解（vb題目）
10樓：網友
1全部解：第一張圖 第11題。
（1）選c，事件名。
（2）① p*(1/i) ③i=i+1。
第二張圖 第11題。
（1）caption
（2）①i=i-1 ②t=mid(s，10-val(ch),1) ③限行。
第三張圖 第11題。
（1）3（解釋：窗體也是一個類）
（2）①i=4 ②x=0 ③ 2d
需要解釋的，再追問！
vb 題求解
11樓：匿名使用者
這道題也是要自己動手寫寫就出來了的。
從題目可以看出，無論j取任何值，y都為0，所以我們直接看。
for k = 1 to 4
y = y + 1
next k
即可，k = 1 to 4,執行四次迴圈，每次迴圈y的值加1，因為迴圈前y=0,所以執行四次迴圈後y=4
關於x的值，就要慢慢推算了。
當j=1時，x=1-1=0,執行完for k = 1 to 4後，x=4；
當j=2時，x=4-1=3,執行完for k = 1 to 4後，x=7；
當j=3時，x=7-1=6,執行完for k = 1 to 4後，x=10；
當j=4時，x=10-1=9,執行完for k = 1 to 4後，x=13；
解答vb題
12樓：匿名使用者
完全二叉樹的定義：若設二叉樹的高度為h，除第 h 層外，其它各層 (1～h-1) 的結點數都達到最大個數，第 h 層從右向左連續缺若干結點，這就是完全二叉樹。 可以算出，這棵二叉樹共十層，1-9層的節點個數為2^9-1=511個，所以最後一層的節點個數為700-511=189個，189div2=95,那麼倒數第二層的葉結點個數即是2^(9-1)-95=161個 所以所有的葉結點個數即為：
189+161=350個。
根據二叉樹的性質：對於一棵非空的二叉樹，如果葉子節點數為n0,度為2的結點數為n2,則no=n2+1.
根據完全二叉樹的定義可得：在完全二叉樹中度為1的結點n1只能取兩種情況，要麼為0,要麼為1.
所以：n0+n1+n2=700
n0=n2+1;
2n0=701-n1;
因為結點數為整數，所以n1=1,no=350由於二叉樹都忘記了，只能網上拷貝答案給你了。
求簡單的VB作業，求用VB解答
題目都沒有，如何寫，瞎寫嗎？寫 x y z 嗎？dim b as integer private sub command1 click if 123456 falseprint hello falseelsemsgbox 密碼錯誤 1 b b 1 if b 3 then msgbox 你沒有機會了 ...
VB的使用方法求解，求答案VB使用print方法,輸出如下圖形
private sub command1 click dim str1 str1 text1.text text2.text iif left str1,1 7,1,left str1,1 mid str1,2,1 mid str1,4,2 mid str1,3,1 text3.text iif l...
vb題目急急急
dim a as string,b as stringprivate sub command1 click a text1.text b text2.text end sub private sub command2 click text3.text a b 連線順序 a前b後，可改b a b前a後...