preparedata.bas

用vb编程

Attribute VB_Name = "Module17"
Public Sub preparedata()
 Dim i As Integer
  For i = 0 To 21
    sendstr(i) = sendstr(i) + (admax - admin) * 0.1
    If sendstr(i) > admax Then sendstr(i) = admin
  Next i
End Sub
Public Sub preparedata2()
 Dim i As Integer
  For i = 0 To 21
   If i < 10 Then
    sendstr(i) = CInt(i * (admin + (admax - admin) * 0.1))
   ElseIf i < 20 Then
    sendstr(i) = CInt((i - 10) * (admin + (admax - admin) * 0.1))
   Else
    sendstr(i) = CInt((i - 20) * (admin + (admax - admin) * 0.1))
   End If
  Next i
End Sub