1.> 57
Private Sub Button1_Click
Dim i, j, k As Integer
i = 16
k = 0
Do While i > 10
For j = 1 To i
k = k + j Mod 5
Next j
i = i - 3
Loop
TextBox1.Text = k
End Sub
2.>305
Private Sub Button2_Click
Dim x, a As Integer
x = 5
a = fs(x)
TextBox2.Text = a + x
End Sub
Function fs(ByVal x)
Dim j As Integer
fs = x
For j = x To 3 Step -1
fs = fs * j
Next j
End Function
3.一片空白. @@
autumnshe wrote:
1.#include...(恕刪)
Q1
A:
==才是用來判斷用的
if(n=0) n=1 -> n被assign成0, 0會造成false 所以n不會=1
else if(n=1)n=2 -> n被assign成1, 1造成true-> n=2
之後的else 就不會進, 因為是用 if else ...
-> 最後n=2
用個debug tool設break point就可以更清楚了
4. 如果題目的意思是把 pepper拿來重新排的話.
a) 先假設 三個p(假設p1,p2,p3)和二個e(e1,e2)不同的排列有:
6!=6*5*4*3*2*1=720 種
b) 但在a中其實三個P都是一樣的,同理二個e也都一樣.
所以某種排列 p1p2p3e1e2r 和 p2p1p3e1e2r還有....都是一樣的結果 pppeer
因此三個ppp互換和二個ee互換有 3!*2!=12種都代表同一種排列.
c) 所以最後的結果應該是 720/12=60種不同的排法
5. 以符號 C(N,M)來代表 C 的N取M.
a) 可分為 "從前5題中取3題,後5題中取4題","從前5題中取4題,後5題中取3題",
"從前5題中取5題,後5題中取2題"
b) 所以結果為 C(5,3)*C(5,4)+C(5,4)*C(5,3)+C(5,5)*C(5,2)=( 答案就不算了)
autumnshe wrote:
4.再來是排法問題，我覺得最難懂的。pepper中全部字母取出來排列有幾種排法？？
5.某次考試要從10題中選出7題作答，若前五提至少要選三題，則有幾種選法？？
請各位前輩多多賜教，謝謝
autumnshe wrote:
1.#include...(恕刪)
1.
老實說...第一個看不懂題目. =="
C的語法,但語法錯誤,少了";".
說是演算法,好像也不會這樣寫.
我改成
#include <stdio.h>
int main(void)
{
int n=0;
if(n==0) n=1;
else if(n==1) n=2;
else if(n==2) n=3;
else if(n==3) n=4;
printf("%d\n",n);
return 0;
}
才有辦法compiler.
答案跟你一樣也是1.
要等於2必須int n=1;.
if是判斷句,
裡面如果直接assin值會出現"Possibily incorrect assingment",
無法完成compiler.
題目看起來像考巢狀語法,
如果是考巢狀語法,
那語法還是不對,少了";".
題目是不是漏掉什麼??
3.
800+4*(5*20+15)=800+4*(115)=800+460=1260
內文搜尋