Visual Basic-одномерный массив! - Помощь студентам - Страница 2

DESPUT · 02.06.2009, 09:13

вот... я не знаю...

EducatedFool · 02.06.2009, 09:23

Код:

Private Sub Command1_Click()
    n = Val(txt_n.Text): txt_S.Text = ""
    For i = 1 To n Step 1
        M(i) = Text1(i).Text
    Next i
    
    s=0
    k = InputBox("Введите значение K (не большее, чем " & Sqr(n) & ")")
    If Not IsNumeric(k) Then Exit Sub
    If k < 1 Or k > Sqr(n) Then Exit Sub
    For i = 1 To k
        S = M(i ^ 2) + S
    Next i
    txt_S.Text = S
End Sub

И убери из 2-й строки k As Integer

DESPUT · 02.06.2009, 09:33

омг)) спасибо конечно)) попробую преподу втереть, что сам делал... но я думаю для первого курса, где информатика не профилирующий предмет... не поверит))

02.06.2009, 09:23	#12
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,856	Код: `Private Sub Command1_Click() n = Val(txt_n.Text): txt_S.Text = "" For i = 1 To n Step 1 M(i) = Text1(i).Text Next i s=0 k = InputBox("Введите значение K (не большее, чем " & Sqr(n) & ")") If Not IsNumeric(k) Then Exit Sub If k < 1 Or k > Sqr(n) Then Exit Sub For i = 1 To k S = M(i ^ 2) + S Next i txt_S.Text = S End Sub` И убери из 2-й строки k As Integer __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
(Visual Basic 6)	phantom4eg	Помощь студентам	5	22.04.2009 19:00
Visual Basic	_леся_	Помощь студентам	3	24.12.2008 21:16

02.06.2009, 09:33	#13
DESPUT Регистрация: 02.06.2009 Сообщений: 7	омг)) спасибо конечно)) попробую преподу втереть, что сам делал... но я думаю для первого курса, где информатика не профилирующий предмет... не поверит))