Recent content by mrahmati5

با اجازه داشتم یه چرخی توسایت میزدم این پستو دیدم راحت ترین کار اینهاول یه باتن میسازی بعد: Private Sub Command1_Click() Dim a, b, c, d As Long a = InputBox("Enter a") b = InputBox("Enter b") c = InputBox("Enter c") d = (b ^ 2) - (4 * a * c) If d > 0 Then Print ((-b) + Sqr(d)) / (2 * a); "and"...