第1个回答 2018-11-02
1 3 6 9 1 4 1 5 6 4 4 办票
此题中,我们只需拖拉5个Label控件和1个Text文本框以及1个Command命令按钮到界面上
此题中,注意的是把其中俩个Label标签的BorderStyle属性设置为1-Fixed
此题中的自己先不看下面代码按照题目试着做一遍哦O(∩_∩)O~
Private Sub Command1_Click()
bh = Text1.Text 'bh为编号
mc = Mid(bh, 4, 2) 'Mid就是从一个字符串中取子字符串
xh = Right(bh, 2) '从右边开始取值,取的位数为2位
Label4.Caption = mc
Label5.Caption = xh