VBNet - Форум - помогите исправить ошибки

Вопрос: помогите исправить ошибки Добавлено: 18.05.11 12:44

Автор вопроса: малинка

Sub pr()
Dim D(), V() As Single
Dim A(), T() As String
Dim OD As Single
Dim i, N As Integer
N = InputBox("введите количество абонентов")
ReDim A(N), T(N) As String
ReDim D(N), V(N) As Single
Debug.Print "Абонент"; "Номер телефона"; "Сумма за МТР"; "Сумма внесенная за МТР"

For i = 1 To N
A(i) = InputBox("введите ФИО абонента")
T(i) = InputBox("введите номер телефона")
V(i) = InputBox("введите сумму за МТР")
D(i) = InputBox("введите сумму внесенную за МТР")
Debug.Print A(i), T(i), V(i), D(i)
Next i
OD = 0
Debug.Print "Должники АТС"
For i = 1 To N
OD = V(i) - D(i)
If OD > 0 Then
Debug.Print "Номер телефона"; T(i); "Долг составляет"; OD
Next i

End Sub

На междугородней станции имеется информация об оплате следующего вида:
Номер телефона, сумма за междугородние телефонные переговоры (МТР), сумма внесённая абонентом.
Составте список телефонов тех абонентов которые должны АТС(остаток меньше 0)
Исходныеданные выведете в виде таблици.

Ответить

Ответы Всего ответов: 1

Номер ответа: 1 Автор ответа: AxeL ICQ: 264730390 Вопросов: 2 Ответов: 106	Профиль \| \| #1	Добавлено: 08.11.11 07:05
	Sub pr() Dim D(), V() As Single Dim A(), T() As String Dim OD As Single Dim i, N As Integer Do N = InputBox("введите количество абонентов") Loop Until IsNumeric(N) ReDim A(N), T(N) As String ReDim D(N), V(N) As Single Debug.Print "Абонент"; "Номер телефона"; "Сумма за МТР"; "Сумма внесенная за МТР" For i = 1 To N A(i) = InputBox("введите ФИО абонента") T(i) = InputBox("введите номер телефона") Do V(i) = InputBox("введите сумму за МТР") Loop Until IsNumeric(V(i)) Do D(i) = InputBox("введите сумму внесенную за МТР") Loop Until IsNumeric(D(i)) Debug.Print A(i), T(i), V(i), D(i) Next i OD = 0 Debug.Print "Должники АТС" For i = 1 To N OD = V(i) - D(i) If OD > 0 Then _ Debug.Print "Номер телефона;" & T(i) & ";Долг составляет;" & OD Next i End Sub Ответить

Страница: 1 |