撸1次涨1积分
子程序是指你程序里面调用的程序，来看一下你的程序，Command1_Click() 里面哪里是子程序或者函数，可以发现你调用了一个VB的内置函数MSG,你想用这个函数来输出提示信息，不错。但是，想法很好，函数却用错了，你看一下MSDn会发现根本没有MSG()，近似的有MSGBOX()，这个函数正是输出内容的函数。调用之:
msgbox ("注意,你的1号框里没有任何内空请加入.")
这样没有内容输入的时候，这个提示“注意,你的1号框里没有任何内空请加入.”的对话框旧出来了，学一个函数一定要搞清出他的来历，用法
打开word时，提示“ 子过程或函数未定义”如何解决，急急急！
A.故障分析：一般这种情况是跟宏里面的VBA编辑器有关系，或者是用户版本几用户安装了新的工具箱所导致工具宏无法运行，出现出现“子过程或函数未定义”的故障。
B.解决方法：
一、如果制作了worddot模板的话，应该是dot模板被修改了，找到normal.dot文件删除掉应该就可以了。或者尝试进入【C:UsersSolomanAppDataRoamingMicrosoftWordSTARTUP】这个文件夹中，删掉里边的文件即可。再来重新运行word应用程序查看是否有异常。
二、如果在出现这种情况是由于你从前安装的工具箱某种原因被修改，导致工具(宏)无法运行，而产生这个提示。这种情况建议你删除工具箱，或者重新安装office版本。
三、因为word2007版本跟word2003版本程序有很大的不同，所以可能你运行了word2007会出现宏提示：“子过程或函数未定义”窗口的现象。所以我们可以尝试下载一个office2003或者word2003应用程序使用。下载运行程序对其进行“工具”----宏--安全性”如图所示：
四、当然牵扯到如果你熟悉vba编辑器的话，选“工具”----宏----Visual Basic编辑器，删除里面的宏程序，估计会解决。具体操作还要看实际情况。
微软的OFFICE是最为流行的办公软件，主要有OFFICE2010和OFFICE2007两个版本。Office 2000是第三代办公处理软件的代表产品，可以作为办公和管理的平台，以提高使用者的工作效率和决策能力。Office 2000中文版有4种不同的版本：标准版、中小企业版、中文专业版和企业版。
在Office 2000中各个组件仍有着比较明确的分工：一般说来，Word主要用来进行文本的输入、编辑、排版、打印等工作；Excel主要用来进行有繁重计算任务的预算、财务、数据汇总等工作；PowerPoint主要用来制作演示文稿和幻灯片及投影片等；Access是一个桌面数据库系统及数据库应用程序；Outlook是一个桌面信息管理的应用程序；FrontPage主要用来制作和发布因特网的Web页面。
Microsoft Office XP是微软有史以来所发行的Office版本中最重要的版本，而且也被认为是迄今为止功能最强大、最易于使用的Office产品。新版Office放弃了以往以产品发布年命名的惯例！产品名称中的XP，是英文Experience（体验）的缩写，代表着新版Office在包容覆盖广泛设备的Web服务之后，将给用户带来丰富的、充分扩展的全新体验。
除核心的 Office XP 程序 — Microsoft Word、Excel、Outlook和 PowerPoint— 外，Office XP 专业版 中包含 Microsoft Access 2002，它是 Office XP 数据库解决方案，可帮助用户存储、访问和分析数据。
为什么提示子程序或函数未定义
Option Explicit
Private Sub Form_Click()
Dim X As Single, X_Input As String
Dim result As Single
Do
X_Input = InputBox("请输入一个X值")
If X_Input = "#" Then End
If Not IsNumeric(X_Input) Then
MsgBox "请重新输入!", 48 + vbOKOnly
Else
Exit Do
End If
Loop
X = Val(X_Input)
Sub1 X, result'调用过程，原来你的 y(x) 既不是函数也不是过程，测试一下对不对
Print result
End Sub
Private Sub Sub1(X As Single, Y As Single)
If X >= 1 Then
Y = 3 * X + 6
ElseIf -1 <= X < 1 Then
Y = 2
Else
Y = -5 * X - 3
End If
End Sub
子程序或函数未定义
光这些代码，4个地方需要在其他函数中预先定义或初始化
1、tm=tm+1 ，当然tm不初始化也没问题，默认初始值为0
2、N=A(J) ，这里A()没有初始化会报错
3、LoadPicture(T2(N)) ，这里T2()没有初始化也会报错
4、Label1=L1(A(A1)) ，这里L1()没有初始化也会报错
子程序或函数未定义
OpenPlay‘问题在这
你自己看清楚这些字母...
再看下你贴出来的第一行这里几个字母顺序Openpaly()
子程序或函数未定义
Option Base 1
Private Function FindMax(a() As Integer)
Dim Start As Integer
Dim Finish As Integer, i As Integer
Start = LBound(a)
Finish = UBound(a)
Max = a(Start)
For i = Start To Finish
If a(i) > Max Then Max = a(i)
Next i
FindMax = Max
End Function
Private Sub Command1_Click()
Dim arr1
Dim arr2(4) As Integer
arr1 = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text))
For i = 1 To 4
arr2(i) = CInt(arr1(i)) 'arr--->arr1
Next i
M = FindMax(arr2)
Print "最大值是: "; M
End Sub
for i 循环内 变量名写错了。
子程序或函数未定义问题
lblbomb.Caption = lblbomb.Caption + Chr(97 + Int(26 * Rnd))
写成Rnd()行吗?
提示子程序或函数未定义
你是用Picture控件,那控件名字叫什么?用了8个了吗？如果是一个的时候，一般是直接Picture1.Picture来引用，你现在在它后面直接加变量，有Picture1(1).Picture……Picture1(8).Picture，这样函数？检查
转载请注明出处51数据库 » word子程序或函数未定义 子程序或函数未定义为什么
