1樓:匿名使用者
第一種(對比計算privatesub***mand1_click()timer1.enabled=truetimer1.interval=1'計算一次用時量endsubprivatesubform_load()text2.
text="0"'計算方法初始化text3.text="0"'計算開始初始化text4.text="1"'次數計算初始化endsubprivatesubtimer1_timer()dimaasinteger,basstringifval(text4.
text)<=val(text1.text)theni=val(text4.text)b=text2.
textifb=0thentext2.text="1"text3.text=text3.
text+ielseifb=1thentext2.text="0"text3.text=text3.
text-iendiftext4.text=val(text4.text)+1elsetimer1.
enabled=falseendifendsub第二種(規律計算)'耗時最少privatesub***mand1_click()dimaasintegera=val(text1.text)ifamod2=0thentext2.text=-1*a/2elsetext2.
text=-1*(a-1)/2+aendifendsub
2樓:匿名使用者
dim s as double
dim i as double
dim j as double
s=0j=1
for i=1 to 5
j = j * i
s=s+j
next i
print s
用vb程式計算1!+2!+3!+4!+5!的值
3樓:聽不清啊
private sub ***mand1_click()s = 0
t = 1
for i = 1 to 5
t = t * i
s = s + t
next i
print "1!+2!+3!+4!+5!="; send sub
用vb程式設計計算:1!+2!+3!+4!+…+n!
4樓:匿名使用者
新建一個工程,新增個命令按鈕和一個文字框
**如下:
private sub ***mand1_click()n = val(text1.text)
s = 0 '存結果
for i = 1 to n
t = 1 '臨時存積的變數
for j = 1 to i '計算階乘
t = t * j
next j
s = s + t
next i
print "結果為:" & s
end sub
c語言程式設計計算1!+2!+……+20!=
5樓:匿名使用者
#include
int main()
printf("1!+2!+3!+...+20!= %lf\n",s);
}c語言是一門通用計算機程式語言,應用廣
泛。c語言的設計目標是提供一種能以簡易的方式編譯、處理低階儲存器、產生少量的機器碼以及不需要任何執行環境支援便能執行的程式語言。
儘管c語言提供了許多低階處理的功能,但仍然保持著良好跨平臺的特性,以一個標準規格寫出的c語言程式可在許多電腦平臺上進行編譯,甚至包含一些嵌入式處理器(微控制器或稱mcu)以及超級電腦等作業平臺。
二十世紀八十年代,為了避免各開發廠商用的c語言語法產生差異,由美國國家標準局為c語言訂定了一套完整的國際標準語法,稱為ansi c,作為c語言最初的標準。
計算機VB程式設計試題
不難的sub shuzu dim a 3,4 as integerdim i,j,k as integerfor i 0 to 3 for j 0 to 4 a i,j int rnd 151 50 k k 1 print format str a i,j 000 為了對齊 if k mod 5 0...
vb程式設計題目,VB程式設計題目
private sub mand1 click if len text1 2 thentext1 left text1,2 end if end sub private sub mand2 click text1 end sub private sub form load label1.captio...
vb怎樣程式設計計算S 1 22 333 444NN。其中N
恩恩 是個迴圈的問題,作為新手的我就把閣下這道題當作練習題,這裡用到了4個函式,和一個while 當 迴圈 private sub command1 click dim n as integer,s as long 宣告變數n作為項數,s作為n項累加後的最終結果 n 0 初始化n為0 while n...