VB语言第9章课堂讨论.pptVIP

第9章 习题讨论 编程题第1题 使用VB读取文本文件 先使用“记事本”创建一个文本文件“静夜思(唐诗)” 再使用VB读取文本文件“静夜思(唐诗)” 事件过程 Private Sub Command1_Click() Open 静夜思.txt For Input As #1 Do While Not EOF(1) 文件未结束时，循环 Input #1, x List1.AddItem x Loop Close #1 End Sub 补充题 分别读取两个文本文件中的数据,相应项相加后存入第3个文件中. 事件过程 Private Sub Form_Load() Open 数据文件1.txt For Input As #1 Open 数据文件2.txt For Input As #2 Open 运算结果.txt For Output As #3 Do While Not EOF(1) 文件未结束时，循环 Input #1, x Input #2, y s = x + y Write #3,