vb编程，在文本框（text1输入一个三位数据，单击窗体后，在窗体打印输出改数的个位数，十位数和百位数。

Question

最好用到字符串函数，我小白，请高手赐教

Answer 1

Private Sub Form_Click()
Dim d As Integer,s As String
d=Val(Text1.Text)
Print "方法一"
Print "百位数：";d\100
Print "十位数：";d\10 Mod 10 '也可以用 d Mod 100 \10
Print "个位数：";d Mod 10
Print
s=Right(Text1.Text,3);
Print "方法二"
Print "百位数：";Left(s,1)
Print "十位数：";Mid(s,2,1) '也可以用Left(Right(s,2),1) 或 Right(Left(s,2),1)
Print "个位数：";Right(s,1)
End Sub

希望回答对你有帮助

Answer 2

Private Sub Form_Click()
Print Tab(5); "个位数是："; Right(Text1.Text, 1)
Print Tab(5); "十位数是："; Mid(Text1.Text, 2, 1)
Print Tab(5); "百位数是："; Left(Text1.Text, 1)
End Sub

Answer 3

不明白你想做什么?

把输入的数字打印出来,还是只显示 个 十 百??

Answer 4

Dim objSelection
Dim objTxtRange
Set objSelection = WEBBROWSER1.Document.selection
If Not (objSelection Is Nothing) Then
Set objTxtRange = objSelection.createRange
If Not (objTxtRange Is Nothing) Then
Text1.Text = objTxtRange.htmlsText
Text1.Visible = True
Set objTxtRange = Nothing
End If
Set objSelection = Nothing本回答被提问者采纳