找vb代做 有偿
急！！！！！！！

周日截止

这个其实百度上就有类似的

这个仅仅是个【课设】，复杂程度不高，没有必要找人做吧。

'　用代码创建一个文本框
Public Sub Create_Text(ByVal X As Integer, ByVal Y As Integer)
'　X：左边距离；Y：顶部距离
Dim T As Object
Static Num As Long
'　控件 T 的第一个参数是要添加的控件，第二个是控件名
Set T = Me.Controls.Add("VB.textbox", "Text" & Num, Me)
T.Left = X
T.Top = Y
T.Text = "Text" & Num '　指定控件文本内容
Num = Num + 1 '　防止下一个控件名重复
T.Visible = True '　设置控件可见
End Sub