你的来信已收到，已作更正。新邮件已发出，请查收。PS:我调试没错，你说不正确，请举例说明。不然我怎么找错误？ text1和text2设置为多行加垂直滚动条Private Sub Command1_Click()Dim myName() As String, myNumber As String, myString As String, i As Integer, j As IntegermyName = Split(Text1.Text, vbCrLf)For i = 0 To UBound(myName) If Text3.Text Then myNumber = For j = 1 To Val(Text3.Text) Randomize (Timer) myNumber = myNumber 0000) 00) 00) End If If myName(i) Then myString = myString & myName(i) & myNumber & vbCrLfNextText2.Text = myStringEnd Sub qwe=wdaa=aasda
求计算生辰八字的vb源码