vb编写的简单先生成绩查询系统Subpingbi3()Form10.Command4.Visible=FalseEndSubSubpingbi1()Form2.修改.Visible=FalseForm2.添加.Visible=FalseForm2.删除.Visible=FalseEndSubSubpingbi2()Form10.Command2.Visible=FalseEndSubPrivateSub管理员_Click()UnloadMeForm9.Showpingbi3EndSubPrivateSub取消_Click()EndEndSubPrivateSub退出_Click()EndEndSubPrivateSub先生_Click()UnloadMeForm10.Visible=Truepingbi1pingbi2Form10.Command4.Visible=TrueEndSub
1