0 / 0 / 0
Регистрация: 17.11.2015
Сообщений: 4
1

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

03.12.2015, 20:50. Показов 415. Ответов 1
Метки нет (Все метки)

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
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.12.2015, 20:50
Ответы с готовыми решениями:

Работа в другом форме , выбивает MScomm_Oncomm
Есть главный форм , на нем MSComm ,который выполняет определенную функцию, если я захожу в другой...

СМА Indesit WITL106(EU)/Y S/N 091342680075, не блокирует УБЛ. ошибку не выбивает.Ошибку не выбивает
Проблема изначальная сма не подавала признаков жизни, произвел замену процессора с прошивкой под...

Ошибку выбивает
#include <iostream.h> int main(void) { int i; //счетчик в цикле int N; // размер массива int...

Выбивает ошибку
ХЗ что за ошибка и как исправить. Помогите пожалуйста.

1
0 / 0 / 0
Регистрация: 17.11.2015
Сообщений: 4
03.12.2015, 21:42  [ТС] 2
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
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.12.2015, 21:42
Помогаю со студенческими работами здесь

Выбивает ошибку
Мне нужно вывести на экран начало адреса! Почему, когда я пишу эту функцию с красным...

Выбивает ошибку
Добрый день! Написала код, но при нажатии RUN выбивает ошибку "Error 4: Too many open files" и...

Выбивает ошибку!
Есть задача: Заданный текстовый файл Factin.txt в котором содержится информация о товарах в...

ошибку выбивает
PROGRAM R1; VAR V: real; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru