相关试卷

1、有如下VB 程序：
Private Sub Command1_Click()

    Dim i As Integer, j As Integer, k As String, n As Integer, s As String

    s = "abcdefghijklmn"

    n = 4

    List1.Clear

    For i = 1 To n

        k = Mid(s, i + 1, i)

        For j = 1 To Len(k)

            k = k + Mid(s, j, 1)

        Next j

        List1.AddItem k

    Next i

End Sub

该程序运行后，在列表框List1中显示的是（   ）

A、 B、 C、 D、

查看解析
2、某VB 程序代码如下：
Function arr(x As Integer) As Boolean

    Dim s As Integer, i As Integer

    s = 1

    For i = 2 To x \ 2

        If x Mod i = 0 Then s = s * i

    Next i

    If s = x Then

        arr = True

    Else

        arr = False

    End If

End Function

Private Sub Command1_Click()

    Dim i As Integer

    For i = 2 To 10

        If arr(i) Then List1.AddItem str(i)

    Next i

End Sub

单击Command1按钮后，List1中显示的结果是（   ）

A、2、3、4、5、6 B、2、4、6 C、4、6、8 D、6、8、10

查看解析
3、高电平代表1，低电平代表0，如（010）₂ 的数字波形为，（110）₁₀用8个电平波形表示的话应该是（）

A、 B、 C、 D、

查看解析
4、查看下面的程序代码，在文本框Text1 中输入的值为100 时，该程序的作用为（　　）
Private Sub Command1_Click()

   Dim sum, k, j, n As Integer

   n = Val(Text1.Text)

   sum = 0: k = 1

   Do While k <= n

      j = 1

        Do While j <= k

            sum = sum + 1: j = j + 1

        Loop

        k = k * 3

   Loop

   Text2.Text = CStr(sum)

End Sub

A、1+2+3+…+100 B、20+21+22+23+…2100 C、（11111111）₂ 转十进制 D、（11111）₃ 转十进制

查看解析
5、王老师在使用VB程序要实现n!的功能。
Private Sub Command1_Click()

    Dim p As Integer

    Dim sum As Long

    p = Val(Text1.Text)

    sum = fx(p)

    Text2.Text = CStr(sum)

End Sub

Function fx(x As Integer) As Long

    If x = 1 Then

        fx = 1

    Else

        fx =

    End If

End Function

要该程序实现此功能，横线处的代码为（　　）

A、x(x)*(x-1) B、fx(x)*x C、fx(x-1)*x D、fx(x-1)*(x-1)

查看解析
6、一个“抛物线 .bmp”图像文件，相关信息如图所示。根据下图可以推断出，该图像的每个像素需要位数的十六进制是（　　）

A、4H B、8H C、18H D、20H

查看解析
7、有如下程序段：
map =“ 01234567890123456789012345”

tel = Text1.Text

For i = 1 To Len(tel)

    c = Mid(tel, i, 1)

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

        s = s + c

    ElseIf c >“ A” And c <=“ Z” Then

        s = s + Mid(map, Asc(c) - Asc(“A”) + 1, 1)

    End If

Next i

在text1 文本框中输入“hi,NICETOSEEYOU-2016”，程序执行完后s 的结果是（）

A、1602726222282016 B、2713837333392016 C、44,1602726222282016-2016 D、3824948444402016

查看解析
8、有如下程序段：
n = 12

f = Val(Text1.Text)

left = 1

right = n

Do While left < right

    middle = (left + right) \ 2

    If f <= a(middle) Then

        right = middle

    Else

        left = middle + 1

    End If

Loop

A数组元素A(1) 到A(12) 中的数分别是1 4 6 10 11 16 17 18 19 20 21 55，在文本框text1 中输入值7 赋给变量f，经过该程序段“加工”后，right 的值为（　　）

A、4 B、6 C、9 D、2

查看解析
9、使用UltraEdit 软件观察字符串的内容，如图所示，则字符串中小写字母的个数为（　　）

A、3 B、4 C、6 D、12

查看解析
10、某VB程序功能：输入正整数n,单击命令按钮Command1后，则会衍生出一串有规律的数字，形式为“1 2 3…n-1 n n-1…3 2 1 ”。例如n=6时，显示的数字串为“1 2 3 4 5 6 5 4 3 2 1 ”。
Private Sub Command1_Click()

Dim a As intger, i As intger, s As String

n = Val(Text1.Text)

s = ""

For i = 1 To 2 * n - 1

    If i > n Then     ①      Else     ②

Next i

text2.Text = s

End Sub

为实现以上功能，①②处分别填写(    )

A、①s=Str(2*n-i)     ②s=Str(i) B、①s=s+Str(2*n-i)   ②s=s+Str(i) C、①s=s+Str(2*n-1)   ②s=s+Str(2*n) D、①s= Str(2*n-1)    ②s= Str(2*n)

查看解析
11、“猴子吃桃”问题：一天，一只猴子从树上摘下若干个桃子，当即吃了一半，觉得不过瘾，又吃了一个。第二天这只猴子接着吃剩下的一半，还觉得不过瘾，又吃了一个。以后它每天都吃前一天剩下的一半再多吃一个。到第四天，猴子按规则吃完桃子后，只剩一个桃子。问猴子第一天摘了多少个桃子。下图所示是根据分析所画出的部分流程图。采用倒推法，其中设定M 的初始值为1（第四天吃完后剩下的桃子数），D 为天数（初始值为5）。流程图中相应空缺位置①②处应分别填写（　　）

A、M=M*2+1 D=1 B、M=M*2+1 D<1 C、M=2*(M+1) D=1 D、M=2*(M+1) D<1

查看解析
12、一个约3445KB 未经压缩的wav 格式声音文件，其相关信息如方框所示。由此可知，该声音文件的时长约是（　　）

A、20 秒 B、15 秒 C、40 秒 D、25 秒

查看解析
13、老罗创作多媒体作品，他先使用Photoshop软件制作一张背景图片，然后使用Flash软件制作动画。
请回答下列问题：

(1)、如图a所示，当前状态下，下列描述正确的是（多选，填字母：A .使用画布大小命令将画布变大，“背景”图层中的图像大小也会随之变大 / B .选中“标识”图层，调整该图层图像的不透明度 / C .选中“西湖美景”图层，对其中的文字进行自由变换，字号大小也会随之改变 / D .选中 “飞鸟”图层，修改其图层样式）。

图a

(2)、如图b时间轴所示,当前状态下空白关键帧的帧数共有（填数字）。

图b

(3)、“西湖”图层利用库中“杭州西湖”元件（如图c所示），在舞台中制作补间动画，实现从舞台外，淡入出现在舞台中，这种动画属于补间动画。

图c

(4)、如图b所示,当动画播放到第30帧时，“声音”图层中的声音（该声音时长为30秒）突然停止，若要使该声音播放到第50帧与动画同步，“声音”图层需要进行的操作是。

(5)、测试影片时，单击“杭州西湖”按钮，实现在浏览器中打开位于同一目录下“xhjs.txt”文件的内容，则“杭州西湖”按钮添加的动作脚本为。

查看解析
14、编写“输出所有子串”程序，实现如下功能：在文本框Text1中输入字符串，在列表框List1中输出该字符串的所有子串并输出子串的总数。程序运行界面以及工程资源窗口如下图所示。

(1)、观察上图，该程序中的窗体对象名为（单选，填字母：A .求所有子串/B .Form1/C .子串.frm/D .程1.vbp）

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

    Dim s As String, t As Integer, j As Integer

    s = Text1.Text

    t = Len(s): Sum = 0

    For i = 1 To t

        For j = i To t

            List1.AddItem

            Sum = Sum + 1

        Next j

    Next i

    List1.AddItem "总共有" + + "个子串"

End Sub

(3)、如果输入的字符串是“abcdefg”，则输出中有个子串

查看解析
15、某学习用品商店员工小王对2015年的部分销售数据用Excel软件进行数据处理，如图a所示。

图a

请回答下列问题：

(1)、小王通过D3单元格中的公式对区域D4：D11进行了自动填充，若把C7单元格的数字小数位设为1位，则D7单元格中显示的计算结果是（选填：121 / 110 / 132）

(2)、小王通过D3单元格中的公式对区域D4：D11进行了自动填充后，为了实现学习用品按关键字“数量”升序排序，他排序时选中了区域A2：C11，其他操作都是正确的，（填：能/不能）正确完成任务。

(3)、根据图a中数据制作的图表如图b图所示，创建该图表的数据区域是：；

图b

(4)、将区域A2:D11的数据复制到新工作表，在新工作表中对数据进行筛选操作，筛选设置如图c所示，则按此设置筛选出的学习用品有个。

图c

查看解析
16、某按钮元件的部分编辑界面和指针经过帧添加的声音素材的参数如下图所示。

将此按钮应用到舞台上测试场景，下列说法正确的是（）

A、鼠标移到按钮上，鼠标小手形状会消失 B、当鼠标移动到按钮上时，按钮显示的内容不会发生变化 C、当鼠标指针经过该按钮时，声音的播放频率为12Hz D、若将声音的同步属性设置为“事件”，当鼠标指针经过该按钮声音会播放258.2秒

查看解析
17、以下应用中没有用到人工智能技术的是（）

A、支持人脸识別的家用智能锁 B、淘宝搜索时自动推荐商品 C、工程中使用焊接机器人制作产品 D、用“形色”软件对植物进行拍摄，能显示该植物名称

查看解析
18、下列关于网页和浏览器说法正确的是（）

A、网页内容是用超文本标记语言HTTP描述的 B、HTML协议用于浏览器与Web服务器之间的信息传输 C、IE浏览器主要用于编辑网页文件 D、收藏夹收藏的是网页的URL

查看解析
19、小明使用Flash软件制作“飞机起飞.fla”作品，首先使用 Photoshop软件处理图片，然后使用 Flash软件制作动画。请回答下列问题：

(1)、Photoshop软件的编辑界面如图a所示，下列操作可行的是（多选，填字母：A .将“背景”图层移动到“中国民航”图层上方 / B .设置“飞机”图层的不透明度为 50% / C .为“背景”图层设置“镜头光晕”滤镜效果 / D .使用“油漆桶”工具改变“中国民航”图层中字样颜色）

图a

(2)、如图b所示，“飞机”图层第2帧至第30帧的动画实现了“飞机”实例从大到小、从完全显示到完全透明变化，则该动画类型为（单选，填字母： A .动画补间动画 / B .形状补间动画 /C .逐帧动画）。

图b

(3)、“飞机”动画开始后，“按钮”图层中的“起飞”按钮应从舞台中消失。为实现此效果，应进行的操作是。

(4)、“飞机”动画开始后，“声音”图层中的声音始终播放，则声音的同步应设置为。

(5)、单击“按钮”图层的“起飞”此按钮，动画从本场景第 2 帧继续播放，则“起飞”按钮上设置的动作脚本是。

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

(1)、标题要显示“趣味数学”，需修改窗体的属性。

(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

  s = Text1.Text

  For c = 1 To Len(s)

        If   Then Exit For   'Exit for退出循环

   Next c

   s1 = Mid(s, 1, c - 1)

   s2 = Mid(s, c + 1,len(s)-c)

   k =

  For i = 1 To k - 1

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

            List1.AddItem Mid(s, 1, i) + "+" + Mid(s, i + 1,len(s)-i)



        End If

   Next i

   If Not flag Then List1.AddItem "等式始终无法成立!"

End Sub

查看解析

上一页 668 669 670 671 672 下一页跳转