咨询数据类型不匹配问题

2014-03-15 01:23:04 344 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Android应用开发从零到一：基于Kotlin与Jetpack Compose的完整实践指南移动应用开发的核心在于构建一个架构清晰、可维护且可扩展的应用基础。理解应用架构的原理，如关注点分离和数据驱动UI，是实现高质量应用的关键技术价值。在现代Android开发中，Kotlin语言凭借其空安全特性和协程，能有效提升代码的健壮性与开发效率。Jetpack Compose作为声明式UI框架，代表了UI开发的未来方向，与Kotlin协程深度集成，简化了复杂交互界面的构建。这些技术共同服务于个人任务管理、企业工具等多种应用场景。本文以构建一个完整的个人任务管理应用为例，系统阐述从环境搭建、UI构建、数据持阅读详情

Sub test()
’通过下面6句把一个数组传递给cheng函数，则在cheng函数的sigma = sigma + CLng(val)处提示数据“类型不匹配”，我原来是sigma = sigma + val，提示类型不匹配，于是修改为sigma = sigma + CLng(val)，还是提示类型不匹配。什么原因？怎么修改呢？

Dim x As Variant
Dim sz(1 To 3) As Variant
For x = 1 To 3
sz(x) = x
Next x
MsgBox cheng(sz)

‘直接用下面语句调用，cheng函数能正常返回结果
'MsgBox cheng(1, 2, 3, 4, 5, 6)
End Sub

Function cheng(ParamArray vals() As Variant)
Dim val As Variant
Dim sigma As Long
sigma = 0
For Each val In vals
'MsgBox TypeName(val)
'MsgBox TypeName(sigma)
sigma = sigma + CLng(val)
Next
cheng = sigma
End Function

...全文