Добавил:
ivanov666
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Объектно-ориентированное программирование на языке Visual Basic 2008 в среде разработки Microsoft Visual Studio 2008 и .NET Framework. Часть 2. Учебно
.pdf
.
Public Class Form2
Dim t As String
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim d As DataRowCollection
Dim mark As DataRowCollection
Dim n1 As Integer
Dim base As New Class_db2 ' Class_db2
n1 = Val(InputBox(" "))
d = Form1.Db12_2DataSet..Rows
mark = Form1.Db12_2DataSet..Rows
TextBox1.Text = "e : " & vbCrLf & " :" & mark(0)(2) & _
vbCrLf
TextBox1.Text = TextBox1.Text & ": " & mark(1)(2)
t = ""
base.n = n1
base.way(t, d, mark)
TextBox2.Text = t
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Button1.Click
Me.Hide()
Form1.Show()
End Sub
End Class
Class_db2
, ,
,
. :
DataRowCollection)
t = t & d(i \ 2)(2) & " " & d(i \ 2)(3) & " : " & d(i \ 2)(4) & vbCrLf
Public Class Class_db2
Public n As Integer
Public Sub way(ByRef t As String, ByRef d As DataRowCollection, ByVal mark As _
Dim i, j, k, p As Integer
For i = 0 To 2 * (n - 1) Step 2
k = 0 : p = 0
For j = 3 To 5
If mark(i)(j) = 5 Then
k = k + 1
End If
If mark(i + 1)(j) = 5 Then
p = p + 1
End If
Next
If p > k Then
End If
Next
End Sub
101
base.
Dim base As New Class_db2
.6.10.
.6.10
« » , .6.11
.6.11
102
1. .. Visual Basic .NET. . - .: 2003.-”-”,
2005.-736.
2. .., .., .. Visual Basic 2005.-.:
-, 2007.-576.
3. .. -
. 4. Visual
Studio .NET 2005.-M.: 2008 .-35 .
4. . Microsoft Visual Basic 2005. « ». - .:
, 2007.-640.
5. , . Visual Basic 2005/ . – .:
-, 2008.- 738.
103
………………………………………………………………………………32
1.. ………………………………………7
1…………………………………………………………..15
2.. ………………………………………..25
2…………………………………………………………..31
3. . ……………………………..38
3……………………………………………………………………45
4.………………………………………………………………...51
4…………………………………………………………...57
5. …………………………………………….71
5……………………………………………………………79
6. ADO.NET………….88
6…………………………………………………………...91
………………………………………………………...103
16.03.2010 . 60u84 1/16
-35 6,5 .. . 300 100
.
. 129337, , ., 26
020675 09.12.1997 .
104
Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]