请问我英语实在是太差啦就初中水平，怎么考研啊是不是完蛋啦久久我啊啊
亲，难度是比较大，但也不是不可能。英语是长期积累的过程，就看你爆发是不是在考研之前了。我碰到好几个同学考研英语不行，可是毕竟他们努力了，不后悔就行。
首先要相信自己，不要害怕它！我的英语是初二的时候碰到了很严格的班主任，每天默写单词、词组之后才快速提升的。现在你已经大学了的话，可能就只能靠自己平时了。
具体来说，我觉得这样可能比较合适：听力一定要每天听，一定不能停！就算有时你实在没工夫，也要塞着耳机练练耳朵，哪怕你没真的在听。单词、阅读、完型最好也是每天都练，而且好的完型和作文要经常大声朗读，不仅给你作文增加积累，还可以提高语感。切记，这不是一朝一夕的事，贵在坚持！！最后，祝你成功！
判断19**年的没问题，超过1999年就完蛋了！！求解决！
If ((CInt(Mid(idcard, 7, 2)) + 1900) Mod 4 = 0 or ((CInt(Mid(idcard, 7, 2)) + 1900) Mod 100 = 0 And (CInt(Mid(idcard, 7, 2)) + 1900) Mod 4 = 0)) Then
ereg.Pattern = "^[1-9][0-9]{5}19[0-9]{2}((01|03|05|07|08|10|12)(0[1-9]|[1-2][0-9]|3[0-1])|(04|06|09|11)(0[1-9]|[1-2][0-9]|30)|02(0[1-9]|[1-2][0-9]))[0-9]{3}[0-9Xx]$" ';//闰年出生日期的合法性正则表达式
Else
ereg.Pattern = "^[1-9][0-9]{5}19[0-9]{2}((01|03|05|07|08|10|12)(0[1-9]|[1-2][0-9]|3[0-1])|(04|06|09|11)(0[1-9]|[1-2][0-9]|30)|02(0[1-9]|1[0-9]|2[0-8]))[0-9]{3}[0-9Xx]$" ';//平年出生日期的合法性正则表达式
End If
改成
If ((CInt(Mid(idcard, 7, 2)) + 1900) Mod 4 = 0 or ((CInt(Mid(idcard, 7, 2)) + 1900) Mod 100 = 0 And (CInt(Mid(idcard, 7, 2)) + 1900) Mod 4 = 0)) Then
ereg.Pattern = "^[1-9][0-9]{5}(19|20)[0-9]{2}((01|03|05|07|08|10|12)(0[1-9]|[1-2][0-9]|3[0-1])|(04|06|09|11)(0[1-9]|[1-2][0-9]|30)|02(0[1-9]|[1-2][0-9]))[0-9]{3}[0-9Xx]$" ';//闰年出生日期的合法性正则表达式
Else
ereg.Pattern = "^[1-9][0-9]{5}(19|20)[0-9]{2}((01|03|05|07|08|10|12)(0[1-9]|[1-2][0-9]|3[0-1])|(04|06|09|11)(0[1-9]|[1-2][0-9]|30)|02(0[1-9]|1[0-9]|2[0-8]))[0-9]{3}[0-9Xx]$" ';//平年出生日期的合法性正则表达式
End If
