VB程序设计 从键盘输入一个正整数，输出各位数字的和。 Dim xIn$，xTotal%，i%Dim bValid As BooleanxIn=InputBox(\"从键盘输入一个正整数\"，\"输入\"，12345)xIn=Trim(xIn)bValid=TruexTotal=0For i=1 To Len(xIn)cIn=Mid(xIn，i，1)If cIn>；=\"0\"And cInxTotal=xTotal+Val(Mid(xIn，i，1))ElsebValid=FalseEnd IfNextIf bValid ThenMsgBox xIn&\"各位数字的和为\"&CStr(xTotal)，vbInformation+vbOKOnly，\"结果ElseMsgBox\"输入数据\"&xIn&\"有误。vbQuestion+vbOKOnly，\"错误End If
vb中想让一个文本框只能输入数字代码是什么呢？ 楼上说的也没错，不过 一般的时候数字都有用到小数点“.”和负号“-”的时候，所以可以这样做 把上面的程序稍微改动一下。Private Sub Form_Load()Text1=\"\"End Sub Private 。
VB：在键盘上输入字母或0～9的数字，编写程序对其进行分类 用sendkey{enter}\"来模拟输入回车用sendkey来模拟空格.总之，用sendkey你想输入的字符\"就可以了.sendkey一般都放在timer1_timer()过程中但用sendkey时要注意一个问题：sendkey模拟的键盘操作仅对当前活动窗体有效。也就是说调用sendkey的一瞬间，你必须正在游戏中，游戏必须已启动，否则sendkey就会失效，甚至产生意想不到的结果.
