teratail
回答率
85.35%
teratail header banner
teratail header banner
質問するログイン新規登録
トップに関する質問星座の判別がしたい (IF文内でエラーでて直りません)

編集履歴

質問編集履歴

3

修正

2020/03/09 06:53

投稿

fffu8
fffu8

スコア37

test CHANGED
File without changes
test CHANGED
@@ -52,11 +52,11 @@
52
52
 
53
53
 
54
54
 
55
- If Month()** = 1 Then
55
+ If Month() = 1 Then
56
-
57
-
58
-
56
+
57
+
58
+
59
- If day** < 20 Then
59
+ If day < 20 Then
60
60
 
61
61
  constellation = "やぎ座"
62
62
 
@@ -66,7 +66,7 @@
66
66
 
67
67
  End If
68
68
 
69
- ElseIf Month()** = 2 Then
69
+ ElseIf Month()　= 2 Then
70
70
 
71
71
 
72
72
 

2

修正

2020/03/09 06:53

投稿

fffu8
fffu8

スコア37

test CHANGED
File without changes
test CHANGED
@@ -4,11 +4,15 @@
4
4
 
5
5
  あと、プロシージャを使ってやっています。
6
6
 
7
+
8
+
9
+ If文のMonth()とdayの所で波線エラーがでています。
10
+
7
- 助けて頂けると助かります。
11
+ そこをどのように直したらうまくいくのか手助けして頂けたら幸いです。
12
+
13
+
14
+
8
-
15
+ ーーーーーーーーーコードーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
9
-
10
-
11
-
12
16
 
13
17
  Public Class Form_Main3_4
14
18
 
@@ -20,9 +24,9 @@
20
24
 
21
25
  Dim name As String = Me.TextBox_Name.Text
22
26
 
23
- Dim month As Integer =　Me.TextBox_Month.Text
27
+ Dim month As String =　Me.TextBox_Month.Text
24
-
28
+
25
- Dim day As Integer = Me.TextBox_Day.Text
29
+ Dim day As String = Me.TextBox_Day.Text
26
30
 
27
31
 
28
32
 
@@ -38,7 +42,7 @@
38
42
 
39
43
  End Sub
40
44
 
41
-
45
+ ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
42
46
 
43
47
  'Constellation作成
44
48
 
@@ -48,11 +52,11 @@
48
52
 
49
53
 
50
54
 
51
- If Month() = 1 Then
55
+ If Month()** = 1 Then
52
-
53
-
54
-
56
+
57
+
58
+
55
- If day < 20 Then
59
+ If day** < 20 Then
56
60
 
57
61
  constellation = "やぎ座"
58
62
 
@@ -62,7 +66,7 @@
62
66
 
63
67
  End If
64
68
 
65
- ElseIf Month() = 2 Then
69
+ ElseIf Month()** = 2 Then
66
70
 
67
71
 
68
72
 

1

コード修正

2020/03/09 06:52

投稿

fffu8
fffu8

スコア37

test CHANGED
File without changes
test CHANGED
@@ -20,15 +20,15 @@
20
20
 
21
21
  Dim name As String = Me.TextBox_Name.Text
22
22
 
23
- Dim month As Integer = CInt(Me.TextBox_Month.Text)
23
+ Dim month As Integer =　Me.TextBox_Month.Text
24
-
24
+
25
- Dim day As Integer = CInt(Me.TextBox_Day.Text)
25
+ Dim day As Integer = Me.TextBox_Day.Text
26
26
 
27
27
 
28
28
 
29
29
  'プロシージャにデータを渡す
30
30
 
31
- Dim constellation As String = GetConstellation(CStr(month), CStr(day))
31
+ Dim constellation As String = GetConstellation(month, day)
32
32
 
33
33
 
34
34