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
VB 编写函数fun,函数的功能是：求1-1000内能同时被m,n整除的数的总和并显示.
VB 编写函数fun,函数的功能是：求1-1000内能同时被m,n整除的数的总和并显示.
其他人气：154 ℃时间：2019-10-26 02:48:37
优质解答
我来回答
类似推荐
猜你喜欢
- 11.一个仓库内部是一个长方体,长12米,宽10米,高3米；仓库的门宽1米,
- 2定义在对称区间（-l,l）上的任意函数可表示为一个奇函数与一个偶函数的和,证明这种表示方法是唯一的
- 3用一、二、三、四、五、六、七、八、九、十、百、千、万分别造两个成语
- 4英语作文《介绍一位名人》
- 5将PH相同的盐酸和醋酸溶液分别稀释到原体积的m倍和n倍
- 6五颜六色是成语还是四字词语?
- 7由四舍五入得到近似数2.10,它表达的精确数范围是多少?
- 8The boy didn't want to give the seat to the old man ,so he pretended____.
- 9若a+x²=2004,b+x²=2005,c+x²=2006,且abc=24,求a/bc +b/ca +c/ab -1/a -1/b -1/c的值.最好要有过程
- 10一种图书,书店里打九五折出售,图书节上打八五折优惠.李立在图书节上买了一本便宜了4元,这本书原价多少