如何用vb第一行一个*第二行两个*第三行有三个*第四行有四个*第五行有五个*

插入一个辅助列如B列,在B1输入公式=IF(MOD(ROW(),2),A1,INDIRECT("A"&ROW()-1))公式下拉完成,然后,选择B列,复制,右键选择性粘贴,值,确定,再把A列删除了.更

PrivateSubCommand1_Click()Dimr%,c%,t%Forr=1To9t=0PrintSpc(9-r);Forc=1To2*r-1Ifc再问：只编出了上半部分,没下半部分,也就是

Dim KG As IntegerPrivate Sub form_Click()  Me.Cls  KG&n

dimnasintegerdimsasintgerPrivateSubCommand1_Click()Don=n+1s=s+nLoopuntills>=30000Printn-1EndSu

#include#includeintmain(){inti,j;for(i=1;i再问：*************再答：嗯，那这样子:#include#includeintmain(){inti,j

A=rand(4,5)%产生随机矩阵[i,j]=find(A([1,2],:)>0.3)%i,j为前两行中大于0.3的元素的坐标然后要怎么操作就看你的具体需要了,不清楚的话请用help命令查询rand

再问：:-[看不清～～～再答：等下再答：再答：再答：给个好评再问：后面是不是有点不对第一题的再答：不会啊，约分再答：你试算一下再问：你看看3分之4和3分2约分是2，2-2不就是0了？再答：你照给我看再

方法一：此题一个规律,仔细看可以发现；发现了么?每一行的最后一个数与行数字有什么关系?(1)第31行第12个数是30的平方加12,即912；(2)因为44的平方为1936,45的平方为2025,所以1

都写到这个地步了还上网来问?Dima,b,c,k1,k2,s1,s2AsDoublea=Value（Text1.Text）；b=Value（Text2.Text）；k1=a*3.14/180；k2=b

多此一举

设参加旅游的人数为x人,总费用为y元(默认组团人数不少于3人)1）甲：y=300x乙：y=350(x-3)2）当x=20甲：y=300x=6000乙：y=350(x-3)=5950乙比较划算300x=

Fori=1To10i=i+1n=n-iNexti这是循环,i=1时,i=i+1=2,n=n-i=n-2Nexti//使得i=3进入循环,i=3时,i=i+1=4,n=n-i=n-4Nexti//使得

藏龙卧虎、鲸吞虎噬、养虎贻患、虎背熊腰

(n+1)^2*(-1)^(n+1)+2

自己编写了一个例程,希望能够给你启示：Test=randn(3,3);%随机生成一个3x3矩阵fori=1:3%输出每一行,并且保存到不同的txt文件中Temp=Test(i,:);str=['Tes

‘直接给代码,窗体上只需一个名为command1的按钮Private Sub Command1_Click()   Dim a(1 

#include#definen3intmain(){inti,j;for(i=0;i再问：--第一行是1*第二行是3*第三行是6*第四行是9*再答：#include#definen4//输出4+1=

虽然说你设定无范围,但VB中规定的整数的取值范围,好象最大是32767,我没有查.dimaasintegera=rnd(32767)

#includeintmain(void){inti,j,n;printf("Plzinputaint:");scanf("%d",&n);for(i=1;i再问：abs是什么再答：取绝对值