{"id":2310,"date":"2011-08-10T11:50:51","date_gmt":"2011-08-10T02:50:51","guid":{"rendered":"http:\/\/www.moonmile.net\/blog\/?p=2310"},"modified":"2011-08-10T11:50:51","modified_gmt":"2011-08-10T02:50:51","slug":"visual-basic-%e3%81%ae-if-%e6%96%87%e3%81%af%e6%ad%b4%e5%8f%b2%e3%82%92%e8%a6%86%e3%81%99%e3%81%93%e3%81%a8%e3%81%8c%e3%81%a7%e3%81%8d%e3%82%8b-%e8%a8%b3%e3%81%af%e3%81%aa%e3%81%84","status":"publish","type":"post","link":"http:\/\/www.moonmile.net\/blog\/archives\/2310","title":{"rendered":"Visual Basic \u306e if \u6587\u306f\u6b74\u53f2\u3092\u8986\u3059\u3053\u3068\u304c\u3067\u304d\u308b…\u8a33\u306f\u306a\u3044"},"content":{"rendered":"

\u6280\u8853\u30e1\u30eb\u30de\u30ac\u30cd\u30bf<\/p>\n

\u9752\u6728\u300c\u6b74\u53f2\u306b if \u306f\u7121\u3044\u3068\u3044\u3046\u304c\u3001Visual Basic \u306b\u306f if \u304c\u3042\u308b\u30c3!!!\u300d
\n\u7530\u4e2d\u300c\u307e\u3041\u3001\u305d\u308a\u3083\u305d\u3046\u3067\u3057\u3087\u3046\u306d\u3002if \u6587\u304c\u306a\u3044\u3068\u6761\u4ef6\u5206\u5c90\u304c\u3067\u304d\u306a\u3044\u3057…\u300d
\n\u9752\u6728\u300c\u3057\u304b\u3057\u3001if \u304c\u7121\u3051\u308c\u3070\u3001\u524d\u3060\u3051\u5411\u3044\u3066\u9032\u3081\u3070\u3044\u3044\u3068\u3044\u3046\u5148\u751f\u306e\u8a71\u3082\u7406\u89e3\u3067\u304d\u308b\u3057\u300d
\n\u7530\u4e2d\u300c\u3044\u3084\u3001\u305d\u308c\u3001\u30e9\u30b8\u30aa\u306e CM \u3067\u3059\u3057…\u300d
\n\u9752\u6728\u300c\u3057\u304b\u3057\u3001if \u304c\u7121\u3051\u308c\u3070\u3001\u7ba1\u76f4\u4eba\u306e\u652f\u6301\u7387\u3082\u30a2\u30c3\u30d7\u30a2\u30c3\u30d7\u3060\u3063\u305f\u308f\u3051\u3060\u3057\u300d
\n\u7530\u4e2d\u300cif \u3068\u3044\u3046\u304b\u3001\u305d\u308c\u73fe\u5b9f\u3067\u3059\u3057…\u3068\u3044\u3046\u304b\u3001\u30a2\u30c3\u30d7\u30a2\u30c3\u30d7\u3063\u3066…\u300d
\n\u9752\u6728\u300c\u3057\u304b\u3057\u3001if \u304c\u7121\u3051\u308c\u3070\u3001\u5c0f\u5b66\u6821\u306e\u601d\u3044\u51fa\u304c\u3001\u4eca\u73fe\u5b9f\u306e\u3082\u306e\u3068\u306a\u308a\u3001\u4eca\u3053\u3053\u3067\u767a\u73fe\u3055\u308c\u305f\u30c1\u30a7\u30ec\u30f3\u30b3\u30d5\u5149\u304c\u300d
\n\u7530\u4e2d\u300cif \u3068\u3044\u3046\u304b\u3001\u8a33\u308f\u304b\u3089\u306a\u3044\u3057…\u3057\u304b\u3082\u3001\u6700\u5f8c\u304c\u5fae\u5999\u306b\u5371\u306a\u3044\u3057…\u300d
\n\u9752\u6728\u300c\u307e\u3041\u3001\u3042\u308c\u3060\u3088\u306a\u3002if \u3068\u304b select \u3068\u304b\u7121\u3044\u307b\u3046\u304c\u3001\u7269\u4e8b\u4e00\u76f4\u7dda\u3067\u5b89\u5168\u3060\u3088\u306a\u300d
\n\u7530\u4e2d\u300c\u3044\u3084\u3001\u732a\u7a81\u731b\u9032\u7ba1\u5185\u95a3\u81ea\u66b4\u81ea\u68c4\u66b4\u8d70\u832b\u6f20\u3068\u3044\u3046\u3053\u3068\u3067\u300d<\/p>\n

\u3053\u308c\u3082\u5374\u4e0b\u30cd\u30bf\u3002
\n\u6280\u8853\u30e1\u30eb\u30de\u30ac\u3067\u306f\u3001\u653f\u6cbb\u30cd\u30bf\u306f\u30aa\u30df\u30c3\u30c8\u3002<\/p>\n

\r\nPublic Class Form1\r\n\r\n    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click\r\n\r\n        Dim i1 As Integer = 0\r\n        Dim i2 As Integer = 2\r\n\r\n        ' \u5358\u7d14\u306a = \u6f14\u7b97\u5b50\r\n        If i1 = 0 Then\r\n\r\n        End If\r\n        ' \u5426\u5b9a\u306e\u305f\u3081\u306e <> \u6f14\u7b97\u5b50\r\n        If i1 <> 0 Then\r\n\r\n        End If\r\n        ' \u6bd4\u8f03\u6f14\u7b97\u5b50\r\n        If i1 < 0 Then\r\n\r\n        End If\r\n        ' Else \u3082\u4f7f\u3046\u3088\r\n        If i1 = 0 Then\r\n            ' \u30de\u30c3\u30c1\u3059\u308b\u5834\u5408\r\n        Else\r\n            ' \u30de\u30c3\u30c1\u3057\u306a\u3044\u5834\u5408\r\n        End If\r\n        ' ElseIf \u3082\u4f7f\u3046\u3088\r\n        If i1 = 0 Then\r\n            ' \u6700\u521d\u306e\u6761\u4ef6\u306b\u30de\u30c3\u30c1\u3059\u308b\u5834\u5408\r\n        ElseIf i1 = 1 Then\r\n            ' 2\u756a\u76ee\u306e\u6761\u4ef6\u306b\u30de\u30c3\u30c1\u3059\u308b\u5834\u5408\r\n        Else\r\n            ' \u305d\u308c\u4ee5\u5916\r\n        End If\r\n\r\n    End Sub\r\n\r\n    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click\r\n\r\n        ' 2 \u3064\u306e\u6761\u4ef6\u3092\u6307\u5b9a\u3059\u308b\r\n        Dim s1 As String = &quot;tonny&quot;\r\n        Dim s2 As String = &quot;masuda&quot;\r\n\r\n        ' \u4e21\u65b9\u306e\u6761\u4ef6\u3092\u4e00\u5ea6\u306b\u6e80\u305f\u3059\r\n        If s1 = &quot;tonny&quot; And s2 = &quot;masuda&quot; Then\r\n\r\n        End If\r\n        If s1 = &quot;tonny&quot; AndAlso s2 = &quot;masuda&quot; Then\r\n\r\n        End If\r\n        ' \u3069\u3061\u3089\u304b\u4e00\u65b9\u306e\u6761\u4ef6\u3092\u6e80\u305f\u3059\r\n        If s1 = &quot;tonny&quot; Or s2 = &quot;masuda&quot; Then\r\n\r\n        End If\r\n        If s1 = &quot;tonny&quot; OrElse s2 = &quot;masuda&quot; Then\r\n\r\n        End If\r\n\r\n        ' \u30d9\u30f3\u56f3\u3092\u4f7f\u3046\r\n        If s1 <> &quot;tonny&quot; Or s2 <> &quot;masuda&quot; Then\r\n\r\n        End If\r\n        ' \u8907\u96d1\u306a\u306e\u3067 not \u3092\u4f7f\u3046\r\n        If Not (s1 = &quot;tonny&quot; And s2 = &quot;masuda&quot;) Then\r\n\r\n        End If\r\n        ' \u6761\u4ef6\u304c\u591a\u304f\u3066\u5206\u304b\u308a\u3065\u3089\u3044\u5834\u5408\u306f\u3001if \u6587\u3092\u91cd\u306d\u308b\u3068\u826f\u3044\r\n        If s1 <> &quot;tonny&quot; Then\r\n            If s2 <> &quot;masuda&quot; Then\r\n\r\n            End If\r\n        End If\r\n\r\n    End Sub\r\n\r\n    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click\r\n\r\n        Dim s1 As String = &quot;tonny&quot;\r\n        Select Case s1\r\n            Case &quot;tonny&quot;\r\n                ' tonny \u306e\u5834\u5408\r\n            Case &quot;masuda&quot;\r\n                ' masuda \u306e\u5834\u5408\r\n            Case Else\r\n                ' \u4e0a\u8a18\u4ee5\u5916\r\n        End Select\r\n\r\n        ' \u5b9f\u306f if else \u3068\u540c\u3058\r\n        If s1 = &quot;tonny&quot; Then\r\n            ' tonny \u306e\u5834\u5408\r\n        ElseIf s1 = &quot;masuda&quot; Then\r\n            ' masuda \u306e\u5834\u5408\r\n        Else\r\n            ' \u4e0a\u8a18\u4ee5\u5916\r\n        End If\r\n\r\n        ' : \u3092\u4f7f\u3063\u3066\u77ed\u304f\u66f8\u3051\u308b\r\n        Dim s2 As String = &quot;&quot;\r\n        Select Case s1\r\n            Case &quot;tonny&quot; : s2 = &quot;\u30c8\u30cb\u30fc&quot;\r\n            Case &quot;masuda&quot; : s2 = &quot;\u5897\u7530&quot;\r\n            Case Else : s2 = &quot;\u30c8\u30cb\u30fc \u5897\u7530&quot;\r\n        End Select\r\n\r\n        ' \u95a2\u6570\u3092\u4f7f\u3063\u3066\u30b7\u30f3\u30d7\u30eb\u306b\r\n        Dim s3 As String = Check(s1)\r\n\r\n        ' \u6587\u5b57\u5217\u306e\u5834\u5408\u306f\u3001Dictonary \u3092\u4f7f\u3046\u65b9\u6cd5\u3082\u3042\u308b\r\n        ' \u3042\u3089\u304b\u3058\u3081\u8a2d\u5b9a\u3057\u3066\u304a\u304f\r\n        Dim dic As New Dictionary(Of String, String)\r\n        dic.Add(&quot;tonny&quot;, &quot;\u30c8\u30cb\u30fc&quot;)\r\n        dic.Add(&quot;masuda&quot;, &quot;\u5897\u7530&quot;)\r\n        ' \u8f9e\u66f8\u304b\u3089\u691c\u7d22\r\n        If dic.ContainsKey(s1) = True Then\r\n            s3 = dic(s1)\r\n        Else\r\n            s3 = &quot;\u30c8\u30cb\u30fc \u5897\u7530&quot;\r\n        End If\r\n\r\n    End Sub\r\n\r\n    ''' <summary>\r\n    ''' SELECT \u5185\u3067 Return \u3092\u4f7f\u3046\r\n    ''' <\/summary>\r\n    ''' <param name=&quot;str&quot;><\/param>\r\n    ''' <returns><\/returns>\r\n    ''' <remarks><\/remarks>\r\n    Private Function Check(ByVal str As String)\r\n        Select Case str\r\n            Case &quot;tonny&quot; : Return &quot;\u30c8\u30cb\u30fc&quot;\r\n            Case &quot;masuda&quot; : Return &quot;\u5897\u7530&quot;\r\n            Case Else : Return &quot;\u30c8\u30cb\u30fc \u5897\u7530&quot;\r\n        End Select\r\n    End Function\r\n\r\nEnd Class\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"
\u6280\u8853\u30e1\u30eb\u30de\u30ac\u30cd\u30bf \u9752\u6728\u300c\u6b74\u53f2\u306b if \u306f\u7121\u3044\u3068\u3044\u3046\u304c\u3001Visual Basic \u306b\u306f if \u304c\u3042\u308b\u30c3!!!\u300d \u7530\u4e2d\u300c\u307e\u3041\u3001\u305d\u308a\u3083\u305d\u3046\u3067\u3057\u3087\u3046\u306d\u3002if \u6587\u304c\u306a\u3044\u3068\u6761\u4ef6\u5206\u5c90\u304c\u3067\u304d\u306a\u3044\u3057…\u300d \u9752\u6728\u300c\u3057\u304b\u3057\u3001if \u304c … \u7d9a\u304d\u3092\u8aad\u3080 →<\/span><\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[33,32],"tags":[],"class_list":["post-2310","post","type-post","status-publish","format-standard","hentry","category-vb","category-32"],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/posts\/2310","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/comments?post=2310"}],"version-history":[{"count":1,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/posts\/2310\/revisions"}],"predecessor-version":[{"id":2311,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/posts\/2310\/revisions\/2311"}],"wp:attachment":[{"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/media?parent=2310"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/categories?post=2310"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/tags?post=2310"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}