查看: 47  |  回复: 0
  VB6 做道数学题和验证,1+4+7+10+13+…前 20 项的值
楼主
发表于 2024年10月18日 15:04

新建From1(窗体),新建Command1(按钮CommandButton),代码:

Private Sub Command1_Click()
    Dim sum As Long
    sum = 0
    Dim i As Integer
    For i = 1 To 30
        sum = sum + (3 * (i - 1) + 1)
        Debug.Print "项=" & i & " 数=" & (3 * (i - 1) + 1) & " 和=" & sum
    Next i
    Debug.Print "1+4+7+10+13+…前 30 项的值为:" & sum
End Sub

运行结果:

项=1 数=1 和=1
项=2 数=4 和=5
项=3 数=7 和=12
项=4 数=10 和=22
项=5 数=13 和=35
项=6 数=16 和=51
项=7 数=19 和=70
项=8 数=22 和=92
项=9 数=25 和=117
项=10 数=28 和=145
项=11 数=31 和=176
项=12 数=34 和=210
项=13 数=37 和=247
项=14 数=40 和=287
项=15 数=43 和=330
项=16 数=46 和=376
项=17 数=49 和=425
项=18 数=52 和=477
项=19 数=55 和=532
项=20 数=58 和=590
项=21 数=61 和=651
项=22 数=64 和=715
项=23 数=67 和=782
项=24 数=70 和=852
项=25 数=73 和=925
项=26 数=76 和=1001
项=27 数=79 和=1080
项=28 数=82 和=1162
项=29 数=85 和=1247
项=30 数=88 和=1335


您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2024 MaNongKu.com