Можете написать или объяснить каким образом заполнять несколько полей так, чтобы выполнялась проверка сразу всех шести полей? Например у меня случай с задачей, По условию ∠A=38°, а так как ∠А+∠В=____, то ∠В=___ -38°=____°. Ответ: ∠С=___ °, ∠В=∠_____ =____ °.
Private Sub CommandButton1_Click() A = Val(TextBox1.Text) And B = Val(TextBox2.Text) And C = Val(TextBox3.Text) And D = Val(TextBox4.Text) And E = Val(TextBox5.Text) And F = Val(TextBox6.Text) If A = 180 Then k = k + 1 Else MsgBox "неверно"
TextBox1.Text = ""
n = n + 1 SlideShowWindows(1).View.Next End Sub
примерно так??
|