有人可以告訴我我可能會做錯什麼

好的我編輯了這個。這是我迄今爲止。選項嚴格在顯式的選項在有人可以告訴我我可能會做錯什麼

模塊

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

有人可以告訴我我可能會做錯什麼

回答

相關問題