VB 编程考试问题~~~高手来~~~~~~~~~~~

来源：百度知道 编辑：UC知道 时间：2024/06/18 03:24:16
1.计算S的值：S=1-1/2!+1/3!-1/4!+1/5!-.....+1/N!,其中N是一个整数，其值由输入对话框输入，并将S的值在窗体上显示出来。
2.请随机产生10个100-200之间的整数，将这10个数从大到小排序后，将排序结果写入文件D：abc.txt中。

PS：请将过程写清晰，谢谢大家~~

Private Sub Form_Click()
Dim S As Double
Dim N As Integer
Dim I As Integer
N = Val(InputBox("请输入一个整数"))
For I = 1 To N
S = S + 1 / I * (-1) ^ (I + 1)
Next I
Print S
End Sub
2.
Private Sub Form_Click()
Dim RndNum(10) As Integer
Dim I As Integer
Dim J As Integer
Dim Temp As Integer
Randomize
For I = 0 To 9
RndNum(I) = Int(Rnd * 100 + 100)
Next I
For I = 0 To 9
For J = 0 To 9 - I
If RndNum(J + 1) > RndNum(J) Then Temp = RndNum(J + 1): RndNum(J + 1) = RndNum(J): RndNum(J) = Temp
Next J
Next I
Open "D:\abc.txt" For Output As #1
For I = 0 To 9
Print #1, RndNum(I)
Next I
Close #1
End Sub

如果我现在还在大学的话，十分钟给你答案