当前位置:首页 » 程序代码 » 正文

VB编程:计算100-300之间所有能被3和7整除的数据之和 (图)

用VB编程求100到300之间所有能被3和7整除的数之和,把结果结果输出到窗体。

解,画一个按钮控件,VB代码如下:

Private Sub Command1_Click()
    Dim sum As Integer
    sum = 0 '设初值
    Dim i As Integer
    For i = 100 To 300
        If 0 = i Mod 3 And 0 = i Mod 7 Then sum = sum + i ' 能被3整除并且被7整除,则累加
    Next i
    Print "100-300之间所有能被3和7整除的数据之和 = "; (sum) '循环结果就输出结果
End Sub

 

运行程序,效果图如下:

 

来源:济亨网

本文链接:http://wb98.com/post/132.html

    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号