大学计算机基础选择题.doc

1、1. 下列_ B _是日期型常量。A. 2/1/02 B. #2/1/02#C. 2/1/01D. 2/1/022. 表达式Val(.123E2CD)的值是_ B _。A. .123E2CDB. 12.3 C. 0 D. .123 3. Visual Basic 认为下面_ C _组变量是同一个变量。A. Aver和Average B. Sum和SummaryC. Al和al D. Al和A_l4. 设窗体上有一个文本框，名称为Text1,程序运行后，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是_B_。A. Text1.Maxlength=0 B. Text1.Enable

2、d=FalseC. Text1.Width=0D. Text1.Visible= False 5. Image 控件加载图片后的尺寸_C_。A. 比图片小 B. 与图片大小不同C. 与图片大小相同D. 比图片大 6. PictureBox、Frame、OptionButton、ListBox、TextBox、Form、ComboBox这7个对象中，具有Caption属性的有_C_个。A.2B.3C.4D.57. 下列程序段的执行结果为_D_。Dim a(10) As Integer, b() As IntegerDim i As IntegerReDim b(5)For i = 1 To 10

3、 a(i) = i If i Mod 2 = 0 Then b(i/2) = a(i) End IfNext iPrint a(4); b(3)A. 6 4 B. 3 4 C. 4 3 D. 4 68. 下列程序段的执行结果为 _A_。Dim a(3, 5) As IntegerDim i As Integer, j As IntegerFor i = 1 To 3 For j = 1 To 5 a(i, j) = a(i - 1, j - 1) + (i - 1) * 3 + j Next jNext iPrint a(3, 4)A. 18B. 12 C. 15 D. 出错9. 若在应用程序

4、中用Private Sub Sub1(X As Integer, Y As Single)定义了子程序Sub1，以下调用子程序Sub1的Call语句中_D_是错误的。A. Sub1 x,yB. Call Sub1(a,B)C. Sub1 a,bD. Call Sub1(5) 10. VB是一种面向_C_的程序设计语言。A. 过程 B. 用户 C. 对象D. 方法 11. 下面关于顺序文件的描述正确的是_A_。A. 数据只能以ASCII码形式存放在文件中，所以可通过文本编辑软件显示B. 可通过编程对文件中的某条记录方便地修改C. 每条记录的长度必须相同D. 文件的组织结构复杂12. 执行以下语句

5、后，k的值为_C_。 Dim i As Single For i = 0.45 To 2 Step 0.5 k = k + 1 Next i Print i;kA. 2 4B. 2.45 5C. 2.45 4D. 1.95 4 13. 下面程序运行后，单击command1后屏幕显示是_C_。 Private Sub command1_click() For i = 1 To 4 If i 3 Then Exit For Next i For j = 1 To 6 i = i + j Next j Print i, j End SubA. 256 B. 266C. 257D. 26 714. 设

6、有语句X=InputBox(输入数值，0，示例)，程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是_D_。A. 在InputBox对话框标题栏中显示的是示例B. 变量X的值是数值10C. 0是默认值D. 变量X的值是字符串1015. 运行下面程序，输出结果是_A_。 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer Dim d As Integer a = 5 b = -3 c = 8 d = IIf(a b And a c, a, IIf(b c, b,c) print d

7、End SubA.8B.5C.-3D.216. 若要将水平滚动条的最小值设为0，最大值设为255，应对其_D_属性进行设置。A. SmallChange 和 LargeChangeB. Width 和 HeightC. Left 和Top D. Min 和 Max17. 下列 _B_ 不是列表框的方法。A. AddItem B. Print C. Clear D. RemoveItem18. 以下能在窗体Form1的标题栏中显示Visualbasic窗体的语句是_D_。A. Form1.Title=Visualbasic窗体B. Form1.Text=Visualbasic窗体C. Form1

8、.Name=Visualbasic窗体D. Form1.Caption=Visualbasic窗体19. 在用通用对话框控件建立打开或保存文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件（即.txt文件），则正确的描述格式是_D_。A. text (.txt)|(*.txt)B. text(.txt)(*.txt)C. text(.txt)|(*.txt)D. 文本文件(.txt)|*.txt20. Int(100*Rnd(1)产生的随机整数的闭区间是_A_。A. 0，99 B. 1，100 C. 1 ，99D. 0，100 21. 下面所列四组数据中，全部是正确的VB常数的是_

9、B_。A. HABCE，02-03-2004，False，0.3B. 2768,1.34D2，ABCDE，&O1767C. ABCE，#02-03-2004#，E-2D. 276，123.56, 1.2E-2，#True#22. 如果编写的过程要被多个窗体及其对象调用，应将这些过程放在_D_中。A. 类模块B. 工程C. 窗体模块D. 标准模块23. 在下面的程序段中，循环体将执行_D_次。 For v=20 To 10 Step -2 print v Next vA.5B.0C.10D.624. 设在菜单编辑器中定义了一个菜单项，名为Menu1。为了在运行时隐藏该菜单项，应使用的语句是 _B

10、_。A. Menu1.Enabled=True B. Menu1.Visible=FalseC. Menu1.Visible=True D. Munu1.Enabled=False25. 以下关于窗体的描述中，错误的是_C_。A. 当窗体的Enabled 属性为False时，通过鼠标和键盘对窗体的操作都被禁止B. 窗体的Load 事件在加载窗体时发生C. 执行Unload Form1语句后，窗体Form1消失，但仍在内存中D. 窗体的Height、Width属性用于设置窗体的高和宽26. 下列_A_不能作为VB中的变量名？A. 28wed B. ABCabc C. cmdD. B1234 28

11、. 设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是_D_。A. List1.Listindex B. List1.ListC. List1.Index D. List1.Text29. Visual Basic程序设计时常用的Print、Cls属于_B_。A. 事件B. 方法 C. 属性 D. 打印字库 30. 下列程序段的执行结果为_A_ Dim A(5, 5) As IntegerFor i = 1 To 3 For j = 1 To 4 A(i, j) = i * j Next jNext iPrint A(2, 3) + A(3, 4)

12、 + A(4, 5)A. 18 B. 38 C. 20D. 出错31. 运行以下程序，单击命令按钮后在窗体上输出内容_B_。Private Sub Command1_Click() Dim a() As Integer Dim i As Integer, j As Integer ReDim a(3, 4) For i = 1 To 3 For j = 1 To 4 a(i, j) = (i - 1) * 10 + j Next j Next i ReDim a(4, 5) Print a(2, 3)End SubA. 35 B. 0C. 5 D. 45 33. 调用由语句Private Su

13、b Convert(Y As Integer)定义的Sub过程时，以下不是按值传递的是_D_。A. Call Convert（X*1）B. Call Convert（X）C. Convert（X）D. Convert X34. 以下有关对象属性的说法中正确的是_D_。A. 对象所有的属性都罗列在属性窗口列表中B. 不同对象的同名属性取值一定相同C. 不同对象不可能有同名属性D. 对象的某些属性既可以在属性窗口中设置，也可以通过程序代码设置或改变35. 以下叙述中错误的是_C_。A. 若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体B. 窗体的Show方法的作用是将指定的窗体装入内存并

14、显示该窗体C. 窗体的Hide方法和Unload方法的作用完全相同D. 一个工程中只能有一个Sub Main过程36. 以下关于文件的叙述中，错误的是_A_。A. 随机文件中记录的长度是随机的B. 顺序文件中的记录一个接一个地顺序存放C. 执行打开文件的命令后，自动生成一个文件指针D. LOF函数返回给文件分配的字节数37.有如下程序： Private Sub Command1_Click() x = InputBox(input value) Select Case x Case Is 0 y = x + 1 Case Is = 0 y = x + 2 Case Else y = x + 3

15、 End Select Print x; y End Sub假设运行时从键盘上输入-5，输出结果是_B_。A. -5 -4 B. -5 -2 C. -5 -3 D. -5 -538. 假定在窗体上建立了通用对话框，其名称为CommonDialog1 ，用下面的语句可以建立一个对话框:CommonDialog1.Action = 2与该语句等价的语句是_B_。A. CommonDialog1.showcolor B. CommonDialog1.showsaveC. CommonDialog1.showopenD. CommonDialog1.showfont39. 函数Int(Rnd*6+1)

16、的取值范围是_C_。A. 从0到6共7个整数B. 从0到7共8个整数C. 从1到6共6个整数D. 从1到7共7个整数 40. 一个工程中含有窗体Form1.Form2和标准模块Model1，如果在Form1中有语句 Public X As Integer 在Model1中有语句 Public Y As Integer 则以下叙述中正确的是 _B_。A. 变量X.Y的作用域相同B. 在From1中可以直接使用XC. Y的作用域是Model1D. 在Form2中可以直接使用X和Y41. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1

17、_Click（） Move 500，500 End Sub程序运行后，单击命令按钮，执行的操作为_B_。A. 命令按钮移动到距窗体左边界、上边界各500的位置B. 窗体移动到距屏幕左边界、上边界各500的位置C. 窗体向左、上方向各移动500D. 命令按钮向左、上方向各移动5001 表达式2+3*45-Sin（X+1）/2中最先进行的运算是_D_。A 45 B 3*4C Sin( )D X+1 2表达式X=Exp(3)Sqr( a 2 + b * 2 )的类型是_A_。A关系表达式 B逻辑表达式C算术表达式 D字符表达式3下列表达式不正确的是_D_。A m + n = 5B m + n And

18、 m + p 5D #12/10/2006#*#10/10/2006#4在菜单过程中使用的事件是利用鼠标_C_菜单条来实现的。A双击B拖动C单击 D移动6要想在一个文本框中显示多行内容,应在界面设计时对下列_A_属性进行设置。A MultiLine B FontC TextD Alignment7以下关于动态数组的语句中，正确的是_C_。A Dim a() As Integer：ReDim a(5) As Single B Dim a() As Integer：ReDim a(5) ：ReDim a(3,4)：a(4)=a(3)+1C ReDim a(k+1)：ReDim preserve a

19、(10)D ReDim a(3,4)：ReDim Preserve a(4,7)8执行下列程序段，输出结果为 _B_。Dim a(10) As IntegerDim i As IntegerFor i = 1 To 10 a(i) = 2 * i - 1Next iPrint a(4);Erase aPrint a(4)A出错B 7 0 C 4 4 D 7 7 10执行下面的程序，输出结果是_D_。 Option Explicit Private Sub Form_Click() Dim M As Integer,N As Integer M=1:N=2 Print M+N+F(M,N) M=

20、2:N=1 Print F(M,N)+F(M,N); End Sub Private Function F(X As Integer,Y As Integer) X=X+Y Y=X+3 F=X+Y End FunctionA 7 18B 9 18C 4 9D 18 3011若在应用程序中用Private Sub Sub1(X As Integer, Y As Single)定义了子程序Sub1，以下调用子程序Sub1的Call语句中_C_是错误的。A Sub1 x,yB Sub1 a,bC Call Sub1(5)D Call Sub1(a,B)12下列说法正确的是_A_。A模块级变量可在模块

21、通用声明段中用Private和Dim定义B全局变量必须在过程中用Public语句声明C模块级变量除可用Dim声明外，还可用Static声明，含义相同D标准模块中声明的变量一定是全局的13为了清除窗体上的一个控件，下列正确的操作是_C_。A选择（单击）要清除的控件，然后按回车键B按Esc键C选择（单击）要清除的控件，然后按Del键D按回车键15为了建立一个随机文件，其中每一条记录由多个不同数据类型的数据项组成，应使用_D_。A. 变体类型B. 数组C. 字符串类型D. 记录类型16以下关于文件的叙述中，错误的是_B_。A. 执行打开文件的命令后，自动生成一个文件指针B. 随机文件中记录的长度是随

22、机的C. 顺序文件中的记录一个接一个地顺序存放D. LOF函数返回给文件分配的字节数17下面关于顺序文件的描述正确的是_ B _。A. 每条记录的长度必须相同B. 数据只能以ASCII码形式存放在文件中，所以可通过文本编辑软件显示C. 可通过编程对文件中的某条记录方便地修改D. 文件的组织结构复杂18 执行以下语句后，k的值为_ D _。 Dim i As Single For i = 0.45 To 2 Step 0.5 k = k + 1 Next i Print i;kA. 2 4B. 1.95 4C. 2.45 5D. 2.45 419执行以下语句后，a 的值为_ B _。 Dim a

23、 As Integer a = 1 Do a = a + 2 Loop Until a = 100A. 99B. 溢出 C. 100 D. 10120下面程序段的运行结果为_ D _。n = 1For i = 1 To 4 For j = 1 To i n = n * j Next jPrint n;Next iA. 1 2 6 24B. 1 2 12 24C. 1 2 6 12D. 1 2 12 28821在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：Private Sub Command1_Click(

24、) A = Inputbox(Enter An Integer) B = Inputbox(Enter An Integer) Text1.Text = B + AEnd Sub程序运行后，单击命令按钮，如果在输入对话框中分别输入4和56，则文本框中显示的内容是_ C _。A. 60 B. 456 C. 564 D. 出错22 执行语句：A = Inputbox(Today, Tomorrow, Yesterday)将显示一个输入对话框，在对话框的输入区中显示的信息是_ C _。A. 0B. Tomorrow C. YesterdayD. Today23运行下面程序，如果输入85，则输出结果是

25、_ A _。 Dim a As Integer, i As Integer a = InputBox(input a:) If a 60 Then i = 1 If a 70 Then i = 2 If a 80 Then i = 3 If a 90 Then i = 4 Print i=; iA. i = 3 B. i = 2 C. i=1D. i = 424 下列程序段的执行结果是_ A _。X = 2 Y = 1If X * Y 0A. False B. TrueC. -1D. 125有如下程序： Private Sub Command1_Click() x = InputBox(inp

26、ut value) Select Case x Case Is 0 y = x + 1 Case Is = 0 y = x + 2 Case Else y = x + 3 End Select Print x; y End Sub假设运行时从键盘上输入-5，输出结果是_ D _。A. -5 -5B. -5 -4 C. -5 -3 D. -5 -2 26在窗体上有一个文本框控件，名称为Txttime，一个计时器控件，名称为Timerl，要求每一秒钟在文本框中显示一次当前的时间。程序为：Private Sub Timer1_ _（） Txttime.Text=TimeEnd Sub在下划线上应填入

27、的内容是 _ D _。A. Interval B. Visible C. EnabledD. TimerD28以下叙述中错误的是_？_。A. 移动鼠标时，会触发Mousemove事件B. 双击鼠标可以触发Dblclick事件C. 控件的名称可以由编程人员设定D. 窗体或控件的事件的名称可以由编程人员确定29使用_ A _方法可将新的列表项添加到一个列表框中。A. AddItem B. RemoveItemC. Print D. Clear 30在用通用对话框控件建立打开或保存文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件（即.txt文件），则正确的描述格式是_ B _。A. t

28、ext(.txt)|(*.txt)B. 文本文件(.txt)|*.txtC. text (.txt)|(*.txt)D. text(.txt)(*.txt)31下面表达式中，_ B _的运算结果与其他三个不同。A. - Abs(-3.5) B. Exp（-3.5）C. Sgn(-3.5)-2.5D. Int（-3.5）+0.5 32表达式XX+1是_ D _。A. 非法表达式B. 算术表达式 C. 字符串表达式 D. 关系表达式33窗体的Name属性为Frm1，在窗体模块通用声明处和过程Sub1中分别用Public K As Integer,Dim K As Integer声明了两个同名变量K

29、，则在过程Sub1中要访问全局变量K，可采用_ C _。A. KB. Form1.KC. Frm1.kD. Form.K34执行以下语句后，a的值为_ A _。 Dim a As Integer a = 1 Do a = a + 2 Loop While a = 100A. 3 B. 溢出 C. 101D. 1 35以下叙述中错误的是_A _。A. 在同一窗体的菜单项中，不允许出现标题相同的菜单项B. 弹出式菜单也在菜单编辑器中定义C. 程序运行过程中，可以重新设置菜单的Visible属性D. 在菜单的标题栏中，&所引导的字母指明了访问该菜单项的访问键36设菜单中有一个菜单项为Open。若要为

30、该菜单命令设计访问键，即按下Alt及字母O时，能够执行Open命令，则在菜单编辑器中设置Open命令的方式是_ A _。A. 把Caption属性设置为&OpenB. 把Name属性设置为O&PenC. 把Name属性设置为&OpenD. 把Caption属性设置为O&Pen1.设A=12345678，则表达式Val(Left(A,4)+Mid(A,4,2)的值为_D_。A.6B.8C.123456D.1234452.表达式Int(-17.8)+Sgn(17.8)的值是_B_。A.-18B.-17C.18D.-164.在窗体上有一个文本框控件，名称为Txttime，一个计时器控件，名称为Tim

31、erl，要求每一秒钟在文本框中显示一次当前的时间。程序为：Private Sub Timer1_ _（） Txttime.Text=TimeEnd Sub在下划线上应填入的内容是 _D_。A.Enabled B.Interval C.Visible D.Timer5.以下叙述中正确的是_A_。A.窗体的Name属性指定窗体的名称，用来标识一个窗体B.对象的Name属性值可以为空C.可以在运行期间改变对象的Name属性的值D.窗体的Name属性的值是显示在窗体标题栏中的文本6.在以下有关对象属性的叙述中错误的是_B_。A.所有对象都具有Name 属性 B.Enabled属性值设为False的控件

32、对象在窗体上将不可见C.对象的某些属性只能在设计时设定，不能使用代码改变 D.只能在执行时设置或改变的属性为执行时属性 7.设有如下程序：Option Base 1Private Sub Form_Click() Dim A Dim i As Integer A=Array(1,2,3,4,5,6,7,8,9) For i=1 To 4 Print A(4+i); Next iEnd Sub程序运行后，单击窗体，则在窗体上显示的是_C_。A.2 3 4 5 B.1 2 3 4 C.5 6 7 8D.6 7 8 9 8.下列程序段的执行结果为_C_。Dim M(10), N(10)i = 3Fo

33、r j = 1 To 5 M(j) = j N(i) = 2 * i + jNext jPrint N(i); M(i)A.3 11 B.15 3C.11 3 D.3 159.运行以下程序，单击命令按钮后，如果用户从键盘上输入6、5、4、3、2、1，则窗体上输出内容为_C_。Private Sub Command1_Click() Dim a() As Integer Dim i As Integer, j As Integer ReDim a(6) For i = 5 To 10 a(10 - i + 1) = InputBox(input number) Next i ReDim Pres

34、erve a(10) a(10) = a(5) + a(4) Print a(10)End SubA.出错B.0C.9D.110.执行下面的程序，输出结果是_D_。 Option Explicit Private Sub Form_Click() Dim M As Integer,N As Integer M=1:N=2 Print M+N+F(M,N) M=2:N=1 Print F(M,N)+F(M,N); End Sub Private Function F(X As Integer,Y As Integer) X=X+Y Y=X+3 F=X+Y End FunctionA.7 18B.

35、9 18C.4 9D.18 3011.设有如下程序 Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer Dim n As Integer n = InputBox(输入数据) If n 523. 在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：Private Sub Command1_Click() Dim A As Integer A = Inputbox(Enter An Integer) B = Inputbox(Enter A

36、n Integer) Text1.Text = B + AEnd Sub程序运行后，单击命令按钮，如果在输入对话框中分别输入4和56，则文本框中显示的内容是_B_。A. 564B. 60C. 456D. 出错24. 在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：Private Sub Command1_Click() A = Inputbox(Enter An Integer) B = Inputbox(Enter An Integer) Text1.Text = B + AEnd Sub程序运行后，单击命令按钮，如果在输入对话框中分别输入4和56，则文本框中显示的内容是_A_。A. 564 B. 60C. 456