flag=0 '记录是否已读取过小数点for i=1 to len(text(0)) if mid(text(0),i,1)"." thentext(i-flag)=mid(text(0),i,1) elseflag=1 end ifnext============================补充==========================这段程序就是在不同text控件显示的，是一个text控件数组text(0)是输入数据用的，text(1)至text(n)每个显示一位数======================================================...
Private Sub Form_Click()Dim Str As StringDim L As Integer '输入数值长度Dim P As Integer '小数点出现的位置Dim I As IntegerForm1.ClsStr = InputBox("请输入一个数值")Print Str & Chr(13)L = ...
抛砖引玉！123456789.001亿2仟3佰4拾5万6仟7佰8拾9元0角0分Const strPost = "元拾佰仟万拾佰仟亿角分"Private Sub Command1_Click()
Dim strA As String
Dim lngB As Integer
Dim intC As Int...
在text1输入数值 Private Function Num2Str(wsfNum As Double) As StringDim s() As StringDim ss As StringDim n As IntegerDim Temp1 As StringDim Temp2 As StringDim temp3 As S...
