|
|
[ÇóÖú]
ÇóÖú´óÉñ°ïæ½â¾öÒ»¸öÎÊÌâ
1£¬ÔĶÁ³ÌÐò
Sub form_click()
a = 10:
b = 15
c = 20
d = 25
Print a; Spc(5); b; Spc(7); c
Print a; Space$(8); b; Space$(5); c
Print c; Spc(3); "+"; Spc(3); d;
Print Spc(3); "="; Spc(3); c + d
End Sub
ÔËÐÐÉÏÃæµÄ³ÌÐò£¬µ¥»÷´°Ì壬Êä³ö½á¹ûÊÇ£¨ £©
2£¬ÔÚ´°ÌåÉϻһ¸öÎı¾¿ò£¬ÓÐÈçÏÂʼþ¹ý³Ì£º
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim char As String
char= Chr(KeyAscii)
KeyAscii = Asc(UCase(char))
Print String(6, KeyAscii)
End Sub
³ÌÐòÔËÐкó£¬Èç¹ûÔÚ¼üÅÌÉÏÊäÈë×Öĸ¡°a¡±£¬Ôò´°ÌåÉÏÏÔʾµÄ½á¹û£¨£© |
» ²ÂÄãϲ»¶
ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼±
ÒѾÓÐ9È˻ظ´
ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼±
ÒѾÓÐ4È˻ظ´
ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼±
ÒѾÓÐ6È˻ظ´
ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼±
ÒѾÓÐ4È˻ظ´
ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼±
ÒѾÓÐ5È˻ظ´
ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼±
ÒѾÓÐ5È˻ظ´
ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼±
ÒѾÓÐ8È˻ظ´
ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼±
ÒѾÓÐ10È˻ظ´
ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼±
ÒѾÓÐ6È˻ظ´
ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼±
ÒѾÓÐ6È˻ظ´
» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:
|