Results 1 to 11 of 11
Thread: visul basic
Hybrid View
-
25th January 2009 23:56 #1Registered User
Join Date: Jan:2009
Location: laki
Posts: 4
visul basic
visual basic :
list box . list box
Public Class Form1
Dim m(,) As Integer
Dim n As Byte
Private Sub btinput_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btinput.Click
n = NuN.value
ReDim m(n - 1, n - 1)
For r As Byte = 0 To n - 1
For c As Byte = 0 To n - 1
m(r, c) = CInt(InputBox("mc" & r & "," & c & ")="))
Next
Next
End Sub
Private Sub btoutput_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btoutput.Click
Dim t As String = ""
For r As Byte = 0 To n - 1
For c As Byte = 0 To n - 1
t &= m(r, c) & "!"
Next
t &= Chr(10) & Chr(13)
Next
MsgBox(t)
.
-
26th January 2009 11:07 #2
. ,
4 10 0
3 2 5
1 8 4
"" :
2
5
4
8
1
3
4
10
0
- 33, 55, 77 ..
VB, :
1 , 1 , 2 , 2 , 3 , 3 , 4 , 4 .., . .
"640K ught to be enough for anybody" - Bill Gates, 1981
::Machine specs::Fract::AGG::::Baileys::blog::YouTube channel
-
26th January 2009 11:59 #3
-
26th January 2009 13:20 #4Registered User
Join Date: Jan:2009
Location: laki
Posts: 4
ok
a for each
Last edited by plam87; 26th January 2009 at 14:28.
-
26th January 2009 13:32 #5
-
26th January 2009 13:42 #6
While , !
, . .
"640K ught to be enough for anybody" - Bill Gates, 1981
::Machine specs::Fract::AGG::::Baileys::blog::YouTube channel
-
26th January 2009 14:26 #7Registered User
Join Date: Jan:2009
Location: laki
Posts: 4
Last edited by plam87; 26th January 2009 at 17:41.
-
26th January 2009 14:41 #8
-
28th January 2009 13:30 #9Registered User
Join Date: Jan:2009
Location: laki
Posts: 4
For Each El In m
ListBox1.Items.Add(El)
Next
End Sub
.
-
28th January 2009 13:37 #10
-
30th January 2009 13:20 #11Registered User
Join Date: Oct:2003
Posts: 1,860
, , , .
- - . , , . , , , , . "" , "" , .
- ( ) ( ), .
' .
' .
' - 1
' - / 1 2
' - 2
' - / 2 3
' - 3
' - / 3 4
' - 4
' - / 4 1
' .
- -
, , , , .
- , . - . .
- - /. , . ( ), / . - , .Last edited by Jonata; 31st January 2009 at 13:25.




Reply With Quote

Lenovo ThinkPad 15 IdeaPad 15
5th May 2023, 22:16 in