2007Äê9Ô¼ÆËã»ú¶þ¼¶VBÄ£ÄâÊÔÌâ(4)¼°´ð°¸

(7) ÔÚ´°ÌåÉÏ»­Á½¸ö×éºÏ¿ò£¬ÆäÃû³Æ·Ö±ðΪCombo1¡¢Combo2£¬È»ºó»­Á½¸ö±êÇ©£¬Ãû³Æ·Ö±ðΪLabel1¡¢Label2£¬ÈçͼËùʾ¡£³ÌÐòÔËÐкó£¬Èç¹ûÔÚij¸ö×éºÏ¿òÖÐÑ¡ÔñÒ»¸öÏîÄ¿£¬Ôò°ÑËùÑ¡ÖеÄÏîÄ¿ÔÚÆäÏÂÃæµÄ±êÇ©ÖÐÏÔʾ³öÀ´¡£ÇëÌî¿Õ¡£
                
Private Sub Combo1_Click()
   Call ShowItem(Combo1,Label1)
End Sub
Private Sub Combo2_Click()
   Call ShowItem(Combo2,Label2)
End Sub
Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)
    ¡¾10¡¿ ª±Caption= ¡¾11¡¿ ª±Text
End Sub
ÕýÈ·´ð°¸:  1.(tmpLabel) 2.(tmpCombo)

(8) ÔÚ´°ÌåÉÏ»­Ò»¸öÃû³ÆΪCommand1µÄÃüÁî°´Å¥£¬È»ºó±àдÈçÏÂʼþ¹ý³Ì£º
Private Sub Command1_Click()
n=5
f=1
s=0
For i=1 To n
   f=f ¡¾12¡¿
   s=s+f
Next
Print s
End Sub
¸Ãʼþ¹ý³ÌµÄ¹¦ÄÜÊǼÆËãµÄÖµ¡£ÇëÌî¿Õ¡£
ÕýÈ·´ð°¸:  1.(/i)

(9) ÔÚ´°ÌåÉÏ»­Ò»¸öÃû³ÆΪCommand1µÄÃüÁî°´Å¥£¬È»ºó±àдÈçϳÌÐò£º
Option Base 1
Private Sub Command1_Click()
   Dim a(10) As Integer
   For i=1 To 10
     a(i) =i
   Next
   Call swap ( ¡¾13¡¿ )
   For i=1 To 10
      Print a(i) ;
   Next
End Sub
Sub swap(b() As Integer)
   n= ¡¾14¡¿
For i=1 To n/2
   t=b(i)
   b(i) =b(n)
   b(n) =t
    ¡¾15¡¿
   Next
End Sub
ÉÏÊö³ÌÐòµÄ¹¦ÄÜÊÇ£¬Í¨¹ýµ÷Óùý³Ìswap£¬µ÷»»Êý×éÖÐÊýÖµµÄ´æ·ÅλÖ㬼´a(1) Óëa(10) µÄÖµ»¥»»£¬a(2) Óëa(9) µÄÖµ»¥»»£¬¡­¡­£¬a(5) Óëa(6) µÄÖµ»¥»»¡£ÇëÌî¿Õ¡£
ÕýÈ·´ð°¸:  1.(a) 2.(UBound(b)) 3.(n=n-1)

Ï£ÍûÓë¸ü¶à¼ÆËã»úµÈ¼¶¿¼ÊÔµÄÍøÓѽ»Á÷£¬Çë½øÈë¼ÆËã»úµÈ¼¶¿¼ÊÔÂÛ̳

¸ü¶àÐÅÏ¢Çë·ÃÎÊ£º¿¼Ê԰ɼÆËã»úµÈ¼¶¿¼ÊÔÀ¸Ä¿