小明编写了一个程序,运行时在文本框Text1中输入一个字符串,单击“去除数字”按钮Command1后,去除字符串中的数字字符,并在标签Lable2上输出结果。如图所示。
(1)
为实现上述功能,请在画线处填入合适的代码。
Private
Sub Command1_Click()
Dim zfc
As String '用于存储输入的字符串
Dim ans
As String '用于存储处理后的字符串
Dim i
As Integer,ch As String
Dim n
As Intege r'用于存储输入的字符串的长度
①
n=Len(zfc)
i=1
Do
While i<=n
②
If
ch>="0"And ch<="9"Then
i=i+1
Else
③
i=i+1
End If
Loop
Label2.Caption="结果为:"+ ④
End
Sub
画线处应填入的代码为:①;②;③;④。
答案: 【1】zfc=Textl.Text【2】ch=Mid(zfc.i,1)【3】ans = ans +ch【4】ans