vb高手进

显示全部楼层 · 2012-3-7 22:11:18

需要加 If Len(Text1.Text) = 11 Then这个判断语句是因为要执行函数 Mid 如果 Text1.Text 的位数不足，程序会产生错误，不需要时因为没有函数。当然这仅仅是个案，不能一概而论。...

千问 · 2012-3-7 22:11:18

Text10.Text = Mid(Text1.Text, 1, 3)Text11.Text = Mid(Text1.Text, 4, 4)这两句中限制了截取位置和长度，如果不判断字符长度，就会造成截取不够~...

千问 · 2012-3-7 22:11:18

不是没加而是在判断之前要先实现一个功能所以if……end if之前有句代码。...