函数定义怎么也整不对，求大佬帮助 _ 综合讨论

查看: 219\|回复: 1	[版主回复] 函数定义怎么也整不对，求大佬帮助 [复制链接]

发送短消息 UID 9513723 帖子 4 精华 0 鲜花 11 朵铜币 32 个银币 17 个性别在线时间 0 注册时间 2025-11-21 最后登录 2025-12-03 389169460 查看公共资料搜索主题搜索帖子 zxin123662 zxin123 组别小学一年级 UID9513723 帖子4 精华0 鲜花11 朵铜币32 个银币17 个在线时间0 注册时间2025-11-21	1^# 字体大小: t T 发表于 2025-12-03 21:01 \| \|只看楼主 Function CreateDictionary() Dim dict Set dict = CreateObject("Scripting.Dictionary") dict.CompareMode = 1 ' 不区分大小写 dict.Add "Name", "张三" dict.Add "Age", 30 Set CreateDictionary = dict ' ? 必须使用 Set End Function ' 调用时也必须使用 Set Dim employee Set employee = CreateDictionary() ' ? 必须使用 Set ' 验证 TracePrint "姓名: " & employee("Name") TracePrint "年龄: " & employee("Age") 这段代码运行起来报错错误的参数个数或无效的参数属性值: 'F2730835_2229_445E_97C7_l3F76l2771DA', 我百度了说要使用Set 但是豪无用处，这究竟是怎么回事
	点赞

	回顶部

瑞祥幽冥狼

按键工程师 ● 兼职

组别超级版主
UID1228894
帖子27070
精华25
鲜花8246 朵
铜币36324 个
银币4981 个
在线时间421340
注册时间2012-07-18

2^#

字体大小: t T

发表于 2025-12-04 11:19 | |只看该用户

Function CreateDictionary()
Dim dict
Set dict = CreateObject("Scripting.Dictionary")
dict.CompareMode = 1 ' 不区分大小写
dict.Add "Name", "张三"
......
zxin123662 发表于 2025/12/3 21:01:38

注：你好函数不支持返回字典；按键不采用插件的情况下，也不支持表；单线程采用全局变量，直接函数外调用；多线程考虑ini代替

收徒索引 ← ← ← ← ← ← ← ← ← ← 点击

个人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8［将满］
个人 Q Q 2 : 6 1 7 0 9 5 5 4 3［可加］

回顶部

上一主题| 下一主题

[版主回复] 函数定义 怎么也整不对，求大佬帮助 [复制链接]

[版主回复] 函数定义怎么也整不对，求大佬帮助 [复制链接]