VB试题库.docx

1、VB试题库1、求一个三位正数N的十位数的正确方法是_C_。A、lnt（N/10)-lnt(N /100)B、N-lnt(N-1000)*100 C、n 10 Mod 10D、lnt(N/10)-lnt(N/10)*10 2、表达式(-1)*Sgn(-100+Int(Rnd*100)的值是_A_。A、1B、0C、-1D、随机3、在程序中分别将变量IntA、Bl、st和D定义为整型、布尔型、字符串型和日期型，下列赋值语句在执行时会出错的是_A_。A、Bl=#True# B、st= C、D=#10/05/01#D、Inta=4.64、图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个

2、属性是_B_。A、AppearanceB、StretchC、AutoredrawD、Autosize5、使用_C_方法可将新的列表项添加到一个列表框中。A、Clear B、AddItem C、Print D、RemoveItem6、下列 _B_ 不是列表框的方法。A、Clear B、AddItem C、Print D、RemoveItem7、执行下列程序段，输出结果为 _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

3、0C、4 4D、7 7 9、执行下列程序段，输出结果为 _B_。Dim a() As IntegerDim i As IntegerReDim a(10)For i = 1 To 10 a(i) = 2 * i - 1Next iPrint a(4);Erase aPrint a(4)A、7 0B、出错C、7 7D、4 410、执行下面的程序，输出结果是_A_。 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)+

4、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、18 30B、9 18C、7 18D、4 911、窗体的Name属性为Frm1，在窗体模块通用声明处和过程Sub1中分别用Public K As Integer,Dim K As Integer声明了两个同名变量K，则在过程Sub1中要访问全局变量K，可采用_C_。A、Form1.KB、Form.KC、Frm1.kD、K12、一个工程中含有窗体Form1.Form2和标准模块Model1，如果在Form1中有

5、语句 Public X As Integer 在Model1中有语句 Public Y As Integer 则以下叙述中正确的是BA、变量X.Y的作用域相同 B、在From1中可以直接使用XC、Y的作用域是Model1D、在Form2中可以直接使用X和Y13、VB是一种面向_C_的程序设计语言。A、过程 B、用户 C、对象D、方法 14、以下叙述中错误的是_D_。A、事件可以由用户引发，也可以由系统引发B、打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件C、保存Visual Basic程序时，应分别保存窗体文件及工程文件D、Visual Basic应用程序只能以解释方式执行

6、15、VB是用于开发_A_环境下的应用程序的工具。A、WindowsB、DOS C、DOS和Windows D、UNIX16、为了建立一个随机文件，其中每一条记录由多个不同数据类型的数据项组成，应使用_C_。A、字符串类型B、数组C、记录类型D、变体类型17、下面关于随机文件的描述不正确的是_A_。A、一个文件中记录号不必唯一B、每条记录的长度必须相同C、可通过编程对文件中的某条记录方便地修改D、文件的组织结构比顺序文件复杂18、以下关于文件的叙述中，错误的是_B_。A、顺序文件中的记录一个接一个地顺序存放B、随机文件中记录的长度是随机的C、LOF函数返回给文件分配的字节数D、执行打开文件的命

7、令后，自动生成一个文件指针20、执行以下语句后，a的值为_C_。 Dim a As Integer a = 1 Do a = a + 2 Loop Until a = 100A、101B、100C、溢出D、9922、在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：Private Sub Command1_Click() A = Inputbox(Enter An Integer) B = Inputbox(Enter An Integer) Text1.Text = B + A End Sub程序运行后，单击

8、命令按钮，如果在输入对话框中分别输入4和56，则文本框中显示的内容是_C_。A、出错B、60C、564D、45623、执行语句：A = Inputbox(Today, Tomorrow, Yesterday)将显示一个输入对话框，在对话框的输入区中显示的信息是_C_。A、Tomorrow B、Today C、Yesterday 26、下列程序段的执行结果是_A_。X = 2 Y = 1If X * Y 0A、False B、TrueC、-1D、127、在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程： Private Sub C

9、ommand1_Click() N = Text1.Text Select Case N Case 1 To 20 X = 10 Case 2, 4, 6 X = 20 Case Is 10 X = 30 Case 10 X = 40 End Select Text2.Text = X End Sub程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是D_。A、20B、30C、40D、1028、设在菜单编辑器中定义了一个菜单项，名为Menu1。为了在运行时隐藏该菜单项，应使用的语句是 _A_。A、Menu1.Visible=FalseB、Munu1.En

10、abled=FalseC、Menu1.Visible=TrueD、Menu1.Enabled=True 29、以下使用方法的代码中，正确的是_D_。A、Form1.ClearB、Combo1.ClsC、Label1.SetFocus D、Text1.SetFocus30、设有一个命令按钮，若要实现按回车键等同按此键，应设置其_D_ 。A、Default属性设为FalseB、Cancel属性设为True C、Cancel属性设为FalseD、Default属性设为True 32、在用通用对话框控件建立打开或保存文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件（即.txt文件），则正

11、确的描述格式是_A_。A、文本文件(.txt)|*.txtB、text (.txt)|(*.txt)C、text(.txt)|(*.txt)D、text(.txt)(*.txt)33、在以下4个逻辑表达式中，其逻辑值为真的是_B_。A、not (3+42)C、12 or 23 D、21and 3 10 Print i, sA、11 1 B、11 10C、溢出 D、10 1 38、以下关于窗体的描述中，错误的是_B_。A、窗体的Height、Width属性用于设置窗体的高和宽B、执行Unload Form1语句后，窗体Form1消失，但仍在内存中C、窗体的Load 事件在加载窗体时发生D、当窗体

12、的Enabled 属性为False时，通过鼠标和键盘对窗体的操作都被禁止39、以下叙述中错误的是_B_。A、下拉式菜单和弹出式菜单都用菜单编辑器建立B、如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见C、除分隔线外，所有菜单项都能接收Click事件D、在多窗体程序中，每个窗体都可以建立自己的菜单系统40、在程序中可以通过复选框和单选按钮的_A_属性值来判断它们的当前状态它。A、Value B、Caption C、Checked D、Selected42、运行如下程序后，输出结果为_。 Dim i As Integer, y As Integer For i = 3 To 15 Step 3 y = y + i i = i + 3 Next i Print i; y答案：21 2743、如果依次输入75,55,45,70,30,25,40,15,20,5,下列程序段的执行结果为_。 Dim c As Integer, k As Integer, d As Integer c = 70 For k = 11 To 20 x = InputBox(输入X的数值:) If x c Then d = d + x: c = x Else d = d + c End If Next k Print d