前辈们 先谢了 急求 用VB程序语言写出完整程序段:求S=1+3+5+7+……+999的值

试用VB程序语言写出主要程序段：求S=1+3+5+7+……+999的值。~

Private Sub Command1_Click()
For i = 1 To 999 Step 2
s = s + i
Next i
Print "s=" & s
End Sub

dim s as integer
dim c as integer
s=0
for i=1 to 999 step 2
s=s+i
next
print s

值得注意的是你那些数之间都是奇数!
Private Sub Form_Click()
Dim a, b '定义变量名为变体型
b = 0'
For a = 1 To 999 Step 2
b = b + a
Next a
Print "1--999之间所有奇数和为:" & b
End Sub

dim i as integer,s as long
for i=1 to 999 step 2
s=s+i
next i
print s
把这段代码放在任意事件中，运行即可。

dim b%
private sub form_load()

b=(1+999)*(999-1)/4
msgbox b
end sub

Private Sub Command1_Click()
Sum = 0
For i = 1 To 999 Step 2
Sum = Sum + i
Next
MsgBox Sum
End Sub

s=0
for i=1 to 999 step 2
s=s+i
next i
print s

---

阆中市18515925786： 前辈们 先谢了 急求 用VB程序语言写出完整程序段:求S=1+3+5+7+……+999的值？
姚卖开乐： dim b% private sub form_load() b=(1+999)*(999-1)/4 msgbox b end sub

阆中市18515925786： 前辈们好,急求一个vb求方差的算法. - ？
姚卖开乐： Dim a() As DoublePrivate Sub Command1_Click()Doi = i + 1temp = InputBox(＂请输入数字,输入s结束输入＂)If temp <> ＂s＂ ThenReDim Preserve a(i) As...

阆中市18515925786： 帮我用VB编一个程序!谢谢大家 急!! - ？
姚卖开乐： Private Sub Command1_Click() M = Val(InputBox(＂请输入M=?＂)) N = Val(InputBox(＂请输入N=?＂)) k = M s = 1 While k >= M - N + 1 s = s * k k = k - 1 Wend Label1.Caption = ＂S=＂ & s End Sub

阆中市18515925786： 用VB程序编写,求奇数和或者偶数和. - ？
姚卖开乐： Private Sub Command1_Click() Dim x As Long, y As Long, sumX As Long, sumY As Long x = Val(InputBox(＂输入奇数范围＂)) y = Val(InputBox(＂输入偶数范围＂)) For i = 1 To x Step 2 sumX = sumX + i NextFor i = 2 To y Step 2 sumY = sumY + i NextPrint ＂奇数和为:＂ & sumX Print ＂偶数和为:＂ & sumY End Sub

阆中市18515925786： 急求!vb编程过程,求s=1+(1+2)+(1+2+3)+...+(1+2+3+...+n) - ？
姚卖开乐： Text1的值为NPrivate Sub Command1_Click()Dim s As DoubleDim n As Integern = Text1.Texts = (n * (n + 1) / 2 + n * (n + 1) * (2 * n + 1) &#...

阆中市18515925786： 急求!!!vb 编辑一个程序(第一步模拟键盘F1,第二步模拟键盘F2,无限重复一二步) - ？
姚卖开乐： 一楼的不行,它会导致死机 要这样 Private Sub Form_Load() Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() SendKeys ＂{f1}＂ SendKeys ＂{f2}＂ End Sub

阆中市18515925786： 怎样用vb制作一个程序,计算一个数据.有公式 - ？
姚卖开乐： Private Sub Command1_Click() Text3.Text = 90 - Text1.Text * 2 + Text2.Text * 2 End Sub 建立三个 text 三个label 一个command 设计成你要的效果 就行 text3 为角度 输出 text1为屏距输入 text2 为 风力输入

阆中市18515925786： 用vb编写程序,利用Function的函数计算下式的值:y=(1+2+3+……+m)+(1+2+3 - ？
姚卖开乐： '供参考.朋友 Private Sub Command1_Click() Dim m%, n%, p%, y!m = InputBox(＂输入m值＂) n = InputBox(＂输入n值＂) p = InputBox(＂输入p值＂) y = mysum(m) + mysum(n) / mysum(p) Print y End Sub Private Function mysum(x%) As Long Dim sum As Long For i = 1 To x sum = sum + i Next i mysum = sum End Function

阆中市18515925786： 怎么用VB编 求三角形面积 的程序?急!!!!!!!!？
姚卖开乐： 需要输入的条件呢? Dim a,h,s As Single a=InputBox(＂请输入底边＂) h=InputBox(＂请输入底边上的高＂) s=a*h Print ＂底边为＂;a;＂,底边上的高为＂;h;＂的三角形,面积为＂;s

阆中市18515925786： 用VB求二元一次方程的解 - ？
姚卖开乐： 界面布局 Private Sub Command1_Click() Dim a As Single, b As Single, c As Single Dim d As Single, x1 As Single, x2 As Single a = Text1 b = Text2 c = Text3 d = b * b - 4 * a * c If d >= 0 Then x1 = (-b + Sqr(d)) / (2 * a) x2 = (-b - Sqr(d)) / (2 * a) ...