1樓:名字等於七個字
function fact(x as integer)s = 1
for i = 1 to x
s = s * i
next
fact = s
end function
private sub ***mand1_click()me.autoredraw = true
me.cls
dim m as integer
dim n as integer
m = -1
n = -1
do while m < 0
m = val(inputbox("請輸入dao版m的值
權", "輸入"))
loop
do while n < 0 or n > mn = val(inputbox("請輸入n的值", "輸入"))loop
print m
print n
print fact(m) / (fact(n) * fact(m - n))
end sub
給定求組合數公式為:c(n,m)=m!/n!(m-n)!,編一程式,輸入m和n的值 ,求c(n,m)的值 5
2樓:庫魯滋·韋伯
#include
int fabricate(int m,int n);
int multi(int m,int n);
void main()
else
printf("錯誤!重新輸入,輸入m:");}}int fabricate(int m,int n)int multi(int m,int n)
3樓:夜中月下
#include
using namespace std;
int main()
int multi(int m,int n)
vb編寫程式 用來計算m的n次方
4樓:匿名使用者
新建工程,新增***mand1控制元件。vb6.0+xp除錯成功。
**如下:
dim n as integer。
private sub ***mand1_click()。
m = inputbox("請輸入內底數m")。
n = inputbox("請輸入指容數n")。
擴充套件資料vb編寫程式的引數選擇(有利於方便使用者的工作進度)第一個按鈕的index屬性值預設為「0」,第二個的index屬性值自動設為「1」,並且大小與第一個按鈕相同,只需修改其 caption 屬性為數字「1」並將其拖至合適位置即可。
此後繼續使用「貼上」的方法建立其他控制元件組中其餘按鈕,共20個按鈕,每建立一個,就將它拖到合適處,並修改相應的caption屬性值。
vb編寫程式計算分段函式，VB編寫程式，計算分段函式
在窗體上放一個命令按鈕，將 複製到窗體裡，程式執行單擊一次命令按鈕可輸入一次n的值 如下 private sub command1 click dim n,y as single n inputbox 請輸入n的值 select case n case is 0 y 2 n 5 case 0 y 0...
VB編寫公式
si ni 是什麼，我這裡使用簡單的函式 fs fn 來表示，你可以修改這些函式，實現你需要的功能。private function fs byval i as long as double fs i end function private function fn byval i as long ...
編寫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...