1樓：寂寞的思想
private sub command1_click()
dim score(1 to 3) as integer, pjf as single, name as string
for i = 1 to 4
name = inputbox("請輸入學生姓名", "輸入姓名")
for j = 1 to 3
select case j
case 1
score(j) = inputbox("請輸入該學生英語成績", "輸入成績")
case 2
score(j) = inputbox("請輸入該學生數學成績", "輸入成績")
case 3
score(j) = inputbox("請輸入該學生法律成績", "輸入成績")
end select
next j
pjf = (score(1) + score(2) + score(3)) / 3
print name; chr(10); "英語成績:" & score(1); chr(10); "數學成績:" & score(2); chr(10); "法律成績:
" & score(3); chr(10); "平均分:" & pjf; chr(10)
next i
end sub
因為不是很清楚具體情況，簡單做了一個，你看下行不行
如果好的話要採納哦~嘿嘿
2樓：匿名使用者
被樓上的搶先了一步了
將5本不同的書全發給4名同學，每名同學至少有一本書的概率是
每人得到至少一本書，則分法為4人中3個人每人1本，另一個人2本。符合總共5本。這樣的分法有c 4，1 c 5，2 a 3，3 240種c 4，1 表示從4個人中選出1人 特殊人 讓他得到2本書 c 5，2 表示從5本書中選出2本讓前面的人得到 a 3，3 表示剩餘的3本不同的書分給3個人的排列方法。...
三 1 班有4名同學參加運動會4x100米的接力賽，一共有凡
給四個人全排列 a44共256中排法 4 4 1 除以二，等於6 三 2 班有4人蔘加運動會的4x100接力賽，如果1號運動員固定跑第一棒，方法一 多去少補 從6人中取4人蔘加比賽的種數為a64 4在上6在下，下同 即6 5 4 3 360 種方案 回 採用逆向排除策略 其中答甲跑第一棒的情況有a5...
求英語小組組名，好聽的英語學習小組組名
英語小組名稱 1.名字 king back 王者歸來 2.名字 the one 唯一 3.名字 sunshine 晴天 4.名字 winners 成功者 5.名字 vast sky 廣闊天空 6.名字 omnipotent 無所不能 7.名字 go along 勇往直前 8.名字 go for it...