1. (2015·杭州模拟) 下列VB程序运行时，单击命令按钮Command1后，若在文本框中输入10，则标签Label1显示的内容是

Private Sub Command1_Click()

  Dim sjzs As Integer

  Dim rjzs As String

  sjzs = Val(Text1.Text)

  rjzs = ""

  Do While Int(sjzs / 2) > 0

    rjzs = Str(sjzs Mod 2) + rjzs

    sjzs = Int(sjzs / 2)

  Loop

  Label1.Caption = rjzs

End Sub

import pandas as pd

def fun  A(file):

    df=pd.read  csv(file)

    A  list=[]

    for i in df.columns[1:]:

        j=0

        c=0

        while j<len(df):

            if

                c+=1

            j+=1

        A  list.append(c)

    return A  list

ans  list=[]

s=”010203040506070809101112"

for i in range(0,len(s)- 1,2):

    filename="dy"++".csv"

    res=  fun  A(filename)

    ans  list.append(res)

x=["问题1","问题2","问题3","问题4","问题5"]

y=[0,0,0,0,0]

for i in range(5):

    s=0      #每个问题选A的人数

    for j in range(12):

    y[i]=s

import matplotlib.pyplot as plt

plt.rcParams ['font.sans-serif']=['SimHei']    #图表显示中文字体

plt.title("每个问题选A 的总人数")

plt.legend()

plt.show()

加框处代码合适的是(单选，填字母)

def Ctime(t):

#  自定义函数 Ctime 功能为将时间转为分钟计存入变量s，代码略。

return s

'''

读取出行记录，存储在列表a中，a[i][0]、a[i][1]、a[i][2]依次存储交通工具类型、票价、乘坐开始时刻。交通工具类型a[i][0]值为0表示地铁，1表示公交车。代码略。

'''

n = len(a)

for i in range(n):

    a[i][2] = Ctime(a[i][2])

for i in range(n - 1):

    for j in range(n - 1, i, - 1):

        if  :

            a[j], a[j - 1] = a[j - 1], a[j]

#  输出出行记录，代码略。

total = 0

head = tail = 0

q = [- 1] * n

for i in range(n):

    if a[i][0] == 0:

        total += a[i][1]

        tail += 1

    else:

        while head < tail and q[head] < a[i][2] - 45:

            head += 1

    if  :

        total += a[i][1]

    else:

        print(a[i][2],"时刻使用了优惠券")

print("总共花费为:", total)

Dim xh(0 To 100) As String ．

Dim cj(0 To 100) As Integer

Const num = 50

Private Sub Form_ Load ()

‘本过程从数据库读取每位学生的学号和成绩存放在数组xh和cj中，代码略

End Sub

Private Sub Com1_Click ()

    Dim i As Integer， m As Integer， n As Integer， k As Integer， a As Integ

    a = Val(Text1.Text)

    For i=1 To num-1

        k=

        If k<>i Then

            t=cj(k)：cj(k)=cj(i)：cj(i)=t

            s=xh(k)：xh(k)=xh(i)：xh(i)=s

        End If

    Next i

    m=a-1：n=a+1

    Do While cj(m) = cj(a)

        m=m-1

    Loop

    Do While cj(n) = cj(a)

        n=n+1

    Loop

    If m<>0 And  Then lq = m Else lq=n-1

    Label5.Caption = Str(lq)

    Label6.Caption = Str(cj(lq))

    List1.AddItem “字号”+“学号”+“成绩”

    For i=1 To lq

       List1.AddItem Str(i) +“ ”+xh(i)+Str(cj(i))

    Next i

End Sub

Function imax(x As Integer， y As Integer) As Integer

    Dim i As Integer，j As Integer

    i=x

    For j=x+1 To y

        If  Then i=j

    Next j

    imax = i

End Function