2009Äê9Ô¼ÆËã»úµÈ¿¼¶þ¼¶VBÄ£ÄâÌâ¼°½âÎö(11)

¡¡¡¡(29) ÔÚ´°ÌåÉÏ»­Ò»¸öÃüÁî°´Å¥£¬È»ºó±àдÈçÏÂʼþ¹ý³Ì£º

¡¡¡¡Private Sub Command _Click()

¡¡¡¡s=0

¡¡¡¡Do

¡¡¡¡s=(s + 1) ª³ (s + 2)

¡¡¡¡Number=Number + 1

¡¡¡¡Loop Until s >=30

¡¡¡¡Print Number, s

¡¡¡¡End Sub

¡¡¡¡³ÌÐòÔËÐкó£¬Êä³öµÄ½á¹ûÊÇ

¡¡¡¡A) 2 3

¡¡¡¡B) 3 182

¡¡¡¡C) 5 12

¡¡¡¡D) 10 20

¡¡¡¡ÕýÈ·´ð°¸: B

¡¡¡¡(30) ÓÐÈçϳÌÐò£º

¡¡¡¡Private Sub Command1_Click()

¡¡¡¡a$="A WORKER IS HERE"

¡¡¡¡x=Len(a$)

¡¡¡¡For i=1 To x - 1

¡¡¡¡b$=Mid$(a$, i, 3)

¡¡¡¡If b$="WOR" Then S=S + 1

¡¡¡¡Next

¡¡¡¡Print S

¡¡¡¡End Sub

¡¡¡¡µ¥»÷ÃüÁî°´Å¥£¬³ÌÐòÔËÐнá¹ûΪ

¡¡¡¡A) 1

¡¡¡¡B) 2

¡¡¡¡C) 3

¡¡¡¡D) 5

¡¡¡¡ÕýÈ·´ð°¸: A