代码的功能，俺没有装软件

Private Sub Txt1_LostFocus()
dim x as double
 x=Val(Txt1.text)
 If x<0 or x>100 Then
 Txt1.Text=""
Msgbox("请重新输入!")
Txt1.SetFocus
Else
Txt2.Text=Txt1.Text
end if
end sub --------------------编程问答-------------------- 重复发帖 --------------------编程问答-------------------- 你读书不认真！代码不一样啊！这是vb。 --------------------编程问答-------------------- private sub txt1_lostfocus()
dim x as double
 x=val(txt1.text)
 if x<0 or x>100 then
 txt1.text=""
bsgbox("请重新输入!")
txt1.setfocus
else
end if
end sub
难道以前fade不是VB？
除了大小写不一样 bsgbox 改对了为 Msgbox之外还有什么不一样 --------------------编程问答-------------------- 多了这一句你就不认识了？
Txt2.Text=Txt1.Text 如果输入正确输入结果显示在Txt2


其他的解释一样
--------------------编程问答-------------------- LZ:此段代码是当输入正确且Text2获得焦点时其显示内容同Text1.

没安装VB6软件,则请安装.代码是需要运行和调试的,你那样学习是脱离实际的. --------------------编程问答-------------------- 飘过吧~~~~~~~~~~~~~~~~· --------------------编程问答-------------------- 谢谢各位！

补充：VB ,  网络编程