VB用If语句编写程序,输入整数x的值,按公式计算并输出y值

这个图形对吧?********你确定不是for/while/do-whileloop?if不是循环语句吧用forloop做的：publicclassNestedLoop{\x09publicstati

privatesubcommand1_click()dimmaxfori=1to3n=val(inputbox("输入第"&i&"个数"))ifn>maxthenmax=nendifnextprint

ifx<ythent=xx=yy=xelseify<zthent=yy=zz=yendifendif,

#include#defineNUM6//n=6则写6,n=15则写15voidmain(){inti,j,k;for(i=0;i0;j--)//控制空格{printf("");}for(k=0;k

PrivateSubCommand1_Click()Dima,xAsSinglea=Val(Text1.Text)Ifa再问：x=x+a*0.2+3000*0.2怎么都乘0.2呀？

//if语句#inlcude#includedefinea10//a自己取值voidmain(){floatx,y;scanf("%f",&x);if(x>=0.5&&x=1.5&&xy=exp(a*

'最大公约数FunctiongetGcd(num1AsLong,num2AsLong)AsLongDimiAsLongFori=IIf(num1Ifnum1Modi=0Andnum2Modi=0The

a=InputBox("请输入a")b=InputBox("请输入b")c=InputBox("请输入c")Ifat=aa=bb=tEndIfIfat=aa=cc=tEndIfIfbt=bb=cc=t

#includevoidmain(){intx;inty;printf("请输入X的值,-5再问：请问用嵌套语句怎么写,谢谢谢谢再答：可以不用嵌套就写出来干嘛那么麻烦再问：呵呵,一个考试题目,想搞明白

#includevoidmain(){intx,k;scanf("%d",&x);if(x-5)k=-1;elseif(x=0)k=0;elseif(x>0&&x

PrivateSubCommand1_Click()a=Abs(InputBox("请输入第一个整数","输入数据"))b=Abs(InputBox("请输入第二个整数","输入数据"))c=Abs(

PrivateSubCommand1_Click()DimbjAsSingleDimzzAsSingleDimmjAsSinglebj=CSng(Text1.Text)Ifbj

1.你用自己的方法将这N个数字分别用数组a(1)-a(n)表示2.求最大fori=1ton-1ifa(i)>a(i+1)thenmax=a(i)elsemax=a(i+1)endifnexti3.求最

PrivateSubbtnstart_Click()'按要求写了If-Then语句,不过个人认为Select-Case比较适合这个.IfMe.txbplanet.Text="Jupiter"Then'

ConstPI=3.14159DimrAsDoubleDimCAsDoubleDimSAsDoubleIfIsNumeric(Text1.Text)Thenr=Val(Text1.Text)C=2*P

将六个圆命名为“Oval1”直到“Oval6”在窗体上放6个timer控件.写入如下代码：Private Sub Form_load()'必要的初始化操作Timer1.in

拜托,这么多输入你就用列表啦,用那么多textbox,你不累我看得都累.还有,你要求的是什么尽量用数学的方式表达出来,有图更好至于你的a5d6的问题,是因为你的是字符串运算而不是数值运算,转换一下类型

DimzsAsInteger,fsAsInteger,xAsStringDox=Inputbox("请输入一个整数")IfVal(x)>0Thenzs=zs+1ElseIfVal(x)fs=fs+1E

functiony=maxnorm(A)y=0;n=length(A(1,:));fori=1:nsumcol=0;forj=1:nsumcol=sumcol+abs(A(j,i));endif(su

ifxmod2=0thenmsgbox"是偶数"elsemsgbox"是奇数"