1．1991年Intel公司提出的PCI局部总线标准（工作频率为33MHz），因其高性能、低成本，目前仍广泛使用。当数据线宽度为64位时，其传输速率约为
A．33MB/s B ．66 MB/s C ．133 MB/s D ．266 MB/s
2.在计算机科学中，常常会遇到用二进制、八进制、十六进制等表示的数据。对于算术表达式1023-377Q+100H，其运算结果是____1______。
A. 1024
B. 746H
C. 746Q
D. 1023
3.用户在使用Windows提供的“画图”应用程序编辑某图片时，如果图片的大小为120*120像素,且将该图片以单色位图类型（.bmp）保存在软盘上（注：软盘的簇大小为512B），则该图片文件所占用的存储空间约为____14_____。
A.1KB
B.2KB
C.15KB
D.43KB
4.如果某PC机使用56K的Modom拨号上网（接入Internet），那么下载一个大小为
5.6 MB的软件，理论上最快需要略多于__20____秒的时间。
A.10
B.100
C.800
D.6000
5.硬盘的转速是评价硬盘性能的重要指标之一．如果某硬盘的平均等待时间（指需要读／写的扇区旋转到磁头下面的平均时间）为１０ms，则该硬盘的转速约为＿＿。
Ａ．１０００转／分Ｂ．２０００转／分Ｃ．３０００转／分Ｄ．６０００转／分
6.某图片文件ＰＩＣＴ２５６．ＢＭＰ，其类型为“２５６色位图”，文件大小为３０1ＫＢ。利用Ｗindows提供的“画图”软件对其进行编辑时，若不对图片作任何修改，直接将其另存为类型为“１６色位图”、文件名为ＰＩＣＴ１６．ＢＭＰ，则ＰＩＣＴ１６．ＢＭＰ文件的大小约为＿＿。
Ａ．３０１ＫＢＢ．１５２ＫＢＣ．７６ＫＢＤ．２ＫＢ
7.目前，汉字信息在计算机内大多是以双字节编码表示的。在下列用十六进制表示的两个季节的编码中，____1_____可能是汉字“大”的机内码。
A.B473H
B.B4F3H
C.3473H
D.73F3H
8.长度为1个字节的二进制的整数，若采用补码表示，且由4个“1”和4个“0”组成，则可表示的最小整数为___3_____。
A.-127
B.-121
C.-15
D.-7
9.假设某硬盘的转速为6000转/分，则此硬盘的平均等待时间为____5___ms（毫秒）。
A.5
B.6
C.10
D.12
10．波形声音的主要参数有取样频率、量化尾数、声道数目、压缩编码方式等。若取样频率为44.1KHZ、量化位数为16位、声道数目为2、则2分钟声音的数据量大约为（５）（不进行压缩处理时）。
A. 0.4MB
B.6MB
C.11MB
D.21MB
vb基础
以下使用方法的语句中，正确的是 ___ 。
A. List1.Clear
B. Form1.Clear
C. Combo1.Cls
D. Picture1.Clear
以下所列的7个控件中，具有Caption 属性的有 ____ 个。
PictureBox(图片框)、Frame(框架)、OptionButton(单选按钮）、ListBox(列表框)、TextBox(文本框)、Form(窗体)、DriveListBox(驱动器列表框)
A. 3
B. 4
C. 2
D.5
以下有关对象属性的说法中错误的是 ___ 。
A. 所有的对象都具有 Name（名称）属性
B. 只能在执行时设置或改变的属性为执行时属性
C. 对象的某些属性只能在设计时设定，不能使用代码改变
D. Enabled属性值设为False 的控件对象在窗体上将不可见
VB中利用Circle 方法不可以画 _____ 。
A.园
B.直线
C.弧
D.椭圆
无法响应Click事件的控件是＿（２１）＿．
Ａ．Label Ｂ．Timer Ｃ．TextBox
Ｄ．DriveListBox
２２.在窗体上放置了DrivelistBox、 DirListBox和 FileListBox等三个控件，下面＿（２２）＿语句一定不会改变相应控件的Path或Drive属性。
Ａ．Drivel.ListIndex=2 Ｂ．Dir1ListIndex=-2
Ｃ．File1.FileName="a:\*.*" Ｄ．File1.Path=Drive1.Drive
对于某对象的SetFocus和GotFocus描述正确的是＿（２３）＿。
Ａ．SetFocus是方法，GotFocus事件Ｂ．SetFocus是事件，GotFocus是事件Ｃ．SetFocus是方法，GotFocus是方法Ｄ．SetFocus是事件，GotFocus是方法
在VB中可以作为容器的是B。
A.Form、TextBox、PictureBox
B.Form、PictureBox、Frame
C.Form、TextBoX、Label
D.PictureBox、TextBox、ListBox
VB中除窗体能显示图片外，下面列出的控件中可以显示图片的控件有C。
1.PictureBox
2.Image
3.TextBox
https://www.doczj.com/doc/432481272.html,mandButton
5.OptionButton
https://www.doczj.com/doc/432481272.html,bel
A.1、2、3、4、
B.1、2、5、6、
C.1、2、4、5
D.1、2、4、6、
第一次显示某窗体时，将引发一系列事件，正确的事件是 A。
A.Load - Initialize - Activate
B.Initialize - Load - Activate
C.Load - Activate- Initialize
D.Initialize - Activate - Load
下面所列四组数据中，全部是正确的VB常数是 A 。
A.32768,1.34D2,"ABCDE",&O1767
B.3276,123.56,1.2E-2,#True#
C.&HABCE,02-03-2002,False,D-3
D.ABCDE,#02-02-2002#,E-2
针对语句If I=1 Then J=1，下列说法正确的是C。
A.I=1和J=1均为赋值语句
B.I=1和J=1均为关系表达式
C.I=1为关系表达式，J=1为赋值语句
D.I=1为赋值语句，J=1为关系表达式
在某过程中已说明变量a为Integer类型、变量s为String类型，过程中的以下四组语句中，不能正常执行的是C。
A.s=2*a+1
B.s="237"&".11":a=s
C.s=2*a>3
D.a=2:s=16400*a
25、在窗体的通用声明处有语句 Dim A() As Single ，以下在某事件过程中重定义此数组的一组正确语句是： ___ 。
A. ReDim A(3,3)
ReDim A(4,4) As Integer
B. ReDim A(3,3)
ReDim Preserve A(4,4)
C. ReDim A(3)
ReDim A(3,3) As Integer
D. ReDim A(3,3)
ReDim Preserve A(3,4)
在窗体Form1 中用“Public Sub Fun (x As Integer ,y As Single)”定义过程 Fun ，在窗体Form2 中定义了变量i 为Integer ， j 为Single ，若要在 Form2的某事件过程中调用 Form1中的Fun 过程，则下列语句中，正确的语句有 ____ 个。
(1) Call Fun(i,j)
(2) Call Form1.Fun(i,j)
(3) Form1.Fun(i),j
(4) Form1.Fun i+1,(j)
A.1
B.2
C.3（2、3、4对）
D.4
1、执行下面的程序，单击窗体，则在窗体上显示的第一行是 1 2 3，第二行是 4 5.
Private Sub Form_Click()
Dim a(3, 3) As Integer, i As Integer, j As Integer
For i = 1 To 3
For j = 1 To 3
a(i, j) = (i - 1) * 2 + j
Next j
Next i
For j = 1 To 3
For i = j To 3
Print a(j, i);
Next i
Next j
End Sub
6、运行下面程序，单击命令按钮Command1，则在窗体上显示的第一行内容是VLA USI，
第二行内容是VILAUS，文本框Text1中显示的内容是VISUAL 。
Private Sub Command1_Click()
Dim S As String
S = "LAUSIV"
Text1.Text = Display(S, Len(S))
End Sub
Private Function Display(S As String, L As Integer) As String
If L > 1 Then Display = Display(S, L - 1)
S = Left(S, L - 1) & Right(S, 1) & Mid(S, L, Len(S) - L)
Display = S
Print Display
End Function
一、改错（17分）
（题目）这是一个对原文进行加密的程序，原文全部由大写字母及空格与合法的标点符号组成，加密方法是每个字母依所在原文中的排列次序，奇数位字按ASCII代码序依次前移5位，如字母F前移5位则变成A，但E前移后则变成Z，D则变成F，依此类推；偶数位字符，则按ASCII代码依次后移5位，如字母A后移5位则变成F,但Y后移则变成D,Z则变成E，依此类推。原文中的空格与合法的标点符号保持不变。
Private Sub Command1_Click()
Dim decode As String ,encode As String
Dim i As Integer,st As String * 1
Decode=Text1
For i =0 To Len(decode)
st=Mid(decode,i,1)
If st >=”A”And st <=”Z”And i Mod 2<>0 Then
encode = encode & cov1(st)
ElseIf st>=”A”And st<=”Z”And i Mod 2=0 Then
encode =encode & cov2(st)
Else
encode =st &encode
End if
Next i
Text2 =encode
End Sub
Private Function cov1(st As String) As String
Dim n As Integer, k As Integer
n=Asc(st)-65-5
If n<0 Then
k =n+26
Else
k=n
End If
cov1=chr(k+65)
End Function
Private Function cov2(st As String) As String
Dim n As Integer, k As Integer
n=Asc(st)-65+5
If n>=26 Then
k=n
Else
k=n Mod 26
End If
cov2=Chr(k+65)
End Function
[要求]
1．新建工程，输入上述代码，改正程序中的错误；
2．改错题的界面应与给出的参考界面相似，主要用来调试程序；
3．改错时，不得增加或删减语句，但可以适当调整语句位置；
4．将窗体文件和工程文件分别命名为F1和P1，并保存到软盘的A根目录下。
一、改错题（17分）
[题目]统计英文字符串中以各种字母为首的单词数量（单词之间用空格或其他非字母字符分隔），统计是不分大小写（本题参考界面见下页）。
Private Sub Command1_Click()
Dim s As String, i As Integer, L As Integer
Dim ch(1 To 26) As Integer, flag As Boolean
s= Text1
count (ch,s)
For i =1 To 26
If ch(i)<>0 Then
List1 AddItem ”以”& Chr(i+97-1);”字母为首的单词有”& ch(I) & “个”
End If
Next i
End Sub
Public Sub count(ch() As Integer, s As String)
Dim i As Integer, flag As Boolean
Dim s1 As String *1, j As Integer
flag = True
For i=1 To Len(s)
s =Mid(s,i,1)
If s1 >=”A”And s1<=”Z” Then s1 =LCase(s1)
If s1>=”a” And s1 <=”z” Then
If flag Then
j=Asc(s1)-Asc(“a”)
ch(j)=ch(j)+1
flag =False
End If
Else
flag =True
End If
Next i
End Sub
[要求]
1.新建工程，输入上述代码，改正程序中的错误；
2.改错题的界面应与给出的参考界面相似，主要用来调试程序；
3.改错时，不得增加或删减语句，但可以适当调整语句位置；
4.将窗体文件和工程文件分别命名为F1和P1，并保存到软盘的A根目录下。
一、改错题（17分）
【题目】本程序的功能是：从给定的数据范围中找出所有各位数字之和为 10 的数据，若一次求得各位数字之和不是壹位数，则继续求此和数的各位数字之和。例如 47854=>28=>10 就是符合要求的数。
Option Explicit
Private Sub Command1_Click()
Dim st As Long, se As Long, i As Long
Dim s As String
st = Text1
se = Text2
For i = st To se
If Sum(i) = 10 Then
s = s & i & vbCrLf
End If
Next i
text3 = s
End Sub
Private Function sum(n As Long) As Integer
Dim k As Integer
Do
Do
k = n Mod 10
sum = sum + k
n = n \ 10
Loop Until n < 0
If sum > 10 Then
n = sum
Else
Exit Function
End If
Loop
End Function
【要求】
1 ．新建工程，输入上述代码，改正程序中的错误：
2 ．改错时，不得增加或删除语句，但可适当调整语句位置；
3 ．将窗体文件和工程文件分别命名为 F1 和 P1 ，并保存到软盘 A 的根目录下。