Форум

Data.BG Форуми: 2 задачи на Visual Basic 6 - Data.BG Форуми

Прехвърляне към съдържание

Страница 1 от 1
  • Вие не можете да започнете нова тема
  • Вие не може да отговаряте на тази тема

2 задачи на Visual Basic 6 много спешно, давам и НАГРАДА!!!

#1
Потребителят е неактивен   feminema 

  • Група: Потребители
  • Мнения: 14
  • Регистриран: 02-September 05
  • Репутация: 0
  • Град:Тъмната страна на бялото..
Задачa 22 Теоретичен тест: LENTI във VB

1. Да се създаде форма с меню-лента съдържащо следните полета:
а/ “Автобиографични данни”, б/ ”Професионални интереси”, в/ ”Хоби”, г/ ”Администратор”
2. В поле b/ да се създаде подменю : а/ “ програмиране” б/ “ история ”, в/ “ математика”
3. Да се създаде падащо меню(popup menu), което да се активира САМО с lqw бутон на мишката върху формата;
4. Да се създаде изпълним файл.

------------------------------------------------------------- -------------------------------------------------------------- --------

Задача 17 Теоретичен тест: Formi- glavi 3 I 5 във VB


1. Да се създаде форма, която да се оцветява в случаен цвят при избор с левия бутон на мишката върху нея;
2. Към формата да се прибавят 3 текстови полета (Т1, Т2, Т3) и два командни бутона (А1- активен и А2-неактивен) .Да се забрани въвеждането на данни в Т2 и Т3;
3. При натискане на А1, от стринга въведен в Т1 да се извадят всички гласни букви и да се покажат в Т2, а останалите символи в Т3. А2 да стане активен, а полето Т1 да стане неактивно. Резултатите да се изтриват след натискане на А2 и да се активира отново полето Т1, а бутон А2 да стане неактивен;
4. Да се запомни проекта.



тук на ЛС или скайп: ninoslav4445

Мнението беше редактирано от feminema: 10.06.09 - 22:02

0

#2
Потребителят е неактивен   setchodiii 

  • Група: Потребители
  • Мнения: 150
  • Регистриран: 28-June 08
  • Репутация: 0
Dim A As Long
Dim B As Long
Dim C As Long
Dim D As Long


Function Randomize(Lowerbound As Long, Upperbound As Long)
Randomize = Int(Rnd * Upperbound) + Lowerbound
End Function


Private Sub Form_Click()
A = Randomize("0", "256")
B = Randomize("0", "256")
C = Randomize("0", "256")
D = Val(A) * Val(B) * Val(C)
Me.BackColor = D

End Sub


Това е кода за смяна на цвета на формата ,а другото по-късно че са нямам време
0

#3
Потребителят е неактивен   feminema 

  • Група: Потребители
  • Мнения: 14
  • Регистриран: 02-September 05
  • Репутация: 0
  • Град:Тъмната страна на бялото..
Благодаря setchodiii , направих задачите, но това ми помогна, мерси =)
0

Споделете тази тема чрез:


Страница 1 от 1
  • Вие не можете да започнете нова тема
  • Вие не може да отговаряте на тази тема

1 потребители четат тази тема
0 регистрирани потребители, 1 гости и 0 анонимни потребители


Data.BG e форум за дискусии. Data.BG не носи отговорност за съдържанието и достоверността на публикуваните в дискусиите материали.

Никаква част от съдържанието на тази страница не може да бъде репродуцирана, записвана или предавана под каквато и да е форма или по какъвто и да е повод без писменото съгласие на Data.BG.

Close  Member Login