vb问题2 急急急急

4.在窗体上建立一个名称为Text1的文本框和一个名称为Cmd1，标题为“计算”
的命令按钮（如图所示）。程序运行后，单击“计算”命令按钮，通过在对
话框输入整数12，放入整形变量a中，然后计算a!（提示：运算结果应放入
Long型变量中），在文本框中显示结果，并把结果存入文件out.txt中。
在考生文件夹中有一个标准模块mode.bas，该模块中提供了保存文件的过
程putdata,考生可以直接调用。
Private Sub Cmd1_Click()
Dim c As Integer
Dim a As Long
c = InputBox("请输入一个数值！")
a = 1
For i = 2 To c
' a = a * ?
Next i
'Text1.Text = ?
'putdata "\out.txt", ?
End Sub

6.在考生文件夹下有个工程文件sjt6.vbp，在Form1的窗体中有个文本框，两个
命令按钮和一个计时器。程序的功能是在运行时，单击“开始计数”按钮，
就开始计数，每隔1秒，文本框中的数加1；单击“停止计数”按钮，则停止
计数（如图所示）。要求：修改适当的控件的属性，并去掉程序中的注释符，
把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其
他部分。最后把修改后的文件以原来的文件名存盘。
Private Sub C1_Click(Index As Integer)
' Select Case ？
Case 0
' Timer1.Enabled = ？
Case 1
' Timer1.Enabled = ？
End Select
End Sub
Private Sub Timer1_Timer()

4题：
Private Sub Cmd1_Click()
Dim c As Integer
Dim a As Long
c = InputBox("请输入一个数值！")
a = 1
For i = 2 To c
a = a * i
Next i
Text1.Text = a
putdata "\out.txt", ?
End Sub

7题：
Option Explicit
Dim a(1 To 100)
Dim i As Integer
Dim n As Integer
Dim f As Integer
Dim s As Long

Private Sub Cmd1_Click()
Open App.Path & "\in.txt" For Input As #1
For i = 1 To 100
Input #1, n
a(i) = n
Text1.Text = Text1.Text & a(i) & " "
Next i
Close #1
End Sub

Private Sub Cmd2_Click()
For i = 1 To 100
If a(i) <= 700 Then s = s + a(i)
Next i
Call putdata("result.txt", ?)
Text1.Text = s
End Sub

因为阁下没有列出模块中putdata函数过程的参数定义，因此只能遗留一个?了
还有，a(i) <= 700 这个好像和题目iyaoqiu不符，不过要求不能修改那就算了

6题：
Private Sub C1_Click(Index As

vb问题2 急急急急 vb问题?急急急急!!!!!!!!!!!! VB.NET问题，急急急急！！！！ 急急急急!!!!vb使用问题 vb问题3 急急急急 vb问题6 急急急急 vb问题1 急急急急 急急！！VB程序问题，，。。。 vb问题 急急急 VB问题急急急