VBA

[Ingez]

Здравствуйте, я новичок в программировании.Нужна ваша помощь!

1.Дано натуральное число N>99. Определить число сотен в нем.
(Честно говоря само задание не понял. Что значит "число сотен"?
это допустим если мы ввели число 4789 число сотен в нем будет 7 или 47?)

2.Дано натуральное число N<=1000.Вычислить сколько в нем цифр; найти предпоследнюю цифру если число >=10.

P.S.: При этом нельзя использовать строковые ф-ий и массивы!
Прошу составить простую программу понятную для начинающего программиста!
Если сможете помочь буду очень благодарен!

В первом задании просто объясните пожалуйста что значит "ЧИСЛО СОТЕН"...!

[s-andriano]

1. Число сотен 47. (тысяч - 4, десятков - 478, единиц - 4789)

[Аватар]

число сотен i:=n div 100;
предпоследняя цифра i:=(n mod 100) div 10;

Ну да, только заметил, что vba. Пример дельфийский привел

[Ingez]

s-andriano, Аватар, спасибо, все сделал!
Только думаю число сотен это все таки цифра стоящая на позиции сотен т.е. например 9573 - число сотен 5, а не 95....

Сможете помочь еще с одним заданием?

3.Дано натуральное число N<=9999.
Определить:
1) является ли число палиндромом;
2)верно ли что это число содержит ровно три одинаковые цифры?
3)верно ли что все четыре цифры разные?

[s-andriano]

1. Тогда что может означать фраза "пятнадцать сотен"? Вряд ли "количество сотен" стоит путать с "разрядом сотен в позиционной записи числа".

3. Коль скоро по сути все задачи на сравнение десятичных разрядов, а строковыми функциями пользоваться нельзя, значит, для этих разрядов нужно придумать свои обозначения и свои функции. Думаю, вполне подойдет и буквальное воспроизведение имеющихся строковых функций.

[Ingez]

Сделал предыдущее задание решение получилось очень длинным!

Помогите кто-нибудь еще с одной задачей на VBA:

4.Напечатать самое длинное слово из текста. (который пользователь вводит сам)

P.S.:На это раз можно пользоваться (а точней нужно) строковыми функциями, но не использовать массивы (Но только разве такое возможно?)
На крайний случай если без массивов никак можно с массивами.

[s-andriano]

И как бы Вы стали делать эту задачу, если бы строка была написана на бумажке?

[Ingez]

Сообщение от s-andriano

И как бы Вы стали делать эту задачу, если бы строка была написана на бумажке?

Сосчитал бы кол-во букв и все.
У меня такой вопрос: без массивов то все это можно сделать?

[gaw4]

Private Sub CommandButton1_Click()
s = InputBox("N<=9999", , 3223)
If IsNumeric(a) And Len(a) < 5 Then

a = IIf(s = StrReverse(s), "Y", "N")
k = 0
For i = 1 To Len(s) - 1
   For j = i + 1 To Len(s)
        k = k - (Mid(s, i, 1) = Mid(s, j, 1))
        If k = 3 Then Exit For
   Next j, i
Label1 = k
b = IIf(k = 3, "Y", "N")
c = IIf(k = 0, "Y", "N")
MsgBox s & vbNewLine & "палиндром - " & a & vbNewLine & _
       "три одинаковых -     " & b & vbNewLine & _
       "все разные -     " & c
Else
MsgBox "N<=9999"
End If
End Sub

Private Sub CommandButton2_Click()
s = InputBox("Text", , "Напечатать самое длинное слово из текста. (который пользователь вводит сам)")
If Len(s) > 0 Then
Do While InStr(1, s, "  ") > 0
s = Replace(s, " ", "")
Loop
a = Split(s, " ")
ind = 0
For i = 0 To UBound(a)
  If Max < Len(a(i)) Then
     Max = Len(a(i))
     ind = i
  End If
Next i
MsgBox s & vbNewLine & "самое длинное слово  = " & a(ind) & " ="
Else
MsgBox "Error"
End If
End Sub

[Ingez]

gaw4, спасибо конечно, но
1)Первую не надо было делать я сам уже его сделал;
2)Мне не понять ваш код, т.к. я еще не владею VBA на вашем уровне.

Если кто-то сможет написать по последнему заданию легкий для понимания код буду благодарен.