作者sazxcdewq (小梁的GG被狗咬啦~(￣▽))
看板Visual_Basic
标题[.NET] select case的问题
时间Sat Mar 21 15:11:17 2009
理想中下面这个程式码输入12要等於180，用switch写的话是：
sumofN = sumofN + Microsoft.VisualBasic.Switch(i Mod 6 = 0, i,
i Mod 3 = 0, i^ 2, i Mod 2 = 0, i * 2, i, i)
输入12执行完是180没错，但是换成Select Case就写不太出来，拜托各位教我一下错在哪
了。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim N As Integer, errorflag As Boolean = True
Try
N = CInt(TextBox1.Text)
Catch ex As Exception
errorflag = False
MsgBox("请输入正确的数值")
End Try
If errorflag = True Then
If N >= 1 And N <= 10000 Then
Dim sumofN As Integer = 0
For i As Integer = 1 To N
Select Case N
Case i Mod 6 = 0
sumofN = sumofN + i
Case i Mod 2 = 0
sumofN = sumofN + i * 2
Case i Mod 3 = 0
sumofN = sumofN + i ^ 2
Case Else
sumofN = sumofN + i
End Select
Next
Label4.Text = CStr(sumofN)
Else
MsgBox("请输入正确的数值(1-10000)")
End If
End If
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 118.170.12.103
1F：→ MOONRAKER:你不需要select case，用多个if写才是正途 03/22 10:47