诗词vb源码( 二 ) 诗词vb源码|

这个注册名自动生成器的vb代码应该如何写？我？建立text1,text2,text3,text4,text5 ，并且设置Text5的Multiline属性为True ，代码如下。
================================= Private Sub Command1_Click() Dim i As Long, t As Long t = Val(Text2.Text) For i = 0 To Val(Text3.Text) Text5.Text = Text5.Text & Text1.Text & t i & ＂;＂ & Text4.Text & vbCrLf Next End Sub Private Sub Form_Load() Text1.Text = ＂＂ Text2.Text = ＂＂ Text3.Text = ＂＂ Text4.Text = ＂＂ Text5.Text = ＂＂ End Sub
求VB代码啊！完成了！！！我自己试过，没啥问题自己创建控件（两个图像框，两个计时器），把Form1的KeyPreview属性改为True粘贴代码，运行即可（上下左右移动）代码Option ExplicitDim Right1 As Integer, Left1 As Integer, UP1 As Integer, Down1 As Integer '用于判断P2方向Dim Right2 As Integer, Left2 As Integer, UP2 As Integer, Down2 As Integer '用于判断P1的方向Dim R As Boolean, L As Boolean, U As Boolean, D As Boolean '用于判断是否接触Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) '获取PIcture2的方向 Select Case KeyCode Case 38 If Picture2.Top > 0 Then UP1 = 1 Else UP1 = 0 End If Case 40 If Picture2.Top + Picture2.Height0 Then Left1 = 1 Else Left1 = 0 End If Case 39 If Picture2.Left + Picture2.Width0 Then MoveL End If End If If UP1 = 1 Then If Picture2.Top > 0 Then MoveU End If End If If Down1 = 1 Then If Picture2.Top + Picture2.Height = Picture2.Left Then R = True If U = True Or D = True Then MsgBox ＂追到了＂ End End If End If End IfEnd SubPrivate Sub MoveL（) '设置左移 If Left1 = 1 Then Picture2.Left = Picture2.Left - 100 End If If Left2 = 1 Then Picture1.Left = Picture1.Left - 100 If Picture1.Left = Picture2.Top Then D = True If L = True Or R = True Then MsgBox ＂追到了＂ End End If End If End IfEnd SubPrivate Sub Direction（) '用于判断P1与P2的相对位置，用于判断P1的追击方向 If Picture1.Top >= Picture2.Top + Picture2.Height Then 'P1在P2下方 UP2 = 1 U = False Else UP2 = 0 End If If Picture1.Top + Picture1.Height = Picture2.Left + Picture2.Width Then 'P1在P2右方 Left2 = 1 L = False Else Left2 = 0 End If If (Picture1.Top + Picture1.Height >= Picture2.Top And _ Picture1.Top + Picture1.Height = Picture2.Top And _ Picture1.Top = Picture2.Left And _ Picture1.Left + Picture1.Width = Picture2.Left And _ Picture1.Left <= Picture2.Left + Picture2.Width) Then 'P1在P2左右之间 R = True L = True End IfEnd Sub做的有点简陋粗糙，有问题不满意再找我改改，希望对你有帮助~~
求VB一代码：用VB创建一文本文件并往里写入一段代码数据要写入的 ...你可以学最简单的，就是切换文本。
插入一个文本控件，再插入一个命令按钮，命令按钮的作用是-如果被鼠标点击执行代码，先给你的文本控件起个名字，系统给予文本控件默认名是：lable1.如果又出现一个文本控件名字就是：lable2.如果你还是第一个文本控件的话就输入Private Sub Command1_Click()lable1.caption=＂（你要输的文字）＂end subcaption是属性里面的一个值，你也可以在属性栏里找到caption属性值，后面有一个lable1那是默认的文字，你想改的话，就把那个lable1改成你想输入的文字，我们只不过在指令中修改它的文字而已，如果你想修改名字为lable2的文本控件里的文字，只需把指令中的lable1改成lable2就行了，要根据实际情况填。
有情况追问我就行了。
vb函数源代码Len 函数返回 Long ，其中包含字符串内字符的数目，或是存储一变量所需的字节数。
语法Len(string | varname)Len 函数的语法有下面这些部分：部分说明 string 任何有效的字符串表达式。
如果 string 包含 Null ，会返回 Null 。
Varname 任何有效的变量名称。
如果 varname 包含 Null ，会返回 Null 。
如果 varname 是 Variant,Len 会视其为 String 并且总是返回其包含的字符数。
说明两个可能的参数必须有其一（而且只能有其一）。
如为用户定义类型， Len 会返回其写至文件的大小。
注意 LenB 函数作用于字符串中的字节数据，如同在双字节字符集（DBCS）语言中一样。
所以 LenB 返回的是用于代表字符串的字节数，而不是返回字符串中字符的数量。
如为用户自定义类型， LenB 返回在内存中的大小，包括元素之间的衬垫。
对于使用 LenB的示例代码，请参阅示例主题中的第二个示例。
注意当在用户自定义数据类型中使用变长字符串时， Len 可能不能确定实际存储所需的字节数目。