Question

vb代码编写

老师布置作业，内容是运行程序后，读取当前目录的文件夹及文件，自动生成同样名称及个数相同的当前程序，我只写了一点，后面的不会啊，急！！

Answer 1

Private Sub wenjianjia(ByVal pathstr As String)

Dim i As String

i = Dir(pathstr, vbDirectory) '取第一个

Do While i <> "" '不为空就循环

If i <> "." And i <> ".." Then '如果不是 当前目录及上一级目录 . 及 ..

If (GetAttr(pathstr & i) And vbDirectory) = vbDirectory Then '是否是目录

List1.AddItem i '确定是目录,添加到列表,这里可以自己处理

End If

End If

i = Dir '取下一个

Loop

End Sub

Private Sub Command1_Click()

List1.Clear

Call wenjianjia(App.Path + "\")

End Sub

Private Sub List1_Click()

File1.Path = App.Path + "\" + List1.Text + "\"

End Sub

Answer 2

Right(值，长度)，就是从右边开始取指定长度的字符串。
Right(Text1.Text,
2)，就是将text1的内容从右开始取2位。
比如Right("abcdefg",2)结果就是fg
Val函数是将数字字符串转为数字。

Answer 3

right
是取字符的函数，使用方法right(字符串，数值）这样的话就会从字符串右边截取数值等量的字符了，相似函数还有mid,left等等

Answer 4

是取text1文本框中字符串的后两个字符串、right是从右边开始截取的意思、2是两个字符的意思

Answer 5

a
=
Val(Right(Text1.Text,
2))这句代码的意思是首先从Text1.Text值中右边截取2位字符串，然后转化数值类型赋值给a.