有人可以告诉我我可能会做错什么

好的我编辑了这个。这是我迄今为止。选项严格在显式的选项在有人可以告诉我我可能会做错什么

模块

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全无类型来了，我试图把在的WriteLine（本月模块1已经有31天了），但仍然没有人能告诉我我做错了什么。我正在选择案例。我仍然对此感到陌生，所以我没有提前感谢。

来源

2011-02-14 norris1023

你得到的错误是什么。你提出的问题越具体，你就越有可能得到答案 – 2011-02-14 16:51:32

你试图调用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。

来源

2011-02-14 16:52:10

该死的，你为什么这么快？ – 2011-02-14 16:54:26

两者都导致2月可以去28或29天取决于年份。 – norris1023 2011-02-14 17:00:11

numberofdays(31)应该是当它是30天

来源

2011-02-14 16:52:20 Matt

要添加什么其他人说numberofdays = 31相同，需要解决以下行太：

选择案例年（）

这应该是

选择案例一年

（无支架）。

来源

2011-02-14 17:17:57 Polyfun

有人可以告诉我我可能会做错什么

回答

相关问题