一定要用图片框吗? 给你一个用textbox的例子,首先把Text1.MultiLine = True 然后建立一个文本文件,如aa.txt,文件里一行写一道题,用以下代码读出,一次读1行,也就是一道题, dim GetMsg as String Open aa.txt For Input As #1 Input #1, GetMsg If Len(GetMsg) <> 0 Then text1.text = GetMsg End If Close #1 可以用一个变量储存这次读到第几行了,下次如果再读到这一行就跳过,继续读下一行..
给你一个用textbox的例子,首先把Text1.MultiLine = True
然后建立一个文本文件,如aa.txt,文件里一行写一道题,用以下代码读出,一次读1行,也就是一道题,
dim GetMsg as String
Open aa.txt For Input As #1
Input #1, GetMsg
If Len(GetMsg) <> 0 Then
text1.text = GetMsg
End If
Close #1
可以用一个变量储存这次读到第几行了,下次如果再读到这一行就跳过,继续读下一行..