问题：建立一个工程文件，请在窗体上绘制一个名为Text1的文本框；绘制一个名为Cmd1，标题为“计算”的命令按钮；再绘制两个单选按钮，名称为Optl和Opt2，“求500到600之间能被3整除的数之和”标题分别为“求300到500之间能被3整除的数之和”、“求500到700之间能被7整除的数之和”，选择相应的单选按钮，单击按钮，即可在文本框中显示相应结果，将求任意正整数间被n整除之和做成一个函数或子过程。
函数：如下
:a放最小值初值b放最大值初值，C放被N整除
private function aa(a as integer,b as integer,c as integer)
on error resume next
dim s as integer
dim i as integer
for i=a to b
if i mod c=0 then s=s+i
next
aa=s
end function
调用方法：
a=aa(500,600,3)
再msgbox("500到600之间能被3整除的数之和:" & a)
如果你对建立一个工程文件，请在窗体上绘制一个名为Text1的文本框；绘制一个名为Cmd1，标题为“计算”的命令按钮；再绘制两个单选按钮，名称为Optl和Opt2，“求500到600之间能被3整除的数之和”标题分别为“求300到500之间能被3整除的数之和”、“求500到700之间能被7整除的数之和”，选择相应的单选按钮，单击按钮，即可在文本框中显示相应结果，将求任意正整数间被n整除之和做成一个函数或子过程。这个问题有好的意见或
建议，请留言
|
您当前的位置：
百科371 → 电脑/网络 → VB → 电脑/网络内容
退出登录 
减小字体
增大字体