vb程序，随机抽题

vb程序，随机抽题

Open Trim$("e:\1.txt") For Input As #1
Do Until EOF(1)
Input #1, Str0
Str1 = Str1 + " " + Str0
Loop
Close #1
stra = Split(Str1, ";")

上面这段代码是读取文件txt1.txt中的题目并保存在数组stra中。如果你还想再读取另一个文件就把上面这段代码再重复一遍，保存在另一个数组就行了。比如加下面这段代码就可以把txt2.txt读取出来并保存在strb中。
str1=""
Open Trim$("e:\2.txt") For Input As #1
Do Until EOF(1)
Input #1, Str0
Str1 = Str1 + " " + Str0
Loop
Close #1
strb = Split(Str1, ";")
你需要随机抽取题目显示到text2中的话就再加一句
Text2.Text = strb(Int(Rnd * ubound(strb)))

就可以了追问可是显示 Text2.Text = strb(Int(Rnd * ubound(strb)))
下标越界？？？追答哦，这里错了，这句改一下strb = Split(Str1, ";") 改成

strb = Split(Str1, " ")把引号里边的逗号改成空格。

你原来的代码不会出现越界吗？好像也存在这个问题。

需要修改代码吗？

VB，有些难度，可以与我交流。详情点我的详细信息。

抽多几个题目吗？循环多几次咯追问循环的话，读文件可以读多个txt吗？好像我没实现啊，求指导啊