Question

好的我编辑了这个。这就是我到目前为止所拥有的。选项严格打开选项明确的

模块模块1

Sub Main()
    Dim numberofdays As Integer
    Dim month As Integer
    Dim year As Integer

    Select Case month
        Case 4, 6, 9, 11
            numberofdays = 30
        Case 1, 3, 5, 7, 8, 10, 12
            numberofdays = 31
        Case 2
            Select Case year
                Case 2004, 2008, 2012, 2016
                    numberofdays = 29
                Case Else
                    numberofdays = 28
            End Select
    End Select
    Console.WriteLine("Please enter your month")
    Console.ReadLine()
End Sub

结束模块现在我得到了它，但当你输入3没有任何东西出现我尝试输入写字线（这个月有31天），但仍然没有人可以告诉我我做错了什么。我正在使用精选案例。我还是新手，所以我不是那么提前谢谢。

Answer 1

您尝试将numberofdays称为方法，就像这样：

numberofdays(31)

我怀疑你是想将值赋给变量，如下所示：

numberofdays = 31

您还尝试使用month和year而不先给出值。您对哪个月感兴趣，哪一年？如果您对当前月份和年份感兴趣，可能需要使用：

Dim now As DateTime = DateTime.Now
Dim month as Integer = now.Month
Dim year as Integer = now.Year

请注意，如果这不仅仅是尝试使用该语言，您应该查看DateTime.DaysInMonth。

Answer 2

numberofdays(31)应为numberofdays = 31，并且在30天时为相同

Answer 3

要添加其他人所说的内容，您还需要修复以下行：

选择案例年（）

这应该是

选择案例年

（没有括号）。

有人能告诉我我可能做错了什么

3 个答案: