VB程序设计1． 输入系数a,b,c,输出一元二次方程的x1,x2(50分)

pravitesubcommand1_Click()dimn%n=inputbox("请输入一个整数","输入整数")ifnmod3=0andnmod7=0thenprint"A"elseprint"

不是很难Function fn(a As Integer, b As Integer) As Integer 

ax2+bx+c=0应该是：a^2+bx+c=0吧?x1=round((-b+sqr(b^2+4*a*c)),2)x2=round((-b-sqr(b^2+4*a*c)),2)

printval(a)+val(b)+val(c)

(1)integer(2)step2(3)nexti再问：1呢？！！再答：有了

Print是输出,如在窗体事件中,就在窗体上打印输出.Tab()是位置函数,就是输出的位置,如Tab(10)就是从第10个打印位置开始.tab(j*8+1)表示从第J*8+1个打印位置开始.分号,表示

SubCommand1_Click()DimDeltaAsSingleDimaAsSingle,bAsSingle,cAsSingleDimx1AsSingle,x2AsSinglea=Val(Tex

C程序设计：输入2个正整数m和n(1<=m,n<=500),统计并输出m和n之间的素数个数以及这些素数的和.输入：m和n；输出：素数个数以及这些素数的和.

自己看下书,试着写一下就好,太简单了再问：你妹，会了还问你？别把自己膨胀的信心践踏在别人身上再答：别误会，要是说过了我很抱歉，这个代码估计没人给你发，还是自己照着书写就可以实现，很快的再问：好吧，原谅

dima%(1to10)max=0:k=0fori=1to10a(i)=int(rnd*(99-10+1)+10)text1=text1&a(i)&space(2)ifa(i)>maxthenmax=

sum=0fori=-100to100forj=-50to50if9*i-9*j=1thensum=sum+1endifnextnext

Privatesubform_click()Dimnasinteger,sumasdouble,kasintegerN=val(inputbox(“n=”,”请输入自然数n（n>0且nn!Label1

#includeintmain(){\x09inta,b,c,max;\x09scanf("%d%d%d",&a,&b,&c);\x09max=a;\x09if(max

dima%,b%,c%,d%a=val(inputbox("a"))b=val(inputbox("b"))ifa

#include#include#includeintmain(){floata,b,c,i,root1,root2;printf("请输入三个系数：（输入格式：a,b,c)");scanf("%f,

PrivateSubCommand1_Click()t=(b-a*2)/2'兔j=a-t'鸡Ift-j>0ThenMsgBox"兔多"ElseIft-jMsgBox"鸡多"ElseIft=jThenM

'是这意思?PrivateSubForm_Activate()DimiAsIntegerFori=1To8Ifi=1ThenPrint"※"ElsePrint"※"&Space(2*(i-2))&"※

constpi=3.1416subcircle（byvalrassingle,Lassingle,aassingle,VASSINGLE）L=2*pi*rA=pi*r*rV=4/3*r*r*r*pie

vb代码如下：PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingleDimdAsSingle,x1AsSingle,x2AsSinglea

0本来就是偶数>_