vfp表單設計 輸入任意ascii字符串，判斷數字，並輸出數字 急 ！！

新建壹個表單，向表單添加兩個文本框text1(用來輸入ascii字符串)、text2（用來輸出輸出數字）和壹個命令按鈕，點擊命令按鈕，向click事件添加以下代碼

a1=ALLTRIM(thisform.text1.Value)

a2=""

FOR iii=1 to LEN(a1)

a3=SUBSTR(a1,iii,1)

IF a3>="0" and a3<="9"

a2=a2+a3

ENDIF

ENDFOR

thisform.text2.Value=a2

表單運行後，向text1輸入asii字符串，點擊命令按鈕，則數字串就顯示到text2。如果顯示數字，程序的最後壹行調整為thisform.text2.Value=val(a2) 。

程序已測試通過，樓主把代碼復制過去就可以了。

上一篇:用matlab軟件編程：求出球面上x^2+y^2+z^2=1 上與點(3,1,-1)距離最近和最

下一篇:編程求矩形面積的小數