11991年Intel公司提出的PCI局部总线标准(工作频率为33

11991年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. 1024B. 746HC. 746QD. 10233.用户在使用Windows提供的“画图”应用程序编辑某图片时，如果图片的大小为120*120像素,且将该图片以单色位图类型（.bmp）保存在软盘上（注：软盘的簇大小为512B），则该图片文件所占用的存储空间约为_14_。A.1KBB.2KBC.15KBD.43KB4.如果某PC机使用56K的Modom拨号上网（接入Internet），那么下载一个大小为5.6 MB的软件，理论上最快需要略多于_20_秒的时间。A.10B.100C.800D.60005.硬盘的转速是评价硬盘性能的重要指标之一如果某硬盘的平均等待时间（指需要读写的扇区旋转到磁头下面的平均时间）为ms，则该硬盘的转速约为。转分转分转分转分6.某图片文件，其类型为“色位图”，文件大小为1。利用indows提供的“画图”软件对其进行编辑时，若不对图片作任何修改，直接将其另存为类型为“色位图”、文件名为，则文件的大小约为。7.目前，汉字信息在计算机内大多是以双字节编码表示的。在下列用十六进制 表示的两个季节的编码中，_1_可能是汉字“大”的机内码。A.B473HB.B4F3HC.3473HD.73F3H8.长度为1个字节的二进制的整数，若采用补码表示，且由4个“1”和4个“0”组成，则可表示的最小整数为_3_。A.-127B.-121C.-15D.-79.假设某硬盘的转速为6000转/分，则此硬盘的平均等待时间为_5_ms（毫秒）。A.5B.6C.10D.1210波形声音的主要参数有取样频率、量化尾数、声道数目、压缩编码方式等。若取样频率为 44.1KHZ、量化位数为16位、声道数目为2、则2分钟声音的数据量大约为 （）（不进行压缩处理时）。 A. 0.4MB B.6MB C.11MB D.21MBvb基础以下使用方法的语句中，正确的是 _ 。A. List1.Clear B. Form1.ClearC. Combo1.Cls D. Picture1.Clear以下所列的7个控件中，具有Caption 属性的有 _ 个。PictureBox(图片框)、Frame(框架)、OptionButton(单选按钮）、ListBox(列表框)、TextBox(文本框)、Form(窗体)、DriveListBox(驱动器列表框)A. 3 B. 4C. 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=-2File1.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、FrameC.Form、TextBoX、Label D.PictureBox、TextBox、ListBoxVB中除窗体能显示图片外，下面列出的控件中可以显示图片的控件有C 。1.PictureBox 2.Image 3.TextBox4.CommandButton 5.OptionButton 6.Label 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 - ActivateC.Load - Activate- Initialize D.Initialize - Activate - Load下面所列四组数据中，全部是正确的VB常数是A 。A.32768,1.34D2,ABCDE,&O1767B.3276,123.56,1.2E-2,#True#C.&HABCE,02-03-2002,False,D-3D.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*a3 D.a=2:s=16400*a25、在窗体的通用声明处有语句 Dim A() As Single ，以下在某事件过程中重定义此数组的一组正确语句是： _ 。A. ReDim A(3,3)ReDim A(4,4) As IntegerB. ReDim A(3,3)ReDim Preserve A(4,4) C. ReDim A(3)ReDim A(3,3) As IntegerD. 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.41、执行下面的程序，单击窗体，则在窗体上显示的第一行是 1 2 3 ，第二行是 4 5 .Private Sub Form_Click()Dim a(3, 3) As Integer, i As Integer, j As IntegerFor i = 1 To 3For j = 1 To 3a(i, j) = (i - 1) * 2 + jNext jNext iFor j = 1 To 3For i = j To 3Print a(j, i);Next iPrintNext jEnd Sub6、运行下面程序，单击命令按钮Command1，则在窗体上显示的第一行内容是 VLAUSI ，第二行内容是 VILAUS ，文本框Text1中显示的内容是 VISUAL 。 Private Sub Command1_Click()Dim S As String S = LAUSIV Text1.Text = Display(S, Len(S) End SubPrivate 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 DisplayEnd 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 StringDim i As Integer,st As String * 1Decode=Text1For i =0 To Len(decode) st=Mid(decode,i,1)If st =”A” And st =”Z”And i Mod 20 Thenencode = encode & cov1(st)ElseIf st=”A” And st=”Z” And i Mod 2=0 Thenencode =encode & cov2(st)Else encode =st &encodeEnd ifNext i Text2 =encodeEnd SubPrivate Function cov1(st As String) As StringDim n As Integer, k As Integern=Asc(st)-65-5If n=26 Thenk=nElsek=n Mod 26End Ifcov2=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 IntegerDim ch(1 To 26) As Integer, flag As Booleans= Text1count (ch,s)For i =1 To 26If ch(i)0 ThenList1 AddItem ”以”& Chr(i+97-1);”字母为首的单词有”& ch(I) & “个”End IfNext iEnd SubPublic Sub count(ch() As Integer, s As String)Dim i As Integer, flag As BooleanDim s1 As String *1, j As Integerflag = TrueFor i=1 To Len(s)s =Mid(s,i,1)If s1 =”A” And s1=”a” And s1 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