Создать простую программу - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д