回答編集履歴
1
規約に沿った名称にコードを変更
answer
CHANGED
|
@@ -7,24 +7,24 @@
|
|
|
7
7
|
''' </summary>
|
|
8
8
|
Private Sub hoge()
|
|
9
9
|
'ユーザーテーブルをFetchする機能は一緒だから、同じメソッド名で統一
|
|
10
|
-
Dim name1 As String =
|
|
10
|
+
Dim name1 As String = FetchUser(1) 'IDからユーザー情報を取得(name1にはhogeが入る)
|
|
11
|
-
Dim name2 As String =
|
|
11
|
+
Dim name2 As String = FetchUser("hoge", "manager") '名称と役職からユーザー情報を取得(name2にはfugaが入る)
|
|
12
12
|
End Sub
|
|
13
13
|
''' <summary>
|
|
14
14
|
''' ユーザー情報をIDより取得する。
|
|
15
15
|
''' </summary>
|
|
16
16
|
''' <param name="id">ユーザーID</param>
|
|
17
|
-
Private Function
|
|
17
|
+
Private Function FetchUser(id As Integer) As String
|
|
18
18
|
'IDからユーザーを取得する
|
|
19
|
-
|
|
19
|
+
FetchUser = "hoge"
|
|
20
20
|
End Function
|
|
21
21
|
''' <summary>
|
|
22
22
|
''' ユーザー名と役職からユーザー情報を取得する
|
|
23
23
|
''' </summary>
|
|
24
24
|
''' <param name="name">ユーザー名</param>
|
|
25
25
|
''' <param name="position">役職</param>
|
|
26
|
-
Private Function
|
|
26
|
+
Private Function FetchUser(name As String, position As String) As String
|
|
27
27
|
'ユーザー名と役職から情報を取得
|
|
28
|
-
|
|
28
|
+
FetchUser = "fuga"
|
|
29
29
|
End Function
|
|
30
30
|
```
|