Работа с ListBox и CheckBox - VB

Узнай цену своей работы

Формулировка задачи:

Очень нужна помощь в построение программы. Только недавно начала изучать VB и являюсь 100% чайником))...Помогите пожалуйста.

Решение задачи: «Работа с ListBox и CheckBox»

textual
Листинг программы
Private Sub Command1_Click()
If Combo1.Text = "" Then
  MsgBox "Надо выбрать функцию!"
Else
  Select Case Combo1.Text
    Case "Abs"
     Text1.Text = Text1.Text & "Abs(" & List1.Text & ")=" & Abs(Val(List1.Text)) & vbCrLf
    Case "Exp"
      Text1.Text = Text1.Text & "Exp(" & List1.Text & ")=" & Exp(Val(List1.Text)) & vbCrLf
    Case "Sgn"
      Text1.Text = Text1.Text & "Sgn(" & List1.Text & ")=" & Sgn(Val(List1.Text)) & vbCrLf
    Case "Fix"
      Text1.Text = Text1.Text & "Fix(" & List1.Text & ")=" & Fix(Val(List1.Text)) & vbCrLf
  End Select
End If
End Sub
 
 
Private Sub Command2_Click()
List1.Clear
End Sub
 
Private Sub Command3_Click()
End
End Sub
 
Private Sub Form_Load()
Combo1.AddItem "Abs"
Combo1.AddItem "Exp"
Combo1.AddItem "Sgn"
Combo1.AddItem "Fix"
End Sub
 
Private Sub List1_Click()
List1.AddItem "Abs(" & Text1.Text & ")=" & Abs(Val(Text1.Text))
List1.AddItem "Exp(" & Text1.Text & ")=" & Abs(Val(Text1.Text))
List1.AddItem "Sgn(" & Text1.Text & ")=" & Abs(Val(Text1.Text))
List1.AddItem "Fix(" & Text1.Text & ")=" & Abs(Val(Text1.Text))
List1.Clear
 
End Sub

Оцени полезность:

12   голосов , оценка 3.75 из 5