igfire和igice解散:拜托谁帮我用VB做一个程序

来源:百度文库 编辑:神马品牌网 时间:2024/05/03 22:14:06
要求任意输入一个〔100,999〕间的数字,输出它的个位数

声明就没写了 别的有了 我用的判断
a=inpubox("请输入一个数")
if a>99 and a<1000 then
a=a mod 10
msgbox"个位数为" & a
else
msgbox "请输入100至999之间的数"
end if

Dim R As String
Dim S As String
S = "123"
R = Right(S,1)
'R值为3

Private Sub Command1_Click()
Label1.Caption=Mid(Text1.Text,3,1)
End Sub