注册

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

浙江省金华市磐安县第二中学2018-2019学年高一上学期信息技术期中考试试卷

计算机的三原色模式中，表示蓝色的是（）

A、RGB(0,0,255) B、RGB（0，0，0） C、RGB（255，0，0） D、RGB(255,255,255)

举一反三

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

产生[10,99]之间的随机整数的Visual Basic表达式是（）

表示条件“变量X为能被5整除的偶数”的布尔表达式是：{#blank#}1{#/blank#}

某 VB 段程序如下：

s = Text1.Text

For i = 1 To Len(s) c = Mid(s, i, 1)

s1 = s1 + c Next i Text2.Text = s1

程序运行时，在文本框Text1中输入“ABC123xyz”，在文本框Text2中输出“bcd123yza”，则加框①处的代码为（）

A.

某平台新上架影片推荐度的计算方式为：由5位专业评审与5位大众评审给影片评分，评分区间为[1,10]，将专业评审均分的60%与大众评审均分的40%求和后取整数部分，根据得分确定等级（分值与等级的关系如图a所示）。评委打分情况放在“dc.txt”文件中，如图b所示，其中“A”表示专业评审，“B”表示大众评审，“A1-5”表示第1位专业评审给出5分。

图 a

图 b

请回答下列问题：

若people=["he"，"she"，"it"]，feel={1："love"，2："like"，3："hate"}，则表达式feel[2]+people[2]值是（）

返回首页

相关试卷

试题篮

公司介绍

Company Introduction

服务介绍

Service Introduction

帮助中心

Help center

二一教育APP

二一教育APP

400-637-9991

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

在线咨询客服