Visual Basic FAQ

Вычислить площадь трапеции

Вычислить площадь трапеции, если заданы значения оснований и высоты. Пусть a и b – основания трапеции, а h – высота, тогда площадь трапеции вычисляется по формуле S=(a+b)/2*h

На форме массив Text1 от 0 до 2(Text1(0),Text1(1),Text1(2)), создаеться путем копирования одного текстбокса 2 раза)) и кнопка.
Label’ми на форме подпиши Text1(0) и Text1(1) это основания, Text1(2) это высота.

Option Explicit
Dim s As Double
Dim i As Integer
Dim t As Integer
Dim b As String * 1
Dim z As Integer
Dim r As Integer

Private Sub Command1_Click()
For r = 0 To 2
If Text1(r).Text = "" Then
MsgBox "Поле не должно быть пустым!", vbOKOnly, "Ошибка"
SetFocus Text1(r).Text
Exit Sub
End If
Next r
For i = 0 To 2
For t = 1 To Len(Text1(i))
b = Mid(Text1(i).Text, t, 1)
If Asc(b) < 48 Or Asc(b) > 57 Then
MsgBox "Введено не число", vbOKOnly, "Ошибка"
Text1(i).SetFocus
Exit Sub
End If
Next t
Next i
s = ((Val(Text1(0).Text) + Val(Text1(1).Text)) / 2) * Val(Text1(2).Text)
MsgBox "Площадь трапеции = " & s, vbOKOnly, "Ответ"
End Sub

Запись опубликована on 07.12.2009 at 9:00 и размещена в рубрике: Задачи. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.