VB每行存储5个数

170kj*5Km*365=310250kj310250/32200=9.6kg一年(按365天计)中因此而消耗的脂肪大约是9.6千克

#includeintmain(){intn;n=0;for(inti=1;i再问：大侠，这是你自己做的吗？有没有把握对啊？再答：是，刚写的，不信你运行一下。

先把text1的MultiLine属性设为TruePrivateSubCommand1_Click()Fori=10To99IfiMod3=0ThenText1.Text=Text1.Text&Str

OptionExplicitOptionBase1PrivateSubForm_Click()Dimi%,j%,k%,n%Dima()AsIntegern=0Fori=1To1000k=0Forj=1

PrivateSubCommand1_Click()Dima(1To20)AsIntegerFori=1To20Ifi=1Ori=2Thena(i)=1Elsea(i)=a(i-1)+a(i-2)En

#include#defineCOL5//一行输出5个longfibonacci(intn){//fibonacci函数的递归函数if(0==n||1==n){//fibonacci函数递归的出口re

=min(A1:A5)下拉

做完了,不用任何控件,代码如下：DimM(6)AsByte,H(6)AsByteDimG(3)AsByteDimIAsByte,JAsByte,HjAsIntegerConstN=10,X=6,Y=3

PrivateSubForm_Click()Fori=100To999a=i\100b=(i-a*100)\10c=iMod10Ifa+b+c=5ThenPrinta&b&cNextiEndSub还想

OptionExplicitPrivateSubForm_Click()Form1.AutoRedraw=TrueClsDimAAsInteger,SuAsBoolean,IAsInteger,JAs

PrivateSubForm_Click()Dimx1%,x2%,count%count=0Fori=1To100x1=iMod5x2=iMod7Ifx1=0Andx2=0ThenPrinti;End

dimiasintegerdimnasintegerfori=100to200ifimod3=0orimod5=0thenprinti&"";n=n+1ifnmod10=0thenprintendif

#include"stdio.h"#include"math.h"voidmain(){inti,j,a,k;k=0;for(i=100;i

'最大PublicFunctionmax(aAsInteger,bAsInteger,cAsInteger)AsIntegermax=IIf(a>b,IIf(a>c,a,c),IIf(b>c,b,c)

我只有一个笨办法在J2输入这个公式:=if(countif(A1:$G$1,A1)=1,1,0),拖选复制到P2在I2输入=sum(J2:P2)选择I2:P2,拖选复制到数据的最后一行,结果就都在I列

二级可以从VFP,c语言,java,c++,vb,access,任选一科,考过即可,无论考哪一颗都要考二级公共基础知识.公共基础知识基本要求1.掌握算法的基本概念.2.掌握基本数据结构及其操作.3.掌

Private Sub Command1_Click()    Cls    Dim r(

Private Sub Command1_Click()    Dim j As Long, x&n

for(i=2;i<20;i++){    f[i]=f[i-1]+f[i-2];}再问：怎么显示这个啊，我是新手再答：当然显示这个，程序实际上是把结果输

假设求第二行的,前5个数理解为该行从大到小排列的前5个数平均值=AVERAGE(LARGE(2:2,1),LARGE(2:2,2),LARGE(2:2,3),LARGE(2:2,4),LARGE(2: