vb编程分别编写5个函数与过程:求和,求阶乘,求绝对值,求质数判断,求3个数的最大数
来源:互联网 发布:电子文件加密软件 编辑:程序博客网 时间:2024/05/16 12:34
求和函数
function sum(x as integer,y as integer)as integer
sum=x+y
end function
求阶乘函数
Function jc(n as integer)
if n=1 then
jc=1
Else
jc=jc(N-1)*n
end if
End Function
求绝对值
function jdz(x as integer)
jdz=abs(x)
end function
判断质数
sub zs()
Dim a As Integer
Dim b As Integer
Dim number As String
number = InputBox("输入数字")
a = number
Dim Flag As Boolean
Flag = True
For b = 2 To Sqr(a) '不用判断到a-1,只要到 Sqr(A)就OK了
If a Mod b = 0 Then
Flag = False
Exit For
End If
Next
If Flag = True Then
Print "是质数"
Else
Print "不是质数"
End If end sub
function sum(x as integer,y as integer)as integer
sum=x+y
end function
求阶乘函数
Function jc(n as integer)
if n=1 then
jc=1
Else
jc=jc(N-1)*n
end if
End Function
求绝对值
function jdz(x as integer)
jdz=abs(x)
end function
判断质数
sub zs()
Dim a As Integer
Dim b As Integer
Dim number As String
number = InputBox("输入数字")
a = number
Dim Flag As Boolean
Flag = True
For b = 2 To Sqr(a) '不用判断到a-1,只要到 Sqr(A)就OK了
If a Mod b = 0 Then
Flag = False
Exit For
End If
Next
If Flag = True Then
Print "是质数"
Else
Print "不是质数"
End If end sub
0 0
- vb编程分别编写5个函数与过程:求和,求阶乘,求绝对值,求质数判断,求3个数的最大数
- 求阶乘数包含0的个数
- 求与N互质数的个数
- 【质数算法】——判断质数、求小于N的质数、求前N个质数
- 求浮点数的绝对值
- 求绝对值最小的数
- 求绝对值最小的数
- 求绝对值最小的数
- 求绝对值最小的数
- 求两个数的绝对值
- 求一个数的绝对值
- 求一个数的绝对值
- 求一个数的绝对值
- 求一个数的绝对值
- //利用重载编写求整数绝对值和求实数绝对值的两个函数
- 求阶乘的函数
- 求最大5个数
- 递归函数求一个数的阶乘
- 毕业10年感悟
- grep 命令
- 利用js制作html table分页示例(js实现分页)
- Unity3d NGUI的使用(十一)(UITable制作下拉文字显示)
- 三大WEB服务器对比分析(apache ,lighttpd,nginx)
- vb编程分别编写5个函数与过程:求和,求阶乘,求绝对值,求质数判断,求3个数的最大数
- 关于程序间通信的两点应用
- 分析Linux磁盘管理与文件系统专题
- php 实例说明 socket通信机制
- 备忘:UIButton 的图片和标题 向左对齐
- ofbiz功能介绍
- Unity3d NGUI的使用(十二)(UIGrid动态列表显示)
- UVA-12083-Guardian of Decency
- markdown在ubuntu上的使用