当前位置:八字基础教程 >> 八字 >> 求计算生辰八字的vb源码

求计算生辰八字的vb源码

编辑: 八字基础教程

你的来信已收到,已作更正。新邮件已发出,请查收。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源码
求计算生辰八字的vb源码相关数据
栏目列表

相关推荐

猜您喜欢

导航

Copyright © 2024 八字基础教程

八字基础教程 - 四柱八字入门