mmmmm269
08.03.2022 08:30

Нужно написать код для создания теста в Pyton, нужно чтобы в конце выводило в окне уведомления вашу оценку, я не могу это сделать . вот мой код. from tkinter import *
from tkinter import messagebox
x=0
b=0
r=0
t=0
def rez(ev):
if pr1.get()==1 and pr3.get()==1:
x=3
if gre.get()==2:
b=3
if gre.get()==4:
r=3
if p.get()==1 and p4.get()==1:
t=3
messagebox.showinfo("jw", k)
k=x+b+r+t
Win=Tk()
Win.geometry("850x650+100+50")
Win['bg']="powder blue"
Win.resizable(0,0)
Win.title("Тести з історії")
lab=Label(Win, text="Питання 1:Відомі люди 18 ст", font="Arial 14", fg="Dodgerblue4", bg="powder blue")
lab.place(x=20, y=20)
pr1=IntVar()
o=Checkbutton(Win, text="О.Суворов", variable=pr1, onvalue=1, offvalue=0, bg="powder blue", fg="Dodgerblue4", font="Arial 12")
o.place(x=50, y=50)
pr2=IntVar()
od=Checkbutton(Win, text="Т.Шевченко", variable=pr2, onvalue=1, offvalue=0, bg="powder blue", fg="Dodgerblue4", font="Arial 12")
od.place(x=50, y=80)
pr3=IntVar()
oa=Checkbutton(Win, text="П.Калнишевський", variable=pr3, onvalue=1, offvalue=0, bg="powder blue", fg="Dodgerblue4", font="Arial 12")
oa.place(x=50, y=110)
labу=Label(Win, text="Питання 2: Брат Олексія Розумовського", font="Arial 14", fg="Dodgerblue4", bg="powder blue")
labу.place(x=20, y=150)
gre=IntVar()
pre1=Radiobutton(Win, text="Олексій Розумовський", variable=gre, value=1, bg="powder blue", fg="Dodgerblue4", font="Arial 12")
pre1.place(x=50, y=180)
pre2=Radiobutton(Win, text="Кирило Розумовський", variable=gre, value=2, bg="powder blue", fg="Dodgerblue4", font="Arial 12")
pre2.place(x=50, y=210)
pre3=Radiobutton(Win, text="Павло Розумовський", variable=gre, value=3, bg="powder blue", fg="Dodgerblue4", font="Arial 12")
pre3.place(x=50, y=240)
labе=Label(Win, text="Питання 3: Рік ліквідації запорозької січі ", font="Arial 14", fg="Dodgerblue4", bg="powder blue")
labе.place(x=20, y=280)
greg=IntVar()
pre4=Radiobutton(Win, text="1775.р", variable=greg, value=4, bg="powder blue", fg="Dodgerblue4", font="Arial 12")
pre4.place(x=50, y=310)
pre5=Radiobutton(Win, text="1776.р", variable=greg, value=5, bg="powder blue", fg="Dodgerblue4", font="Arial 12")
pre5.place(x=50, y=340)
pre6=Radiobutton(Win, text="1774.р", variable=greg, value=6, bg="powder blue", fg="Dodgerblue4", font="Arial 12")
pre6.place(x=50, y=370)
labg=Label(Win, text="Питання 3:Які січі з наведених існували на Україні", font="Arial 14", fg="Dodgerblue4", bg="powder blue")
labg.place(x=20, y=410)
p=IntVar()
b=Checkbutton(Win, text="Олешківська", variable=p, onvalue=1, offvalue=0, bg="powder blue", fg="Dodgerblue4", font="Arial 12")
b.place(x=50, y=440)
p2=IntVar()
j=Checkbutton(Win, text="Богославська", variable=p2, onvalue=1, offvalue=0, bg="powder blue", fg="Dodgerblue4", font="Arial 12")
j.place(x=50, y=470)
p4=IntVar()
s=Checkbutton(Win, text="Нова січ", variable=p4, onvalue=1, offvalue=0, bg="powder blue", fg="Dodgerblue4", font="Arial 12")
s.place(x=50, y=500)
p3=IntVar()
l=Checkbutton(Win, text="Дмитрівська", variable=p3, onvalue=1, offvalue=0, bg="powder blue", fg="Dodgerblue4", font="Arial 12")
l.place(x=50, y=530)
but=Button(Win, width=16, height=1, bg="light steel blue", text="Завершити тест", fg="gray2", font="Arial 9")
but.place(x=700, y=600)
but.bind(" ", rez)

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
sashkatimoshka
19.07.2022 10:36
1.Сколько двоек содержит десятичное число 89,
записанное в системе счисления с основанием 3.
89 = 81 + 2*3 + 2 = 1*3^4 + 0*3^3 + 0*3^2 + 2*3 + 2 = 10022(3)
Две двойки
2.Запишите десятичное число 63 в системе
счисления с основанием 7.
63 = 49 + 14 = 7^2 + 2*7 = 120(7)
3.Определить старшую цифру системы счисления с
основанием 20.
Старшая цифра в любой системе на 1 меньше основания. То есть 19.
Если переводить в буквы, то
A=10, B=11, C=12, D=13, E=14, F=15, G=16, H=17, I=18, J=19
4.Вычислить 1DA15 + 4349 ->9
Учитесь ставить в скобки основание системы!
1DA(15) + 434(9) = 15^2+13*15+10+4*9^2+3*9+4 = 785 = 1062(9)
5.Какому десятичному числу соответствует число 12228221111112223
А это число в какой системе записано? Если в 3-ной, то там 8 не может быть.
0,0(0 оценок)
Ответ:
Kskdnrntbrjdjdk
16.01.2020 10:44
VB.    

 Dim A() As Integer

        Randomize()
        Dim k As Integer
        Dim i As Integer
        i = Rnd() * 100 + 1
        ReDim A(i)
        For k = 0 To i
            A(k) = Rnd() * -1000 + 500
        Next

        Dim intA, intB As Integer
        intA = InputBox("Введите начало интервала")
        intB = InputBox("Введите конец интервала")
        Dim R, Q, S As Integer
        R = 0
        For i = 1 To UBound(A)
            If A(i) < A(R) Then R = i
            If A(i) Mod 2 <> 0 Then Q = Q + A(i)
'  c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
            If A(i) > intA And A(i) < intB Then S = S + 1
        Next

        MsgBox("T=R/Q+1+S = " & A(R) / Q + 1 + S)
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота