Question

VB编程 我想在第一个文本框中随意输入字母和数字,第二个文本框用来显示其中的数字,我该怎么改?

Public Class Form1Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickDim a As String, i As Integer, b As StringFor i = 1 To Len(TextBox1.Text)b = Mid(TextBox1.Text, i, 1)If b >= 0 And b <= 9 Thena = a & bEnd IfNext iTextBox2.Text = aEnd SubEnd Class





Answer 1

0和9要加上双引号
If b >= "0" And b <= "9" Then

Answer 2

If b >= 0 And b <= 9 Then 修改为 If IsNumeric(b) Then