回答編集履歴

1

規約に沿った名称にコードを変更

2017/04/12 01:17

投稿

motuo
motuo

スコア3027

test CHANGED
@@ -16,9 +16,9 @@
16
16
 
17
17
  'ユーザーテーブルをFetchする機能は一緒だから、同じメソッド名で統一
18
18
 
19
- Dim name1 As String = fetchUser(1) 'IDからユーザー情報を取得(name1にはhogeが入る)
19
+ Dim name1 As String = FetchUser(1) 'IDからユーザー情報を取得(name1にはhogeが入る)
20
20
 
21
- Dim name2 As String = fetchUser("hoge", "manager") '名称と役職からユーザー情報を取得(name2にはfugaが入る)
21
+ Dim name2 As String = FetchUser("hoge", "manager") '名称と役職からユーザー情報を取得(name2にはfugaが入る)
22
22
 
23
23
  End Sub
24
24
 
@@ -30,11 +30,11 @@
30
30
 
31
31
  ''' <param name="id">ユーザーID</param>
32
32
 
33
- Private Function fetchUser(id As Integer) As String
33
+ Private Function FetchUser(id As Integer) As String
34
34
 
35
35
  'IDからユーザーを取得する
36
36
 
37
- fetchUser = "hoge"
37
+ FetchUser = "hoge"
38
38
 
39
39
  End Function
40
40
 
@@ -48,11 +48,11 @@
48
48
 
49
49
  ''' <param name="position">役職</param>
50
50
 
51
- Private Function fetchUser(name As String, position As String) As String
51
+ Private Function FetchUser(name As String, position As String) As String
52
52
 
53
53
  'ユーザー名と役職から情報を取得
54
54
 
55
- fetchUser = "fuga"
55
+ FetchUser = "fuga"
56
56
 
57
57
  End Function
58
58