回答編集履歴
1
規約に沿った名称にコードを変更
test
CHANGED
@@ -16,9 +16,9 @@
|
|
16
16
|
|
17
17
|
'ユーザーテーブルをFetchする機能は一緒だから、同じメソッド名で統一
|
18
18
|
|
19
|
-
Dim name1 As String =
|
19
|
+
Dim name1 As String = FetchUser(1) 'IDからユーザー情報を取得(name1にはhogeが入る)
|
20
20
|
|
21
|
-
Dim name2 As String =
|
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
|
33
|
+
Private Function FetchUser(id As Integer) As String
|
34
34
|
|
35
35
|
'IDからユーザーを取得する
|
36
36
|
|
37
|
-
|
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
|
51
|
+
Private Function FetchUser(name As String, position As String) As String
|
52
52
|
|
53
53
|
'ユーザー名と役職から情報を取得
|
54
54
|
|
55
|
-
|
55
|
+
FetchUser = "fuga"
|
56
56
|
|
57
57
|
End Function
|
58
58
|
|