Ошибка при создании функции - VB
Формулировка задачи:
Всем доброго времени суток! Нужна помощь. Задачка школьного уровня. С визуал бейсик столкнулся впервые. Суть задачи: заполнение массивов при нажатии на кнопку и нахождение макс.мин.массивов. На форме поставил кнопку, но при нажатии ошибка: " Expected End Sub ". Код кнопки:
Всё вроде бы писал по инструкции со справочника. Среда - MS VB 6.0. Кстати когда функцию убираю, все норм вроде, потом когда заново прописываю, В конце кода End Sub сам меняется на End Function. Спасибо!
Решение задачи: «Ошибка при создании функции»
textual
Листинг программы
Private Sub Command1_Click() Randomize Dim x(5), y(3), z(6) As Integer Dim i, A, B, C, xmax, ymin, zmax As Integer For i = 0 To 5 x(i) = Int(Rnd(100)) xmax = Find(x(i), xmax) Next For i = 0 To 3 y(i) = Int(Rnd(100)) Next ymin = y(0) For i = 1 To 3 If ymin > y(0) Then ymin = y(0) Next For i = 0 To 6 z(i) = Int(Rnd(100)) zmax = Fimd(z(i), zmax) Next End Sub Private Sub Form_Load() Function Find(s, d As Integer) As Integer If s > d Then Find = s End Function End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д