一、求做vb程序设计编写函数fun功能是求1到100以内能被m或n整除的数的总和并显示，总和变量sum

function s(byval a as integer, byval b as integer) as integer

dim i as integer

for i = 1 to 1000

if i mod a = 0 and i mod b = 0 then

s = s + i

end if

next

end function

二、逆圆a(6,0)b(0,6)数字积分圆弧插补表格

数字积分法(DDA)插补直线参考程序 Sub 插补X() 标志X = 0 If 余数X >= Q Then 余数X = 余数X Mod Q x动点 = x动点 + 1: 标志X = 1 End If End Sub Sub 插补Y() 标志Y = 0 If 余数Y >= Q Then 余数Y = 余数Y Mod Q y动点 = y动点 + 1: 标志Y = 1 。

三、用VB怎样编写一个素数的函数

private sub form_click()

dim n%,flag%,i%,k%

n=inputbox(“请输入一个正整数(>=3))

k=int(sqr(n))

flag=0

for i =2 to k

if nmod i =0 then flag =1

next i

if flag =0 then

print n; 是一个素数

else

pring n 不是素数

end if

end sub

四、VB关于Byval

f(100,8) --f(12,8) ----f(1,8) ------f(0,8) //这一句没有什么实际动作被执行，所以f的返回值没有 意义 ----out 1 --out 4 out 4 main out <无意义> 最终结果相当于： print(1) print(4) print(4) print(某个无意义的f的返回值（不知道vb是不是这样定义的，在delphi下这种情况就是无意义的）） 注：你这里是VB，虽然函数参数加了byval，，但VB在递归调用的过程中还是会重新给函数分配空间，这样一来byval肯定没用啦。 因为你的输出语句在递归调用的下面，这样一来当程序在输出f(12,8)的返回结果之前就会先调用f(1,8)。另外，这个f函数的返回结果要么是零，要么就是一个无意义的数。因为递归到最后你没有给f赋值。