Выбивает ошибку

@Help me please2 · Регистрация: 17.11.2015

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

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
Private Sub Command1_Click()
End
End Sub
 
Private Sub Command2_Click()
With Animation1
.AutoPlay = True
.Open "clock.avi"
End With
End Sub
 
Private Sub command3_Click()
Dim xc As doudle
ReDim x(15 + 17)
Dim y() As Double
ReDim y(15 + 18)
k = 15 + 18
y_sum = 0
x_sum = 0
x_sqr_sum = 0
For i = 1 To k
x (i) - (-1) ^ i * unt(Rnd * 10000) / 100
x_sum = x_sqr_sum + x(i) ^ r
Grid1.Col = 1
Grid1.Row = i
Grid1.Text = Str(x(i))
Next
x (i) - (-1) ^ i * unt(Rnd * 10000) / 100
x_sum = x_sqr_sum + x(i) ^ r
Next
Label6.Caption = Str((x_sum * y - Sum - k * x_sum * y_sum) / (x.Sum - k * x_sqr_sum))
label7.Caption = Str((1 / k) * (y - Sum - x - Sum))
For i = 1 To k
Grid1.Col = 1
Grid1.Row = i
Grid1.Text = x(i)
Grid1.Col = 2
Grid1.Row = i
Grid1.Text = y(i)
Next
End Sub
Private Sub command5_Click()
End
End Sub
 
Private Sub command6_Click()
End
End Sub
 
Private Sub Form_Load()
Old_ind = 1
Form1(1).Visible = True
Form1(2).Visible = False
Form1(3).Visible = False
Grid1.Rows = 25 + 18 + 1
Grid1.Cols = 3
Grid1.Col = 0
Grid1.Col = 0
Grid1.Text = i
Grid1.Col = 1
Grid1.Row = 0
Grid1.Text = a
Grid1.Col = 2
Grid1.Row = 0
Grid1.Text = b
For i = 1 To 25 + 18
Grid1.Col = 0
Grid1.Row = i
Grid1.Text = 1
Next
End Sub
 
Private Sub TabStrip1_Click()
a = MsgBox(oldind + Str(Old_ind))
If Old_ind = TabStrip1.SelectedItem.Index Then
Exit Sub
Frame1(TabStrip1.SelectedItem.Index).Visible = True
Frame1(Old_ind).Visible = False
Old_ind = TabStrip1.SelectedItem.Index
End Sub

Добавлено через 52 секунды
в строке Grid1.Rows = 25 + 18 + 1

@Help me please2 · 03.12.2015, 21:42 **[ТС]**

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
Private Sub Command1_Click()
start
End Sub
 
Private Sub Command2_Click()
End
End Sub
 
Private Sub Command3_Click()
Dim x() As Double
ReDim x(25 + 18)
Dim y() As Double
ReDim y(25 + 18)
 
k = 25 + 18
y_sum = 0
x_sum = 0
x_sqr_sum = 0
 
For i = 1 To k
    x(i) = (-1) ^ i * CInt(Rnd * 10000) / 100
    x_sum = x_sum + x(i)
    x_sqr_sum = x_sqr_sum + x(i) ^ 2
    Grid1.Col = 1
    Grid1.Row = i
    Grid1.Text = Str(x(i))
Next
 
For i = 1 To k
    y(i) = (-1) ^ i * CInt(Rnd * 10000) / 100
    y_sum = y_sum + x(i)
Next
 
Label6.Caption = Str((x_sum * y_sum - k * x_sum * y_sum) / (x_sum - k * x_sqr_sum))
Label7.Caption = Str((1 / k) * (y_sum - x_sum))
 
For i = 1 To k
    Grid1.Col = 1
    Grid1.Row = i
    Grid1.Text = x(i)
    Grid1.Col = 2
    Grid1.Row = i
    Grid1.Text = y(i)
Next
End Sub
 
Private Sub Command4_Click()
With Animation1
.AutoPlay = True
.Open "clock.avi"
End With
End Sub
 
Private Sub Command5_Click()
End
End Sub
 
Private Sub Command6_Click()
End
End Sub
 
Private Sub Form_Load()
Old_Ind = 1
Frame1(1).Visible = True
Frame1(2).Visible = False
Frame1(3).Visible = False
Grid1.Rows = 25 + 18 + 1
Grid1.Cols = 3
Grid1.Col = 0
Grid1.Row = 0
Grid1.Text = "i"
Grid1.Col = 1
Grid1.Row = 0
Grid1.Text = "a"
Grid1.Col = 2
Grid1.Row = 0
Grid1.Text = "b"
For i = 1 To 25 + 18
    Grid1.Col = 0
    Grid1.Row = i
    Grid1.Text = i
Next
End Sub
Private Sub TabStrip1_Click()
'a = MsgBox("old_ind=" + Str(Old_Ind))
If Old_Ind = TabStrip1.SelectedItem.Index Then Exit Sub
Frame1(TabStrip1.SelectedItem.Index).Visible = True
Frame1(Old_Ind).Visible = False
Old_Ind = TabStrip1.SelectedItem.Index
End Sub

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ