在 SegmentFault，学习技能、解决问题
每个月，我们帮助 1000 万的开发者解决各种各样的技术问题。并助力他们在技术能力、职业生涯、影响力上获得提升。
问题对人有帮助，内容完整，我也想知道答案
问题没有实际价值，缺少关键内容，没有改进余地
python 2,不能用 三的nonlocal我需要在一个函数内定义一个新的函数，且这个内部函数可以访问外部函数的变量我做了如下尝试，但结果不对： 结果是2 4 6 6 6 6，我希望的结果是2 4 6 6 4 2
def outer(s):
if s == 4:
outer.OuterVar = s
def inner():
#这里不能用lambda因为实际情况下这个函数内部有非常多的内容
outer.OuterVar = outer.OuterVar * 2
print outer.OuterVar，
outer(s+1)
print outer.OuterVar，
if __name__ == "__main__":
补充说明一下
我希望的代码是这样的，注释掉的代码那行会报错。
def outer(s):
if s == 4:
OuterVar = s
def inner():
#OuterVar = OuterVar * 2
print OuterVar,
outer(s+1)
print OuterVar,
if __name__ == "__main__":
同步到新浪微博
分享到微博？
关闭理由：
删除理由：
忽略理由：
推广（招聘、广告、SEO 等）方面的内容
与已有问题重复（请编辑该提问指向已有相同问题）
答非所问，不符合答题要求
宜作评论而非答案
带有人身攻击、辱骂、仇恨等违反条款的内容
无法获得确切结果的问题
非开发直接相关的问题
非技术提问的讨论型问题
其他原因（请补充说明）
我要该，理由是：
在 SegmentFault，学习技能、解决问题
每个月，我们帮助 1000 万的开发者解决各种各样的技术问题。并助力他们在技术能力、职业生涯、影响力上获得提升。vb编译错误：缺少变量或过程，不是模块_百度知道
vb编译错误：缺少变量或过程，不是模块
Dim YearNow1 As IntegerDim MonthNow1 As IntegerMonthNow1 = Month(Now)YearNow1 = Year(Now)在模块中编译出错：缺少变量或过程，不是模块在窗口中就没事，为什么？
我有更好的答案
编译错误： 缺少变量或过程，不是模块。 '这个是模块中的代码，（不在窗体的代码区内，在一个模块文件中） Public
SEND_SERINFO(IP
main.wsk1.RemoteHost
main.wsk1.SendData
&SER_INFO &
Sub '然后在窗体代码模块中调用 call
send_serinfo(ip,text) 然后进行调试
采纳率：70%
MonthNow1 = Month(Now)YearNow1 = Year(Now)像这样的赋值语句，须放在过程 Sub......End Sub 或· Function......End Function 内。
在Public Sub中的
本回答被网友采纳
是不是没有private sub form-click（）语句？
在模块中，必须写在一个sub或者functiong当中。
在Public Sub中的
你给几个变量赋值，这算什么程序，没有计算，没有输出
其他2条回答
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。VB中为什么说缺少子程序，函数或属性_百度知道
VB中为什么说缺少子程序，函数或属性
提示说倒数第三行中的S有问题，可是我跟教材对比过，没发现问题请各位指教
我有更好的答案
Print &圆的面积为：& : S把冒号改成分号，为 Print &圆的面积为：& ; S下边那一句也一样 冒号用来分隔一行中的几条语句，用冒号的话，编译器会把变量S解释为过程，当然就出错了
采纳率：36%
为您推荐：
其他类似问题
您可能关注的内容
函数的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。VB缺少函数或者变量 急！求大神_百度知道
VB缺少函数或者变量 急！求大神
Private Sub Command1_Click()
If Text1.Text = && Or Text2.Text = && Or Text3.Text = && Or Text4.Text = && Or Text6.Text = && Or Text7.Text = && Or Text8.Text = && Or Text9.Text = && Or Text10.Text = && Or Text11.Text = && Or Tex...
我有更好的答案
Datal.Refresh 刷新嘛，少了个点。我看也不用了，应该是：.Recordset.UpdateText1.Text = && Or Text2.Text = && Or Text3.Text = && Or Text4.Text = && Or Text6.Text = && Or Text7.Text = && Or Text8.Text = && Or Text9.Text = && Or Text10.Text = && Or Text11.Text = && Or Text12.Text = && Or Text13.Text = && Or Text14.Text = && Or Text15.Text = && Or Text16.Text = &&这串也不对，文本框清空，不要有Or。把Or替换为冒号，或一行一句赋值语句也可。
采纳率：77%
来自团队：
Datal Refresh改为.Refresh
为您推荐：
其他类似问题
函数的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。查看: 1150|回复: 2
自定义函数老提示“缺少函数或变量”
阅读权限20
在线时间 小时
Sub mydisk()&&'获得硬盘的物理序列号
Dim n As String
Set WMI = GetObject(&winmgmts:&)
strCls = &Win32_PhysicalMedia&
strKey = strCls & &.Tag=&&\\\\.\\PHYSICALDRIVE0& & &&&&
n = Trim(WMI.InstancesOf(strCls)(strKey).serialnumber)
mydisk = n
Set WMI = Nothing
为什么 mydisk = n 老提示缺少函数或变量，谢谢指点
阅读权限100
在线时间 小时
原帖由 dingjz888 于
21:06 发表
Sub mydisk()&&'获得硬盘的物理序列号
Dim n As String
Set WMI = GetObject(&winmgmts:&)
strCls = &Win32_PhysicalMedia&
strKey = strCls & &.Tag=&&\\\\.\\PHYSICALDRIVE0& & &&&&
n = Trim(WMI.InstancesO ...
自定义函数请使用：Function，而不是 Sub！后者是过程，不是函数！
阅读权限20
在线时间 小时
谢谢，是这样。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师}