0 返回首页
1. 假设有一张足够大的纸，厚度不超过 0.1 毫米，对折一次纸的厚度增加一倍折叠多少次后可以超过世界屋脊珠穆朗玛峰的高度 8848 米。(提示:纸的厚度单位是毫米，珠峰的高度单位是米)

1  d = float(input(请输入纸的厚度mm:))

2  h = d / 1000

3  n=0

4  while              

5      n+=1

6      h*=2

7  print(“厚度为", d ,"毫米的纸折叠", n ,"次后高度达到" , h ,"米")

(1) 程序中变量 d 的数据类型是。
(2) 程序中第 4 行划线处应填入。
(3) 与程序第 6 行 h * =2 代码能一样的是  (选填“h=h十2”或“h=h* 2”)
【考点】
常量、变量及变量的赋值; 循环结构语句及程序实现;
【答案】

您现在未登录，无法查看试题答案与解析。 登录
综合题 普通
能力提升
换一批
1. 小明编写Python程序，实现对某次评价报名序号的检测并输出该考生的评价类别+科类类别。报名序号的编写方法是：由10位数字组成，毕业年份（4位）+评价类别（1位）+科类代码（1位）+顺序代码（4位）。评价类别：1 普通、2 单项；科类类别：3 艺术类、4 体育类、5 综合类。

例如： 输入报名序号“2022150001”，输出“普通综合类”

while True:

ticket=   ①  

    num=0

    for i in ticket:

        if i>="0" and i<="9":

          num=num+1

    If  len(ticket)!=10:

        print("输入长度不符合要求")

    elif    ②  

        print("输入存在非数字字符")

    else:

        break

dic={"13":"普通艺术类","14":"普通体育类","15":"普通综合类","23":"单项艺术类","24":"单项体育类","25":"单项综合类"}

 s=dic[ticket[4:6]] 

print("该考生的考试科类为：",s)

(1) 与划线处代码功能相同的是（   ）。（单选，填字母） A. s=dic[ticket[-6:-4]]/ B. s=dic[ticket[-6:-5]]
(2) 实现查询功能的Python程序如下，请在划线处填入合适的代码

①②
综合题 普通
2. 在甲、乙两个仓库存放大米，甲仓存90袋，乙仓存50袋，甲仓每次运出12袋，乙仓每次运出4袋。运出几次后两仓库剩下大米的袋数相等？小明通过编写Python程序解决此问题，程序运行如图所示。请在划线处补充代码。

a = 90

b = 50

i = 0

While:

    a = a - 12

   

    i = i + 1

    print('第',i,'次运走后甲仓和乙仓的数量为：',a,b)

print('两仓剩下大米袋数相等所需要运行的次为：',i)
综合题 普通
3. 小王设计了一个利用矩阵“翻转法”实现矩阵逆序输出的程序，其功能为：运行程序时，在文本框 Text1 中输入矩阵大小n，点击“产生矩阵”按钮 Command1，在列表框 List1 中显示一个 n×n 的矩阵，该矩阵数据为随机两位正奇数。点击“翻转矩阵”按钮 Command2，该矩阵翻转(水平翻转和垂直翻转均要实现)后显示在列表框 List2 中，再点一次“翻转矩阵”按钮 Command2，列表框 List2 中显示的矩阵被还原为初始状态。程序运行界面如图所示。

实现上述功能的VB程序如下，请回答下列问题：

(1) 在上图的程序运行界面基础上，再连续两次单击Command2按钮，则列表框List2中第一行显示的内容是。
(2) 实现此程序的代码如下，请完成下划线程序填空。

Dim n As Integer

Dim L As String

Dim i as Integer

Dim j as Integer

Dim a(1 To 100) As Integer

Dim b(1 To 100) As Integer

Private Sub Command1_Click()

  n = Val(Text1.Text)

  Randomize

  For i = 1 To n * n

    a(i) =  + 1

  Next i

  For i = 1 To n

    L = ""

    For j = 1 To n

      L = L + " " + Str(a((i - 1) * n + j))

    Next j

    List1.AddItem L

  Next i

End Sub

Private Sub Command2_Click()

  List2.Clear

  For i = 1 To n

    L = ""

    For j = 1 To n

      b((i - 1) * n + j) = 

      L = L + " " + Str(b((i - 1) * n + j))

    Next j

    List2.AddItem L

  Next i

  For i = 1 To n * n

    a(i) =

  Next i

End Sub
综合题 普通