试用VB程序语言写出主要程序段：求S=1+3+5+7+……+999的值。
答案:3 悬赏:0 手机版
解决时间 2021-02-09 11:13
- 提问者网友：温柔港
- 2021-02-09 03:16
试用VB程序语言写出主要程序段：求S=1+3+5+7+……+999的值。
最佳答案
- 五星知识达人网友：零点过十分
- 2021-02-09 04:05
Private Sub Command1_Click()
For i = 1 To 999 Step 2
s = s + i
Next i
Print "s=" & s
End Sub
For i = 1 To 999 Step 2
s = s + i
Next i
Print "s=" & s
End Sub
全部回答
- 1楼网友：佘樂
- 2021-02-09 05:23
Sub a()
Dim T
T = 1
For i = 3 To 1001
If i < 1001 Then
T = T + i
Else
Cells(1, 1) = T
End If
i = i + 1
Next i
End Sub
这个是在EXCEL里运行的结果，算出来是250000，你可以把里面的Cells（1,1）替换成你想输出的地方MsgbBox （“T”）
- 2楼网友：举杯邀酒敬孤独
- 2021-02-09 05:01
(1)
dim a as integer
a=val(text1.text)
b=1
for i=2 to a/2
if a mod i = 0 then
b=b+1
exit for
end if
next
if b=1 then
msgbox a & "是素数"
else
msgbox a & "不是素数"
end if
(2)
dim s as integer
dim c as integer
s=0
for i=1 to 99
c=1
for j=1 to i
c=c*j
next
s=s+a
next
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯