请选择 进入手机版 | 继续访问电脑版
精彩课程推荐

[技术分享] VB程序题:计算 S=1 + 1/2 + 1/4 + 1/7 + 1/11 + 1/16 + 1/22 + 1/29 + …...

[复制链接]
查看: 10.6K|回复: 31
发表于 2020-3-5 17:40:57 | 显示全部楼层 |阅读模式

马上注册,学习更多技术,享用更多经验,获取更多辅助工具。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
        VB程序题:计算 S=1 + 1/2 + 1/4 + 1/7 + 1/11 + 1/16 + 1/22 + 1/29 + …… 当第i项的值<10-4 时结束
        提示:
找出规律,第i项的分母是前一项分母加i开始计数。可利用For循环结构的循环控件变量获得项数,当某项达到规定的精度时退出循环。
        解题,代码用三种循环方式来求解题目的式子和,在界面上按三个按钮,代码如下:

Private Sub Command1_Click()
    Dim i As Long
    Dim a As Double
    Dim s As Double
    Dim stp As Integer
    stp = 1
    i = 1
    Do While True
        If 1 / i < 10 ^ -4 Then Exit Do
        a = 1 / i
        s = s + a
        i = i + stp
        stp = stp + 1
    Loop
    Cls
    Print s
End Sub
        Private Sub Command2_Click()
    Dim i As Long
    Dim a As Double
    Dim s As Double
    Dim stp As Integer
    stp = 1
    i = 1
    Do
        a = 1 / i
        s = s + a
        i = i + stp
        stp = stp + 1
    Loop Until 1 / i < 10 ^ -4
    Cls
    Print s
End Sub
        Private Sub Command3_Click()
    Dim i As Long
    Dim j As Long
    Dim a As Double
    Dim s As Double
    Dim stp As Integer
    stp = 1
    i = 1
    '10^(-4)=1/10000
    For j = 1 To 10000
        If 1 / i < 10 ^ -4 Then Exit For
        a = 1 / i
        s = s + a
        i = i + stp
        stp = stp + 1
    Next j
    Cls
    Print s
End Sub
        
运行程序,点击其中一个按钮,运行程序效果图如下:
         20170515170325832583.PNG
  • TA的每日心情
    无聊
    2020-11-25 22:12
  • 签到天数: 20 天

    [LV.4]偶尔看看III

    2379

    帖子

    5047

    MX币

    2

    交易币

    Rank: 8Rank: 8

    慕学课程seo推广软件,软件会员免费得活动
    回复

    使用道具 举报

    发表于 2020-3-14 22:25:41 | 显示全部楼层
    楼主好人呐!

    该用户从未签到

    20

    帖子

    30

    MX币

    0

    交易币

    Rank: 2

    回复 支持 反对

    使用道具 举报

    发表于 2020-3-15 17:07:50 | 显示全部楼层
    感谢分享

    该用户从未签到

    20

    帖子

    30

    MX币

    0

    交易币

    Rank: 2

    回复 支持 反对

    使用道具 举报

    发表于 2020-3-15 22:43:42 | 显示全部楼层
    谢谢楼主分享技术

    点评

    你好  详情 回复 发表于 2020-3-15 23:33

    该用户从未签到

    41

    帖子

    51

    MX币

    0

    交易币

    Rank: 2

    回复 支持 反对

    使用道具 举报

    发表于 2020-3-15 23:33:25 | 显示全部楼层
    123459406 发表于 2020-3-15 22:43
    谢谢楼主分享技术

    你好        
  • TA的每日心情
    开心
    2020-9-7 14:28
  • 签到天数: 3 天

    [LV.2]偶尔看看I

    20

    帖子

    61

    MX币

    0

    交易币

    Rank: 8Rank: 8

    慕学课程seo推广软件,软件会员免费得活动
    回复 支持 反对

    使用道具 举报

    发表于 2020-3-16 15:24:12 | 显示全部楼层
    这个工具我找了很久

    该用户从未签到

    60

    帖子

    70

    MX币

    0

    交易币

    Rank: 2

    回复 支持 反对

    使用道具 举报

    发表于 2020-3-17 02:34:39 | 显示全部楼层
    谢谢楼主分享经验

    该用户从未签到

    20

    帖子

    30

    MX币

    0

    交易币

    Rank: 2

    回复 支持 反对

    使用道具 举报

    发表于 2020-12-21 18:22:17 | 显示全部楼层
    好东西我先下载了

    该用户从未签到

    20

    帖子

    30

    MX币

    0

    交易币

    Rank: 2

    回复 支持 反对

    使用道具 举报

    发表于 2020-12-22 01:24:34 | 显示全部楼层
    谢谢楼主分享

    该用户从未签到

    40

    帖子

    50

    MX币

    0

    交易币

    Rank: 2

    慕学课程seo推广软件,软件会员免费得活动
    回复 支持 反对

    使用道具 举报

    发表于 2020-12-22 15:27:18 | 显示全部楼层
    谢谢楼主分享经验

    该用户从未签到

    21

    帖子

    31

    MX币

    0

    交易币

    Rank: 2

    回复 支持 反对

    使用道具 举报

    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

    商务合作

    微信/手机:18809836355
    点击这里给我发消息

    关注微信小程序

    关注微信公众号

    Copyright;  ©2019-2020  慕学课程  Powered by MUXUE kecheng  技术支持 虎峰工作室    ( 辽ICP备2020011513号-1 )