Кароче,я сделал 2 списка с рабочим кодом
а вот с 3им проблема,выходит ошибка
это в экселе макрос вижуал бэйсик
.в двух списках записаны числа, указывающие первый член и знаменатель прогрессии. получить в третьем списке 10 первых членов прогрессии.
private sub commandbutton4_click()
dim a as single
dim b as single, m as single, i as integer
a = (listbox1.text)
b = (listbox2.text)
m = a
listbox3.additem str(a), 0
for i = 1 to 9
a= m
m = a* b^ i - 1
listbox3.additem str(m), i
next i
end sub
def letter(text):
text=text.split('.')
text=text[0]
text=text.split()
text=''.join(text)
text=text.upper()
d={}
for i in set(text):
d[i]=text.count(i)
maxim=max(d.values())
s=0
for k in d.values():
if k==maxim:
s+=1
if s==1:
for j in d:
if d[j]==max(d.values()):
return(f'{j} {d[j]}')
else:
qq={}
for z in d:
if d[z]==max(d.values()):
qq[z]=max(d.values())
for l in qq:
if l==min(qq.keys()):
return(f'{l} {qq[l]}')
def runner():
print(letter('It is not a simple task. Yes!'))
print(letter('A'))
print(letter('Bb Aa Cc A'))
runner()
Объяснение:
Объяснение писать долго и неудобно) но если кому интересно, могу рассказать, например, через вк или дискорд. Напишите мне в личку
def letter(text):
text=text.split('.')
text=text[0]
text=text.split()
text=''.join(text)
text=text.upper()
d={}
for i in set(text):
d[i]=text.count(i)
maxim=max(d.values())
s=0
for k in d.values():
if k==maxim:
s+=1
if s==1:
for j in d:
if d[j]==max(d.values()):
return(f'{j} {d[j]}')
else:
qq={}
for z in d:
if d[z]==max(d.values()):
qq[z]=max(d.values())
for l in qq:
if l==min(qq.keys()):
return(f'{l} {qq[l]}')
def runner():
print(letter('It is not a simple task. Yes!'))
print(letter('A'))
print(letter('Bb Aa Cc A'))
runner()
Объяснение:
Объяснение писать долго и неудобно) но если кому интересно, могу рассказать, например, через вк или дискорд. Напишите мне в личку