我编了一个考试软件,现在使用不方便,主要是软件需要使用电脑里的txt文件,而不能把txt文件内容加入软件之中(.exe).
需要解决的问题是:
代码:(其中一段)
'开始考试
Private Sub start_Click()
'载入考卷
Open "d:\vb\ques.txt" For Input As #1
For i = 1 To numshiti'题库试题总数
Input #1, ques(i)
Next
Close #1
'载入标准答案
Open "d:\vb\anser.txt" For Input As #2
For i = 1 To numshiti
Input #2, anser(i)
Next
Close #2
'随机抽取不重复试题试题
For i = 1 To numtest'本次考试题量
Randomize Timer
again:
qa = Int(Rnd * numshiti + 1)
question(i) = ques(qa)'试题及标准答案重新编号
answer(i) = anser(qa)
For j = 1 To i - 1
If question(j) = question(i) Then GoTo again
Next j
Next i
我要解决的问题是如何不使用d:\vb\ques.txt,d:\vb\anser.txt,而将上述文件的内容编辑为资源文件,资源文件怎么转换?,转化后又怎么使用?
我从0开始学习vb6.0不到1月,很多都不懂,希望能指教。
我将两个txt文件通过附件发给你,便于参考。
谢谢!
需要解决的问题是:
代码:(其中一段)
'开始考试
Private Sub start_Click()
'载入考卷
Open "d:\vb\ques.txt" For Input As #1
For i = 1 To numshiti'题库试题总数
Input #1, ques(i)
Next
Close #1
'载入标准答案
Open "d:\vb\anser.txt" For Input As #2
For i = 1 To numshiti
Input #2, anser(i)
Next
Close #2
'随机抽取不重复试题试题
For i = 1 To numtest'本次考试题量
Randomize Timer
again:
qa = Int(Rnd * numshiti + 1)
question(i) = ques(qa)'试题及标准答案重新编号
answer(i) = anser(qa)
For j = 1 To i - 1
If question(j) = question(i) Then GoTo again
Next j
Next i
我要解决的问题是如何不使用d:\vb\ques.txt,d:\vb\anser.txt,而将上述文件的内容编辑为资源文件,资源文件怎么转换?,转化后又怎么使用?
我从0开始学习vb6.0不到1月,很多都不懂,希望能指教。
我将两个txt文件通过附件发给你,便于参考。
谢谢!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货