VB编程：1到100的数相加

[djadamyu]

1+2+3+4+。。。。＋100=？

[onetiger1243]

你是新手还是什么呢？？新人建议你先看一本VB入门书，这样的问题发贴没意思吧

for i=1 to 100
a=a+i
next
print a

[djadamyu]

噢，谢谢阿

[guilong2008]

Option Explicit
Dim a As Integer
Dim b As Integer

Private Sub Command1_Click()
a = 0
For b = 1 To 100
a = a + b
Next
Print b
End Sub

[lqq7072000]

快速算法：
sum = (1 + 100) * 100 \ 2

[xieweichao]

真的是简单的问题啊

[ben2008china]

我是新手
也只能说太简单了

[lolita_713]

是累加 1+2+3+4...+100
还是 (1+1)+(1+2)+(1+3)...(1+100)

累加如
<%
response.write "1"

for j=1 to 99
m=m+j
response.write "+"&j+1
next
m=m+100

response.write "="&m
%>
改了一下silvanesw,为了输出好看一点,美观一下,代码多了一些

###########################################
另外的
<%
s=0
for i=1 to 100

response.write "1+"&i&"="&i+1&"<br>"
n=n+1+i
next
response.write "总数:"&n

%>

[cbm6666]

呵呵, 这个问题我回答过 N 遍, 就是 4F 的"代码".

简单的说就是小学算术的 求梯型面积 的公式

(上底+下底)*高/2
也就是
(上底+下底)*(下底-上底+1)/2

今天玩一下新鲜点的计算器

'添加 Command1 Command2 别告诉我你没 "安装" 计算器

Dim ReturnValue&, i&
'启动计算器模拟按下1连加到100 最后按下 =
Private Sub Command1_Click()
ReturnValue = Shell("Calc.EXE", 1)
AppActivate ReturnValue
For i = 1 To 100
If i = 100 Then
SendKeys i & "=", True
Else
SendKeys i & "{+}", True
End If
Next i
End Sub

'模拟按下Alt + F4 关闭小算盘
Private Sub Command2_Click()
If ReturnValue > 0 Then
AppActivate ReturnValue
SendKeys "%{F4}", True
ReturnValue = -1
End If
End Sub

[UltraBejing]

什么呀