ьтат») bal As Integer=(bal1 + bal2 + bal3) ocenka As Integer=(( bal) * 5) 18st As String=«Ваша загальна оцінка» + CStr (ocenka) + « ! »(« Ви набрали »+ CStr (bal) +« бали (ів). »+ VbCrLf + st, MsgBoxStyle.Exclamation,« Ваша оцінка »). Close () obj_Form2 As New Form2_Form2.Show () SubSub PictureBox3_MouseUp (ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox3.MouseUpobj_Form2 As New Form2bal As Integerocenka As Integerst As String
'вимикання (eX> 512) And (eX <552) And (eY> 240) And (eY <256) Or _
(eX> 80) And (eX <112) And (eY> 136) And (eY <152) Then.Visible=False.Visible=False.Visible=False.Visible =True=6 («Ви повністю пройшли третє завдання, Ваша оцінка за третє завдання 6»)=(bal1 + bal2 + bal3)=((bal) * 5) 18=«Ваша загальна оцінка» + CStr (ocenka) + « ! »= 6 (« Ви набрали »+ CStr (bal) +« бали (ів). »+ VbCrLf + st, MsgBoxStyle.Exclamation,« Ваша оцінка »). Close () _Form2.Show ( ) SubIf=4 («Неправильно.» + vbCrLf + «Ви заробили 4 бали.», MsgBoxStyle.Critical, «Результат»)=(bal1 + bal2 + bal3)=((bal) * 5) 18=«Ваша загальна оцінка» + CStr (ocenka) + « ! »(« Ви набрали »+ CStr (bal) +« бали (ів). »+ VbCrLf + st, MsgBoxStyle.Exclamation,« Ваша оцінка »). Close () _Form2.Show () SubSub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clickobj_Form13 As New Form13_Form13.Show () SubSub Button2_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickObj_Form14 As New Form14_Form14.Show () _Form14.AxWebBrowser1.Navigate (Application.StartupPath + « СПРАВКА.htm») SubClass
Програма для форми 13
Public Class Form13System.Windows.Forms.Form
# Region « Код, автоматично створений конструктором форм Windows »
Public Sub New (). New ()
'Цей виклик вимагається конструктором форм Windows. ()
'Додайте код ініціалізації після виклику InitializeComponent () Sub
'Форма перевизначає метод Dispose для очищення списку компонентів.
Protected Overloads Overrides Sub Dispose (ByVal disposing As Boolean) disposing ThenNot (components Is Nothing) Then.Dispose () IfIf.Dispose (disposing) Sub
'Требуется конструктором форм Windowscomponents As System.ComponentModel.IContainer
'ПРИМІТКА: наступна процедура потрібна для конструктора форм Windows.
'Її можна змінити в конструкторі форм Windows.
'Не змінюйте її в редакторі вихідного тексту.
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBoxWithEvents Label1 As System.Windows.Forms.LabelWithEvents Button2 As System.Windows.Forms.ButtonWithEvents Button3 As System.Windows.Forms.Button
Private Sub InitializeComponent () resources As System.Resources.ResourceManager=New System.Resources.ResourceManager (GetType (Form13)). PictureBox1=New System.Windows.Forms.PictureBox.Label1=New System.Windows.Forms.Label.Button2= New System.Windows.Forms.Button.Button3=New System.Windows.Forms.Button.SuspendLayout ()
«» PictureBox1
'Me.PictureBox1.BackgroundImage=CType (reso...
