仙境传说手游闪退:怎么文档内容不对呢？

来源：百度文库编辑：高校问答时间：2024/05/04 07:20:50

Option Base 1
Dim Arr(100) As Integer
Dim num As Integer

Sub ReadData()
Open App.Path & "\" & "datain6.txt" For Input As #1
For i = 1 To 100
Input #1, Arr(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 calc_Click()
Dim num
num = 0
Text1.Text = ""
For i = 1 To 100
If Arr(i) > 50 Then
Text1.Text = Text1.Text & " " & Arr(i)
num = num + Arr(i)
End If
Next i
Print num
End Sub

Private Sub read_Click()
Call ReadData
End Sub

Private Sub save_Click()
Call WriteData("datat.txt", num)
End Sub
运行程序之后打开datat.txt，里面的内容显示是0，为什么呢？
代码有什么地方出了错，希望各位高手帮帮忙，本人初学VB，还是个菜鸟

Private Sub calc_Click()
Dim num
num = 0
Text1.Text = ""
For i = 1 To 100
If Arr(i) > 50 Then
Text1.Text = Text1.Text & " " & Arr(i)
num = num + Arr(i)
End If
Next i
Print num
End Sub
这个按钮没有按吧？？
因为你在通用过程定义了num,在上面这个过程又定义了num．
也就是说，你定义了整型num之后，整个程序中并没能给它赋值，所以它为0
所以在Call WriteData("datat.txt", num) 写入0．

怎么文档内容不对呢？ dreamweaver制作网页,右面文档内容增加时,左面图片位置改变.怎么固定图片呢??? pdf文档被加密了，怎么才能把其中的内容弄出来呢如何在Word文档内容中，点击其中的内容生成相关的文档呢？电脑一开机就自动打开一个文本文档，无内容。谁知道是怎么回事吗？该怎么解决呢？怎样删除开始菜单文档里的内容呢怎么让“开始-文档”里面的内容自动清除~ 怎么批量查找--替换多个word文档中的内容硬盘目录和内容不对！我的dreamweaver MX 2004 怎么做出来的网页内容怎么位置不对？