vb程序，随机抽题

答案:4 悬赏:10 手机版

解决时间 2021-03-23 22:09

提问者网友：斑駁影
2021-03-23 14:48

vb程序，随机抽题

最佳答案

五星知识达人网友：怙棘
2021-03-23 15:30

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, " ")把引号里边的逗号改成空格。

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

全部回答

1楼网友：一袍清酒付
2021-03-23 19:17

需要修改代码吗？

2楼网友：冷風如刀
2021-03-23 17:40

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

3楼网友：山河有幸埋战骨
2021-03-23 16:54

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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息