Private Sub Command1_Click()
Dim Per, Vt
Per = Val(Text1.Text)
Vt = Val(Text2.Text)
If Option1.Value = True Then
Text3.Text = Per + Vt
End If
If Option2.Value = True Then
Text3.Text = Per - Vt
End If
Тест.
Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.
Email: Нажмите что бы посмотреть