1樓：匿名使用者
dim n as long,m as longdim i as long
n=val(text1.text)
m=0for i = 1 to n
m=m-(-1)^i*i
next i
text2.text = m
end sub
用vb程式設計計算1-2+3-4+5-6…±n的值，n由文字框輸入
2樓：
樓上的程式，個人認為有點小問題，修改如下：
private sub form_click()dim n as integer
dim sum as integer
sum = 0
n = val(inputbox("輸入一個整數："))sum = 0
for i = 1 to n '此處修改sum = sum + (-1) ^ (i + 1) * i '此處修改
next i
print sum
end sub
3樓：
^private sub form_click()dim n as integer
dim sum as integer
sum = 0
n = val(inputbox("輸入一個整數："))for i = 0 to n
sum = sum + (-1) ^ (i - 1) * inext i
print sum
end sub
4樓：
private sub form_click()dim i#
i# = inputbox("輸入n")
if i# <= 0 then
msgbox "輸入有誤！"
exit sub
end if
if ( i# and 1 ) = 0 thenmsgbox "結果
為-1"
else
msgbox "結果為1"
end if
end sub
vb程式設計計算1-2+3-4+5-6…+-n的值，n由使用者輸入
5樓：匿名使用者
dim n as long,m as longdim i as long
n=val(text1.text)
m=0for i = 1 to n
m=m-(-1)^i*i
next i
text2.text = m
end sub
6樓：環忠鏡綾
樓上的程式，個人認為有點小問題，修改如下：
private
subform_click()
dimn
asinteger
dimsum
asinteger
sum=0n
=val(inputbox("輸入一個整數："))sum=
0fori=
1ton'此處修改
sum=
sum+
(-1)^(i
+1)*i
'此處修改
next
iprint
sumendsub
用vb程式計算1！+2！+3！+4！+5!的值
7樓：聽不清啊
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!+…5!
8樓：匿名使用者
第一種（對比計算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
9樓：匿名使用者
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編寫程式 輸入年份和月份，程式能夠判斷其是否是閏年，那個季節，這個月多少天
將以下內容復到記事本中 然後 儲存為 form1.frm version 5.00 begin vb.form form1 caption form1 clientheight 4830 clientleft 60 clienttop 450 clientwidth 8325 linktopic f...
編寫程式，求10用c語言,編寫程式，求10用C語言
include 主函式 main s是字元指標抄 陣列。對應4個字串襲。迴圈中bai i 3 2 1 0 對於不同的i，j有不同取值du 3 第一zhi次判斷就不成立，直接退出dao。不做操作 2 j 3 1 j 3 2 0 j 3 2 1 輸出的是s i j 也就是 從s i 字串的第j個字元開始...
求助VB程式設計達人幫忙編寫程式嘛，求助VB程式設計達人幫忙編寫一個程式嘛
private function f x as singleif x 0 then f cos 2 x elseif x 3 then f int 6 x 2 5 x 1 else f e 3 x end if end sub 你寫的式子可能有些不準確，我猜著寫的，你看對不對.不懂可以問我 跪求程式...