VB运行时，菜单中点击“Open”控件显示“子程序或函数未定义”

Private

Sub

Open_Click()

‘每次点击"open"时都会蹦出来一小框“

子程序

或函数未定义”

Data1DatabaseName

=

F:

实验九

"\studentmdb"

Data1RecordSource

=

"基本情况"

Data1Refresh

End

Sub你的这段代码中的这句话Data1DatabaseName

=

F:

实验九

"\studentmdb"

有错误，传的是字符串应该Data1DatabaseName

="

F:

\实验九\studentmdb"这样才把数据库的名字赋给它另外Private

Sub

Open_Click()

‘每次点击"open"时都会蹦出来一小框“子程序或函数未定义”

msgbox

"Hello"'Data1DatabaseName

=

F:

实验九

"\studentmdb"

'Data1RecordSource

=

"基本情况"

'Data1Refresh

End

Sub

你再把这3句注释一下，只加一个msgbox看看执行还出那个窗口么，如果不出就是里边的代码错误了，再把刚刚那句错了的语句改了试试看，有问题可以继续讨论

Sub 成绩级别判断()

Worksheets("Sheet1")Activate

Dim nums As Integer

nums = Cells(1, 2)Value

If nums > 90 And nums <= 100 Then

MsgBox "输入成绩的级别为:优秀!"

ElseIf nums >= 80 And nums <= 90 Then

MsgBox "输入成绩的级别为:良好!"

ElseIf nums >= 60 And nums <= 80 Then

MsgBox "输入成绩的级别为:及格!"

Else

MsgBox "输入成绩的级别为:不及格!"

End If

End Sub

'-----------------------------

'再试一下：

Sub 成绩级别判断()

Worksheets("Sheet1")Activate

Dim nums As Integer

nums = InputBox("请输入成绩:")

If nums > 90 And nums <= 100 Then

MsgBox "输入成绩的级别为:优秀!"

Else

If nums >= 80 And nums <= 90 Then

MsgBox "输入成绩的级别为:良好!"

Else

If nums >= 60 And nums <= 80 Then

MsgBox "输入成绩的级别为:及格!"

Else

MsgBox "输入成绩的级别为:不及格!"

End If

End If

End If

End Sub

以上就是关于VB运行时，菜单中点击“Open”控件显示“子程序或函数未定义”全部的内容，包括:VB运行时，菜单中点击“Open”控件显示“子程序或函数未定义”、VB 子程序或函数未定义、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！