Question

vb中Text2.Text = Text2.Text & y(c + 1) & x(k - 1 + i)

Private Sub Command1_Click()
Dim x
Dim y
Dim k, i As Integer
x = Array(万, 千, 百, 拾, 元)
y = Array(零, 壹, 贰, 叁, 肆, 伍, 浏, 其, 吧, 就)

If Not IsNumeric(Text1.Text) Then
MsgBox "错误"
End If
k = Len(Text1.Text)
If k < 6 Then
For i = 1 To k
c = Val(Mid(Text1.Text, i, 1))
Text2.Text = Text2.Text & y(c + 1) & x(k - 1 + i)
Next i
Else
End
End If
End Sub
请问上面程序中为什么会出现Text2.Text = Text2.Text & y(c + 1) & x(k - 1 + i)错误？？？？？

Answer 1

只能给你估计下了：
1、Val转化之后是单精度型的数，建议在VAL前面价格CINT函数
2、text1框中有a到F的字母，这些字母会被认为是16进制的数一起被带入到程序中，从而造成变量C可能被赋值为大于10的数值，如果你的text中字符的长度小于是就是出错。
3、输入的数值注意位数不要大于万位

Answer 2

Private Sub Command1_Click()
Dim x
Dim y
Dim k, i As Integer
Text2 = ""
x = Split("元 拾 百 千 万", , , vbTextCompare)

y = Split("零 壹 贰 叁 肆 伍 浏 其 吧 就", , , vbTextCompare)

If Not IsNumeric(Text1.Text) Then
MsgBox "错误"
End If
k = Len(Text1.Text)
If k < 6 Then
For i = k To 1 Step -1
c = Val(Mid(Text1.Text, i, 1))
Text2.Text = y(c) & x(k - i) & Text2
Next i
Else
End

End If
End Sub

Answer 3

改成Text2.Text = Text2.Text &cstr( y(c + 1) )&cstr( x(k - 1 + i))

Answer 4

Text2.Text = Text2.Text & y * (c + 1) & x * (k - 1 + i)

' 乘法 * 运算符掉了