用VB编写的学生学籍管理

Dimi,j,nAsIntegerDimsqlAsStringPrivateDeclareFunctionGetKeyStateLib"user32"_(ByValnVirtKeyAsLong)AsIntegerPublicjeAsInteger'记忆菜单上次数值，实现数据传送PrivateSubacg_Click()CallasPopup7_Click(False)EndSubPrivateSubaddcg_Click()CallasPopup6_Click(False)EndSubPrivateSubaddstudent_Cli