注册

题型：单选题题类：难易度：普通

浙江省钱塘联盟2023-2024学年高二上学期信息技术期中联考试卷

a="345"，若要构造其回文数 b 为"34543"，以下语句无法实现的是（）

A、b=a+a[-2:-4:-1] B、b=int(a)*100+int(a[1::-1]) C、b=a+a[1]+a[0] D、b=(a[0]+a[1]+a[2])*2

举一反三

有一种压缩算法，基本原理是：特殊字符+重复次数+字符。
比如有文本字符串：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#}

已知x=17，y= "-315"，则VB表达式x+Len(y)的值为（）

Visual Basic规定工程文件的扩展名是（）

下面是一种加密解密的方法。当输入一串进制数字，用空格分离时，每个进制数字的数值与字母A…Z成一一对应关系。小明只要将这串数字的数值求出，然后将数字值转换成相应的字母即破解密码得到明文。若输入的进制数值超出1~26范围，则当成非法数值。表中数值100、153属于非法数值，用字符“*”表示，在解密过程中非法字符不予处理。

密文	1100100	11	1000	1001	1110	1	10011001
对应数值	100	3	8	9	14	1	153
明文	*	C	H	I	N	A	*

小李利用所学的VB知识，编写了一个简单计算器：在文本框Text1中输入一个加减算式（只包含数字和“+”“一”符号，以“=”结束），点击“计算”按钮 Command1，计算结果在标签 Label上显示，程序运行界面如图所示。

下列VB表达式中：（1）Sqr(x)（2）Text1.Text（3）Command1.Caption（4）“45”+“34”（5）45+34值为字符串类型的是（）

返回首页

相关试卷

试题篮

公司介绍

Company Introduction

服务介绍

Service Introduction

帮助中心

Help center

二一教育APP

二一教育APP

400-637-9991

周一至周五 8:30-17:30

在线咨询客服