vb编程计算并显示数列:1.3.7.15.-前三十项的和.

你的与标准的确实有区别.计算和的基本上是一样的.但是求被7整除的数的个数,这两段都是求的“不完全个数”,他们之间还有些不同,但均不是题目中要求的东西.结论：你的答案和标准答案均是错误的.

在命令按钮里加上以下代码：DimiAsInteger,kAsInteger,jAsIntegerDimxAsStringj=0Fori=1To35Fork=1To35If(i*3+k*4)=100Th

#includeintmain(){inta,sum=0;scanf("%d",&a);while(a){sum+=a%10;a/=10;}printf("sum=%d\n",sum);return0

Private Sub Form_Click()Dim T(10) As IntegerDim R(10) As Int

/>Private Sub Form_Click()'1、* 编写程序,计算并输出下面数列中前n项的和.(设n=20)'   

PrivateSubForm_Click()DimnAsIntegern=Val(InputBox("请输入N:"))Dima,bAsLonga=1:b=1Fori=1TonPrinta&""&b&"

这样的题目主要是利用Mod运算,能被13整除,n就加1,代码如下：PrivateSubCommand1_Click()Fori=1To9999IfiMod13=0Thenn=n+1EndIfNexti

PrivateSubForm_Load()DoDimaAsSingle,bAsSingle,cAsSingle,pAsSingle,sAsSinglea=Val(InputBox("请输入三角形第1条

PublicSubcommand1_click()dimrasintegerr=val(inputbox("请输入半径"))s=3.1415926*r^2msgbox"圆的面积为:"&sendsu

可以,先将每个式子左边中的ai按照从小到大排序,比如a1+a3-2*a2=5写成a1-2*a2+a3=5,每个式子都如此处理,以ai作为未知数来求A*a=b,其中A为n-1行n+1列的矩阵,b为n-1

#includeintmain(){inti=0;floatsum=0;intn;intx[n],y[n];printf("请输出计算的项数:");scanf("%d",&n);x[0]=2;x[1]

PrivateSubForm_Load()Rem在这里定义一个inti来控制数字的循环变化,定义intNumber是用来输入要求第几个数Diminti,intNumberAsInteger'lngFi

 Private Sub Command1_Click()Dim F(11), i As LongF(0) = 

Private Sub Form_Load()Dim I As IntegerForm1.AutoRedraw = TrueFor

先建一个大一点的label1框,然后...DimaAsIntegerDimbAsStringDimcAsIntegerDimdAsStringDimeAsIntegerDimfAsIntegerDim

PrivateSubForm_Load()ForI=1To1000IfIMod7=0ThenX=X+1IfXMod10=0ThenLabel1.Caption=Label1.Caption&vbNew

dimaaslongdimbaslongdimcaslongdimdassinglex1,x2也是dim(定义变量一般都是用dim)d=b^2-4acif再问：constaAslongbAslongc

添加一个Listbox控件然后Ifc=Fix(c)Andc

新建EXE,画4个text文本框和一个按钮,复制下面的代码：PrivateSubCommand1_Click()Dima,b,cAsSinglea=Val(Text1.Text)b=Val(Text2

clears=0t=1input"请输入n的值："tonfori=1tont=t*is=s+tendfor"1!+2!+3!+.N!=",s