主题：向各位高手求助

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:代码求助.rar

怎样用代码实现上传例子的要求？具体请看图片上的解释，是否能实现？

参考

Dim d As Date = "2019-5-27"
Dim n As Integer = 5
Dim x, y As Integer
For i As Integer = 0 To n-1
    If (d.day+i) Mod n = 0 Then
        x = i
        y = (d.day+i) \ n
        Exit For
    End If
Next
msgbox(x)
msgbox(y)
If x Mod 2 = 0 Then
    x = x+y
    msgbox("文本框" & x)
Else
    If y > x Then
        x = y-x
        msgbox("文本框" & x)
    ElseIf x > y Then
        x = x-y
        msgbox("文本框" & 13-x)
    Else
        msgbox("文本框1")
    End If
End If

谢谢！