Question

vb中，设计在一个文本框中输入，若输入的是数字，则分行显示在文本框2 中；若输入的是其他字符，

则显示消息框报错

Answer 1

dim strlen as Integer
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 ‘这里，你输入只要有一个不是数字，马上执行下面的，并退出循环，否则继续判断下一个字符
YN=Faulse
exit for
end if
next
if YN then
msg "你输入的是数字"
else
msg "你输入的不全是数字"
end if

追问

要是用这个函数IsNumeric，怎么用啊

追答

if isnumeric(Str) then
msg "你输入的是数字"
else

msg "你输入的不全是数字"

end if

追问

分行显示怎么整啊？？就是文本框1输入一个数字，回车后文本框2 显示出该数字，再次输入时，文本框2 另起一行显示第二个数字

追答

text2.text =text2.text & chr(10) & chr(13) & text1.text

Answer 2

启用输入文本框的KeyPress事件，编写代码如下：
If KeyAscii>=vbKey0 And KeyAscii<=vbKey9 Then
with 文本框2
.text = .text & vbCrLf & Chr(KeyAscii)
End With

Else
MsgBox "你输入的不是数字。"

KeyAscii = 0

End If

Answer 3

if isNumeric(text1.text) then
text2.text = text1.text
else
msgbox "请输入数字"
end if

追问

分行显示怎么整啊？？就是文本框1输入一个数字，回车后文本框2 显示出该数字，再次输入时，文本框2 另起一行显示第二个数字

Answer 4

4