求壹VB代碼，要求用VB生成文本文件，急需！！！！跪謝！！！

Private?Sub?Form_Click()

Dim?s?As?String,?a(100),?i?As?Integer,?avg?As?Long

Open?"c:\1.txt"?For?Output?As?#1

Randomize

For?i?=?1?To?100

Print?#1,?Int(Rnd?*?1000)

Next

Close?#1

Open?"c:\1.txt"?For?Input?As?#1

i?=?0

Do?While?Not?EOF(1)

i?=?i?+?1

Line?Input?#1,?s

If?s?<>?""?Then

a(i)?=?Val(s)

avg?=?avg?+?a(i)

End?If

Loop

Close?#1

Print?"平均值=";?avg?/?100

Scale?(0,?0)-(100,?1000)

For?i?=?1?To?100

If?i?=?1?Then

PSet?(1,?a(i))

Else

Line?-(i,?a(i))

End?If

Next

End?Sub

窗體空白，什麽控件都不放，單擊窗體得到結果

上一篇:如何在curl中添加HTTP

下一篇:ycl和nct考試哪個更好