主题：简单的问题

定义 s 在 整数 （5 7 9 11 13 15 17 21 23 25 27 29 31 ） 的范围内  

 

这句话  怎么写码？

 

自己弄了半天总出错。

 

 

Dim ary() As Integer = {5, 7, 9, 11, 13, 15, 17, 21, 23, 25, 27, 29, 31}
Dim s As Integer = 12

If array.IndexOf(ary,s) > -1 Then
    msgbox("正确")
Else
    msgbox("错误")
End If

发现甜老师很伟大！

 

感谢您的帮助！

 

I‘m  new ！

Dim t As Table = Tables("红球跨度")
Dim lq As String = ("跨度")
Dim pr As Row = Nothing
For ii As Integer = 0 To t.Rows.Count - 1
    Dim rr As Row = t.Rows(ii)
   
    Dim ary() As Integer = {5, 7, 9, 11, 13, 15, 17, 21, 23, 25, 27, 29, 31}
    Dim m As Integer In arp()
        If rr(lq) = ary(m) Then
            rr("奇偶1") = 0
        Else
            If pr Is Nothing Then
                rr("奇偶1") = 1
            Else
                rr("奇偶1") = pr("奇偶1") + 1
            End If
        End If
   
    pr = rr
Next

 

 

 

这个弄完之后告诉我应该为语句结束   是什么意思？

 

我的逻辑是，假如跨度列某行的值是这组数里的值，那么对应在 奇偶1 列某行显示的是0   ，

否则 奇偶1 列自动累加1 。 直到下一次是0的时候再重新开始累加1

 

大概形式如下

跨度列   ： 5   10    6    8    15  22  20    9    9   16 .........

奇偶1 列： 0    1     2    3     0    1   2     0    0     1 .........

 

 对应例子上传上来

 

Dim t As Table = Tables("红球跨度")
Dim lq As String = ("跨度")
Dim pr As Row = Nothing
For ii As Integer = 0 To t.Rows.Count - 1
    Dim rr As Row = t.Rows(ii)
   
    Dim ary() As Integer = {5, 7, 9, 11, 13, 15, 17, 21, 23, 25, 27, 29, 31}
    If array.IndexOf(ary,rr(lq)) > -1 Then
        rr("奇偶1") = 0
    Else
        If pr Is Nothing Then
            rr("奇偶1") = 1
        Else
            rr("奇偶1") = pr("奇偶1") + 1
        End If
    End If
   
    pr = rr
Next

你的码  OK 了！

 

谢谢 甜

 

你们辛苦了！真的！