帮我翻译一下VB中的语句

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 + vb

帮我翻译一下VB中的语句 请帮我翻译一下VB的语句吧 flash中的语句帮我翻译一下，就2句 谢谢， 帮我翻译一下痞子菜的经典语句! 谁可以帮我翻译一下文献资料(语句要通顺) 谁能帮我翻译这个VB语句? vb中的焦点语句 VB中的If语句 VB中的kill语句 数码相机中的英语帮我翻译一下