相关试卷

1、某VB程序的一个事件过程如下：
Private Sub Command1_Click()
Dim a As Integer
a = Val(Text1.Text)
Text1.Text = Str(Sqr(a))
End Sub
程序运行时，单击命令按钮command1后弹出如图所示的错误信息提示。出现错误的原因是（）

A、变量a类型定义错误 B、界面缺少文本框Text1 C、Command1属性设置错误 D、Sqr函数计算时出错

查看解析
2、在Visual Basic的代码窗口中，语句Password.Caption= "a>b"中的Password是（）

A、对象名 B、属性值 C、属性名 D、类名

查看解析
3、运行如下Visual Basic程序，单击命令按钮Command1，出现如图所示的出错信息。发生"下标越界"错误时所执行的语句是( )
Private Sub Command1_Click()
Dim a(0 To 5) As Integer
Dim i As Integer               ’①
a(0) = 1                      '②
For i = 1 To 5
    a(i) = 2 * a(i - 1) + 1          '③
Next i
Text1.Text = Str(a(6))         '④
End Sub

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

查看解析
4、将数学表达式sin(e³)+ $\sqrt{| x + y |}$ 写成Visual Basic的表达式，其正确的形式是（）

A、sin(exp(3))+sqr(abs(x+y)) B、sin(e^3)+sqr(abs(x+y)) C、sin(exp(3))+sqr(|x+y|) D、sin(e^3)+sqr(|x+y|)

查看解析
5、下列Visual Basic表达式的值为True的是（）

A、1=2 B、"78"〉"79" C、Len("78")＝Len("中国") D、Mid("abcdef", 2, 3) = "abc"

查看解析
6、随机产生一个范围为[8,89]的正整数的VB表达式是 ( )

A、8+int(82*rnd) B、8+int(90*rnd) C、int(90*Exp) D、int(82*rnd)

查看解析
7、下列可作为VB变量名的是 ( )

A、true B、we*6 C、dew3 D、3ABC

查看解析
8、小周定义了一个变量rs来存储超市里商品条形码，变量的数据类型应是（）

A、Integer B、String C、Long D、Date

查看解析
9、【加试题】酒店房间管理：酒店房间(房间数小于10000)编号按1、2、3…连续编号，老板对于没有出租的房子使用如下的方法来登记管理。连续的空房间，登记第一间的编号和连续的空房间数，比如空房间1，2， 6，7，8，10，则登记3条记录，分别为（1 2），（6 3），（10 1）．
某旅客退房了，需要把这房子也登记上去，有四种情况需要处理：
1）上靠，例如退的房间号为3，则原来登记的3条记录变成（1 ， 3），（6，3），（10，1）．
2）下靠，例如退的房间号为5，则原来登记的3条记录变成（1，2），（5 ， 4），（10，1）．
3）上下不靠，例如退的房间号为4，则登记的记录数变成4条（1，2），（4 ， 1），（6，3），（10，1）．
4）上下靠，例如退的房间号为9，则登记的记录数变成2条（1，2），（6，5）．
小王依据上述描述设计了如下VB程序。请回答下列问题：

(1)、当登记的记录有3条，分别为（1，4），（6，2），（10，3）。现在某旅客退掉5号房间，则登记的记录变成

(2)、请在划线处填入合适的代码。
Const n = 5000
Dim a(0 To n) As Integer 'a(i)保存第i条记录的开始房间号
Dim b(0 To n) As Integer ' b(i)保存第i条记录的房间数
Dim c As Integer, k As Integer, sp As Integer 'k为原始记录数
' 读取原始k条记录的数据，依次存入a(1),b(1),a(2),b(2)…a(k),b(k),代码略
'为了程序处理方便，虚设了下面2条记录
a(0) = 0   :   b(0) = 0:   sp = k + 1 ： a(sp) = 10000 ： b(sp) = 0
Private Sub Command1_Click()
Dim i As Integer
c = Val(Text1Text) 'c为退掉的房间号
i = 1
Do While a(i) < c   '查找房间c，应该登记在某位置
i = i + 1
Loop
i = i - 1
'下面为处理退房登记问题
If a(i) + b(i) = c Then
   If Then   '第4种情况，上下靠
      b(i) = b(i) + 1 + b(i + 1)
      For j = i + 1 To sp - 1
         a(j) = a(j + 1) :    b(j) = b(j + 1)
      Next j
      sp = sp - 1
   Else                      '第1种情况，上靠
      b(i) = b(i) + 1
End If
ElseIf c + 1 = a(i + 1) Then '第2种情况，下靠
    a(i + 1) = c :    b(i + 1) = b(i + 1) + 1
Else                         '第3种情况，上下不靠
   For j =
      a(j) = a(j - 1) :      b(j) = b(j - 1)
   Next j
   a(i + 1) = c :   b(i + 1) = 1 :   sp = sp + 1
End If
‘下面为输出登记的记录，不包括虚设的两条记录
For i =1 to
List3．AddItem "第" & Str(i) & "记录（" & Str(a(i)) & "，" & Str(b(i)) & ")"
Next i
End Sub

查看解析
10、【加试题】小明基于选择排序算法编写了一个VB程序,功能如下：某班有50个学生，从中选择10个身高最高的同学，要求被选的任何两个人不能身高一样（所给的数据保证能选10个）。
实现上述功能的VB程序如下，但加框处代码有错，请改正。
Const n = 50
Dim d(0 To n) As single , name(1 to n) as string
'读入50个学生的身高，依次存入d(1)…d(50),姓名存入name(1)…name(50) '代码略
Private Sub Command1_Click()
Dim i As Integer, j As Integer, temp As single, k As Integer,r as string
d(0) = 2
For i = 1 To 10
    ①
  For j = i To n
     If d(j) < d(i - 1) Then
         If     ② Then
           k = j
        End If
     End If
Next j
If k <> i Then
     temp = d(k): d(k) = d(i): d(i) = temp
     r=name(k) : name(k)=name(i) : name(i)=r
End If
Next i
For i = 1 To 10   ‘输出被选的10个人的名字和身高。
List2．AddItem name(i) & d(i)
Next i
End Sub
① ②

查看解析

11、Flash作品“剪纸艺术．fla”的“main”场景的制作脚本如下：

场景：main

类别序号：2

进入方式：由“load”场景单击“播放”按钮进入

呈现方式：

⒈“剪纸简介”从舞台右下方慢慢向上移动。

⒉单击“中国剪纸网”按钮，链接到网址为“http://www．zhjz．com”的网页，单击“退出”按钮，转入到“end”场景。

⒊其他动画略。

呈现顺序说明：

⒈一开始出现“退出”按钮，“中国剪纸网”按钮，“背景”动画，再依次出现 “剪纸人物”、“剪纸简介”、“剪纸1”、“剪纸2”和“剪纸3”的动画。

(1)、测试“main“场景时，鼠标经过“退出”按钮时没有出现小手形状，其元件编辑状态如图b所示，为解决这个问题，下列操作方法可行的有 (多选，填字母：A 删除“文字”图层的点击帧 / B 在“矩形”图层的点击帧插入帧 / C 在“文字”图层的点击帧，执行清除关键帧/ D 在“文字”图层的点击帧，执行转换为关键帧

(2)、该Flash作品的场景顺序 (填：是/否)符合脚本要求。

(3)、观察图a,“剪纸1”图层第18帧到第30帧的补间类型是。

(4)、测试场景时，背景画面播放到30帧时消失，为了使画面一直延续到最后一帧，正确的操作是

(5)、为了使“main”场景自动循环播放，直到单击“退出”按钮后转入 “end”场景, 应在“main”场景最后一帧上添加动作脚本为

查看解析

12、编“字符串缩写”程序，实现如下功能:在文本框Text1中输入Ascii字符串，字符串中如果有由Ascii表中相邻字符（升序）组成的子串，则把该子串缩写成由第一个字符、“-”和最后一个字符组成，比如“abcdfpxcba”则缩写成“a-dfpxcba”。程序运行界面如下图所示。

(1)、代码“Private Sub Command1_Click()”中的Command1是(单选，填字母：A 对象名 / B 事件 / C 事件处理过程)

(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String, result As String， i As Integer, j As Integer, t As Integer
s = Text1．Text ：t = Len(s) ：result = ""
i=1
Do While i <= t
   j = i
   Do While i < t
       If Asc(Mid(s, i + 1, 1)) = Asc(Mid(s, i, 1)) + 1 Then
            i = i + 1
       Else
           Exit Do
       End If
   Loop
   If i > j Then
      result =
   Else
      result = result + Mid(s, i, 1)
   End If
   i = i + 1
Loop
Text2．Text =
End Sub

(3)、如果输入的字符串是“aBcucwxyzdcb”,输出结果为

查看解析
13、小王对高三（1）、高三（2）的学生期末考、期中考成绩进行一个简单的处理和分析，如下图
请回答下列问题：

(1)、小王已经把期末成绩按班级和姓名排序，并把期中工作表中的数据复制到F3:J23,为了能够统计出每个学生两次考试每科成绩之差，对高三（1）班期中数据已进行了处理，使两次考试同一个学生在同一行，为了使高三（2）数据达到同样的目的、写出处理的方法：

(2)、区域K4:M23的数据是通过公式计算得到的：在K4单元格输入公式后，用自动填充功能完成K4:M23的计算，则K4单元格中的公式是

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

查看解析
14、【加试题】有如下VB程序段：
k = Val(Text1．Text)
left1 = 1: right1 = 10
Do While (left1 <= right1)
mid1 = (left1 + right1) \ 2
If a(mid1) <=k Then
       left1 = mid1 + 1
Else
       right1 = mid1-1
End If
Loop
Text2．text=str(right1)
已知数组a(1)到a(10)的原始数据为1,4,5,5,5,5,8,9,9,10．程序运行时，在文本框text1中输入5，文本框text2显示的内容是（   ）

A、5 B、10 C、3 D、6

查看解析
15、【加试题】有如下VB程序段：
Max=-10000
For i = 1 To 10
    s = 0
    For j = i To 10
      s = s + a(j)
      If s > max Then max = s
    Next j
Next i
已知数组a(1)到a(10)的原始数据为6，-6，8，-7，7，2，-2，-1，-2，4．程序执行后，变量max的值为（   ）

A、9 B、10 C、27 D、4

查看解析
16、【加试题】某psd格式的文件以默认的方式保存为bmp格式，该bmp图像用Photoshop打开后的部分界面如右图所示。已知该图像宽度400像素，高度300像素，则该图像的大小约为（）

A、351．6KB B、117．2KB C、58．6KB D、175.8KB

查看解析
17、用Flash软件制作动画作品，其中一个场景的部分时间轴界面如下图所示。下列说法正确的是（）

A、“背景”图层的前面20帧的内容和后面20帧的内容肯定相同 B、在“音乐”图层的第一帧可以添加声音 C、不能删除“音乐”图层 D、为了实现该场景的循环播放，可以直接在第40帧添加帧动作gotoAndPlay(1);

查看解析
18、某Photoshop作品部分界面如下。下列说法正确的是（）

A、“制作人”图层使用了滤镜效果 B、“背景”图层可以移动到“米老鼠”图层上方，并遮住该图层的内容 C、“尾巴”图层和“米老鼠”图层设置的图层样式效果肯定相同 D、通过移动“尾巴”图层的尾巴或“米老鼠”图层的米老鼠，使它们的相对位置变得更合理

查看解析
19、使用Goldwave软件打开某音频文件，选取其中一段音频后的部分界面如图所示。下列说法正确的是（）

A、单击“剪裁”按钮后，音频文件的大小变为原来的1/3 B、单击“删除”按钮后，再执行“插入静音”10秒，音频的时长不变 C、执行“录音”命令10秒后，音频文件的大小变为原来的4/3 D、执行“静音”命令后，音频的时长不变

查看解析
20、把十进制数160转化为八位二进制数后，高（左）4位加2，低（右）四位加6后，再转化为十进制数，结果为（）

A、168 B、198 C、166 D、182

查看解析

上一页 1643 1644 1645 1646 1647 下一页跳转