帮我翻译一下VB中的语句

Question

Private Sub classapp_Click()
qxstr = Executeqx(2)
If qxstr = "false" Or qxstr = "readonly" Then
ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
Exit Sub
End If
添加班级.Show
classmodi = False
添加班级.classload
添加班级.ZOrder (0)
End Sub

Public Sub clabrowse()
txtsql = "select * from class"
班级浏览.ZOrder (0)
班级浏览.Caption = "浏览班级设置"
班级浏览.classshowtitle
班级浏览.classshowdata
End Sub

Private Sub classbrowse_Click()
qxstr = Executeqx(2)
If qxstr = "false" Then
ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
Exit Sub
End If
班级浏览.Show
End Sub

Private Sub classfind_Click()
qxstr = Executeqx(2)
If qxstr = "false" Then
ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
Exit Sub
End If
班级查询.Show
班级查询.ZOrder (0)
End Sub

Private Sub classkecheng_Click()
qxstr = Executeqx(4)
If qxstr = "false" Or qxstr = "readonly" Then
ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
Exit Sub
End If
班级课程设置.Show
班级课程设置.ZOrder
End Sub

Private Sub denglu2_Click()
登陆.Show
Unload Me
End Sub

Private Sub jiaofeiadd_Click()
qxstr = Executeqx(3)
If qxstr = "false" Or qxstr = "readonly" Then
ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
Exit Sub
End If
学费设置添加.Show
学费设置添加.ZOrder 0
End Sub

Private Sub jiaofeibrowse_Click()
qxstr = Executeqx(3)
If qxstr = "false" Then
ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
Exit Sub
End If
学生交费浏览.Show
学生交费浏览.ZOrder 0
End Sub

Private Sub jiaofeifind_Click()
qxstr = Executeqx(3)
If qxstr = "false" Then
ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
Exit Sub
End If
End Sub

Private Sub jibenkecheng_Click()
qxstr = Executeqx(4)
If qxstr = "false" Or qxstr = "readonly" Then
ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
Exit Sub
End If
基本课程设置.Show
基本课程设置.ZOrder 0
End Sub

Answer 1

私人小组classapp_click （ ）
qxstr = executeqx （ 2 ）
如果qxstr = "假"或qxstr = "只读" ，那么
五= msgbox （ "对不起，你没有管理本功能的权限，请与管理员联系！ " ， vbinformation + vbokonly ， "警告" ）
出入境分
如果年底
添加班级。证明
classmodi =假
添加班级。 classload
添加班级。 zorder （ 0 ）
分完

公共分clabrowse （ ）
txtsql = "选择*从阶级"
班级浏览。 zorder （ 0 ）
班级浏览。字幕= "浏览班级设置"
班级浏览。 classshowtitle
班级浏览。 classshowdata
分完

私人小组classbrowse_click （ ）
qxstr = executeqx （ 2 ）
如果qxstr = "假" ，然后
五= msgbox （ "对不起，你没有管理本功能的权限，请与管理员联系！ " ， vbinformation + vbokonly ， "警告" ）
出入境分
如果年底
班级浏览。证明
分完

私人小组classfind_click （ ）
qxstr = executeqx （ 2 ）
如果qxstr = "假" ，然后
五= msgbox （ "对不起，你没有管理本功能的权限，请与管理员联系！ " ， vbinformation + vbokonly ， "警告" ）
出入境分
如果年底
班级查询。证明
班级查询。 zorder （ 0 ）
分完

私人小组classkecheng_click （ ）
qxstr = executeqx （ 4 ）
如果qxstr = "假"或qxstr = "只读" ，那么
五= msgbox （ "对不起，你没有管理本功能的权限，请与管理员联系！ " ， vbinformation + vbokonly ， "警告" ）
出入境分
如果年底
班级课程设置。证明
班级课程设置。 zorder
分完

私人小组denglu2_click （ ）
登陆。证明
卸下我
分完

私人小组jiaofeiadd_click （ ）
qxstr = executeqx （ 3 ）
如果qxstr = "假"或qxstr = "只读" ，那么
五= msgbox （ "对不起，你没有管理本功能的权限，请与管理员联系！ " ， vbinformation + vbokonly ， "警告" ）
出入境分
如果年底
学费设置添加。证明
学费设置添加。 zorder 0
分完

私人小组jiaofeibrowse_click （ ）
qxstr = executeqx （ 3 ）
如果qxstr = "假" ，然后
五= msgbox （ "对不起，你没有管理本功能的权限，请与管理员联系！ " ， vbinformation + vbokonly ， "警告" ）
出入境分
如果年底
学生交费浏览。证明
学生交费浏览。 zorder 0
分完

私人小组jiaofeifind_click （ ）
qxstr = executeqx （ 3 ）
如果qxstr = "假" ，然后
五= msgbox （ "对不起，你没有管理本功能的权限，请与管理员联系！ " ， vbinformation + vbokonly ， "警告" ）
出入境分
如果年底
分完

私人小组jibenkecheng_click （ ）
qxstr = executeqx （ 4 ）
如果qxstr = "假"或qxstr = "只读" ，那么
五= msgbox （ "对不起，你没有管理本功能的权限，请与管理员联系！ " ， vbinformation + vbokonly ， "警告" ）
出入境分
如果年底
基本课程设置。证明
基本课程设置。 zorder 0
分完