Guest User

Roman Numerals

a guest
Sep 7th, 2013
155
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Dim numerals As String
  2. Private Function ReadRoman()
  3. End Function
  4. Private Function GetDigit(ByVal Num As String) As Integer
  5.  Select Case Num
  6.     Case "I"
  7.         GetDigit = 1
  8.     Case "V"
  9.         GetDigit = 5
  10.     Case "X"
  11.         GetDigit = 10
  12.     Case "L"
  13.         GetDigit = 50
  14.     Case "C"
  15.         GetDigit = 100
  16.     Case "D"
  17.         GetDigit = 500
  18.     Case "M"
  19.         GetDigit = 1000
  20. End Select
  21. End Function
  22.  
  23. Private Function WriteRoman()
  24. Call WriteDigit
  25. output.Print Number
  26. End Function
  27. Private Function WriteDigit()
  28. output.Print numerals
  29. End Function
  30.  
  31. Private Sub calculate_Click()
  32. Input #1, numerals
  33. For i = 1 To Len(numerals)
  34. End Sub
  35.  
  36. Private Sub Form_Load()
  37. 'open file
  38. Open App.Path & "\numerals.dat" For Input As #1
  39. 'Do While Not EOF(1)
  40. End Sub
RAW Paste Data