麻烦老师帮忙改一下代码

2008-12-23 01:11:09 107 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VS Code+ESP-IDF开发避坑指南：头文件标红报错的5种解决方法（附CMakeLists.txt配置）本文详细解析了在VS Code中使用ESP-IDF开发ESP32时头文件标红报错的5种解决方法，包括环境配置检查、CMakeLists.txt规范配置、路径解析策略、缓存清理技巧和高级调试手段。特别提供了CMakeLists.txt的实战配置示例，帮助开发者彻底解决头文件路径问题，提升开发效率。阅读详情

Private Sub Command15_Click()
Dim str1 As String, c As String
Dim arr() As String
Dim ii As Integer, hh As Integer, y As Integer
Dim a(1 To 12) As String
Dim count(7 To 12) As Long
Dim s As Integer
Dim i As Long, j As Long, k As Long, m As Long
Dim h As String

For ii = 0 To List2.ListIndex
str1 = List2.List(ii)
arr = Split(str1, ",")

For i = 0 To 11
a(i + 1) = arr(i)
Next
For y = 1 To MSFlexGrid1.Rows - 1
s = MSFlexGrid1.TextMatrix(y, 1)
c = s

If Len(c) = 3 And IsNumeric(c) And InStr(1, c, "-") = 0 And InStr(1, c, ".") = 0 And InStr(1, c, "E") = 0 Then
For k = 1 To 3
For j = 7 To 12
If InStr(1, a(j), Mid(c, k, 1)) <> 0 Then count(j) = count(j) + 1
Next j
Next k
For m = 7 To 12
If count(m) <> 0 Then
h = h & count(m) & a(m - 6)
End If
Next
End If

hh = MSFlexGrid1.Col

MSFlexGrid1.TextMatrix(y, hh + ii) = h

Erase count
h = ""
Next
Next

End Sub
这段代码不能辨认类似于s=078的，只要s开头是0的都不能辨认，该如何改呢

...全文