要求:去掉程序中的注释符,把程序中的改为正确的内容,使其实现上述功能。 注意:不能修改程序中的其他部分,也不能修改控件的其他属性。最后把修改后的程序以原文件名存盘。 sjt5.frm文件内容如下: Option Base1 Dim sum As Integer Private Sub Cmd1_ClickO Dim art(20)As Integer ’Dim f1 As Randomize arr(1)=Int (Rnd * 90)+10 ’sum= For i=2 To 20 Do a=Int(Rnd * 90)+10 ’f1= For j=1 To i—1 If arr(j)=a Then f1=True:Exit For Next j Loop While f1 arr(i)=a sum=sum+arr(i) Next i Text1. Text=sum End Sub Private Sub Cmd2_Click() ’Call WriteData(,sum) 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