MsgBox MsgSub("abc", "def") Function MsgSub (str1, str2) MsgSub = str1 & chr(13) & str2 ' vbCrLf End Function
str1 = "abc" str2 = "def" str3 = "ghi" MsgBox MsgSub(str1, str2, str3) MsgBox str1 & vbCrLf & str2 & vbCrLf & str3 Function MsgSub (ByRef str1, ByVal str2, str3) MsgSub = str1 & vbCrLf & str2 & vbCrLf & str3 str1 = "dame" ' 元の文字列の変更は有効 ByRef (参照渡し) str2 = "dame" ' 元の文字列への変更は無効 ByVal (値渡し) str3 = "dame" ' 元の文字列の変更は有効 無指定(参照渡し) End Function
挑戦をやめないで
し:なにやってるにゃ
は:しゅくたいでちゅ
い:タイムし
し:けっにゃ
は:あほでちゅ
い:ジュニアハイスクールっと
し:けっこんにゃ
は:あっべにあずまでちゅ
い:はんざいせいをあっぱくするようそでし
し:くったくったにゃ
は:ずいずいずっころばしごまみそずいでちゅ
い:にほんし
し:にんげんにゃ
は:にげるでちゅ
さ:あなた、そんな に のんじゃだめよ
わ:おちゃくらいのませろ
い:それすみです
し:にんげんにゃ
は:にんげんでちゅ
い;に < や < の かったりぃ~
* 本年の抱負 訪中防火日対策と跳戦意創出
し:なにやってるにゃ
は:しゅくたいでちゅ
い:タイムし
し:けっにゃ
は:あほでちゅ
い:ジュニアハイスクールっと
し:けっこんにゃ
は:あっべにあずまでちゅ
い:はんざいせいをあっぱくするようそでし
し:くったくったにゃ
は:ずいずいずっころばしごまみそずいでちゅ
い:にほんし
し:にんげんにゃ
は:にげるでちゅ
さ:あなた、そんな に のんじゃだめよ
わ:おちゃくらいのませろ
い:それすみです
し:にんげんにゃ
は:にんげんでちゅ
い;に < や < の かったりぃ~
* 本年の抱負 訪中防火日対策と跳戦意創出
「いやよいやよも好きのうち」とはたがゆうた。
“いや”といわれるとおことわり
“いぃわ”といわれるとおことわり
ことばを科学することに意味はあるのだろうか
いっしょふがべんきょうとこころにとめおき
ことしのはしめとしたいとたとえる
カラオケBOXは大学のころはよく通ったものだけれども、
うたをうたうと最後の繰り返しがどうしてもむずかしくて;
Keep Tryin'
“いや”といわれるとおことわり
“いぃわ”といわれるとおことわり
ことばを科学することに意味はあるのだろうか
いっしょふがべんきょうとこころにとめおき
ことしのはしめとしたいとたとえる
カラオケBOXは大学のころはよく通ったものだけれども、
うたをうたうと最後の繰り返しがどうしてもむずかしくて;
Keep Tryin'