随机加入1.txt和2.txt和3.txt文件到textbox控件
怎么编辑
随机加入1.txt和2.txt和3.txt文件到textbox控件
怎么编辑
思路:随机产生1、2、3之间的一个数字,按照随机数字读取不同的文件。
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
dim R as new random
dim i as integer=r.next(1,3)
dim fn as string
fn="D:/" &i &".txt" '组合成为一个带路径的文件名,如c:/1.txt
If IO.File.Exists(fn) Then '判断是否存在这个文件
textbox1.text= IO.File.ReadAllText(fn) ‘读取文件
End If
end sub