vb编程,求s=a! b! c!,其中
来源:学生作业帮助网 编辑:作业帮 时间:2024/08/20 01:49:14
a=Sqr(3):b=Sqr(2):c=a>b:Printc相当于a=Sqr(3)'a=根号3b=Sqr(2)'b=根号2c=a>b'c是一个boolean变量c=a>b=(根号3>根号2)=true
a=Val(inputbox("输入a"))b=Val(inputbox("输入b"))c=Val(inputbox("输入c"))Ifa+b>cAndb+c>aAndc+a>bThen'能构成Ifa
这个是海伦公式吧,用三角形的三条边直接求出三角形的面积的公式,可以参考海伦公式的百科:
孩子,作业要自己做.可以写两层循环或者把aaaa写成一个函数,然后在加法程序里调用这个函数
for循环修改下fori=1to2n-1step2a=a+inexti
PublicFunctions(n)Dimi,j,t,resFori=1Tont=1Forj=1Toit=t*jNextres=res+tNexts=resEndFunction
SubCommand1_Click()DimDeltaAsSingleDimaAsSingle,bAsSingle,cAsSingleDimx1AsSingle,x2AsSinglea=Val(Tex
你好!PrivateSubForm_Click()DimiAsIntegerDimsAsIntegerFori=1To100s=s+iNextiPrintsEndSu
#include#includevoidmain(){floata,b,c;\x09ints,area;printf("请输入三角形三边的值:\n");scanf("%f%f%f",&a,&b,&c)
#include<iostream>using namespace std;void main (){int a=10,b=20,c=3
#includeintJiecheng(intn)//计算n的介乘{ints=1;for(inti=1;i>c;intsum=0;sum=Jiecheng(a)+Jiecheng(b)+Jiechen
……t=1s=0Fori=1To10t=t*is=s+tNexti再问:这个要用什么下拉列表呢?再答:Textbox代码是在Botton中完成!
PrivateSubCommand1_Click()Dimi,j,k,l,iABCD,iCDC,iABCAsIntegerDimsi,sj,sk,sl,sItemAsStringFori=0To9Fo
.这点小问题先定义一下整数变量a,b,cDimaasintegerDimbasintegerDimcasintegerDimstrasStringString=""Fora=0To9Forb=0To9
首先“落叶|无情”的代码很好,但是我想题目中所说“用Sub过程和Function过程两种方法来实现”的意思,应该是用这两个独立实现求阶乘和,而不是在Sub中还要调用Function.当然,在Sub过程
这个不用穷举,自己也可以算出下图的结果.可以验证程序运行结果是否正确.'在窗体上添加一个名为Command1按钮.'具体代码如下. '甲预测:
用Sub过程实现:PrivateSubCommand1_Click()DimtAsLongs=0fac01,ts=s+tfac02,ts=s+tfac03,ts=s+tPrint"s=1!+2!+3!
有错:1)delta=b*b-4*a*c2)要判断a是否为0
PrivateSubCommand2_Click()Dima,b,ca=Text1.Textb=Text2.Textc=Text3.TextIfa-bcAnda+caThenMsgBox"该组数可构成