68手游网

学姐给我们一次机会，将word中的选择题题干、及选项A、B、C、D分别放到成excel表格中的几列中。673个题，俩人每人300多个，当时我看了就晕了，一个题需要复制五次，分别粘贴到五个单元格，那得弄到什么时候啊！这时候看到青峰的复制方法很好，先将题目选中足够多的条数，在复制粘贴到excel表格中，这样它们仍然会是一道题占一个表格，而且题目会完全显现出来，题目长的还会自动多行显示，感觉这方法还不错。

后来许德鹏来想了一个办法，用vb自己编写代码先将每道题目转换成一行，让后在转换成excel表格，这样比较省事，我用自己的办法花了2个小时将自己的那部分弄完了，德鹏编写的代码也能实现将一道题用一行来显示了，只是操作的过程中还有些需要改动的地方。越发的发现没有我们做不到的，只有想不到的。vb是足够强大的，只要你想到了让它实现什么功能，它都能实现。

顺便看一下自己编写的"将txt文本中每道题的题目、选项转黄成一行显示"的代码吧！窗体中添加一个命令按钮！

Private Sub cmdChange_Click()
Dim str1 As String
Dim str2 As String

Open "e:\ww.txt" For Input As #1 '打开e盘中的ww.txt文件(源文件)，读取其中数据
Open "e:\x.txt" For Output As #2 '打开e盘中的x.txt文件(目标文件)，目标文件会自动建立，并向其中写入数据

Dim topic As Integer '定义topic代表题目

For topic = 1 To 10
Line Input #1, str1 '整行读入ww.txt文件中的数据
Line Input #1, str2 '整行读入ww.txt文件中的数据
Print #2, str1 & str2 '向目标文件中写入读入的数据
Next topic
End Sub

应该感谢师姐给我们提供这次机会，增加了我们的信心。做任何事情都应该从中获得收获！