怎么用vb实现在一个textbox中输入一个数,同时在另一个textbox中显示刚才输入数值的倒数。急!!!!!!!
先谢谢大家!!!textbox中的内容默认是什么类型的啊?能输入分数么?怎么用vb实现在一个textbox中输入一个数,同时在另一个textbox中显示刚才输入数值的倒数...
先谢谢大家!!!
textbox中的内容默认是什么类型的啊?能输入分数么?怎么用vb实现在一个textbox中输入一个数,同时在另一个textbox中显示刚才输入数值的倒数啊? 展开
textbox中的内容默认是什么类型的啊?能输入分数么?怎么用vb实现在一个textbox中输入一个数,同时在另一个textbox中显示刚才输入数值的倒数啊? 展开
1个回答
展开全部
在VB6.0里的创建一个默认窗体,培闹然后拖两腔空个textbox控件。以下代码可实现你需要的要求!
Private Sub Text1_Change()'在textbox1中的内容变化时触发该方法。为textbox自带
If Not IsNumeric(Text1.Text) Then'判断输入的是不是数字,不是数字则清空
MsgBox "你输入的字符串不是数字!"
Text1.Text = ""
Text2.Text = ""
Else
Text2.Text = Format(1 / Val(Text1.Text), "0.#####")'是数字,则在配圆罩textbox2中显示textbox1里数字的倒数
End If
End Sub
textbox里的默认类型是text,即字符串。Val(Text1.Text)是将text1.text的转化为数字,再求倒数的。事实上,textbox可以自动把你输入的任何东西转成字符串存入。
还有疑问 可以百度Hi我,很高兴为你解答!
Private Sub Text1_Change()'在textbox1中的内容变化时触发该方法。为textbox自带
If Not IsNumeric(Text1.Text) Then'判断输入的是不是数字,不是数字则清空
MsgBox "你输入的字符串不是数字!"
Text1.Text = ""
Text2.Text = ""
Else
Text2.Text = Format(1 / Val(Text1.Text), "0.#####")'是数字,则在配圆罩textbox2中显示textbox1里数字的倒数
End If
End Sub
textbox里的默认类型是text,即字符串。Val(Text1.Text)是将text1.text的转化为数字,再求倒数的。事实上,textbox可以自动把你输入的任何东西转成字符串存入。
还有疑问 可以百度Hi我,很高兴为你解答!
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询