Карта сайта

Это автоматически сохраненная страница от 24.04.2013. Оригинал был здесь: http://2ch.hk/b/res/47027669.html
Сайт a2ch.ru не связан с авторами и содержимым страницы
жалоба / abuse: admin@a2ch.ru

Срд 24 Апр 2013 21:22:47
Абама взорвался!
Анончик, я думаю, ты можешь в макросы экселя.
Помоги решить задачку. Нужен макрос который считает количество попыток при угадывании рандомного числа из 100, число задает сама прога и, видимо, указывающий большее нужно число или меньшее.

Условие:

Dim a,comp, n As Integer
Privete Sub CommandButton1_Cick()
Randomize
n = 0
comp = Fix(Rnd * 100)
TextBox1.Text = ""
End Sub

Privete Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.Returnloteger, ByVal Shift As Integer)
a = Val(TextBox1.Text)
n = n + 1
If KeyCode = vbKeyReturn Then
if a = comp Then
MsgBox "Угадано за" & n/3 & "раз!"
End If
if a < comp Then
MsgBox "Больше!"
TextBox1.Text = ""
End if
if a > comp Then
MsgBox "Меньше!"
TextBox1.Text = ""
End if
End if
End Sub

В условии, походу, еще и ошибка есть.

С меня лучи добра и бляди.


Срд 24 Апр 2013 21:28:58
ты заебал создаыать каждый вечер треды с этимм дыбильными заголовками

Срд 24 Апр 2013 21:48:59
>>47028163
Первый раз за 2 года создал, ты меня с кем-то путаешь, друг.


← К списку тредов