vb循环语句计算奇偶数累加和的方法

首先启动vb6，从新建工程对话框中选择标准exe文件，进入窗体对话框。

选择form1，设置borderstyle为4-fixed，设置startupposition为屏幕中心，并调整窗体的大小。

在属性窗口中找到并点击font ，设置字体为仿宋，字号为初号。

双击窗体进入代码编辑区域，过程设置为click，接着输入代码内容，代码如下： Dim sum As Single Dim i As Integer For i = 1 To 100 Step 2 sum = sum + i Next i

返回到窗体，点击工具栏中的启动按钮，接着点击窗体就可以出现结果了。

如果要求偶数和，只需要修改变量i的初值为2，接着启动查看结果即可。

在实际中要根据自己的实际情况修改初值和终值，求n以内的奇偶数和就可以了。