Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VB Заполнить матрицу определенными числами Доброго вечера, форумчане Мне тут попалась задачка на заполнение массива определенными числами 0000 1111 2222 3333 Рандомными числами я заполнять научился, а вот определенными... Даже не знаю,... https://www.cyberforum.ru/ visual-basic/ thread1601184.html Расчет общего сопротивления R VB
Задача 1 Составить программу , которая выполняла бы следующие действия: - Ввод значений электрических сопротивлений R1 , R2, R3 с клавиатуры ; - Расчет общего сопротивления R по формуле R = R1...
VB Идеальный код? https://www.cyberforum.ru/ visual-basic/ thread1600759.html
Что такое идеальный код? Кто может ответить? Конечно у меня есть свое мнение на этот счет. Что такое чистый код? - я знаю Что такое быстрый код? - тоже А идеальный? 1. Это система в обозначении...
VB Работа с массивом 1)Найти кол-во нулевых элементов(к1) и кол-во чисел >5(к2) в массиве 2) если к1 > к2,то умножить все отрицательные элементы на к1 и вывести массив,иначе выдать сообщение https://www.cyberforum.ru/ visual-basic/ thread1600340.html
VB Разложить число на слагаемые
Доброго всем времени суток! Подскажите пожалуйста что я не правильно делаю. Нужно разложить целое число на слагаемые распечатать не повторяющиеся. Пример 4 разложится на 2 1 + 3 2 + 2 3 + 1 не...
VB Обработка ошибок типа "#Н/Д" Как можно обработать "#Н/Д" из Ехеля в VBS? При любой попытке считать, пишет -несоответствие типа. Пример: Set xlApp = CreateObject("Excel.Application") 'xlApp.Visible = True... https://www.cyberforum.ru/ visual-basic/ thread1599426.html
VB Написать программу для перевода валют помогите сделать программу!!!!!! Написать программу для перевода рублей в доллары сша, евро, иены, юани, марки и фунты стерлингов и наоборот. Вводить нужное число необходимо с клавиатуры, а также... https://www.cyberforum.ru/ visual-basic/ thread1599410.html Найти сумму и число тех элементов заданного вектора X1, X2, ., Xn, которые больше заданной величины P, но ме VB
Найти сумму и число тех элементов заданного вектора X1, X2, ..., Xn, которые больше заданной величины P, но меньше другой заданной величины T (P<T). Сделать с использованием массивов.
VB Интеграционный цикл Добрый вечер! Помогите найти сумму бесконечного ряда в visual basic for application. Оператор GOTO использовать запрещается:cry: https://www.cyberforum.ru/ visual-basic/ thread1598888.html VB Найти сумму элементов главной диагонали матрицы https://www.cyberforum.ru/ visual-basic/ thread1598817.html
Дана квадратная матрица A порядка M. Найти сумму элементов ее главной диагонали, то есть диагонали, содержащей следующие элементы: A1,1, A2,2, A3,3, . . ., AM,M помогите разобраться,никогда не...
Дана матрица размера M × N. В каждом столбце матрицы найти максимальный элемент VB
помогите, никогда не работал в vb
VB Одномерный целочисленный массив Дан одномерный целочисленный массив размерностью a(N). Число элементов умножить на 2. Найдите количество элементов, которые кратны 3 (5). https://www.cyberforum.ru/ visual-basic/ thread1598662.html
0 / 0 / 0
Регистрация: 17.11.2015
Сообщений: 4
0

Выбивает ошибку - VB - Ответ 8434190

03.12.2015, 20:50. Показов 423. Ответов 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

Вернуться к обсуждению:
Выбивает ошибку VB
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
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 &lt;iostream.h&gt; int main(void) { int i; //счетчик в цикле int N; // размер массива int...

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

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.12.2015, 20:50
Помогаю со студенческими работами здесь

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

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

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

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

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