Arrays 我试图将输出显示为可用范围（列表），而不是可用点列表 Dim A（0到100）”可用性阵列 对于i=0至20’，开始切割和固定 A（i）=1 下一个 对于j=40至60'手柄插入件 A（j）=1 下一个 k=80至100'端部切口和销 A（k）=1 下一个 Dim oText1作为字符串 对于l=0到100 如果A（l）1那么 oText1=oText1&“可用空间来自”&l&vbLf 如果结束 下一个 MessageBox.Show（oText1） '消息框.显示（A（5））

有了这个代码，我得到了一个显示为

但是，我希望得到如下输出：

空间在21到39之间 空间在61到79之间

---

试图学习编码的机械工程师：-） 谢谢

有什么有用的吗？

Dim A(0 To 100) 'Availability Array
For i = 0 To 20 ' Start cut and Pin
A(i) = 1 
Next
For j = 40 To 60 'Handle Insert
A(j) = 1
Next
For k = 80 To 100 'End cut and Pin
A(k) = 1
Next
Dim oText1 As String

For l = 0 To 100
    If A(l) <> 1 Then
        oText1 = oText1 & "The space avaialable is from " & l & vbLf
    End If
Next
MessageBox.Show(oText1)

'MessageBox.Show(A(5))