1樓：匿名使用者
private sub command1_click()if not isnumeric(text1.text) thenmsgbox "非數值型別！", vbokonly, "出錯了！！
"exit sub
end if
dim x%, y#, z$, k%
y = 1
x = int(text1.text)
z = x & "! = "
for k = 1 to x
y = y * k
z = z & k & " * "
next k
label1.caption = left(z, len(z) - 3) & " = " & y
end sub
2樓：
private sub command1_click()dim i, j, s
s = 1
j = text1.text
label1.caption = j & "! ="
for i = 1 to j
s = i * s
label1.caption = label1.caption & "*" & i
next i
label1.caption = label1.caption & "=" & s
end sub
3樓：匿名使用者
僅需要較小數字的階乘還是能計算很大數字的階乘？
4樓：資訊科技及論證評審
private sub command1_click()dim x as integer
dim n as double
dim mycheck
n = 1
mycheck = isnumeric(text1.text)if mycheck = false thenlabel2.caption = "格式錯誤，請輸入乙個整數！"
else
x = round(text1.text)label2.caption = x & "！= "
for i = 1 to x
n = n * i
label2.caption = label2.caption & i & " * "
next i
label2.caption = mid(label2.caption, 1, len(label2.caption) - 2) & "= " & n
end if
end sub
private sub form_load()label4.caption = label4.caption & now()
end sub
求程式設計高手，用vb計算出n!+(n+1)!+(n+2)!+...+(n+m)!
5樓：匿名使用者
private sub command1_click()for i = val(text1.text) to val(text1.text) + val(text2.text)
s = s + factorial(i)
next i
label3.caption = "summation=" & send sub
private function factorial(byval num as integer) as double
factorial = 1
for i = 1 to num
factorial = factorial * inext i
end function
6樓：匿名使用者
dim su as long
for i = 0 to m
su = su + ch(n + i)
next i
private function ch(n as integer) as long
dim i as integer
ch = 1
for i = 1 to n
ch = ch * i
next n
end function
怎麼讓vb程式顯示計算後的數值
7樓：悠悠周郎
最簡單的，在窗體上畫乙個 label（標籤），預設名字是 label1。**裡計算過程之後寫上：
lable1.text = "計算結果是：" & 【計算結果那個變數的名字】
8樓：匿名使用者
用text或label之類作為數字的出口比如：text1.text=t t（計算後的數值）
9樓：匿名使用者
vb顯示計算後的結果有兩種方法
1、直接用輸出控制項
比如用text1輸出。計算結果是s 你可以把s賦給text1.text
**為 text1.text=s 這裡的s可以字元型，也可以是數字型 他會自動轉換成字元型，等效
text1.text=cstr（s）
本例中 就用這種方法來顯示，**有錯誤 把(text.1 text) = s 改成(text1. text) = s 就可以了
2、用 print 語句
print 語句用法為: 控制項名.print s
控制項名為你要顯示的地方，可以是form 也可以是picture控制項等 s就是的計算結果。
也可以用debug.print s。這樣結果就顯示在除錯視窗。
10樓：匿名使用者
1、可以把計算後的值顯示任何可輸出的控制項或除錯視窗。
2、vb6示例：
1）在窗體上顯示：print 5*8
2）在文字框內顯示：text1.text=5*83）在標籤內顯示：
label1.caption=5*8y4）在**框內顯示：picture1.
print 5*85）在msgbox()資訊框內顯示：msgbox 5*86）在立即視窗內顯示：debug.
print 5*87）還有其它一些控制項：如msflexgrid、mshflexgrid等。
3、可以根據需要選擇輸出方式。
vb試題程式設計計算,vb試題程式設計計算
1 dim i as integer dim s as double dim s0 as double for i 1 to 100 s0 1 i if i mod 2 0 then s0 s0 1 s s s0 next print s 2 dim i as integer dim s as do...
vb求M到N的素數之和，VB求 整數n到m間的所有數之和 n m 救命！！
為 dim i as integer,m as integer,n as integer,sum as integer,p as integer m val text1.text n val text2.text sum 0 for p m to n for i 2 to p 1 if p mod ...
VB程式求和，VB程式設計計算求和
程式本身有2處錯誤 1.變數 s 不能申明為 integer，應為 single2.語句 s 將改變 s 的值，導致無法得到正確結果因此，不改變程式結構永遠得不到正確結果 完整序列為 1 1 1 2 2 3 3 5 5 8 8 13 13 21 21 34 34 55 55 89private su...