相关试卷

1、下列关于信息和信息技术的说法，正确的是（）

A、经过加工处理的信息，其价值必定更高 B、微信中朋友发布的信息都是值得信赖的 C、免费软件的盛行会阻碍信息技术的正常发展 D、之所以要更新杀毒软件，是为了让它能识别和杀死新病毒

查看解析
2、某用户IE浏览器收藏夹界面如图所示。

关于图中“中国天气网”的说法正确的是（）

A、“中国天气网”是被收藏的网页文件的文件名 B、“中国天气网”对应的网址是http：//www. weather．com．cn C、单击“中国天气网”时，将自动在搜索引擎中搜索该网站 D、在任何情况下，启动IE时都会自动打开“中国天气网”

查看解析
3、下列说法正确的是（）

A、书本不是信息，但文字是信息 B、电视、广播技术是现代产生的信息技术 C、制作网页时，删除网页中插入的图片源文件不会影响网页的显示效果 D、在搜索引擎中输入关键词搜索信息时，本质上是检索搜索引擎的数据库

查看解析
4、滴滴一下，马上出发。滴滴打车软件为打车一族出行带来了方便,该软件下载界面部分截图如下所示：

根据图中信息,下列关于该软件的说法不正确的是（）

A、采用了统计评价 B、需在IOS系统环境下运行 C、存储容量约为9216KB D、通过微信扫描图中的二维码可以下载该打车软件

查看解析
5、网民对某网站的评价如图所示：

下列说法不正确的是（）

A、包含了个人评价的内容 B、包含了核心刊物评价的信息 C、包含了统计评价的内容 D、包含了网站不友好因素评价的信息

查看解析
6、在IE浏览器中，将网页保存到本地计算机中，若只需保存其中的文字、超链接和表格信息，应该选择的保存类型为（）

A、网页，全部(*.htm；*.html) B、Web档案，单个文件(*．mht) C、网页，仅HTML(*.htm；*.html) D、文本文件(*.txt)

查看解析
7、小军在浏览器地址栏中输入网址时，发现曾经输入过的网址会随着键入的字符自动显示。要想不显示以前访问过的网址，可进行的操作是（）

A、清空历史记录 B、将浏览器主页设置为空白页 C、删除收藏夹中的内容 D、刷新当前页面

查看解析
8、下列属于现代信息技术应用的是（）
①三维动画游戏 ②网上购物 ③活字印刷术 ④远程医疗

A、①②③ B、①②④ C、②③④ D、①③④

查看解析
9、在宇航员培训时，经常采用计算机模拟太空飞行训练这种形式，其主要应用的技术是（）

A、物联网技术 B、网络技术 C、虚拟现实 D、智能化社区

查看解析
10、小明最近发现按照汽车的GPS导航仪规划的路线驾驶经常出错，他更新了导航软件的地图文件后，出现错误的概率大大降低。该事例主要反映出信息具有（）

A、依附于载体的 B、共享性 C、传递性 D、时效性

查看解析
11、将几幅看似无关的图片通过“美图秀秀”软件编辑后，合成一幅富有创意的新图，这主要体现了信息是（）

A、依附于载体的 B、可以共享的 C、可以加工处理的 D、具有时效性的

查看解析
12、下列关于信息的说法不正确的是（）

A、信息的表现形态可以转换 B、信息有多种传播方式 C、载体本身就是信息 D、信息的价值因人而异

查看解析
13、写一个字符串压缩程序:对于2~9个相同字符组成字符串，用两个字符来编码:第一个字符表示这个字符串的长度值(即2~9);第二个字符表示相同字符的值。如字符串“AAAAA”可以压缩成“5A”，“AA”可以压缩成“2A”。如果存在某个字符串，其中没有一个字符连续重复出现，就表示成:以数字1开始，后面跟着这一字符串，再以数字1结尾。如字符串“BCE”可以表示成“1BCE1”，“A”可以表示成“1A1”。又如:“XXXXXXXXABCYYYZ”的压缩结果是“8X1ABC13Y1Z1”。
假设被压缩字符串中只会出现字母，连续相同字母不会超过 9个。以下程序在Text1中输入被压缩的字符串，在Text2中输出了压缩的结果。请回答以下问题。

(1)、若Text1中输入的字符串为“XXXXXAXAAA”，那么压缩的结果是。

(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()

Dim s As String

Dim n As Integer,i As Integer

s =Text1.Text

n = Len(s):i=1:result =“”

Do While i< = n

   s1 = Mid(s,i,1)

   numbers = 0

   ‘扫描到的字符都和s1相同

   Do While

    i = i+1

    numbers = numbers +1

   Loop

   If numbers>0 Then

    result = result && s1

    i = i+1

   End If

   start = i

   s1 =Mid(s,i, 1)

   numbers = 0

   ‘扫描到的字符都和s1不同

   Do While

    i = i+1

    numbers = numbers +1

    s1 = Mid(s,i,1)

   Loop

   If Mid(s,i+1,1)= s1 Then numbers = numbers -1

   If numbers>= 0 Then result = result &“ 1” &&“1”

Loop

Text2.Text = result

End Sub

查看解析
14、输入一个表达式(运算符号只有加、减、乘、除和小括号，表达式是正确的，不需要检查)，求表达式中最后一次计算的运算符号位置。比如表达式a*(b+c)-4+d最后一次运算的运算符号是在第10个位置的“+”，输出10。算法的思想是从表达式右边开始往左边查找，对碰到的字符分四种情况考虑:
1)若是运算符“+”，保存该位置并结束查找。

2)若是第一次碰到或“/”，保存该位置，若不是第一次碰到或“/”，继续往左边查找。

3)若是“)”，调用函数找到和它对应的位置，跳过该括号内容，继续往左查找。

4)若是非运算符，继续往左查找。

运行界面如下图：

(1)、表达式c*a+(a+b)，最后一次计算的运算符号位置是。

(2)、实现上述功能的VB程序如下，根据算法将下列程序补充完整。
Function find(y As String, x As Integer) As Integer

‘该函数的功能是返回表达式y中和位于第x位置的“)”配对的位置,代码略

Do While Mid(y, x, 1) <> “(”

Loop

find = x

End Function

Private Sub Command1_Click()

Dim s As String, t As Integer, ans As Integer, p As Integer

s = Text1.Text      ‘输入表达式

t = Len (s): p = 0

Do While t > 0

   If Mid(s, t, 1) = “+” Or Mid(s,t, 1) = “-” Then     ‘处理+、-

    ans = t

    Exit Do

   End If

   IfThen     ‘处理*、/

    ans=t

    p=1     ‘用来标记乘号或除号已经出现了

   End If

If Mid(s, t, 1) =“)”Then      ‘处理括号

   t = find(s, t)

End If

Loop

Label2.Caption=“最后计算的运算符号位置为”+Str(ans)

End Sub

查看解析
15、情报员小王在工作时发现R国会用一些对称字符(如ABBA、ABA、123321)进行通信。R国为防止通信内容被破解，会在对称字符的头、尾加一些无关字符，如:12ABBA、ABAKK、5123432198。因此小王编写了一个VB程序，用于读取通信字符串中最长的对称字符。在文本框Text1中输入通信字符，单击“读取”按钮 Command1，在标签Label2中显示最长的对称字符，程序运行界面如图所示。请完善代码。

Private Sub Command1_Click()

Dim x As String, n As Integer, i As Integer

Dim k As Integer, start As Integer

Dim max As Integer

x = Text1.Text: n = Len(x)

max = 0: start = 1

For i = 1 To n

k = n

Do While k > i

IfAnd k - i + 1 > max Then

max = k - i + 1

start=i

End If

Loop

Next i

Label2.Caption =“最长回文字符串为” + Mid(x, start, max)

End Sub

Function isPa(t As String) As Boolean ’判断是不是回文数

Dim i As Integer

For i = 1 To Len(t) \ 2

If Mid(t, i, 1) <> Mid(t, Len(t) - i + 1, 1) Then isPa = False

Next i

End Function

查看解析
16、用VB编写一个“加减法运算”程序，实现如下功能:在文本框Text1中输入多个正整数加减算式(只包含数字和“+ ”“-”字符，以“=”为结束符)，单击“计算”按钮Command1，计算结果在标签Label1上显示。程序运行界面如图所示。

(1)、程序运行时清空Label1上的内容，则可在Form_Load事件过程中添加语句(单选,填字母:A .Forml.Caption= “”/ B .Forml.Text=“”/C .Label1.Caption=“”/D .Label1.Text=“”)。

(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()

Dim s As String, t As Integer

s = Text1.Text

t = 0: p = 0: flag = 1

For i = 1 To Len(s)

ch = Mid(s, i, 1)

If ch >=“0” And ch <= “9” Then

p =

Else

t=

p = 0

If ch = “-” Then

flag = -1

Else If ch = “+” Then

flag = 1

End If

End If

Next i

Label1.Caption = Str(t)

End Sub

(3)、若文本框Text1中输入内容的结束符“=”缺失(即输入内容为12+28-15+50)，单击“计算”按钮后，标签Label1上显示的内容是。

查看解析
17、给出用等号连接的两个整数,如“222 = 24”,让你在左边的整数中间某个位置插入一个加号,看有没有可能让等式成立。以上面的式子为例,可以写成2+22=24和22+2=24两种答案。现设计一个程序,实现该算法,程序运行界面如图所示。

(1)、标题要显示“趣味数学”,需修改窗体的(选填:Caption、Name、Text)属性。

(2)、实现上述功能的VB程序如下，请在程序划线处填入合适代码。
Private Sub Command1_Click()

Dim s As String, s1 As String, s2 As String

Dim c As Integer, k As Integer, i As Integer, flag As Boolean

flag = False: c = 0

s = Text1.Text

For i = 1 To Len(s)

If Mid(s, i, 1) = “=”Then Exit For

Next i

s2 = Mid(s,i+1,Len(s)- i)

k = Len(s1)

For i = 1 To k-1

If Val(Mid(s1, 1, i))+Val(Mid(s1, i + 1, k-i))=Val(s2) Then

List1.AddItem “第”+Str (c)+“种答案:”+Mid(s, 1, i)+“+”+Mid(s, i + 1, Len (s)-i)

flag = True

End If

Next i

IfThen List1.AddItem “没有答案!”

End Sub

查看解析
18、实现如下程序：输入一个非负数，将该数各位上的数字反转得到一个新数。得到的新数，除了原数为0外，反转得到的新数最高位不应为0。程序运行时，在文本框Text1输入数字，单击按钮Command1后在文本框Text2上输出结果。程序界面如图所示。实现上述功能的VB程序如下，在划线处填入合适的代码。

Private Sub Command1_Click()

Dim a As String, n As Integer

a = Text1.Text

Do While n > 1 And Mid (a, n, 1) = “0”

Loop

For i = n To 1 Step -1

Text2.Text =

Next i

End Sub

查看解析
19、编写VB程序代码,实现如下功能:在文本框Text1中输入金额(整数)后,点击“转换”按钮Command1,则在文本框Text2中显示该金额的大写,程序运行界面如下图所示:

(1)、要使窗体标题上显示的文本改为“人民币大小写”,可在其属性窗口中将属性的属性值改为“人民币大小写”。

(2)、为了实现以上程序功能，使程序正常运行，请完善以下两处代码。
Private Sub Command1_Click()

Dim dx As String, dw As String

Dim s As String, c As String

Dim ch As String,i As Integer

dx=“零壹贰叁肆伍陆柒捌玖拾”

dw =“亿仟佰拾萬仟佰拾元”

If Len(s) > 9 Then

Label2.Caption=“输入的数据超出所能转换的范围”

Else

For i = 1 To Len(s)

ch = Mid(s, i, 1)

c = c + Mid(dx, Val(ch)+1,1)+

Next i

Label2.Caption = c +“整”

End If

End Sub

(3)、由上述算法可知，若在文本框Text 1中输入“20”，则文本框Text3显示的结果为。

查看解析
20、“奔跑吧，兄弟”栏目组要在全国各地挑选节目录制的地点。有来自K(1<=K<=25)个不同省份的N(K<=N<=100)个地区送来了各自的竞选材料。由于参选地区太多，没有办法同时呈现所有材料供评委进行选择。栏目组决定选择一段连续区间内的参选地区，这个区间内每个省份的参选地区至少要有1个，求满足要求的最小区间长度。
参选地区用数字1，2，3……N表示，每个地区所属的省份依次存入数组a(1)到a(N)，若1号地区的省份编号是3，即a(1)=3。分析可知，所求区间的长度至少为K(省份的数量)，最大为N(地区的数量)。我们可以通过二分K到N之间的数求得最小区间长度。例如有10个参选地区，分别来自于5个不同的省份，从左到右排列，地区编号依次为2，1，2，4，3，3，5，5，3，5，则最小的一段包含所有5个地区的区间是从第2个到第7个地区，区间长度为6。

(1)、若有12个参选地区，分别来自于6个不同的省份，从左到右排列，地区编号依次为2，1，6，4，6，3，1，2，3，5，5，4，则最小的区间长度为。

(2)、请在划线处填入合适的代码。
Dim a(1 To 100) As Integer, K As Integer, N As Integer

Private Sub Form_Load()

‘产生N的值,表示地区数,产生K的值,表示省份数

‘产生编号为1到N的地区的省份编号,并存储在数组a中

‘代码略

End Sub

Private Sub Command1_Click()

Dim M As Integer

i = K: j = N

Do While i <= j

If bh(M) = True Then

j = M -1

ans = M

Else

i = M+1

End If

Loop

Text1.Text = Str(ans)

End Sub

Function bh(M As Integer) As Boolean

Dim f(1 To 25) As Integer ‘f(i)表示是否包含省份为i的地区

Dim t As Integer

bh= False

For i = 1 To N-M + 1 ‘枚举以i为起点的M个地区中各个省份是否都包含

For j =

f(a(j)) = 1

Next j

t= 0

For j = 1 To K

Next j

If t = K Then bh= True: Exit Function

For j = 1 To K

f(j) =0

Next j

Next i

End Function

查看解析

上一页 1483 1484 1485 1486 1487 下一页跳转