试题

试题 试卷

logo

题型:单选题 题类: 难易度:困难

浙江省2023年10月高三信息技术强基联盟统测卷

有如下 Python 程序段:

s=input()

stack=[0]* len(s);top=- 1;presign='+';num=0

for i in range(len(s)):

    if'0'<=s[i]<='9':

        num=num*10+int(s[i])

    if i==len(s)- 1 or s[i] in'+-*/':

        if presign=='+':

            top+=1

            stack[top]=num

        elifpresign=='-':

            top+=1

            stack[top]=-num

        elifpresign=='*':

            top+=1

            stack[top]=stack[top- 1]*num

        else:

            top+=1

            stack[top]=stack[top- 1]//num

        presign=s[i]

        num=0

print(sum(stack))     #sum 函数对 stack 中所有元素求和

若输入'5*4-6+10/3' ,程序运行后, 输出结果是(         )

A、32 B、24 C、17 D、8
举一反三
求老师想按学生的成绩进行评级,分数和等级对应关系如下表:

分数

0~59

60~69

70~79

80~89

90~99

等级

E级

D级

C级

B级

A级

现要求根据上表统计出各等级学生人数占总人数的比例。小李编写了一个VB程序帮助老师实现该功能:程序运行时,将每位学生的得分(两位整数)存储到数组a中,并在列表框List1

中显示。单击“统计”按钮后,在列表框List2中显示从A级至E级,各等级的人数占总人数的百分比例(四舍五入保留整数)。程序运行界面如图所示:

请阅读代码,并回答以下问题:

Dim n As Integer

Dim a(1 To 50) As Integer

Private Sub Form_Load( )

    Dim adocn As New ADODB. Connection

    Dim adors As New ADODB. Recordset

    Dim str1 As String

    adocn.ConnectionString = "Provider = Microsof.ACE.OLEDB.12.0;Data source=" +App. Path +”\school. accdb”

    adocn. Open

    str1 =“select * from students”

    ardors.Open str1, adocn

    '将每个学生的得分读入数组a中,并在列表框list1中显示,统计学生总人数n

    '代码略

End Sub

Private Sub Comd1_C1ick( )

    Dim cou As Integer,k as Integer

    Dim b(0 To 4) As Integer

    Const dj = “A级B级C级D级E级”

    For i=1 Ton

    k=a(i)\10-5

    If k<0 Then     ①    

    b(k)= b(k) + 1

    Next i

    For i=0 To 4

      cou =       '⑶改错

      List2. AddItem       ②      + Str(cou) +“%”

    Next i

End Sub

返回首页

试题篮