Создать простую программу - VB

Узнай цену своей работы

Формулировка задачи:

Дорогие друзья, очень нужно помочь с программой. Она простая, но я не разбираюсь в этом, поэтому помогите кто чем может пожалуйста Условие: В текстовом файле записана цена товара в рублях и копейках. Написать программу, которая считывает этот файл и выводит на экран стоимость в и центах. Обменный курс доллара вводится с клавиатуры. P.S. Данную программу нужно написать, чтоб она функционировала в Visual Basic 6.0. Если поможете еще и с блок-схемой к ней, отблагодарю

Решение задачи: «Создать простую программу»

textual
Листинг программы
Option Explicit
Const MaxPos = 2
 
Private Sub Command1_Click()
    Dim i&, d#
    If Not IsNumeric(Text4) Then
        MsgBox ("Введите курс")
        Exit Sub
    End If
    
    For i = 0 To MaxPos
        d = Text2(i) / Text4
        If d < 1 Then
            Text3(i) = FormatNumber(d, 2) & " Cent"
        Else
            Text3(i) = FormatNumber(d, 2) & " Doll"
        End If
        
    Next
    
End Sub
 
Private Sub Form_Load()
    Const lf = vbLf
    Dim n&, f&, i&, b() As Byte, a$(), aa$()
    f = FreeFile
    Open InputBox("Введите путь к файлу", , "1.txt") For Binary As #f
    If Err <> 0 Or LOF(f) = 0 Then
        If MsgBox("Файл не существует или пуст" & lf & _
        "Создать его ?", 68) = vbNo Then End
        Put #f, , "Сахар = 60" & lf
        Put #f, , "Хлеб = 20" & lf
        Put #f, , "Чай = 50" & lf
    End If
    ReDim b(LOF(f))
    Get #f, 1, b
    a = Split(StrConv(b, vbUnicode), lf)
    For i = 0 To MaxPos
        aa = Split(a(i), "=")
        Text1(i) = Trim(aa(0))
        Text2(i) = Trim(aa(1))
        Text3(i) = ""
    Next
    Text4 = "60"
 
    
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.167 из 5
Похожие ответы