Private Const 栄養 as Long = 2
Private Function 食事() As String
Dim 食物 as String
Dim 消化 as Long
For 消化=0 To 栄養 Step 1
　Select Case 消化
Case 0
食物="う"
Case 1
食物=食物 & "ん"
Case 2
食物=食物 & "こ"
Next 消化
食事=食物
End Function

次の人がコンパイルしてあげましょうー
VBはコンパイルしなくても動くじゃんって突っ込はなしで（ｗ
C,Java何でも皆でコンパイルしましょう
うｎこ