相关试卷

1、使用GoldWave软件打开某音频文件，选中其中一段音频后的部分界面如图所示。

下列说法正确的是（）

A、当前选中的声道是右声道 B、量化位数为16 bit，采样频率为1411Hz C、仅将当前选中部分设为“静音”后直接保存，文件大小会变化 D、仅将当前选中部分“剪裁”操作后直接保存，音頻的时长仍为4秒

查看解析
2、小明用IE浏览网页，地址栏信息为“http://www.zjedu.gov.cn /default.html”。下列描述不正确的是（）

A、网页中图像的全部信息保存在default.html文件中 B、该网页的URL为“http://www.zjedu.gov.cn/default.html” C、网页内容是用HTML(超文本标记语言）描述的 D、HTTP协议用于浏览器与Web服务器之间的信息传输

查看解析

3、（聪明的猪）某屠宰厂每天决定宰杀若干头猪（1<=n<=100），把每天待宰杀的猪按顺序编号后排成一排，每次将排在单号位置的猪杀掉；然后把剩下的猪按上一次相对的位置排好，重新编号，再次将排在单号位置的猪杀掉；以后每次重复前面的过程，直到仅剩下一头猪时停止宰杀，将这头幸运的猪放回；有一头猪聪明的猪，每天都能躲避被屠宰。利用VB编写一个程序，根据每天杀猪的数量，求出当天这头聪明的猪的原始编号。VB程序界面设计如下：

控件属性设置如下：

对象	属性	属性值	说明
Form1	Caption	幸运的猪	窗体的标题
Label1	Caption	当天要杀猪的数量	标签显示的文字
Label2	Caption	幸运猪的原始编号	标签显示的文字
Text1	Text	空白	文本框的文本
Text2	Text	空白	文本框的文本
Image1	Picture	Pig.gif	显示的图片
Command1	Caption	计算	按钮显示的文字

(1)、完成以上功能的程序代码如下，请在划线处填入正确的语句。

Private Sub Command1_Click()

Dim sum, i, pos, last, count As Integer

Dim a(1 To 100) As Integer

For i = 1 To sum

a(i) = 1 '初始状态为1表示还没被杀掉

Next i

count=0

Do while '要杀掉sum-1头猪

Pos=0

For i = 1 To sum

If a(i) <>0 Then

pos = pos + 1 'pos表示报数

If Then '报到奇数的猪被屠宰

count = count ＋ 1

a(i) = 0

End If

Next i

Loop

For i = 1 To sum

If a(i) = 1 Then

Text2.Text = Str(i)

End If

Next i

End Sub

(2)、屠宰场每天有100头猪被屠宰，这头聪明的猪，需要初始排在号位置上才能避免被屠宰掉。

(3)、还是这100头猪，如果屠宰场改变杀猪规则，第一次杀奇数，第二次杀偶数，第三次杀奇数，第四次杀偶数……，依次轮流，100头猪中幸运的猪的原始编号是。

查看解析

4、（消失的pigs）用VB编写程序实现：从某一字符串中删除指定的字符串，并将处理后的字符串重新输出。程序界面如图1所示，在文本框Text1中输入原始字符串，在文本框Text2中输入需要删除的字符串，单击“删除字符串”按钮Command1后，在文本框Text3中输出处理后的结果。

图1

(1)、在设计应用程序界面时，应使用图2所示“控件工具箱”中的（填写相应编号）添加按钮。

图2

(2)、窗体按钮上显示的文字“删除字符串”是需要修改按钮Command1的属性值修改为“删除字符串”。

(3)、为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()

Dim s As Integer, r As Integer, c As Integer

Dim source As String, delstr As String, ch As String

c = 0: i = 1

source = Text1.Text:delstr = Text2.Text

s = Len(source)

r = Len(delstr)

Do While s-i+1 >= r

    ch = Mid(source, i, r)

    If ch = delstr Then

        source = Mid(source,1, i-1) +

        s = Len(source)



    Else

        i = i + 1

    End If

Loop

Label4.Caption = "共删除:" + Str(c) + "处"

Text3.Text = source

End Sub

查看解析
5、（佩奇爱数学）小猪佩奇最近特别喜欢数学，他发现一个数字“54748”非常神奇，它各位数字的5次方之和等于该数本身，即54748=5⁵+4⁵+7⁵+4⁵+8⁵ ，佩奇不知道类似的数字还有几个，于是他编写了一个VB程序，希望找出所有的这类数字。VB代码如下：

Private Sub wjxs_Click()

Dim i As Integer            '①

Dim a As Integer, b As Integer

Dim c As Integer, d As Integer

Dim e As Integer

Dim n As Integer            '②

List1.clear

For i = 10000 To 99999        '③

   a = i \ 10000                '万位数字

   b = i \ 1000 Mod 10         '千位数字

   c = i \ 100 Mod 10          '百位数字

   d = i \ 10 Mod 10           '十位数字

   e = i Mod 10                 '个位数字

   If a ^ 5 + b ^ 5 + c ^ 5 + d ^ 5 + e ^ 5 = i Then '④

      n = n + 1

      List1.AddItem Str(i)    '在列表框中输出

   End If

Next i

Label1.Caption = "共有" + Str(n) + "个五角星数"

End Sub

(1)、代码“List1.Clear”中的“Clear”是。（A . 对象名/ B . 属性名 /C . 方法名）

(2)、根据代码，“查找”按钮的控件名称是。

(3)、运行程序，出现如下错误，需要修改下列            处的语句。

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

(4)、与语句“c = i \ 100 Mod 10”功能相同的代码是            。

A、c = (i Mod 1000)\100 B、c = (i-10000*a-1000*b)/100 C、c = (i Mod 1000-10*d-e)\100

查看解析
6、下列能随机产生三位正整数的VB表达式是（）。

A、Int(Rnd*899)+100 B、Int(Rnd*900)+100 C、Int(Rnd*1000 ) D、Int(Rnd*999)

查看解析
7、在如下VisualBasic程序段中，要使循环体t＝t*j执行5次，循环变量的终值可以是( )
For j＝1 To Step 2

t＝t*j

Next j

A、－5 B、0 C、5 D、10

查看解析
8、如图所示的程序设计界面中，若要利用窗体装载事件过程对程序进行初始化，图中所选中的窗体对应的装载事件过程应该是（）。

A、F1_ Load B、Form1_Load C、Form_Load D、Form1_Show

查看解析
9、在VB中，如果用a、b、c表示三角形的三条边长，那么不能构成三角形的条件是（）。

A、a+b<=c And b+c<=a And c+a<=b B、Not(a+b>c Or b+c>a Or c+a>b) C、a+b<=c Or b+c<=a Or c+a<=b D、a+b>c And b+c>a And c+a>b

查看解析
10、下列VB表达式中，值最小的是（）。

A、Abs(-3) + Len("NBXIAOSHI") B、Val(Mid("Ningbo2222", 8, 1)) C、Int(Sqr(36) + 5) \ 2 D、10^2 Mod 100 \ 3 ^ 2

查看解析
11、下列能作为Visual Basic变量名的是（）。

A、x-y B、a#1 C、2day D、num_2

查看解析
12、某算法的部分流程图如图所示，执行该流程图，下列描述正确的是（）。

A、“s←s + x”执行了4次 B、“s ≤10？”执行了4次 C、执行算法后，s的值为15，x的值为6 D、执行算法后，s的值为10，x的值为5

查看解析
13、计算两个并联电阻总电阻的算法如下：
①输入两电阻R1，R2的值

②计算总电阻R= $\frac{R 1 R 2}{R 1 + R 2}$

③输出总电阻

上述算法属于（）

A、枚举算法 B、解析算法 C、排序算法 D、查找算法

查看解析
14、学校要举行运动会，请你设计一个能够对运动员分数自动排序的软件，如果要设计此软件，以下最好的方法和步骤是（）。

A、分析问题，编写程序，设计算法，调试程序 B、设计算法，编写程序，提出问题，调试程序 C、分析问题，设计算法，编写程序，调试程序 D、设计算法，提出问题，编写程序，调试程序

查看解析
15、统计不同单词个数，在Text1中输入一行单词，点击“统计”按钮后在Text2中输出不同单词的个数。单词字母有大小写，同一单词的大小字母视为相同，句子以符号结尾，程序运行界面如图1所示。

图1

图2

(1)、观察以下代码，该代码中 Command1_Click（）是（选：A . 对象名 /B . 事件名 /C . 事件处理过程名）

(2)、在设计应用程序界面时，应使用图2所示“控件工具箱”中的添加列表框List1.

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

  Dim a(1 To 100) As String ,s As String, ch As String, word As String

Dim i As Integer, j As Integer, k As Integer, numb As Integer

  s = Text1.Text : k = 0 : word = ""

For i = 1 To Len(s)

   ch = Mid(s, i, 1)

  If ch >= "a" And ch <= "z" Or ch >= "A" And ch <= "Z" Then

    If ch >= "A" And ch <= "Z" Then

        word = word + ch

    Else

        flag = False

     For j = 1 To k

        If a(j) = word Then flag = True

      Next j

      If Not flag And word <> "" Then



        a(k) = word

        numb = numb + 1

      End If



  End If

  Next i

Text2.Text = str(numb)

End Sub

查看解析
16、小李在网上查找一篇文章，做了如下操作：
①在搜索引擎里找到相关内容的英文扫描件，并下载到本地计算机中；

②使用OCR软件将扫描件中的内容识别为文本，并保存；

③使用翻译软件把识别结果转换为中文；

④将翻译结果复制到Word中进行编辑。

以上过程中体现了人工智能技术应用的有（）

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

查看解析

17、某商场将采用“会员管理系统”管理客户的信息，会员信息表如下：

会员编号	姓名	积分	性别	余额	出生日期
V101	张小明	461	男	¥820.0	1999-12-21
P103	李小红	5000	女	¥786.0	2000-01-24
……	……	……	……	……	……

若用Access数据表“会员信息”来存储上述表的信息，下列说法错误的是（）

A、“会员管理系统”是一个数据库应用系统 B、“会员编号”字段可以设置为“文本”类型 C、为了便于信息管理，应将“姓名”字段设置成该表的主键 D、在设计“会员信息”表时，需要考虑表与表之间的关系

查看解析

18、已知字符A的内码为65，a内码为97，则下列程序执行后变量t的值为（    ）
s="Cc12BbAa":t=""

For i=1 To len(s)

ch=Mid(s,i,1)

   If ch>="a" And ch<="z" or ch>="A" And ch<="Z" Then

     If ch>="a" And ch<="z" Then

       ch=Chr(Asc(ch)-32)

     End If

     t=ch+t

   End If

Next i

A、"CcBbAa" B、"aabbcc C、"CCBBAA" D、"AABBCC"

查看解析
19、关于位图和矢量图，以下描述正确的是（）

A、Photoshop编辑的位图可以通过”存储为“生成真正的矢量图 B、Flash编辑的矢量图画面，通过截屏可以生成位图图片 C、矢量图放大后会产生模糊失真现象 D、矢量图可以通过拍照和扫描方式获得

查看解析
20、以下程序段执行后整型变量n的值为（）
N=0

For i=1 to 25

If i mod 5= 0 then n=n+i

Next i

A、50 B、15 C、75 D、210

查看解析

上一页 1060 1061 1062 1063 1064 下一页跳转