没有合适的资源?快使用搜索试试~ 我知道了~
计算机二级vb代码.pdf
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 43 浏览量
2021-10-11
17:06:36
上传
评论
收藏 161KB PDF 举报
温馨提示
试读
4页
计算机技术
资源推荐
资源详情
资源评论
求因子数之和
private function sum_factor(n as integer) as long
dim i as intege, s as integer, j as integer
do while i < n/2
i = i + 1
if n mod i=0 then
s=s+i
end if
loop
sum_factor=s
end function
判断数是否是素数
private function prime(n as integer) as boolean
dim m as integer
for m =2 to sqr(n)
if n mod m=0 then exit function
next m
prime=true
end function
求最大公约数
public function gcd(m as integer,n as integer)as
integer
if(m mod n)=0 then
gcd=n
else
gcd=gcd(n,m mod n)
end if
end function
求因子数
Private Sub factor(x As Integer, fn() As Integer)
Dim i As Integer, n As Integer
ReDim fn(1): n = 1: fn(1) = 1
For i = 2 To x / 2
If x Mod i = o Then
n = n + 1
ReDim Preserve fn(n)
fn(n) = i
End If
Next i
End Sub
求阶乘
private function fact(n as integer) as long
if n<=1 then
fact=1
else
fact=n*fact(n-1)
end if
end function
private function fact(n as integer)as long
dim i as integer
fact=1
for i=1 to n
fact=fact*1
next i
end function
判断一对数是否为互质数
private function mutual_prime(num1 as integer,num2
as integer) as boolean
dim k as integer,min as integer
if num1<num2 then min=num1 else min=num2
for k =2 to min/2
if num1 mod k=0 and num2 mod k=0 then
exit function
next k
mutual_prime=true
end function
求分数约数
资源评论
nidezlk
- 粉丝: 1
- 资源: 11万+
下载权益
C知道特权
VIP文章
课程特权
开通VIP
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功