vbµÄÒ»¸öСÎÊÌâ - VC/MFC / »ù´¡Àà

Private Sub Command1_Click()
mytext.Text = Str(taozi(1))
End Sub

Private Sub Form_load()
Dim begin As CommandButton
Dim mytext As TextBox
Set begin = Command1
Set mytext = Text1
mytext.Text = ""
begin.Caption = "È·¶¨"

End Sub
Public Function taozi(nihao As Integer) As Integer
taozi = nihao
For i = 1 To 7 Step 1
taozi = (taozi + 1) * 2
Next i
End Function


Ϊʲômytext.text´íÁË£¬Èç¹ûÔ­À´´°ÌåÉÏûÓÐcommand1ºÍtext1
¶øÎÒÏë×Ô¼ºÓÃset½¨Á¢¸ÃÈçºÎд¡£ÎÒÓÃset+new·¢ÏÖÓдíÎó!!

---

ÓÑÇé°ï¶¥£¬ÓÑÇé°ï¶¥
{{