vb数字金字塔1-9 1 121 123321

PrivateSubForm_Load()Me.AutoRedraw=TrueFori=-8To8PrintSpc(9-Abs(i));String(2*Abs(i)+1,Trim(Abs(i)+1)

dimgs,igs=0fori=1to500ifinstr(i,"4")=0thengs=gs+1endifnextprintgs

6737再问：谢了

埃及金字塔内,发现一组神奇数字：142857.看似平凡的数字,为什么说他最神奇呢?我们把它从1乘到6看看142857X1=142857142857X2=285714142857X3=428571142

A=5,B=4,C=15.提示：每一条格子里的数字乘积等于比他略长一点的格子里数字的乘积的一半!来自“数学春夏秋冬”专业数学团队的解答!很高兴为您解答,祝你学习进步!如果您认可我的回答,请点击下面的【

PrivateSubCommand1_Click()Dimi,aAsInteger,bAsStringDoa=4LoopWhilea9Fori=1Toab=""Forj=1To(i-1)*2+1b=b

PrivateSubCommand1_Click()DimtmpStrAsString,tmpStr1AsStringDimmpStr2AsString,tmpStr3AsStringDimaAsIn

一种说法是：透明玻璃制的金字塔、尺寸和埃及吉萨金字塔完全一样,793块落板装玻璃,用结构硅胶粘结,每块玻璃的铅框都尽量小,以保证光滑表面的闪光效果,透明的金字塔后面,美丽的卢浮宫没受一点妨碍,相反,一

Private Sub Command1_Click() Dim i As Integer, j As Int

1011124346158410再问：为什么呢？再答：最底下一行，相邻的两个数字，打的减小的，得到的就是上面的，然后一行一行上去。。

PrivateSubForm_Load()DimiAsIntegerDima()AsIntegerRandomizes=Int(10*Rnd)ReDima(s)Fori=0Tos'任意选择数量p=In

下面几个数据算上是迷.7个数字所显示的精确的等式,使考古学家、建筑学家、地理学家、物理学家都迷惑不解.等式一∶(金字塔)自重×l0l5=地球的重量等式二∶(金字塔)塔高×l0亿=地球到太阳的距离1.5

100第14行第9个数2013第63行第60个数可以看成一个等差数列,很简单的.

每输出一个数字再输入空格来控制数字间的间距.print""

Dim n%, st$ 'st为控制所显示字符或数字变量n = InputBox("请输入数字菱形行数,必须为奇数",&n

这个好像上学的时候是书上的题PrivateSubCommand1_Click()Fori=1To4'这个4是层数,可以用变量,从键盘获取PrintTab(30-3*i);'30是第一行输出的位置,总之

privatesubcommand1_clickaaa5endsubSubaaa(n)Fori=1TonPrintSpc(n-i);String(2*i-1,"*")NextEndSu

settalkoffcleainput"inputn(1-9):"tonFORi=1TOnFORj=1TOn-i''ENDFORFORj=1TOiSTR(j,1)ENDFORFORj=i-1TO1ST

PrivateSubCommand1_Click()Dimi,jAsIntegerFori=1To13Forj=1ToiPrint"";NextjForj=iTo13-i+1PrintChr(56-i

1.#include"stdio.h"intmain(){inti,j,k,n;printf("输入行数:");scanf("%d",&n);for(i=1;i