39. Перемещение формы

Option Explicit

Private Sub Command1_Click()

Form1.Left = 0

Form1.Top = 0

End Sub

Private Sub Command2_Click()

Form1.Left = (Screen.Width - Form1.Width) / 2

Form1.Top = 0

End Sub

Private Sub Command3_Click()

Form1.Left = Screen.Width - Form1.Width

Form1.Top = 0

End Sub

Private Sub Command4_Click()

Form1.Left = 0

Form1.Top = (Screen.Height - Form1.Height) / 2

End Sub

Private Sub Command5_Click()

Form1.Left = (Screen.Width - Form1.Width) / 2

Form1.Top = (Screen.Height - Form1.Height) / 2

End Sub

Private Sub Command6_Click()

Form1.Left = Screen.Width - Form1.Width

Form1.Top = (Screen.Height - Form1.Height) / 2

End Sub

Private Sub Command7_Click()

Form1.Left = 0

Form1.Top = Screen.Height - Form1.Height

End Sub

Private Sub Command8_Click()

Form1.Left = (Screen.Width - Form1.Width) / 2

Form1.Top = Screen.Height - Form1.Height

End Sub

Private Sub Command9_Click()

Form1.Left = Screen.Width - Form1.Width

Form1.Top = Screen.Height - Form1.Height

End Sub

40. Калькулятор

Dim X1, X2, oper As Integer

Option Explicit

Private Sub Command1_Click()

Text1.Text = Text1.Text + "1"

End Sub

Private Sub Command10_Click()

Text1.Text = Text1.Text + "0"

End Sub

Private Sub Command11_Click()

Text1.Text = ""

End Sub

Private Sub Command12_Click()

X1 = Val(Text1.Text)

oper = 1

Text1.Text = ""

End Sub

Private Sub Command13_Click()

X1 = Val(Text1.Text)

oper = 2

Text1.Text = ""

End Sub

Private Sub Command14_Click()

X1 = Val(Text1.Text)

oper = 3

Text1.Text = ""

End Sub

Private Sub Command15_Click()

X1 = Val(Text1.Text)

oper = 4

Text1.Text = ""

End Sub

Private Sub Command17_Click()

X2 = Val(Text1.Text)

If oper = 1 Then Text1.Text = X1 + X2

If oper = 2 Then Text1.Text = X1 * X2

If oper = 3 Then Text1.Text = X1 - X2

If oper = 4 Then Text1.Text = X1 / X2

End Sub

Private Sub Command2_Click()

Text1.Text = Text1.Text + "2"

End Sub

Private Sub Command3_Click()

Text1.Text = Text1.Text + "3"

End Sub

Private Sub Command4_Click()

Text1.Text = Text1.Text + "4"

End Sub

Private Sub Command5_Click()

Text1.Text = Text1.Text + "5"

End Sub

Private Sub Command6_Click()

Text1.Text = Text1.Text + "6"

End Sub

Private Sub Command7_Click()

Text1.Text = Text1.Text + "7"

End Sub

Private Sub Command8_Click()

Text1.Text = Text1.Text + "8"

End Sub

Private Sub Command9_Click()

Text1.Text = Text1.Text + "9"

End Sub

41. Форматирование. Шрифт задать нужны размер, очертание.

Option Explicit

Private Sub Combo1_Click()

Label1.FontName = Combo1.Text

End Sub

Private Sub Combo2_click()

Label1.FontSize = Combo2.Text

End Sub

Private Sub Command1_Click()

Label1.FontBold = True

End Sub

Private Sub Command2_Click()

Label1.FontItalic = True

End Sub

Private Sub Command3_Click()

Label1.FontUnderline = True

End Sub

42. Вычисление уравнения при условиях…

Private Sub Command1_Click()

Dim Z As Double

Dim a As Single, b As Single, c As Single, d As Single

a = Val(txta.Text)

b = Val(txtb.Text)

c = Val(txtc.Text)

d = Val(txtD.Text)

If (c + b) >= 2 Then

Z = ((c + b) ^ 2) / (a + d)

Picture1.Picture = LoadPicture(App.Path & "\" & "ргр3(1).bmp")

Else

If c + b > 0 And c + b < 2 Then

Picture1.Picture = LoadPicture(App.Path & "\" & "ргр3(2).bmp")

Z = ((a * (Log(c + b) / Log(2.7))) + c ^ a)

Else

If c + b <= 0 Then

Picture1.Picture = LoadPicture(App.Path & "\" & "ргр3(3).bmp")

Z = d + a * (Sin(d) ^ 2)

End If

End If

End If

Print Z

End Sub