ÊÑ¿ô¤È¤½¤ÎÍøÍÑË¡

VB.Net¤Ç»È¤¨¤ëÊÑ¿ô¤Î·¿¤È¤½¤ÎÍøÍÑË¡¤Î³µÎ¬¤ò¤Þ¤Ê¤Ö¡£


ÊÑ¿ô

¥×¥í¥°¥é¥à¾å¤Ç¡¤±é»»¤·¤¿·ë²Ì¤ò°ì»þ³ÊǼ¤¹¤ëÆþ¤ìʪ¤òÊÑ¿ô¤È¤¤¤¦¡£

Àè½µ¤Î¥×¥í¥°¥é¥à¤ò¾¯¤·²þÊѤ¹¤ë¡£

    Private Sub btnPush_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPush.Click
        lblAnswer.Text = "»ä¤Ï" & txtName.Text & "¤Ç¤¹¡£"
    End Sub

¢­¡Ê½¤Àµ¡Ë

    Private Sub btnPush_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPush.Click
        Dim aiueo As String
        aiueo = txtName.Text
        aiueo = "»ä¤Ï" & aiueo & "¤Ç¤¹¡£"
        lblAnswer.Text = aiueo
    End Sub

Á´ÂΤΰÕÌ£¤Ï¡Ê¤Û¤È¤ó¤É¡ËÊѤï¤Ã¤Æ¤¤¤Ê¤¤¡£ º£²ó¤ÏÊÑ¿ôaiueo¤òƳÆþ¤·¤Æ¡¢Ãͤò°ì»þŪ¤ËÊݸ¤·¤Æ¤¤¤ë¡£
¤³¤ì¤ò¾Ü¤·¤¯¸«¤Æ¤¤¤¯¤³¤È¤Ë¤¹¤ë¡£


Dim aiueo As String

¡ÖÊÑ¿ôaiueo¤òʸ»úÎó·¿ÊÑ¿ô(String)¤È¤·¤Æ»ÈÍѤ¹¤ë¡×¤È¤¤¤¦Àë¸À¡£

¤³¤³¤Ç¡¢ÊÑ¿ô¤òÀë¸À¤·¤Æ¤¤¤ë¡£VB.Net¤Ç¤ÏÊÑ¿ô¤ÎÀë¸À¤Ïɬ¤º¤·¤âɬÍפǤϤʤ¤¤¬¡¢¶¯¤¯¿ä¾©¤¹¤ë¡£´ðËÜŪ¤Ê¹½Ê¸¤Ï°Ê²¼¤Î¤È¤ª¤ê¡£

Dim varname As Type

¤³¤³¤Ç¡¢varname¤ÏÊÑ¿ô̾¡¢Type¤Ï¤½¤ÎÊÑ¿ô¤Î·¿¤Ç¤¢¤ë¡£

ÊÑ¿ô̾

ÊÑ¿ô¤Î̾Á°¤Ï¡¢±Ñ¿ô»ú¤ÎÁȤ߹ç¤ï¤»¤Ç¡¢±Ñ»ú¤Ç¤Ï¤¸¤Þ¤Ã¤Æ¤¤¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£¤Þ¤¿¡¢Â羮ʸ»ú¤ò¶èÊ̤·¤Ê¤¤¡£

Àµ¤·¤¤ÊÑ¿ô̾
A1
Account
Goukei
aiueo
Àµ¤·¤¯¤Ê¤¤ÊÑ¿ô̾
Ͷâ»Ä¹â ÆüËܸì¤ÏÈò¤±¤ë
1234C1 ±Ñ»ú¤Ç»Ï¤Þ¤Ã¤Æ¤Ê¤¯¤Æ¤Ï¤¤¤±¤Ê¤¤
u$io ±Ñ¿ô»ú°Ê³°¤¬´Þ¤Þ¤ì¤Æ¤¤¤ë

·¿

ÊÑ¿ô¤Î·¿¡ÊType¡Ë¤Ë¤Ä¤¤¤Æ¤Ï¸å½Ò¤¹¤ë¡£


aiueo = txtName.Text

¥Æ¥­¥¹¥È¥Ü¥Ã¥¯¥¹txtName.Text¤ÎÆâÍÆ¤òÊÑ¿ôaiueo¤ËÂåÆþ¤¹¤ë¡£

ÊÑ¿ô¤Î»È¤¤Êý¤Ï¡¢¿ô³Ø¤Ë¤ª¤±¤ëÊÑ¿ô¤È¤Û¤ÜƱ¤¸¤Ç¤¢¤ë¡£

A = 123

¤Ï¡¢ÊÑ¿ôA¤ËÃÍ123¤òÂåÆþ¤¹¤ë¤³¤È¤ò°ÕÌ£¤¹¤ë¡£

Ãí°Õ¡§
¿ô³Ø¤Ç¤Ï¼Â¤ÏÛ£Ëæ¤Ç¤¢¤Ã¤¿¤¬¡¢
A=Z
¤Ï¡¢
¡ÖZ¤ÎÃͤòA¤ËÂåÆþ¤¹¤ë¡×
¤È
¡ÖZ¤ÎÃͤÈA¤ÎÃͤÏÅù¤·¤¤¡×
¤Î£²¤Ä¤Î°ÕÌ£¤¬¤¢¤ë¡£ VB.Net¤Ç¤â¤³¤Î£²Ä̤ê¤Î°ÕÌ£¤¬¤¢¤ë¤¬¡¢Ä̾ï¤Ï¡¢
¡ÖZ¤ÎÃͤòA¤ËÂåÆþ¤¹¤ë¡×
¤ò°ÕÌ£¤·¤Æ¤¤¤ë¡£


aiueo = "»ä¤Ï" & aiueo & "¤Ç¤¹¡£"

ÊÑ¿ôaiueo¤ÎÁ°¸å¤Ëʸ»úÎó¤òÄɲ䷤ƿ·¤·¤¤Ê¸»úÎó¤òºî¤ê¡¢¤½¤ì¤òÊÑ¿ôaiueo¤ËÂåÆþ¤¹¤ë¡£
Ãí°Õ¤·¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¤Î¤¬¡¢Î㤨¤Ð

A = A * 2

¤È¤¤¤Ã¤¿¹½Ê¸¤Ç¤¢¤ë¡£¤³¤ì¤Ï
A¤ÎÃͤò£²Çܤ·¤Æ¡¢ºÆ¤ÓA¤Ë³ÊǼ¤»¤è
¤ò°ÕÌ£¤¹¤ë¡£
A¤Î2ÇܤÈA¤¬Åù¤·¤¤¡¢¤È¤¤¤¦°ÕÌ£¤Ç¤Ï¤Ê¤¤


lblAnswer.Text = aiueo

ÊÑ¿ôaiueo¤ÎÆâÍÆ¤ò¥é¥Ù¥ëlblAnswer¤ÎText¥×¥í¥Ñ¥Æ¥£¤ËÂåÆþ¤¹¤ë¡£


¤Þ¤È¤á¤ë¤È¡¢¿·¥×¥í¥°¥é¥à¤ÎÆâÍÆ¤Ï¼¡¤Î¤è¤¦¤Ë¤Ê¤ë¡£

1)À°¿ô¤òÊݴɤ¹¤ë¤¿¤á¤ÎÊÑ¿ôaiueo¤òÍѰդ¹¤ë¡£
2)¥Æ¥­¥¹¥È¥Ü¥Ã¥¯¥¹txtName¤ÎText¥×¥í¥Ñ¥Æ¥£¤ò¼è¤ê½Ð¤·¡¢ÊÑ¿ôaiueo¤ËÂåÆþ¤¹¤ë¡£
3)ÊÑ¿ôaiueo¤ÎÃͤò»È¤Ã¤Æ±é»»¤ò¤ª¤³¤Ê¤¤¡¢¤½¤ì¤òºÆ¤ÓÊÑ¿ôaiueo¤ËÀßÄꤹ¤ë¡£
4)ÊÑ¿ôaiueo¤ÎÆâÍÆ¤ò¡¢¥é¥Ù¥ëlblAnswer¤ÎText¥×¥í¥Ñ¥Æ¥£¤ËÀßÄꤹ¤ë¡£

Ãí°Õ¡§

¤·¤Ä¤³¤¤¤¬¡¢
A=123
¤Ï¤¢¤¯¤Þ¤ÇÊÑ¿ôA¤ËÃÍ123¤òÂåÆþ¤¹¤ë¤ò°ÕÌ£¤¹¤ë¡£
¤·¤¿¤¬¤Ã¤Æ¡¢¤´¤¯¶Ï¤«¤ÊÎã³°¤ò½ü¤­
123=A
¤È¤¤¤¦Ê¸¤Ï¸í¤ê¤Ç¤¢¤ë¡£

¡ü¡¡ÊÑ¿ô¤ÎÀë¸À

ÊÑ¿ô¤Ï¼¡¤Î¤è¤¦¤ËÀë¸À¤¹¤ë¡£

Dim I As Integer
Dim money As Single
Dim Ttt As String
¤³¤ì¤Ë¤è¤ê¡¢Àë¸À¤µ¤ì¤¿ÊÑ¿ô¤Ï¡¢Àë¸À¤µ¤ì¤¿¥Ç¡¼¥¿¥¿¥¤¥×ÍѤËÍøÍѤǤ­¤ë¤è¤¦¤Ë¤Ê¤ë¡£

ÊÑ¿ô¤Ë¤Ï¥í¡¼¥«¥ëÊÑ¿ô¤È¥°¥í¡¼¥Ð¥ëÊÑ¿ô¤¬¤¢¤ê¡¢Àë¸À¤¹¤ë¾ì½ê¤Ç¶èÊ̤¹¤ë¤³¤È¤¬¤Ç¤­¤ë¡£

¥í¡¼¥«¥ëÊÑ¿ô

¥×¥í¥·¡¼¥¸¥ãÆâ¤ÇÀë¸À¤¹¤ë¡£ Í­¸úÈϰϤϤ½¤Î¥×¥í¥·¡¼¥¸¥ã¤ÎÃæ¤Î¤ß¤Ç¤¢¤ë¡£ ¾å¤ÎÎã¤Ç¡¢ÊÑ¿ôaiueo¤Ï¥í¡¼¥«¥ëÊÑ¿ô¤È¸Æ¤Ð¤ì¤ë¡£

Private Sub CmdDouble_Click(...)

¤«¤é

End Sub

¤ò¥×¥í¥·¡¼¥¸¥ã¤È¸Æ¤Ö¤¬¡¢Àë¸À¤µ¤ì¤¿¥×¥í¥·¡¼¥¸¥ãÆâ¤Ç¤·¤«Í­¸ú¤Ç¤Ï¤Ê¤¤¡£

¥°¥í¡¼¥Ð¥ëÊÑ¿ô

¤½¤Î¥Õ¥©¡¼¥à¥â¥¸¥å¡¼¥ëÁ´ÂΤÇÍøÍѤǤ­¤ëÊÑ¿ô¤Ç¤¢¤ë¡£
¥×¥í¥°¥é¥à¤ÎËÁƬ¤ÇÀë¸À¤¹¤ë¡£
¤³¤Î¤¿¤á¤Ë¤Ï¡¢¥³¡¼¥É¥¦¥£¥ó¥É¥¦¤Î¾å¤ÎÊý¤Î¥á¥Ë¥å¡¼¥Ð¡¼¤òÁàºî¤·¤Æ¡¤
(Declaration)¥×¥í¥·¡¼¥¸¥ãÆâ¤ÇÀë¸À¤¹¤ë¡£

¤³¤³¤ÇÀë¸À¤µ¤ì¤¿ÊÑ¿ô¤Ï¡¢¤½¤Î¥Õ¥©¡¼¥à¥â¥¸¥å¡¼¥ëÁ´ÂΤÇÍ­¸ú¤Ç¤¢¤ë¡£

°Ê¾å¤ò¿Þ¼¨¤¹¤ë¤È°Ê²¼¤Î¤è¤¦¤Ë¤Ê¤ë¡£

Dim a As Integer    ÊÑ¿ôA¤Ï¥°¥í¡¼¥Ð¥ëÊÑ¿ô¤Ç¤¢¤ê¡¢¤³¤Î¥Õ¥¡¥¤¥ëÁ´¤Æ¤ÇÍ­¸ú¡£
Private Sub Command1_Click(...)
Dim I As Single
¡¦¡¦¡¦¡¦¡¦
End Sub
I¤Ï¥í¡¼¥«¥ëÊÑ¿ô¡£
Command1_Click¥×¥í¥·¡¼¥¸¥ãÆâ¤Ç¤Î¤ßÍ­¸ú¡£
Command2_Click¥×¥í¥·¡¼¥¸¥ã¤ÎÊÑ¿ôI¤È¤Ï̵´Ø·¸¡£
Private Sub Command2_Click(...)
Dim I As Single
¡¦¡¦¡¦¡¦¡¦
End Sub
I¤Ï¥í¡¼¥«¥ëÊÑ¿ô¡£
Command2_Click¥×¥í¥·¡¼¥¸¥ãÆâ¤Ç¤Î¤ßÍ­¸ú¡£
Command1_Click¥×¥í¥·¡¼¥¸¥ã¤ÎÊÑ¿ôI¤È¤Ï̵´Ø·¸¡£

¡ü¡¡ÊÑ¿ô¤Î·¿

ÊÑ¿ô¤Ï·¿¡ÊType)¤ò»ý¤Ä¡£·¿¤Ï¡¢ÊÑ¿ô¤¬¤É¤Î¤è¤¦¤ÊÃͤòÊÝ»ý¤¹¤Ù¤­¤«¤ò»ØÄꤹ¤ë¤â¤Î¤Ç¤¢¤ë¡£Î㤨¤Ð¡¢Ê¸»úÎó¤òÊÝ»ý¤¹¤ëÊÑ¿ô¤Ïʸ»úÎó·¿ÊÑ¿ô¤Ç¤¢¤ë¡£¤Þ¤¿¡¢À°¿ô¤òÊÝ»ý¤¹¤ëÊÑ¿ô¤ÏÀ°¿ô·¿ÊÑ¿ô¤Ç¤¢¤ë¡£ Visual BASIC¤Ç¤Ï¡¢¼¡¤Î¤è¤¦¤Ê·¿¤¬¤¢¤ë¡£
 
¥Ð¥¤¥È(Byte) 0¡Á255
¥Ö¡¼¥ë(Boolean) ¿¿¡ÊTrue¡Ë¤Þ¤¿¤Ïµ¶¡ÊFalse¡Ë
ûÀ°¿ô·¿(Short) -32768 ¡Á 32767
À°¿ô·¿(Integer) -2147483648¡Á2147483647
ñÀºÅÙÉâÆ°¾®¿ôÅÀ·¿(Single) Éé¡¡-3.402823E38¡Á-1.401298E-45
Àµ¡¡1.401298E-45¡Á3.402823E38
ʸ»úÎó·¿(String) £°¡Á£²¥®¥¬¥Ð¥¤¥È
¥æ¡¼¥¶¡¼ÄêµÁ·¿

Ä̾ï¤Ï¡¢À°¿ô·¿(Integer)¤ÈñÀºÅټ¿ô·¿¡ÊSingle¡Ë¡¢Ê¸»úÎó·¿(String)¤ò°Õ¼±¤·¤Æ¤ª¤±¤Ð¤è¤¤¡£

VB.Net¤Ç¤Ï¡¢ÊÑ¿ô¤ÎÀë¸À»þ¤Ë¥Ç¡¼¥¿·¿¤ò¾Êά¤¹¤ë¤³¤È¤¬¤Ç¤­¤ë¤¬¡¢¤ª´«¤á¤·¤Ê¤¤¡£

Dim I

¤³¤Î¤è¤¦¤Ë¡¢¥Ç¡¼¥¿·¿¤ò¾Êά¤·¤¿¾ì¹ç¡¢¤½¤ÎÊÑ¿ô¤ÏObject·¿¤È¤ß¤Ê¤µ¤ì¤ë¡£Object·¿¤ÏÂåÆþ¤µ¤ì¤ë¥Ç¡¼¥¿¥¿¥¤¥×¤Ë¤è¤ê¿ôÃͤ«Ê¸»úÎó¤Ë¼«Æ°Åª¤Ë´ÉÍý¤µ¤ì¤ëÆÃ¼ì¤Ê¥Ç¡¼¥¿·¿¤Ç¤¢¤ë¡£
Object·¿¤ÏÊÑ¿ô¤Î·¿¤ò¼«Æ°Åª¤ËÊÑ´¹¤·¡¢Å¬Àڤ˽èÍý¤·¤Æ¤¯¤ì¤ë¤Î¤ÇÊØÍø¤Ç¤¢¤ë¤¬¡¢ÊÑ¿ô¤òÀë¸À¤·¤Ê¤¤¤ÈŤ¤¥³¡¼¥É¤ò½ñ¤¯¥×¥í¥°¥é¥à¤Ç¤Ï»×¤ï¤Ì¥Ð¥°¤È¤Ê¤ë¤³¤È¤¬¤¢¤ë¡£
¤³¤Î¤¿¤á¡¢¤³¤Î¤è¤¦¤Ê»ÈÍѤ϶ËÎÏÈò¤±¡¢¤­¤Á¤ó¤È·¿¤òÀë¸À¤¹¤ë¤³¤È¤ò¶¯¤¯¿ä¾©¤¹¤ë¡£

¡ü¡¡ÊÑ¿ô¤Ø¤ÎÂåÆþ

ÊÑ¿ô¤Ë¤Ï¡¢¤½¤Î·¿¤Ë¤¢¤Ã¤¿ÃͤòÂåÆþ¤Ç¤­¤ë¡£


Dim I As Integer
Dim money As Single
Dim Ttt As String

I=123
money=1.2234
Ttt="¤³¤ì¤Ïʸ»úÎó¤À"

ÆþÎϤ¹¤ëÃͤ¬Àë¸À¤µ¤ì¤¿¥Ç¡¼¥¿¥¿¥¤¥×¤È°Û¤Ê¤ë¾ì¹ç¤Ï¡¢¼«Æ°Åª¤ËÊÑ´¹¤µ¤ì¤ë¡£

Ttt=123

¿ôÃͤòÆþÎϤ·¤Æ¤¤¤ë¤¬¡¤Ttt¤Ïʸ»úÎ󷿤Ǥ¢¤ë¤Î¤Ç¡¢¿ôÃͤ¬Ê¸»úÎ󷿤ËÊÑ´¹¤µ¤ì¤ë¡£ ¼ÂºÝ¤ËTtt¤Ë³ÊǼ¤µ¤ì¤Æ¤¤¤ë¤Î¤Ï¿ôÃͤȤ·¤Æ¤Î£±£²£³¤Ç¤Ï¤Ê¤¯¡¢Ê¸»úÎó"123"¤Ç¤¢¤ë¡£

I=123.4

£±£²£³¡¥£´¤Ï¼Â¿ô¤Ç¤¢¤ë¤¬¡¤ÊÑ¿ôIÀ°¿ô·¿¤Ç¤¢¤ë¤Î¤Ç¡¢À°¿ô²½¤µ¤ì¤¿£±£²£³¤¬³ÊǼ¤µ¤ì¤ë¡£

money="ʸ»úÎó"

¤³¤ì¤Ï¥¨¥é¡¼¤Ë¤Ê¤ë¡£Ê¸»úÎó¤ò¼Â¿ô²½¤¹¤ë¤³¤È¤Ï¤Ç¤­¤Ê¤¤¡£
¤¿¤Þ¤¿¤Þ¡¢¿ô»ú¤È¤·¤ÆÆÉ¤á¤ëʸ»úÎó¤Ë¤Ä¤¤¤Æ¤Ï¡¢¤¦¤Þ¤¯¤¤¤¯¤¬¡¢¤½¤¦¤·¤¿¤³¤È¤ò¤ä¤ë¤Ù¤­¤Ç¤Ï¤Ê¤¤¡£

¤â¤Ã¤È¤â°ÂÁ´¤ÊÊýË¡¤Ï¡¢·¿ÊÑ´¹´Ø¿ô¤ò»È¤¦¤³¤È¤Ç¤¢¤ë¡£


Dim A as String
A = CStr(123.0)

¤³¤³¤Ç¡¢¼Â¿ô123.0¤ò´Ø¿ôCStr()¤ò»È¤Ã¤ÆÊ¸»úÎ󲽤·¤Æ¤¤¤ë¡£ ƱÍͤˡ¢


Dim B as Single
B = CSng( "123.0")

¤Ïʸ»úÎó"123.0"¤ò¼Â¿ô²½¤·¡¢


I = CInt("123.45")

¤ÏÀ°¿ô·¿¤ËÊÑ´¹¤¹¤ë´Ø¿ô¤Ç¤¢¤ë¡£

¡üÀ°¿ô·¿ÊÑ¿ô¤òÍѤ¤¤¿·×»»

¤³¤³¤Ç¤Ï¡¢À°¿ô·¿ÊÑ¿ô¤ò»È¤Ã¤Æ¡¢Ç¯Îð¤ò·×»»¤¹¤ë¤³¤È¤Ë¤¹¤ë¡£ Àè½µ¤Î¥×¥í¥°¥é¥àkadai01¤ò²þ¤¤¹¤ë¡£


Private Sub btnPush_Click(....)
	Dim Age As Integer
	Dim S As String
	Age = 2010 - CInt(txtBirthYear.Text) 
	S = "»ä¤Ï" & CStr(Age) & "ºÍ¤Ç¤¹"
	lblAnswer.Text = S
End Sub

¤³¤³¤Ç¤Ï¡¢¥Æ¥­¥¹¥È¥Ü¥Ã¥¯¥¹txtBirthYear¤ËÆþÎϤµ¤ì¤¿¥Ç¡¼¥¿¤ò¡¢´Ø¿ôCInt()¤òÍѤ¤¤ÆÀ°¿ô·¿¤ËÊÑ´¹¤·¡¢Ç¯Îð¤ò·×»»¤·¤Æ¤«¤éÀ°¿ô·¿ÊÑ¿ôAge¤Ë³ÊǼ¤·¤Æ¤¤¤ë¡£ ¤µ¤é¤Ë¤³¤ì¤ò´Ø¿ôCStr()¤òÍѤ¤¤ÆÊ¸»úÎ󲽤·¡¢¥é¥Ù¥ëlblAnswer¤Ëɽ¼¨¤·¤Æ¤¤¤ë¡£

²ÝÂꣲ

kadai01¤ò»²¹Í¤Ë¡¢¼¡¤Î¤è¤¦¤ÊVB.Net¥¢¥×¥ê¥±¡¼¥·¥ç¥ókadai02¤òºîÀ®¤»¤è¡£
²ÝÂê¤Ï°µ½Ì¤·¡¢gkjleplus@yahoo.co.jp¤Ë¥á¡¼¥ë¤¹¤ë¤³¤È¡£¡Ê²ÝÂêÄó½Ð¤ÎÃí°Õ»²¾È¡Ë