Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim numerals As String
- Private Function ReadRoman()
- End Function
- Private Function GetDigit(ByVal Num As String) As Integer
- Select Case Num
- Case "I"
- GetDigit = 1
- Case "V"
- GetDigit = 5
- Case "X"
- GetDigit = 10
- Case "L"
- GetDigit = 50
- Case "C"
- GetDigit = 100
- Case "D"
- GetDigit = 500
- Case "M"
- GetDigit = 1000
- End Select
- End Function
- Private Function WriteRoman()
- Call WriteDigit
- output.Print Number
- End Function
- Private Function WriteDigit()
- output.Print numerals
- End Function
- Private Sub calculate_Click()
- Input #1, numerals
- For i = 1 To Len(numerals)
- End Sub
- Private Sub Form_Load()
- 'open file
- Open App.Path & "\numerals.dat" For Input As #1
- 'Do While Not EOF(1)
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement