nadd=0
對於i=1至100
nadd=nadd+i^2
結束
nadd
2.
Sum課程1到nadd課程1 >；=85和課程1
等等
3.
尺寸a(9)
A(1)="1壹"
……
A (9) = "9jiu "
CTEXT= " "
cadd= " "
輸入“請輸入要轉換為m的值”
if vartype(m)="N "
CTEXT=ALLTRIM(STR(M))
其他
ctext=alltrim(m)
endif
n=len(ctext)
對於i=1到n
對於j=1到9
s=substr(ctext，I，1)
if at(s，a(j))& gt；0
cadd=cadd+right(a(j)，2)
出口
endif
結束
結束
Ctext+"轉換成大寫:"+cadd "
3.
Ztext="1-1，2，2，3，3，4，4，5，6，6，7，7，8，8，9和9 "
轉華= " "
請輸入要轉換的數字或字符串“至m”。
ctext=alltrim(m)
n=len(ctext)
對於i=1到n
s=substr(ctext，I，1)
如果！at(s，ztext)=0
h=at(s，ztext)+1
轉化=轉化+substr(ztext，h，2)
其他
Messagebox("輸入數據必須是數字"，"提示")
出口
endif
結束
”轉化結果是:“+轉化。