Добавил:
ivanov666
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Объектно-ориентированное программирование на языке Visual Basic 2008 в среде разработки Microsoft Visual Studio 2008 и .NET Framework. Часть 2. Учебно
.pdf
Case "Integer"
input()
Case "Single"
input1()
Case "String"
inputstr()
End Select
End Sub
End Class
Cutdown:
Public Class Cutdown
Inherits ArrayOneDimension
Public Sub cutdown1(ByVal kind As String) ' Creation a method in the class Cutdown
ArrayOneDimension
Dim k As Integer = CInt(InputBox(" "))
Select Case kind
Case "Integer"
For i As Integer = k To UBound(int1) - 1
int1(i) = int1(i + 1)
Next
n -= 1
ReDim Preserve int1(n)
Case "Single"
For i As Integer = k To n - 1
sing2(i) = sing2(i + 1)
Next
n -= 1
ReDim Preserve sing1(n)
Case "String"
For i As Integer = k To n - 1
str2(i) = str2(i + 1)
Next
n -= 1
ReDim Preserve str1(n)
End Select
End Sub
End Class
Extension:
Public Class Extension
Inherits ArrayOneDimension
Public Sub extension1(ByVal kind As String) ' Creation a method in the class Extension
ArrayOneDimension
Dim k As Integer = CInt(InputBox(" , "))
n += 1
ReDim Preserve int1(n), sing1(n), str1(n)
Select Case kind
Case "Integer"
Dim d As Integer = CInt(InputBox(" "))
21
For i As Integer = 1 To UBound(int1) - k
int1(UBound(int1) + 1 - i) = int1(UBound(int1) - i)
Next
int1(k) = d
ReDim Preserve int1(n)
Case "Single"
Dim d As Single = CSng(InputBox(" "))
For i As Integer = 1 To n - k
sing2(n + 1 - i) = sing2(n - i)
Next
sing1(k) = d
Case "String"
Dim d As String = CStr(InputBox(" "))
For i As Integer = 1 To n - k
str1(n + 1 - i) = str1(n - i)
Next
str1(k) = d
End Select
End Sub
End Class
:
Public Class Form1
Public ArrayOne As New ArrayOneDimension
Public ObjectCutdown As New Cutdown
Public ObjectExtension As New Extension
Public kind As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
kind = InputBox(" :Integer, Single, String")
ArrayOne.inputs(kind)
Select Case kind
Case "Integer"
TextBox1.Visible = True
TextBox2.Visible = False
TextBox3.Visible = False
TextBox1.Text = " " & vbCrLf
For i As Integer = 0 To UBound(ArrayOne.int1)
TextBox1.Text = TextBox1.Text & ArrayOne.int1(i) & vbCrLf
Next
Case "Single"
TextBox1.Visible = False
TextBox2.Visible = True
TextBox3.Visible = False
TextBox2.Text = " " & vbCrLf
For i As Integer = 0 To ArrayOne.n
TextBox2.Text = TextBox2.Text & ArrayOne.sing2(i) & vbCrLf
Next
Case "String"
TextBox1.Visible = False
TextBox2.Visible = False
22
TextBox3.Visible = True
TextBox3.Text = "C " & vbCrLf
For i As Integer = 0 To ArrayOne.n
TextBox3.Text = TextBox3.Text & ArrayOne.str2(i) & vbCrLf
Next
End Select
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click
kind = InputBox(" :Integer, Single, String")
Select Case kind
Case "Integer"
ObjectCutdown.input()
ObjectCutdown.cutdown1(kind)
TextBox4.Text = " " & vbCrLf
For i As Integer = 0 To UBound(ObjectCutdown.int1)
TextBox4.Text = TextBox4.Text & ObjectCutdown.int1(i) & vbCrLf
Next
Case "Single"
ObjectCutdown.input1()
ObjectCutdown.cutdown1(kind)
TextBox4.Text = " " & vbCrLf
For i As Integer = 0 To ObjectCutdown.n
TextBox4.Text = TextBox4.Text & ObjectCutdown.sing2(i) & vbCrLf
Next
Case "String"
ObjectCutdown.inputstr()
ObjectCutdown.cutdown1(kind)
TextBox4.Text = " " & vbCrLf
For i As Integer = 0 To ObjectCutdown.n
TextBox4.Text = TextBox4.Text & ObjectCutdown.str2(i) & vbCrLf
Next
End Select
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button3.Click
kind = InputBox(" :Integer, Single, String")
Select Case kind
Case "Integer"
ObjectExtension.input()
ObjectExtension.extension1(kind)
TextBox5.Text = " " & vbCrLf
For i As Integer = 0 To UBound(ObjectExtension.int1)
TextBox5.Text = TextBox5.Text & ObjectExtension.int1(i) & vbCrLf
Next
Case "Single"
ObjectExtension.input1()
ObjectExtension.extension1(kind)
TextBox5.Text = " " & vbCrLf
For i As Integer = 0 To ObjectExtension.n
TextBox5.Text = TextBox5.Text & ObjectExtension.sing2(i) & vbCrLf
Next
23
Case "String"
ObjectExtension.inputstr()
ObjectExtension.extension1(kind)
TextBox5.Text = " " & vbCrLf
For i As Integer = 0 To ObjectExtension.n
TextBox5.Text = TextBox5.Text & ObjectExtension.str2(i) & vbCrLf
Next
End Select
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button4.Click
End
End Sub
End Class
, .1.2 ( Integer)
.1.2
24
2
.
:
x .
x .
x .
x .
x .
,
. Visual Basic 2008 . -
. – -
,
. ,
. ,
. – , – .
, , . - , .
, .
, .
. .
, , , .
Visual Basic 2008 , , , . ,
, .
(override) . , Visual Basic 2008
. ,
. , ..
, .
25
, , ,
, .
, ,
Visual Basic 2008 , ..
. ,
, .
, Public , Friend Private, Friend Private.
- : “” (“is a”) “” (“has a”). “” .
“” ,
, . “”, , . ,
“”
, , . .2.1 “” “”. , _ ,
,
«» «», .
“” “”
.2.1
26
,
,
.
,
.
, .
, ,
, . ,
, .NET Framework , . ,
Visual Basic 2008,
, , Visual Studio.
:
1. “”.
2. .
3. -
.
4. ,
.
.
. ,
.
, ,
,
. , . . , .
, , -
. i- mn
{ a(i, 0), a(i, 1),…,a(i, n) }, j-
ሻ
ܽሺͲǡ݆
ሻ
ܽሺͳǡ݆
ǥ
ܽሺ݉ǡ݆ሻ
.
൪
27
൦
,
, . , . ( , - )
a(p, q)
,
.
{ a(0, 0) a (1, 1) a (2, 2) … a (n-1, n-1) }
,
{ a(n-1, 0) a (n-2, 1) a (n-3, 2) … a (0, n-1) }
.
Dim, , 4 5 :
Dim a(3, 4) As Integer
:
a(0, 0) a (0, 1) a (0, 2) a (0,3) a (0, 4)
a(1, 0) a (1, 1) a (1, 2) a (1,3) a (1, 4)
a(2, 0) a (2, 1) a (2, 2) a (2,3) a (2, 4)
a(3, 0) a (3, 1) a (3, 2) a (3,3) a (3, 4)
, InputBox .
, ( ) .
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click
Dim a(,) As Integer
Dim m, n As Integer
m = CInt(InputBox(" "))
n = CInt(InputBox(" "))
ReDim a(m, n)
For i As Integer = 0 To m ‘
For j As Integer = 0 To n
a(i, j) = CInt(InputBox(" " & i & "- " & j & "- "))
Next
Next
For i As Integer = 0 To m ‘
For j As Integer = 0 To n
TextBox1.Text = TextBox1.Text & a(i, j).ToString & " "
Next
TextBox1.Text = TextBox1.Text & vbCrLf
Next
End Sub
28
, , :
a(0, 0) a (0, 1) a (0, 2) a (0,3)
a(1, 0) a (1, 1) a (1, 2) a (1,3)
,
:
L= 0 1 2 3 4 5 6 7
a(0, 0) a (0, 1) a (0, 2) a (0,3) a(1, 0) a (1, 1) a (1, 2) a (1,3)
, L ,
(i , j)
L=i ·n + j,
n – ( ).
1. ( )
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click
Dim a(,) As Integer
Dim m, n, s As Integer
m = CInt(InputBox(" "))
n = CInt(InputBox(" "))
ReDim a(m, n)
For i As Integer = 0 To m
For j As Integer = 0 To n
a(i, j) = CInt(InputBox(" " & i & "- " & j & "- "))
Next
Next
For i As Integer = 0 To m
For j As Integer = 0 To n
s += a(i, j)
Next
Next
TextBox1.Text = " =" & CStr(s)
End Sub
2.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click
29
Dim a(,) As Integer
Dim m, n, s, p As Integer
m = CInt(InputBox(" "))
n = CInt(InputBox(" "))
p = CInt(InputBox(" "))
ReDim a(m, n)
For i As Integer = 0 To m
For j As Integer = 0 To n
a(i, j) = CInt(InputBox(" " & i & "- " & j & "- "))
Next
Next
For i As Integer = 0 To n
s += a(p, i)
Next
TextBox1.Text = " " & p & "- =" & CStr(s)
End Sub
3.
p
:
For i As Integer = 0 To m
s += a(i, p)
Next
TextBox1.Text = " " & p & "- =" & CStr(s)
4.
, . , .
n:
For i As Integer = 0 To n - 1
For j As Integer = i + 1 To n
p = a(i, j) : a(i, j) = a(j, i) : a(j, i) = p
Next
Next
Dim p As Integer
a(0,0) a(0,1) a(0,2) a(0,3) a(0,4) a(0,0) a(1,0) a(2,0) a(3,0) a(4,0)
a(1,0) a(1,1) a(1,2) a(1,3) a(1,4) a(0,1) a(1,1) a(2,1) a(3,1) a(4,1)
a(2,0) a(2,1) a(2,2) a(2,3) a(2,4) a(0,2) a(1,2) a(2,2) a(2,3) a(4,2)
a(3,0) a(3,1) a(3,2) a(3,3) a(3,4) a(0,3) a(1,3) a(2,3) a(3,3) a(4,3)
a(4,0) a(4,1) a(4,2) a(4,3) a(4,4) a(0,4) a(1,4) a(2,4) a(3,4) a(4,4)
30
Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]