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 |
¢¡Ê½¤Àµ¡Ë
Á´ÂΤΰÕÌ£¤Ï¡Ê¤Û¤È¤ó¤É¡ËÊѤï¤Ã¤Æ¤¤¤Ê¤¤¡£
º£²ó¤ÏÊÑ¿ôaiueo¤òƳÆþ¤·¤Æ¡¢Ãͤò°ì»þŪ¤ËÊݸ¤·¤Æ¤¤¤ë¡£
¤³¤ì¤ò¾Ü¤·¤¯¸«¤Æ¤¤¤¯¤³¤È¤Ë¤¹¤ë¡£
Dim aiueo As String |
¡ÖÊÑ¿ôaiueo¤òʸ»úÎó·¿ÊÑ¿ô(String)¤È¤·¤Æ»ÈÍѤ¹¤ë¡×¤È¤¤¤¦Àë¸À¡£
¤³¤³¤Ç¡¢ÊÑ¿ô¤òÀë¸À¤·¤Æ¤¤¤ë¡£VB.Net¤Ç¤ÏÊÑ¿ô¤ÎÀë¸À¤Ïɬ¤º¤·¤âɬÍפǤϤʤ¤¤¬¡¢¶¯¤¯¿ä¾©¤¹¤ë¡£´ðËÜŪ¤Ê¹½Ê¸¤Ï°Ê²¼¤Î¤È¤ª¤ê¡£
Dim varname As Type
¤³¤³¤Ç¡¢varname¤ÏÊÑ¿ô̾¡¢Type¤Ï¤½¤ÎÊÑ¿ô¤Î·¿¤Ç¤¢¤ë¡£
ÊÑ¿ô̾ ÊÑ¿ô¤Î̾Á°¤Ï¡¢±Ñ¿ô»ú¤ÎÁȤ߹ç¤ï¤»¤Ç¡¢±Ñ»ú¤Ç¤Ï¤¸¤Þ¤Ã¤Æ¤¤¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£¤Þ¤¿¡¢Â羮ʸ»ú¤ò¶èÊ̤·¤Ê¤¤¡£
|
·¿
ÊÑ¿ô¤Î·¿¡Ê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¥×¥í¥Ñ¥Æ¥£¤ËÀßÄꤹ¤ë¡£ |
Ãí°Õ¡§
¤·¤Ä¤³¤¤¤¬¡¢ |
¡ü¡¡ÊÑ¿ô¤ÎÀë¸À
ÊÑ¿ô¤Ï¼¡¤Î¤è¤¦¤ËÀë¸À¤¹¤ë¡£
Dim I As Integer Dim money As Single Dim Ttt As String¤³¤ì¤Ë¤è¤ê¡¢Àë¸À¤µ¤ì¤¿ÊÑ¿ô¤Ï¡¢Àë¸À¤µ¤ì¤¿¥Ç¡¼¥¿¥¿¥¤¥×ÍѤËÍøÍѤǤ¤ë¤è¤¦¤Ë¤Ê¤ë¡£
ÊÑ¿ô¤Ë¤Ï¥í¡¼¥«¥ëÊÑ¿ô¤È¥°¥í¡¼¥Ð¥ëÊÑ¿ô¤¬¤¢¤ê¡¢Àë¸À¤¹¤ë¾ì½ê¤Ç¶èÊ̤¹¤ë¤³¤È¤¬¤Ç¤¤ë¡£
¥í¡¼¥«¥ëÊÑ¿ô ¥×¥í¥·¡¼¥¸¥ãÆâ¤ÇÀë¸À¤¹¤ë¡£ ͸úÈϰϤϤ½¤Î¥×¥í¥·¡¼¥¸¥ã¤ÎÃæ¤Î¤ß¤Ç¤¢¤ë¡£ ¾å¤ÎÎã¤Ç¡¢ÊÑ¿ôaiueo¤Ï¥í¡¼¥«¥ëÊÑ¿ô¤È¸Æ¤Ð¤ì¤ë¡£ Private Sub CmdDouble_Click(...) ¤«¤é End Sub ¤ò¥×¥í¥·¡¼¥¸¥ã¤È¸Æ¤Ö¤¬¡¢Àë¸À¤µ¤ì¤¿¥×¥í¥·¡¼¥¸¥ãÆâ¤Ç¤·¤«Í¸ú¤Ç¤Ï¤Ê¤¤¡£ |
¥°¥í¡¼¥Ð¥ëÊÑ¿ô
¤½¤Î¥Õ¥©¡¼¥à¥â¥¸¥å¡¼¥ëÁ´ÂΤÇÍøÍѤǤ¤ëÊÑ¿ô¤Ç¤¢¤ë¡£ ¤³¤³¤ÇÀë¸À¤µ¤ì¤¿ÊÑ¿ô¤Ï¡¢¤½¤Î¥Õ¥©¡¼¥à¥â¥¸¥å¡¼¥ëÁ´ÂΤÇ͸ú¤Ç¤¢¤ë¡£ |
°Ê¾å¤ò¿Þ¼¨¤¹¤ë¤È°Ê²¼¤Î¤è¤¦¤Ë¤Ê¤ë¡£
Dim a As Integer ÊÑ¿ôA¤Ï¥°¥í¡¼¥Ð¥ëÊÑ¿ô¤Ç¤¢¤ê¡¢¤³¤Î¥Õ¥¡¥¤¥ëÁ´¤Æ¤Ç͸ú¡£
|
¡ü¡¡ÊÑ¿ô¤Î·¿
ÊÑ¿ô¤Ï·¿¡Ê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¤Ë¥á¡¼¥ë¤¹¤ë¤³¤È¡£¡Ê²ÝÂêÄó½Ð¤ÎÃí°Õ»²¾È¡Ë |