VB编一个函数过程,判断已知数m是否为"完数"

第一题答案：OptionExplicitPrivateSubCommand1_Click()DimnAsIntegern=Val(InputBox("请输入一个数"))Ifisprime(n)Then

假设文本框为TEXT1,标签为LABEL1,函数代码如下：publicsubtestnum()dimxaslongx=cint(text1.text)ifxmod2=1thenlabel1.capti

PrivateFunctionisPrim(n%)AsBoolean'素数判断子过程Dimd%Ifn=2ThenisPrim=True:ExitFunctionFord=2ToSqr(n)IfnMod

把变量的取值范围贴出来.再问：求公式p=v*Z*F(s,x,y)/I。其他的一样求，其中F(s,x,y)=π/M，M=ln[2ch(πs/2y)]+ln{[shπ(x/y-s/2y)*shπ(x/y+

DimmAsIntegerDimnAsIntegerDimrAsIntegerDimaAsInteger,bAsIntegerm=InputBox("请输入其中的一个正整数")n=InputBox("

返回值的作用就是可以用来判断,做条件用,但是过程去不可以,过程说白了就是简化代码.争强程序的可读性而已.

PrivateFunctionjo(ByValnAsInteger)n=InputBox("请输入一个数字")IfnMod20ThenMsgBoxn&"是奇数"ElseMsgBoxn&"是偶数"End

FunctionV圆柱(半径AsSingle,高AsSingle)AsSingleV圆柱=3.1415927*半径^2*高EndFunction

publicf(byvalnasinteger)aslongifn=1thenf=1elsef=f(n-1)+nendifendfunction

InStr([start,]string1,string2[,compare]),下标从1开始返回指定一字符串在另一字符串中最先出现的位置.在字符串string1中,从start开始找string2,

DimnAsIntegerPrivateSubForm_Click()Ifn/2=0ThenPrint"n是偶数"ElsePrint"n是奇数"EndIfEndSubPrivateSubForm_Lo

'判断一个数m是否是完数,是则返回True,否则返回FalseFunctionTestWanShu(ByValmasLong)AsBooleanDimSumAsLongDimiAsLongIfm

DimxAsInteger,iAsIntegerx=InputBox("请输入你要判断的数字")Ifx

函数定义域对称,f(-x)=-f(x),f(x)为奇函数函数定义域对称,f(-x)=f(x),f(x)为偶函数

在此创建一个文本框,按钮,标签都是原先默认名不要改PrivateFunctiona(cAsInteger)Ifc>=0AndcMod2=0ThenLabel1.Caption=Text1.Text&"

DimmAsIntegerPrivateSubCommand1_Click()a=InputBox("请输入数字")Fori=1ToVal(a)IfaModi=0Thenm=m+1NextIfm=2T

x除10

算法就是把这个数因式分解,然后加一加看看是不是完数.你用什么语言编程你不说明白,人家怎么知道用什么写.这是Javascript下的,反正语言都是相通的,自己翻译成你要的语言就行,我写了注释wanshu

这个比较麻烦,我曾经写过这么个程序片段,现在贴上来,代码比较复杂Shape1是时钟的一个框,是Shape控件,设置Height1455Width1575LineHour,LineMinute,Line

你的Language程序只生成一个输出,而你需要两个输出[f,f0]=Language(x,y,1.6)所以它说输出参数太多：6