VFP怎么樣做乘法口訣啊,VFP怎麼樣做乘法口訣啊

2023-02-18 03:00:33 字數 4450 閱讀 5391

1樓:匿名使用者

樓上的少了一個endfor

set talk off

clear

@1,30 say"九九乘法表"

@3,5 say"*"

for i=1 to 9

@3,5+i*5 say str(i,2)endfor

for i=1 to 9

@3+2*i,5 say str(i,2)for j=1 to i

@3+2*i,5+j*5 say str(i*j,2)endfor

endfor

set talk on

2樓:母羊

set talk off

clear

@1,30 say"九九乘法表"

@3,5 say"*"

for i=1 to 9

@3,5+i*5 say str(i,2)endfor

for i=1 to 9

@3+2*i,5 say str(i,2)for j=1 to i

@3+2*i,5+j*5 say str(i*j,2)endfor

set talk on

3樓:創作者

set talk off

clear

@1,30 say"九九乘法表" ??

?for i=1 to 9

for j=1 to i

??alltrim(str(j))

??"*"

??alltrim(str(i))

??"="

??iif(len(alltrim(str(i*j)))=1," "+alltrim(str(i*j)),alltrim(str(i*j)))

??" "

endfor

?endfor

用vfp 做一個「九九乘法表」

4樓:和平海

第一種:

clea

i=1for i=1 to 9

j=1for j=1 to i

??str(i,1)+'*'+str(j,1)+'='+str(i*j,2)+' '

endfor

?''endfor

第二種:

clea

i=1for i=1 to 9

j=1for j=i to 9

??str(i,1)+'*'+str(j,1)+'='+str(i*j,2)+' '

endfor

?space(i*7)

endfor

第三種是帶**的:

clea

i=1?'┏━━━┓'

?''for i=1 to 9

j=1??'┃'

for j=1 to i

??str(i,1)+'*'+str(j,1)+'='+str(i*j,2)+'┃'

endfor

?''??iif(i<9,'┣','┗')

for k=1 to i

??iif(i<9,'━━━╋',iif(k=9,'━━━┛','━━━┻'))

endfor

??iif(i<9,'━━━┓','')

?''endfor

5樓:龐惜筠

clear

for x=1 to 9 &&行

y=1do whil y<=x && 列??" "+str(y,1)+"*"+str(x,1)+"="+str(x*y,2)

y=y+1

enddo

?endfor

return

6樓:匿名使用者

clear

for x=1 to 9

y=1do whil y<=x

??" "+str(y,1)+"*"+str(x,1)+"="+str(x*y,2)

y=y+1

enddo

?endfor

return

vfp做九九乘法表

7樓:我的王是金閃閃

clear

?? "*   "

for i=1 to 9

??str(i,2)

??space(4)

endfor

for i=1 to 9

?str(i,2)+space(2)

for j=1 to i

??str(j*i,2)

??space(4)

endf

endf

&&如果要星號,就用下面的

clear

?? "*   "

for i=1 to 9

??str(i,2)+space(4)

endfor

for i=1 to 9

?"*"+space(3)

for j=1 to i

??str(j*i,2)+space(4)endf

endf

8樓:線索記憶

04九九乘法表的記憶方法

9樓:匿名使用者

直接用 ? 把每行的資料顯示出來不就可以了

用vfp作一個乘法口訣表。求大神幫忙!!!

10樓:

for i=1to 9

?" "

?? " "+str(i,2)

endfor

for i=1to 9

for j=1to 9

?str(j,1)

??str(i*j, 3)

endfor

endfor

用visualfoxpro程式語言怎樣編寫乘法口訣表

11樓:

clear

i=1do while i<=9

j=1do while j<=i

??str(j,1)+"*"+str(i,1)+"="+str(i*j,2)+" "

j=j+1

enddo

?i=i+1

enddo

12樓:匿名使用者

***九九乘法表***

clear

for i=1 to 9

for k=1 to i

?? str(k,1)+"×"+str(i,1)+"="+str(i*k,2)+" "

endfor

?endfor

求程式設計vfp編九九乘法表的**

13樓:匿名使用者

這是正的~~~~~~

clear

? "輸出乘法口訣表:"

?for a=1 to 9

for b=1 to a

?? str(b,1)+"*"+str(a,1)+"="+str(a*b,2)+space(2)

next

? next

return

這是倒得~~~~~~

clear

? "輸出乘法口訣表:"

?for a=1 to 9

for b=a to 9

?? str(b,1)+"*"+str(a,1)+"="+str(a*b,2)+space(2)

next

? next

return

用do while 做:

clear

? "輸出乘法口訣表:"

?a=1

do while a<=9

b=1do while b<=9

?? str(b,1)+"*"+str(a,1)+"="+str(a*b,2)+space(2)

b=b+1

enddo

?a=a+1

enddo

return

14樓:

經上機驗證,以下程式完全正確!!

clear

for i=1 to 9

for j=1 to i

?? str(i,2)+"*"+str(j,2)+"="+str(i*j,2)+space(2)

endfor

? endfor

return

九九乘法表的程式設計vfp.6.0

15樓:懸鉤子楊

clear

for i=1 to 9

for j=1 to 9

if j<=i

?? ltrim(str(i))+"x"+ltrim(str(j))+"="+ltrim(str(i*j))+"    "

endif

next j

?next i

return

澳丁怎么樣?能用嗎到底?效果怎么樣啊

最好不要用藥物性,指標不治本,你可以採用磁療方法,很多人都在搞 萬惡的微商,國家應取締。澳丁百分百含違禁成分,微商都讓大家檢查化驗,明知道一般人不會去化驗,也找不到化驗的部門。慎用 關注澳丁也有一段時間了,網上的資訊都是 的自問自答,基本可以忽略。其它資訊很少,我想這一定不正常!要麼知道人很少,要麼...

怎么樣才可以做飛行員啊,怎麼樣才可以做飛行員啊?

1 身高不得低於170 釐米,體重不得少於54 公斤 上限高度182 釐米,體重不得超過79 公斤。2 骨與關節無疾病或畸形 無明顯的 0 型或 x 型腿。3 顏面五宮無明顯不對稱。4 無久治不愈的 病,如頭癬 溼疹 牛皮癬 慢性蕁麻疹等。5 無慢性腸胃道疾病 無肝炎或肝脾腫大 無hbsag 陽性 ...

這題怎么做啊!急,這題怎麼做啊!急!!!!

長 6dm 寬 5dm高 10 6 4dm表面積 6 5 6 4 5 4 2 148dm 體積 6 5 4 120dm 其實表面積就是這個圖的面積,幾個加起來就行,體積這個圖形能算出來長寬高。仔細看圖,10分米包含了一個長一個寬,又知道長是6所以寬是4。那麼體積 4 6 5 120 立方分米 面積 ...