Reply to this topicStart new topic
> задачка на vb
plamen87
публикация 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)

но тва е само половината задача . И питам ако някои може да ми помогне за останалата а просто искам савет защото незнам как да си напиша кода за разгъването по спирала и затва питам благодаря ви предварително
Go to the top of the page
 
+Quote Post



Reply to this topicStart new topic
1 потребители преглеждат тази тема в момента (1 гости, 0 анонимни потребители)
Потребители, преглеждащи темата в момента:

 

RSS Олекотена Версия Сега е: 06:10 - 25.08.2026г.

Калдейта Ком ЕООД - © 2003-. Всички права запазени.