为啥我的vb老是显示输出错误啊

来源:百度知道 编辑:UC知道 时间:2024/07/15 23:44:19
请先装入工程文件vbsj5.vbp,然后完成以下操作:在名为Form1的窗体上绘制3个名称分别为Cmd1、Cmd2和Cmd3的命令按钮,它们的标题分别为"读数"、"计算"和"保存"。程序运行后,如果单击"读数"按钮,则调用题目所提供的ReadDate1和ReadDate2;如果单击"计算"按钮,则把两个数组中对应下标的元素相减,其结果作为第3个数组中(即第1个数组的第n个元素减去第2个数组的第n个元素,其结果放入第3个数组的第n个元素。这里的n为1,2,…,20),然后计算第3个数组各元素之和,并把所求得的和在窗体上显示出来;如果单击"保存"按钮,则把所求得的和存入考生文个夹的dw542.dat文件中。运行窗体如图1-274所示。
我的答案是 : For i = 1 To 20
Input #1, Arr1(i)
Next i
Close #1
End Sub

Sub ReadData2()
Open App.Path & "\" & "dr542.dat" For Input As #1
For i = 1 To 20
Input #1, Arr2(i)
Next i
Close #1
End Sub

Sub WriteData(Filename As String, Num As Integer)
Open App.Path & "\" & Filename For Output As #1
Print #1, Num
Close #1
End Sub

Private Sub Cmd1_Click()
ReadData1
ReadData2
End Sub

Private Sub Cmd2

你好像少复制了前面的代码,下面的大概看了看好像没什么问题,也许是你定义数组变量不对,好像应该定义成公用变量(我也忘了是不是叫这个),就是在最前面定义的那种,这样在整个FORM1窗口都能用.