OriosのActiveBasic講座(1-4):やってみようの答え(1-4)

#console
Dim height[2] As Double 'Dim height(2) As Doubleでも可だが非推奨。以下同じ(2005/05/12)
Dim weight[2] As Double
Dim i As Word
For i = 0 To 2
    Print Str$(i + 1) + "月の身長と体重を入力 -->";
    Input height[i], weight[i]
Next
Print "身長の平均:" + Str$(average(height, 3))
Print "体重の平均:" + Str$(average(weight, 3))
Sleep(3000)
End

'平均を求める関数
'(汎用性を持たせるために一応要素数を指定するようにしています。
'しかし要素数を指定せずForループを「i = 0 To 2」としても別に構いません。)
Function average (ByVal data As DoublePtr, ByVal element As DWord) As Double
    Dim i As DWord
    For i = 0 To (element - 1)
        average = average + data[i]
    Next
    average = average / element
End Function

#console
'(1)構造体・変数・プロシージャの名前などは適当に
'(2)With 〜 End Withは入れても入れなくても可
Type PERSONDATA
    name As String
    birth_year As Integer
End Type
Dim now_year As Integer
Dim persondata As PERSONDATA
Input "現在の西暦を入力してください -->", now_year
With persondata
    Input "名前と年齢をコンマで区切って入力してください -->", .name, .birth_year
End With
PrintAge(now_year, persondata)
Sleep(3000)
End

Sub PrintAge(ByVal ny As Long, ByRef pd As PERSONDATA)
    Dim age As Integer
    age = ny - pd.birth_year
    Print pd.name, age
End Sub

' 変数名・ダイアログボックスのタイトルバーなどは適当に
#console
Dim input_str As String
Dim str As BytePtr
Dim i As Integer
Input "何か文字(半角)を入力してください -->", input_str
' 文字の長さは、「入力された文字」+「間にはさむ『・』」+「NULL文字」です。
' (注) 間にはさむ「・」は文字の数より1つ少ないです(植木算の考え方)。
str = calloc(Len(input_str) + 2 * (Len(input_str) - 1) + 1)
lstrcpy(str, Chr$(input_str[0]))
For i = 1 To Len(input_str) - 1
    lstrcat(str, "・")
    lstrcat(str, Chr$(input_str[i]))
Next
MessageBox(0, str, "lesson1-4-3-try", MB_OK)
free(str)
End