vb文件控件，明天要交，拜托大家帮忙做一下，谢谢

来源：百度知道 编辑：UC知道 时间：2024/06/06 05:35:49
1。在d：//date目录下有一文件text.dat，文件中存放一个正数。请编写程序，取出该正数并计算该数的阶乘，将阶乘值追加到text.dat的文件末尾
2。建立一个随机文件可用以存放6个学生数据，包括“学号，姓名和成绩”，文件名为“student.dat”
谢谢各位大人了

1.
Dim iNumber As Long
Dim iResult As Long
Dim iI As Integer
iResult = 1
Open "D:\date\text.dat" For Input As #1
Input #1, iNumber
Close #1
Open "D:\date\text.dat" For Append As #1
For iI = 1 To iNumber
iResult = iResult * iI
Next iI
Print #1, iResult
Close #1

关于第2题:
第2题只是建立文件吗?如果只是建立文件，那么用
Open "student.dat" For Output As #1
Close #1
就行了。如果不是，数据从哪里来？

第2题
Open "student.dat" For Output As #1
print #1,out_text
Close #1
'out_text是一个变量 里面存储的是将要输出 到student.dat文件的信息