vb 累加问题_百度知道
vb 累加问题
..;29+;2+1&#47...S=1+1&#47..;22+1&#47.;11+1/7+1/4+1/16+1&#47
提问者采纳
rivate Sub Command1_Click()Dim s As Singles = 0D值为; & i: j = 1:& Format(1 /&0; &quot,1&#47.00001 Then Exit Fors = s + 1 / jNext iPrint &quot, & j &lt: k = 0For i = 0 To 100000j = j + iIf 1 / & j & & 0.##########&项时, k As Integeri = 0;;当第&quot, j
提问者评价
谢谢啦 会了 我刚入门
相关专业回答
1）求一个数列的累加和，如求 sum = 1 + 2 + 3 + ... + 100
Dim i As IntegerDim sum As Integer' 赋初值sum = 0 ' 循环，求数列的累积和For i = 1 To 100
sum = sum + iNext' 显示结果MsgBox &1 + 2 + 3 +...+ 100 = & + CStr(sum)2）求一个数组所有元素的累加和
Dim a(1 To 5) As IntegerDim sum As IntegerDim i As Integer' 给数组赋值a(1) = 1a(2)...
其他类似问题
为您推荐：
其他3条回答
If 1 / js &ltDim cs As Single
For i = 1 To 10000
js = js + i
s = 1 + 1 &#47
LZ:你那数列没有规律,无法设计算法.
这个比较麻烦手边没电脑用手机写下错了就当给你个思路private sub command1_click()dim i as longdim c as longdim b as doublefor i=1 to
10000都可以试试
c=c+1+i b=1/c if b & 0.00001 then
print &第& & i & &小于0.00001&
end if next iend sub如果你不是这个意思 请说清楚。
参考资料：
如果您的回答是从其他地方引用，请表明出处
您可能关注的推广
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁在线等VB求救：计算累加请不要嫌我说得啰嗦,这也是为了节约您的时间：设计一个VB6小程序,在文本框输入或粘贴一段数字,这些数字都是0-9的个位数,且它们之间被用回车键隔开,即每行仅有一个数字（允许数字间隔几行）.现在依次从最下面的数字向上累加,倒数第123个数字第一次求和,且大于等于10的仅算个位数（如789和为14,结果是4,235和是10,结果是0）,然后以此为基数,每一个数计算一次向上求和,同样的,大于10的仅算个位数.按按钮后生成.txt格式的文本弹出（请使用Shell "C:\WINDOWS\NOTEPAD.EXE " & App.Path & "\累加结果为.txt",1）,在txt输出结果要与原来输入的顺序颠倒,每个数字也用回车键隔开,每行仅含一个数字.要求自己验证通过!不要错误的还发!举例：47注意上面有个间隔96468718那么在txt中输出的结果（不要有空行）是：64040960（说明：817这三个数第一次求和,和为16取6,以6为基数,与上面的8求和,和为14取4,然后46和为10取0,04和为4取4,46和为10取0,09和为9取9,97和为16取6,6上面有个空行,跳过加上面的4,和为10取0,即是输出结果.）大哥们啊,快现身啊
韩晓柒3830
Private Sub Command1_Click()Dim Str1, S As Integer, Str2 As String, t As IntegerStr1 = Split(Text1, vbCrLf)For i = UBound(Str1) - 1 To 0 Step -1
If Str1(i)
"" Then S = S + 1
为您推荐：
其他类似问题
扫描下载二维码VB累加题_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
上传于||文档简介
&&V​B​累​加​题​练​习​操​作
阅读已结束，如果下载本文需要使用1下载券
想免费下载本文？
下载文档到电脑，查找使用更方便
还剩5页未读，继续阅读
你可能喜欢您的举报已经提交成功，我们将尽快处理，谢谢！
判断是否是素数.
prime 在数学中就是素数(质数)的意思.
大家还关注
<a href="/b/.html" target="_blank" title="利用坐标法计算多边形面积程序源代码 PrivateSubForm1_Load()Label1.Caption="欢迎进入坐标法计算多边形面积程序设计!"Label2.Caption="指导老师:李瑞霞"Label3.Caption="设计者:高大芳"Command1.Caption="进入"Command2.Caption="退出"EndSubPrivateSubCommand1_Click()UnloadForm1Form2.ShowEndSubPrivateSubCommand2_Click()UnloadForm1Form3.ShowEndSub二、面积计算界面Command3为选择文件,Command1为计算,Command2为退出Label2为请输入边数,Label3为输出面积面积计算界面程序原代码如下:PrivateSubForm2_Load()Command3.Caption="选择文件"Command1.Caption="计算"Command2.Caption="退出"Label2.Caption="输入边数"Label3.Caption="输出面积"EndSubPrivateSubCommand3_Click()CommonDialog1.InitDir="C:\windows"CommonDialog1.Filter="文本文件|*.Txt"CommonDialog1.Action=1CommonDialog1.CancelError=TrueLabel1.Caption=CommonDialog1.FileName'把文件中的数据存放于text3中DimstrFilenameAsStringstrFilename=CommonDialog1.FileNameOpenstrFilenameForInputAs#2DoWhileNotEOF(2)inputdata=Input(1,#2)Text3.Text=Text3.Text+inputdataLoopClose#2Exit "放弃操作"ElseLabel1.Caption="其他错误!"EndIfEndSubPrivateSubCommand1_Click()DimssAsIntegerDimxx(100)AsDoubleDimyy(100)AsDoubleDimmm(100)AsDoubless=1DimpAsStringDimc()AsStringp=Replace(Text3,Chr(13),",")c=Split(p,",")Fori=1ToUBound(c)mm(ss)=Val(c(i))ss=ss+1Nexti'-----把点的X坐标从mm()中取出来存于数组xx()中DimtAsIntegert=1Fori=1TossStep1xx(t)=mm(i)t=t+1Nexti'-----把点的Y坐标从mm()中取出来存于数组yy()中DimuAsIntegeru=1Fori=2TossStep1yy(u)=mm(i)u=u+1Nexti'-----计算面积n=Val(Text1.Text)q=0p=0xx(n+1)=xx(1)yy(n+1)=yy(1)Fori=1Tonq=(xx(i+1)+xx(i))*(yy(i+1)-yy(i))/2p=p+qNextiText2.Text=pIfp利用坐标法计算多边形面积程序源代码 Pr...
(window.slotbydup=window.slotbydup || []).push({
id: '2081942',
container: s,
size: '1000,60',
display: 'inlay-fix'}