Свойства и методы объекта UserForm

Свойства UserForm:

1. Activecontrol – возвращает объектную ссылку на элемент управления

2. Hide – скрывает форму

3. Show – отображает форму

Свойства стандартных элементов управления:

1. ControlTipText – устанавливает текст, который отображается виде всплывающей подсказки, когда указатель мыши помещается на элемент управления.

Задача 1: Создать форму, в которой при вводе имени в текстовое поле после нажатия кнопки ОК выдается приветственное сообщение в метку в виде «привет, ИМЯ, сегодня – дд,мм,гг чч,мм».

Введите имя textbox1

Label2 – для вывода

Кнопка ОК

После двойного щелчка на кнопку, в блоке прописать:

Dim imya as string

Imya = textbox1.text

Label2.caption = imya & “, привет!” & Format (Now, “dddddd,hh, ч. mm мин.”)

Задача 2: используя инструкцию case, создать программу, которая в зависимости от введенного значения переменной a производит различные вычисления с переменными b, c. Если значения a не совпадают с программными, то выдается сообщение «введено не то значение».

Если а=5, то b+c

Если а=0, то –(b+c)

Если а=10, то b*c

Введите а textbox1.text

Введите b textbox2.text

Введите c textbox3.text

Label4 для вывода сообщения

Кнопка ОК

После двойного щелчка на кнопку, в блоке прописать:

Dim a,b,c,d as integer

a =val( textbox1.text)

b=val( textbox2.text)

c =val( textbox3.text)

select case a

case 0

d=-(b+c)

label4.caption = “-(b+c)= “& d

case 5

d=b+c

label4.caption = “b+c= “& d

case 10

d=b*c

label4.caption = “b*c= “ + Cstr(d)

case else

label4.caption = “введено неверное значение”

end select

Задача 3: создать программу, которая производит следующие действия: при вводе двух положительных чисел находится их произведение, при вводе отрицательных чисел находится частное, если числа разные – разность. При других значениях выдается сообщение.

Введите а textbox1.text

Введите b textbox2.text

Label3 для вывода сообщения

Кнопка ОК

Dim a, b, c As Integer

a =var( textbox1.text)

b=var( textbox2.text)

if (a<0) And (b<0) Then

label3. caption = “значение а/b” & (a/b)

end if

if (a>0) And (b>0) Then

label3. caption = “значение а*b” & (a*b)

end if

if (a>0) And (b<0) Then

label3. caption = “А+В” & (а+b)

end if

if (a<0) And (b>0) Then

label3. caption = “Значение не верное”

end if

Создать программу, работающую с тремя двухмерными массивами. Первый массив «а» вводится с клавиатуры. Второй массив «b» определен поэлементно в программе. Массив «с» организуется путем суммирования соответствующих элементов массива «а» и «b». Результат выводится в метку.

Создаем форму

«введите элементы массива»

«а 1,1» «поле ввода» «а 1,2» «поле ввода» «а 2,1» «поле ввода» «а 2,2» «поле ввода»

«массив а»

«массив b»

«массив с»

Button вывод

Обработка кнопки вывод:

Dim a (1 to 2, 1 to 2) as integer

Dim b (1 to 2, 1 to 2) as integer

Dim c (1 to 2, 1 to 2) as integer

Dim I, j as integer

A[1,1] = val(textbox1.text)

A[1,2] = val(textbox2.text)

A[2,1] = val(textbox3.text)

A[2,2] = val(textbox4.text)

b[1,1] =

b[1,2] =

b[2,1] =

b[2,2] =

for i=1 to 2

for j=1 to 2

c[I,j]=a[I,j]+b[I,j]

next j

next i

label6. caption =””

label7. caption =””

label8. caption =””

Задача 2

Составить программу вычисляемое значение функции:

Y={ inX/a²+b², 0<X<1

{ √x*(a²+b²), x≥1

Введите а textbox1.text

Введите в textbox2.text

Введите х textbox3.text

Label и кнопка

Dim a,b,x,y as double

a = val(textbox1.text)

b = val(textbox2.text)

x = val(textbox3.text)

if x<0 then msgbox(‘x>0’)

if a=0 and b=0 then msgbox(‘a и b не ровны 0’)

if x>0 and x<0 then

y=lon(x) / (a^2 + b^2)

label4.caption=y

end if

if x>=1 then

y=(x*(a^2+b^2))^(1/2)

label4.caption=y

end if