VB语句判断是否为直角三角形

if在这儿不能表达是否的意思,宾语从句中才可以,否则是如果的意思.这样句子意思就很奇怪了.再问：那要怎么改那再答：if前面加tocheck再问：可以把if改成whether吗再答：同样是只在宾语从句中

PrivateSubCommand1_Click()DimnAsLong,xAsLongn=InputBox("请输入一个整数：")x=Sqr(n)Ifx*xnThenMsgBox(n&"不是一个完全

质数又称素数.指在一个大于1的自然数中,除了1和此整数自身外,没法被其他自然数整除的数.换句话说,只有两个正因数（1和自己）的自然数即为素数.比1大但不是素数的数称为合数.1和0既非素数也非合数.素数

Fori=2Tox-1IfxModi=0ThenExitForNextiIfi=xThenPrintx;

斜边比直角边长,所以规定a是斜边了当然可以,并不是规定c就一定是斜边

privatefunctionFun_RandNum(RandNumasinteger)asboolean'True为是素数,False为不是素数.dimk,iasintegeri=int(sqrt(

第一个是对的,不要被常温常压给唬到,温度和气压跟固体的物质的量无关,而且碳酸钠是离子化合物,就算是固态,里面仍然是离子存在,然后根据公式就能算出这两个数是对的.第二个是错的,虽然元素和质量守恒,但是不

Ify*y=xThen是否y的平方等于x是用这个语句来判断一个数是否为平方数可以如下表达,其中x为待检测数ifsqr(x)mod1=0thenprint"X为平方数"再问：����֪�������дһ

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

PrivateSubCommand1_Click()n=Text1.TextFori=2ToInt(Sqr(n))IfnModi=0Thenmsgbox"不是"ExitSubEndIfNextimsg

dimnumnum=122.02ifnumint(num)thenmsgbox("非整数")

定义三个listboxOptionExplicitPrivateSubForm_Click()DimiAsLong,jAsLongList1.AddItem("奇数")List2.AddItem("偶

1.正确空气（15℃）340m/s空气（25℃）346m/s2.正确真空0m/s（也就是不能传播）3.正确同1

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

经常遇到类似的题目,可以参考此程序!　　VB2008调试通过!PublicClassForm1Dimprime(100)AsIntegerDimCurrentIndexAsIntegerPrivate

不知道是不是这个意思DimtdAsDatetd="2010-08-1214:30:00"IfMinute(td)Mod10=0ThenMsgBox"整数分钟"&Minute(td)EndIf

表述一种事实,能用“是”或者“否”回答的语句.一般是陈述句.(祈使与疑问句大多不是)

你的描述太乱了,看不懂,还是看我的吧定额.Text=Val(定额单价.Text)*Iif(Val(定额数.Text)超额.Text=Val(超额单价.Text)*Iif(Val(实际完成数.Text)

quickbasic好像不行.32位正整数最大不过10位,如果你不做两个整数变量串联就无法计算更大的数..NET的ULong类型能够计算最大20位,18,446,744,073,709,551,615

PrivateSubCommand1_Click()n=Val(InputBox("请输入一个数字"))Ifn=Int(n)AndSgn(n)=1ThenPrintn;"为正整数"ElsePrintn