![]() ![]() |
8.01.2009г. в 13:41ч.
Коментар:
#1
|
|
|
Новак ![]() Група: Потребители Съобщения: 1 Дата на регистрация: 8.01.2009г. Потребител # 6 441 |
здравейte може ли да ви помоля за малко помощ за една програмка на 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) но тва е само половината задача . И питам ако някои може да ми помогне за останалата а просто искам савет защото незнам как да си напиша кода за разгъването по спирала и затва питам благодаря ви предварително |
|
|
![]() ![]() |