vb编程在Text里输入一个字符串，回车后计算字符串中的数字和字母

Private Sub Text1_KeyPress(KeyAscii As Integer)

    Dim n As Integer

    Dim m As Integer

    n = 0

    m = 0

    If KeyAscii = 13 And Text1Text <> "" Then

        For i = 1 To Len(Text1Text)

            If Asc(UCase(Mid(Text1Text, i, 1))) >= 65 And Asc(UCase(Mid(Text1Text, i, 1))) <= 90 Then

                m = m + 1

            End If

            If Asc(UCase(Mid(Text1Text, i, 1))) >= 48 And Asc(UCase(Mid(Text1Text, i, 1))) <= 57 Then

                n = n + 1

            End If

        Next i

        If m = n Then

            MsgBox "有数字" & n & "个，字母" & m & "个,数字和字母个数相等"

        End If

         If m > n Then

            MsgBox "有数字" & n & "个，字母" & m & "个,字母比较多，字母比数字多" & m - n & "个"

        End If

        If m > n Then

            MsgBox "有数字" & n & "个，字母" & m & "个,数字比较多，数字比字母多" & n - m & "个"

        End If

    End If

End Sub

1 用vb如何把输出的数字在指定位置显示

下面的代码是在窗体的中心位置显示数字12345

Dim s As String

s = "12345"

CurrentX = (ScaleWidth - TextWidth(s)) \ 2

CurrentY = (ScaleHeight - TextHeight(s)) \ 2

Print s下面的代码是在窗体的左下角显示数字88888

Dim s As String

s = "88888"

CurrentX = 0

CurrentY = ScaleHeight - TextHeight(s)

Print s下面的代码是在窗体的（600, 450）的位置显示字符hello

Dim s As String

s = "helllo"

CurrentX = 600

CurrentY = 450

Print s

2 vb中让数字倒转怎么设计程序

Private Sub mand1_Click()

x = CLng(InputBox（"请输入一个整数："））

y = 0

X1 = x

While X1 > 0

y = y 10 + X1 Mod 10 '将x1中的末位数字添加到y末位

X1 = X1 \ 10 '将X1的末位去除

Wend

MsgBox x &； " 数字倒转后是 " & y

End Sub

3 vb编程时如何把输入的数字四舍五入成整数

Cint （) 但是请注意： Cint会把数值转化为 最接近的偶数值，比如Cint(15) =2;Cint(05)=0;

CInt Integer -32,768 至 32,767，小数部分四舍五入。

CLng Long -2,147,483,648 至 2,147,483,647，小数部分四舍五入。

他的答案不错

浪花飘零2000 | 八级 最快回答 print int(n+05) n为任意小数

举例

print int(14+05) 输出1

print int(15+05) 输出2

若满意请及时采纳谢谢

4 VB 如何去掉数字前面的“0” 后追分

'如果不确定text1中的内容是否一定是数字，用以下代码，

Private Sub mand1_Click()

Dim s1 As String

s1 = Trim(Text3Text)

Do While Left(s1, 1) = 0

s1 = trim(Mid(s1, 2, Len(s1) - 1））'这样可以去掉0后面的空格键

Loop

MsgBox s1

End Sub

'如果确定是数字，就简单了 直接

Private Sub mand1_Click()

MsgBox val(Trim(Text3Text))

End Sub

5 vb怎样解析数字

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1TextChanged Dim i As Integer i = Val(TextBox1Text) TextBox2Text = i \ 100 Mod 10 TextBox3Text = i \ 10 Mod 10 TextBox4Text = i Mod 10 End SubTextboxtext的内容通常是文数字（alphanumeric）也就是文字跟数字可能e68a847a686964616f31333335313135混合出现要做数值运算需先转成纯数值处理可以使用val（)函数来转换现在可以想像下输入的数字是几位数？可能会超过三位那就输入12345好了要取出百位数字有个方法是12345/100 = 1234512345\100 = 123123 mod 10 = 3\是整数除法若用/会有小数点问题要处理而mod是取馀数的意思123/10=12馀3mod就是显示馀多少用的在C语言中，mod对应的是%，只有整数取馀数才能正常执行这类取位数问题皆可依此类推大概就会写出如上的程式码事件是采TextChanged也就是在文本框每改变一符号就执行一次在Form1vb连点两下Textbox应该就是那事件了。

6 用VB怎样把输入的 数字变为

Private Sub Form_Load（) '这是您要的

Text1PasswordChar = ""

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer) '使输入的字符在0~9之间。

If KeyAscii = 8 Or KeyAscii >= 48 And KeyAscii < 58 Then

Else

KeyAscii = 0

End If

End Sub

用VB应该能够实现，不过时间和正确率不算可观。

而且使用起来也应该有诸多限制。

先把传到程序的做一个RGB处理，很简单。黑变白，白变黑，其他的全变黑就可以了。然后利用现有的字库经行逐点对比，字体颜是白色。

这里用该会有个概率。假设如果X%的像素点相等，那就输出这个字。

加速度的话，把已经输出的字符，做成一个表，在进行匹配的时候，同时匹配这个表，如果匹配出来的话，就放弃与字库的匹配，输出这个字。

字体必须要是标准的。字号必须的相等的。没这么简单，很复杂，

1L，没有什么不可能的，OCR又什么了？单靠VB就不行了？照你这样说，难道只用汇编就不能做3D程序？不是属于什么什么的，就像X器官不只是你一个人有一样。

2L，既然有了自定义字库，那就不会是手写了吧？

3L，VB不是先不先进，只是你对VB的认识也就那么肤浅而已。

你这个说法失之偏颇了吧？就像1L一样。先进？那我就用最老的举例吧，单用汇编就不能做3D引用程序？

没有汇编，哪来电脑的今天？

就像今天你手头没有VB，数据库你怎么来？

VB是语言，语言不是算法。

4L，我挺你

cls只能用于用Print方法打印到窗体、框中的内容，分别用meCls、Cls、Picture1Cls等。清除标签中的内容可以用Label=""的方法。回到原始状态的问题，你可以用一个变量先保存标签中的内容（Ys=label1），需要时再写回去（label1=Ys）。

登录论坛可以用模拟按键，QQ就……

QQ做了很多防护，无论怎样模拟都无效，除非你的是PS2键盘，用WinIO驱动模拟键盘，才可以生效。VB用WinIO模拟键盘的就不说了，百度一下就有

以上就是关于vb编程在Text里输入一个字符串，回车后计算字符串中的数字和字母全部的内容，包括:vb编程在Text里输入一个字符串，回车后计算字符串中的数字和字母、vb怎么把数字复位、用VB将图片转换文字等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！