- 二一组卷

题型：单选题题类：难易度：容易

浙江省苍南中学2023-2024学年高一下学期信息技术期中考试试卷

若food="milkeggbread"，以下表达式值为['milk', 'egg', 'bread']的是（）

A、[food[:4],food[4:7],food[7:]] B、[food[:3], food[3:6],food[6:]] C、[food[1:4],food[4:7],food[7:len(food)]] D、[food[0:3],food[3:6],food[6:len(food)-1]]

举一反三

有一种压缩算法，基本原理是：特殊字符+重复次数+字符。
比如有文本字符串：A A A A A B C C C C B C C C，编码后得到：B B 5 A B B 4 C B B 3 C。编码串的最开始说明特殊字符B，以后B后面跟着的数字就表示出重复的次数。编程实现将从Text1输入的一个字符串，点压缩按钮后用上述方法压缩，压缩后的编码在Text2中输出，text3中输入特殊字符。压缩算法：
a)       给压缩串添加开关的特殊字符
b)      逐个判断输入字符串的字符（当前的字符与后一个比较），如果两个字符不同，则连到了压缩串中，如果有连续的重复字符则计数n+1
c)       最后一组重复字符或单个字符再连到压缩串中。
u 连入压缩串方法：单个的直接连入，有重复的连入特殊字符开头+数字+重复的字符

图1
程序如下：
Private Sub Command1_Click()
Dim src As String, t As String   ‘src保存输入的字符串
Dim desc As String       ‘desc保存压缩后的字符串
Dim c As String ‘c保存特殊字符
Dim n As Integer ‘n用来记连续重复字符个数
src = Text1.Text
c = Text3.Text
n = 0
desc =   ①
For i = 1 To      ②
    n = n + 1
    t = Mid(src, i, 1)
    If t <>     ③    Then
         desc = desc & zipstring(n, c, t)
         n = 0
    End If
Next i
Text2.Text = desc & zipstring(n, c,     ④   )
End Sub
Private Function zipstring(n As Integer, c As String, sr As String) As String
         If n <= 1 Then
            zipstring = sr
         Else
            zipstring = c & Trim(Str(n)) & sr
         End If
End Function
① {#blank#}1{#/blank#}
② {#blank#}2{#/blank#}
③ {#blank#}3{#/blank#}
④ {#blank#}4{#/blank#}

逻辑表达式“D”>“C”or“A”>“B”的值是（）。

编写VB程序，实现如下功能：在文本框Te1中输入投资金额，Te2中输入投资的目标金额，Te3中输入投资的年收益率，单击按钮Com，在文本框Te4中输出达成预期投资目标至少需要的年数。投资收益按复利计算，如投资金额10000元，年收益率为5%，则1年后的本息为10000×(1+5%），2年后的本息为10000×(1+5%）²。程序运行界面如图所示。

某种编码以4位二进制码为一组，每组前两位表示方向，后两位表示距离。编写一个程序，将编码翻译成方向和距离，距离值为每组编码后两位二进制码转换为十进制数的值。具体功能如下：在文本框Text1中输入连续多组编码，单击“翻译”按钮Command1，结果显示在列表框List1中。程序运行界面如图所示。

设a，b，c，d，e均为整型变量，且a=13，b=2，c=10，d=3，e=2，则表达式“a-b*c\d MOD e”的值是（）

定义如下函数：

def tob(n)

if n=0:

return "*

else:

return tob(n//2)+str(1-n%2)

执行语句s=tob(10) 后，s的值为（）

相关试卷

公司介绍

服务介绍

帮助中心