總是說我“B = Choose(A, "零", "壹", "貳", "叁", "肆", "伍", "陸", "柒", "捌", "玖")”有錯(cuò)，不太知道錯(cuò)在哪，望高手指點(diǎn)！??！Private Sub Text1_Change()Dim A%, B%A = Val(Text1.Text)Select Case ACase 0 To 9B = Choose(A, "零", "壹", "貳", "叁", "肆", "伍", "陸", "柒", "捌", "玖")Picture1.Print A & "→" & BCase ElsePicture1.Print "輸入的不是數(shù)字字符"End SelectEnd Sub
1 回答
隔江千里
TA貢獻(xiàn)1906條經(jīng)驗(yàn) 獲得超10個(gè)贊
Option Explicit
Private Sub Text1_Change()
Dim A As Integer, B As String
A = Val(Text1.Text)
Select Case A
Case 0 To 9
B = Choose(A + 1, "零", "壹", "貳", "叁", "肆", "伍", "陸", "柒", "捌", "玖")
Print A & "→" & B
Case Else
Print "輸入的不是數(shù)字字符"
End Select
End Sub
你主要定義函數(shù)時(shí)錯(cuò)誤及Choose使用錯(cuò)誤.另外,不必要使用Picture控件.
Choose(index, choice-1[, choice-2, ... [, choice-n]])
index 必要參數(shù)，數(shù)值表達(dá)式或字段，它的運(yùn)算結(jié)果是一個(gè)數(shù)值，且界于 1 和可選擇的項(xiàng)目數(shù)之間。
choice 必要參數(shù)，Variant 表達(dá)式，包含可選擇項(xiàng)目的其中之一。
添加回答
舉報(bào)
0/150
提交
取消