编写vb程序计算S=1+22+333+4444+...+666666的值
答案:3 悬赏:50
解决时间 2021-02-11 00:08
- 提问者网友：堕落的邪教徒
- 2021-02-10 03:22
编写vb程序计算S=1+22+333+4444+...+666666的值
最佳答案
- 二级知识专家网友：恕我颓废
- 2021-02-10 03:56
Private Sub Command1_Click()
Dim n As Integer
Dim s As Long, a As Long
Dim i As Integer
n = 3
For i = 1 To n
a = CLng(String(i, CStr(i)))
s = s + a
Next
End Sub
Dim n As Integer
Dim s As Long, a As Long
Dim i As Integer
n = 3
For i = 1 To n
a = CLng(String(i, CStr(i)))
s = s + a
Next
End Sub
全部回答
- 1楼网友：堕落奶泡
- 2021-02-10 05:31
private sub form_click()
dim i as integer, s as string
for i = 1 to 6
s = string(i, cstr(i))
sum = sum + val(s)
next
print sum
end sub
- 2楼网友：滚刀废物浮浪人
- 2021-02-10 05:23
dim i as integer,j as integer
dim s as string
dim k as long
for i=1 to 6
s=""
for j=1 to i
s=s & trim(str(i))
next
k=k+int(s)
next
print k
不满意你说,我可以改的
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯