Каким будет содержимое файла "primer.txt" после выполнения следующей программы?

@Marakesh17 · Регистрация: 20.02.2023

Author24 — интернет-сервис помощи студентам

Visual Basic

Sub Test()
R=InputBox("Радиус-?")
L= 2*3,1416*R
Open "D:\ primer.txt" For Output As #1
Print #1, "задан радус R=";Format(R,"0.0")
Print #1, "длина окружности L=";Format(L, "0.000")
Close #1

Добавлено через 7 минут
Напишите,каким будет содержимое файла "primer.txt" после выполнения следующей программы (программу выполнили дважды и первый раз ввели значение радиуса 20,а второй раз 10)

SergioJek · 20.02.2023, 18:32

задан радус R=10,0
длина окружности L=62,832

А первое выполнение затрется.
Или поменяйте OUTPUT на APPEND.

@АЕ · 20.02.2023, 20:42

Marakesh17, без строки в конце

Visual Basic

End Sub

будет ошибка программы, а если ее добавить, то
задан радус R=10,0
длина окружности L=62,832

@Jack Famous · 21.02.2023, 10:07

Marakesh17, а просто запустить и посмотреть — не вариант?

@Catstail · 21.02.2023, 19:10

Marakesh17, программа вообще не запустится. В ней две синт. ошибки: отсутствует оператор end в конце и в строке 3 вместо запятой должна стоять точка.

@АЕ · 21.02.2023, 19:57

Сообщение от Catstail

в строке 3 вместо запятой должна стоять точка.

Спорно. От региональных настроек зависит.

SergioJek · 21.02.2023, 20:39

Сообщение от АЕ

Спорно.

Бесспорно должна быть точка в числовой константе в любом регионе.

@АЕ · 21.02.2023, 20:44

Сообщение от SergioJek

Бесспорно должна быть точка в числовой константе в любом регионе.

Бог его знает. Я скопировал, вставил, убрал лишнее, заменил Print #1, на Debug.Print и вставил в ответ.
Не помню предупреждений о запятых... хотя...

SergioJek · 21.02.2023, 20:45

Visual Basic

1	L= 2 * "3,1416" * R

Только при таком написании точка или запятая играют роль.
Но до этого ТС не додумался почему то?

SergioJek 396 / 319 / 58 Регистрация: 29.06.2019 Сообщений: 480
	20.02.2023, 18:32	2
	задан радус R=10,0 длина окружности L=62,832 А первое выполнение затрется. Или поменяйте OUTPUT на APPEND. 1

@Jack Famous 814 / 307 / 41 Регистрация: 10.05.2021 Сообщений: 1,342 Записей в блоге: 10
	21.02.2023, 10:07	4
	Marakesh17, а просто запустить и посмотреть — не вариант? 1

@Catstail Модератор 37181 / 20625 / 4257 Регистрация: 12.02.2012 Сообщений: 34,005 Записей в блоге: 14
	21.02.2023, 19:10	5
	Marakesh17, программа вообще не запустится. В ней две синт. ошибки: отсутствует оператор end в конце и в строке 3 вместо запятой должна стоять точка. 1

@АЕ ᴁ® 3831 / 2162 / 457 Регистрация: 13.12.2016 Сообщений: 7,399 Записей в блоге: 5
	21.02.2023, 19:57	6
	Сообщение от Catstail в строке 3 вместо запятой должна стоять точка. Спорно. От региональных настроек зависит. 0

SergioJek 396 / 319 / 58 Регистрация: 29.06.2019 Сообщений: 480
	21.02.2023, 20:39	7
	Сообщение от АЕ Спорно. Бесспорно должна быть точка в числовой константе в любом регионе. 0

@АЕ ᴁ® 3831 / 2162 / 457 Регистрация: 13.12.2016 Сообщений: 7,399 Записей в блоге: 5
	21.02.2023, 20:44	8
	Сообщение от SergioJek Бесспорно должна быть точка в числовой константе в любом регионе. Бог его знает. Я скопировал, вставил, убрал лишнее, заменил Print #1, на Debug.Print и вставил в ответ. Не помню предупреждений о запятых... хотя... 0

	21.02.2023, 20:45