Произведение положительных элементов первой строки матрицы

@MATRIXX · Регистрация: 27.05.2010

Студворк — интернет-сервис помощи студентам

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Dim p, i As Integer
        Dim a(i, 0) As Single
        ReDim a(i, 0)
        For i = 0 To n - 1
            a(i, 0) = Me.DataGridView1.Item(i, 0).Value
        Next
        p = 1
        For i = 0 To n - 1
            If a(i, 0) > 0 Then p = p * a(i, 0)
        Next i
        p = Val(TextBox2.Text)

@Alex77755 · 28.05.2010, 11:07

Ну типа код не работает?
1 поставь за провило ставить в начале кода Option Explicit - половину ошибок устранишь сразу
2 Dim a(i, 0) As Single - переменная не допускается при объявлении массива. Если массив динамический просто Dim () As Single
3 ReDim a(i, 0) - i до сих пор не определено
4 For i = 0 To n - 1 - i до сих пор не определено, n - не объявлено и не определено
5 p = Val(TextBox2.Text) - если ты считал произведение и хочешь его показать, то наоборот
TextBox2.Text = p

@MATRIXX · 29.05.2010, 16:59 **[ТС]**

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Public Class Form1
    Dim n As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim p, i As Integer
        Dim a() As Single
        ReDim a(i, 0)
        For i = 0 To n - 1
            a(i, 0) = Me.DataGridView1.Item(i, 0).Value
        Next
        p = 1
        For i = 0 To n - 1
            If a(i, 0) > 0 Then p = p * a(i, 0)
        Next i
      Val(TextBox2.Text)=P
    End Sub
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        n = Val(TextBox1.Text)
        Me.DataGridView1.ColumnCount = n
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Application.Exit()
    End Sub
End Class

вот вся лаба

@Alex77755 · 30.05.2010, 01:32

Так это в NET писано? тогда эта комбинация выдаст ошибку во второй строке

Visual Basic
1
2
Dim a() As Single
ReDim a(i, 0)

В NET Redim не может менять количество размерностей.
Надо объявлять

Visual Basic
1
Dim a(,) As Single

И как ты редимишь массив пока i у тебя не определено?

@MATRIXX · 30.05.2010, 01:45 **[ТС]**

слушай если не трудно напиши мне эту лабу что бы она работала.....

@Alex77755 · 30.05.2010, 02:46

ЯП?
VB6 или NET

Добавлено через 57 минут
Разберёшся? Код рабочий. Насколько я понял задание

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Public Class Form1
 
    Dim n As Integer
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Application.Exit()
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'заполняем произвольными числами
        For i = 0 To n - 1
            DataGridView1.Item(i, 0).Value = Int(15 * Rnd() - 7)
        Next
    End Sub
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        n = Val(TextBox1.Text)
        DataGridView1.ColumnCount = n
        For n = 0 To n - 1
            DataGridView1.Columns(n).Width = 30
        Next n
        DataGridView1.Width = 30 * n + 45
        Width = IIf(DataGridView1.Width < 200, 200, DataGridView1.Width + 20)
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = 15
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim p As Single
        Dim i As Integer
        Dim a(,) As Single
        ReDim a(n, 0)
        For i = 0 To n - 1
            a(i, 0) = DataGridView1.Item(i, 0).Value
        Next
        p = 1
        For i = 0 To n - 1
            If a(i, 0) > 0 Then p = p * a(i, 0)
        Next i
        TextBox2.Text = p
    End Sub
End Class

Только зачем

Visual Basic
1
2
      Dim a(,) As Single
        ReDim a(n, 0)

Я тк и не понял
Можно былобы вообще без массива

Visual Basic
1
2
3
       For i = 0 To n - 1
             If DataGridView1.Item(i, 0).Value > 0 Then p = p * DataGridView1.Item(i, 0).Value
        Next

Условия же полного нет. Только доделал твою лабу

@MATRIXX · 30.05.2010, 06:02 **[ТС]**

мммм спасибо лаба работает но вот произведение находит не правильно.....

@Alex77755 · 30.05.2010, 09:21

не нахожу. Замени весь код на этот
Возьми бумажку, карандаш и проверь работу своего компьютера(умноженим на бумажке в столбик)
Мой считает правильно

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Public Class Form1
 
    Dim n As Integer
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Application.Exit()
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'заполняем произвольными числами
        Randomize()
        For i = 0 To n - 1
            DataGridView1.Item(i, 0).Value = Int(15 * Rnd() - 7)
        Next
    End Sub
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        n = Val(TextBox1.Text)
        DataGridView1.ColumnCount = n
        For n = 0 To n - 1
            DataGridView1.Columns(n).Width = 30
        Next n
        DataGridView1.Width = 30 * n + 45
        Width = IIf(DataGridView1.Width < 200, 200, DataGridView1.Width + 20)
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = 15
    End Sub
 
       Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim p As Single
        Dim i As Integer
        Dim a(,) As Single
        ReDim a(n, 0)
        Dim S
        For i = 0 To n - 1
            a(i, 0) = DataGridView1.Item(i, 0).Value
        Next
        p = 1
        For i = 0 To n - 1
            If a(i, 0) > 0 Then
                p = p * a(i, 0)
                S = IIf(S = Nothing, a(i, 0), S & vbCrLf & p / a(i, 0) & " * " & a(i, 0) & " = " & p)
            End If
        Next i
        TextBox2.Text = p
        MsgBox("Были перемножены числа" & vbCrLf & S, 64, "Проверь на калькуляторе")
    End SubEnd Class

@MATRIXX · 30.05.2010, 15:19 **[ТС]**

сори что усомнился все правильно было.......спасибо большое

Новые блоги и статьи Все статьи Все блоги /
WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	28.05.2010, 11:07
	Ну типа код не работает? 1 поставь за провило ставить в начале кода Option Explicit - половину ошибок устранишь сразу 2 Dim a(i, 0) As Single - переменная не допускается при объявлении массива. Если массив динамический просто Dim () As Single 3 ReDim a(i, 0) - i до сих пор не определено 4 For i = 0 To n - 1 - i до сих пор не определено, n - не объявлено и не определено 5 p = Val(TextBox2.Text) - если ты считал произведение и хочешь его показать, то наоборот TextBox2.Text = p 0

@MATRIXX 0 / 0 / 0 Регистрация: 27.05.2010 Сообщений: 14
	30.05.2010, 01:45 [ТС]
	слушай если не трудно напиши мне эту лабу что бы она работала..... 0

@MATRIXX 0 / 0 / 0 Регистрация: 27.05.2010 Сообщений: 14
	30.05.2010, 06:02 [ТС]
	мммм спасибо лаба работает но вот произведение находит не правильно..... 0

@MATRIXX 0 / 0 / 0 Регистрация: 27.05.2010 Сообщений: 14
	30.05.2010, 15:19 [ТС]
	сори что усомнился все правильно было.......спасибо большое 0