1樓：
樓上的程式，個人認為有點小問題，修改如下：
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
2樓：
^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
3樓：
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求s=1+2+3+4+5+6+……+n的值
4樓：匿名使用者
form_click()
dim i as integer,s as integer,n as integer
n=val(inputbox("n="))for i=1 to n
s=s+i
next
print "s=";s
end sub
vb程式設計計算1-2+3-4+5-6……到正負n（不會打那個符號）
5樓：匿名使用者
private sub ***mand1_click()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樓：匿名使用者
dim n as intger
n = val(text1.text)
dim s as integer
for i = 1 to n
s=s + (-1)(i-1)*i
next
text2.text=s
7樓：匿名使用者
private sub ***mand1_click()dim a&, c&
for a = 1 to n
if a mod 2 = 0 then d = -ac = c + d
next a
print c
end sub
n 值您在適當的位置給其賦值。
8樓：vb綠手
嗯……o(1)演算法
msgbox iif(n mod 2=0,-n/2,-(n-2)/2+n)
程式設計計算1-2+3-4+5-6+…+n的值
9樓：負攝零度
dim i,return
for i = 1 to n
if i mod 2 = 0
return = return - i
else
return = return + i
end if
next
return就是你想要的值了.
10樓：匿名使用者
dim sum as integer
for i=1 to 100
sum=sum+i
next
print sum
用vb程式設計計算：1！+2！+3！+4！+…+n!
11樓：匿名使用者
新建一個工程，新增個命令按鈕和一個文字框
**如下：
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
vb程式設計 計算1!+2!+…5!
12樓：匿名使用者
第一種（對比計算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
13樓：匿名使用者
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
用C語音程式設計計算1 2 3 4 5 6 n的值，n由文字框輸入，要求時間複雜度為O（1）
sum 0 n 1 n 0x01 n 0 main include void main vb程式設計計算1 2 3 4 5 6 n的值，n由使用者輸入 dim n as long,m as longdim i as long n val text1.text m 0for i 1 to n m m ...
設計函式，計算s 1 2 3 4 5 6N的值，要求時間複雜度為O 1 ，越簡潔獨特越好
的有點問題，中間應該是加 sum 0 n 1 n 0x01 n 0 的是最標準的答案了，一看就知道c的功底相當厲害。只可惜樓主沒采納。遺憾。可以用公式的 觀察到1 2 1 3 4 1 5 6 1 如果n是奇數的話 答案是 n 1 2 n 如果n是偶數的話答案是 n 2 include include...
怎樣用VB計算圓的面積和周長，設計VB計算圓的面積與周長
就兩個公式嘛 圓的周長 2 半徑 圓周率 直徑 圓周率 即 圓的周長 2 r 或 d 面積 s r 或s d 2 程式，自己弄一個textbox 1用來輸入圓的半徑textbox2用來顯示計算結果周長 textbox3用來顯示計算結果面積 新增兩個button1命名為計算圓的周長和麵積。定義常量 定...