Question

vb中在第一个输入框中输入一个数字，把它分解成四部分显示在四个文本框中，按1/2，1/4，1/4，1/8.

比如说，输入一个数字1，直接在四个输入框或者文本框中出来0.5，0.25，0.25，0.125.谢谢！

Answer 1

text1是输入框,最好添加一个判断是否为数字再执行.如
Private Sub text1_chanage()
if not isnumeric(text1.text) then exit sub '判断输入的是否数字是的话就执行.不是就退出子程序
text2.text=text1.text / 2
text3.text=text1.text / 4
text4.text=text1.text / 4
text5.text=text1.text / 8
end sub

Answer 2

'输入框为txtInput，四个文本框为txt1、txt2、txt3、txt4
Private Sub txtInput_KeyPress(KeyAscii As Integer) '当文本框输入内容时触发事件
IntInput = Val(txtInput.Text)
txt1.Text = IntInput / 2
txt2.Text = IntInput / 4
txt3.Text = IntInput / 4
txt4.Text = IntInput / 8
End Sub

Answer 3

需要在这个文本输入框中设置事件。如，鼠标离开事件，失去焦点事件等。
在事件过程中进行处理。并显示在你要显示的位置。

追问

能不能把具体的编程语言说下，我运行不了。

追答

很长时间不用了，记得是在某个侧边栏，那里有你使用到的控件，在Tab处有事件（Event），这里有事件列表，双击失去焦点事件，在主窗口编辑计算过程。

Answer 4

Private Sub Command1_Click()
Text2 = Format(Text1 / 2, "0.00#")
Text3 = Format(Text1 / 4, "0.00#")
Text4 = Format(Text1 / 4, "0.00#")
Text5 = Format(Text1 / 8, "0.00#")
End Sub