VBtext里输入一段字母和数字如何将数字挑出并显示在text2中

代码如何写

第1个回答 2020-05-05

你可以通过将每个数据都设为同样长度来使数据对齐，并且每行放置相同个数的数据，这样既可保证长度一致。举个例子：比如1，12，123，可以写成001，012，123，可以用空格代替0。具体操作时你先确定一个最长数据长度，比如最长10位吧，然后长度短于10位的用空格补齐，对于每个数据n，先输出空格space(10-len(n))，再输出数据本身

第2个回答 2014-07-06

for i=1 to len(text1.text) if asc(mid(text1.text,i,1)>47 and asc(mid(text1.text,i,1)<58 then msgbox "第" & i & "位是数字 " else msgbox "第" & i & "位是其它字符" endif next i 可以通过ascII码判断是数字还是... 然后放在另个temp变量里，赋值你应该会的。。。本回答被提问者采纳

第3个回答 2014-07-06

Private Sub Command1_Click() Dim str1() As Byte Dim a Dim ss As String ReDim str1(Len(Text1.Text)) str1 = Text1.Text For Each a In str1 If a > 47 And a < 58 Then ss = ss & " " & Chr(a) Next Text1.Text = ss End Sub

相似回答

用vb编程,怎样将两个文本框中的不同的数字找出来,显示在另外一个文本...答：以下代码调试通过，注意数字间用空格隔开 Private Sub Command1_Click()Dim numArr1 Dim numArr2 Dim i As Integer numArr1 = Split(Text1.Text, " ") ‘如果用逗号隔开就应该是Split(Text1.Text,",")numArr2 = Split(Text2.Text, " ")For i = 0 To UBound(numArr1)If InStr(Text2.Tex...

vb中,设计在一个文本框中输入,若输入的是数字,则分行显示在文本框2 中...答：dim str as String dim i as Integer dim YN as Boolean '判断你输入的是不是数字 dim Temp as String '中间变量，用于存储你输入的字符中的一个 YN=True '默认是数字 str=Text1.text strlen=len(str)for i=1 to strlen Temp=mid(str,i,1)if Temp<"0" and Temp>"9" then ...

求在VB的text1中找出相同的数,并在text2中显示出来一个数就行答：Next i Text2.Text = c End Sub

VB text1中只有“1”和“0”、计算“1”的个数并显示在text2中答：Private Sub Command1_Click()Dim sum For i = 1 To Len(Text1.Text)If Mid(Text1.Text, i, 1) = "1" Then sum = sum + 1 Next Text2.Text = sum End Sub

...从文本框(text1)输入一个n,在文本框(text2)中输出N!的值(要求t...答：Private Sub Command1_Click()'''定义变量 Dim num1 As Variant Dim sum1 As Variant num1 = Val(Text1.Text)sum1 = 1 '''判断If num1 <= 0 Then MsgBox "不允许输入小于等于0的数值", vbOKOnly, "提示"Text1.SetFocus Exit Sub End If If num1 <> Int(num1) Then MsgBox "请输...

VB输入一串字母数字混合的字符,筛选出其中的数字串并求和答：按你的要求写了一个，供参考 Option ExplicitPrivate Sub Command1_Click() Dim st As String, sn As String, i As Integer, c As String, n As Integer Dim sv As Double, svs As String, f As Integer st = Text1.Text Label1.Caption = "0" n = Len(st) If ...

大家正在搜

在text1中输入一串字符 text只能输入数字 vb中text怎么输入数据键盘输入字母变成数字 text中怎么输入内容 vbtext怎么输入拨号怎么输入字母通话界面怎么输入字母搜狗输入法只能打字母