一到九之间的数字是什么？（详细请进看）

这里面要填满，横竖都必须是1到9之间的数字，但是横竖都不能重复1到9之间的数字，紧急，快~~

'网上找的VBA，修改了一下，同时还支持小数点。Option ExplicitPrivate Sub Command1_Click() Text2 = NumbToEnglish(Val(Text1))End SubFunction NumbToEnglish(ByVal MyNumber) Dim Temp Dim Inte, Dec Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " Place(5) = " Trillion " ' 将数字Mynumber转换成字符串格式，并去掉多余空格 MyNumber = Trim(Str(MyNumber)) ' 查找小数点“.”位置 DecimalPlace = InStr(MyNumber, ".") ' 如果找到小数点... If DecimalPlace > 0 Then ' 转换小数部分 Temp = Len(Mid(MyNumber, DecimalPlace + 1)) Count = 1 Dec = "" Do While Count - 1 <> Temp Dec = Dec & " " & ConvertDecimal(Mid(MyNumber, DecimalPlace + Count, 1)) Count = Count + 1 Loop ' 去掉小数部分，保留剩下的整数部分留做转换 MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1 Do While MyNumber <> "" ' 将最后的三位数字转换成英文数字 Temp = ConvertHundreds(Right(MyNumber, 3)) If Temp <> "" Then Inte = Temp & Place(Count) & Inte If Len(MyNumber) > 3 Then ' 如果整数部分大于三位，再向前移动三位数字重复进行转换 MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop ' 增加小数点描述 If Dec = "" Then If Inte = "" Then Dec = "No Number!" End If Else If Inte = "" Then Dec = "Zero Point" & Dec Else Dec = " Point" & Dec End If End If NumbToEnglish = Inte & Dec End Func

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息