在vb中输入一个任意整数,如何实现将各个位数上的数字提取出来
人气：121 ℃ 时间：2020-08-09 04:33:08
解答
创建两个text控件 和一个command按钮控件 再输入以下代码 Private Sub Command1_Click() For i = 1 To Len(Text1.Text) a = Mid(Text1.Text, i, 1) If IsNumeric(a) = True Then Text2.Text = Text2.Text & a End If...
推荐
猜你喜欢
