计算机国家二级考试笔试模拟试题101300题.docx

1、计算机国家二级考试笔试模拟试题101300题101、在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click() For i = 1 To 4 If i = 1 Then x = i If i = 4 Then x = x + 1 Print x; Next iEnd Sub程序运行后，单击命令按钮，其输出结果为：_。 A： 1 2 3 4 B： 2 3 4 5 C： 23 4 4 D： 3 4 5 6102、在窗体上画一个命令按钮（其名称为Command1），然后编写如下事件过程：Private Sub Command1_C

2、lick() Dim a(5, 5) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 1 To 3 a(i, j) = (i - 1) * 3 + j Print a(i, j); Next j Print Next iEnd Sub程序运行后，单击命令按钮，在窗体上的输出结果是：_。 A：1 4 7 2 5 8 3 6 9 B：1 2 3 4 5 6 7 8 9 C：1 2 3 4 5 6 7 8 9 D：没有输出103、在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1

3、，然后编写如下程序：Private Sub func(L As Label, ByVal a As Integer) L.Caption = 1234 a = a * aEnd SubPrivate Sub Form_Load() Label1.Caption = ABCD Label2.Caption = 10End Sub Private Sub Command1_Click() a = Val(Label2.Caption) Call func(Label1, a) Label2.Caption = aEnd Sub程序运行后，单击命令按钮，在两个标签Label1和Label2中显示的内

4、容分别是：_。 A：ABCD 和 10 B：1234 和 100 C：ABCD 和 100 D：1234 和 10104、假定程序中有以下语句： answer = MsgBox(String1,String2,String3,2)执行该语句后，将显示一个信息框，此时如果单击确定按钮，则answer的值为：_。 A：String1 B：String2 C：String3 D：1105、以下叙述中不正确的是：_。 A：Open语句的功能是打开一个已经存在的文件 B：随机文件每条记录的长度是固定的 C：执行如下命令后，文件指针指向文件的开头： Open C:DataFile.Dat For Outp

5、ut As #1 D：以下循环语句中的条件表示当到达文件结尾时结束循环： Do While Not EOF(1) Loop106、在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text1属性设置为空白，然后编写如下事件过程：Private Sub Command1_Click() Dim a, b a = InputBox(Enter an Integer) b = text1.Text text1.Text = b + aEnd Sub程序运行后，先在文本框中输入456，然后单击命令按钮，在输入对话框中输入123，如果单击确定按钮，则文本框中显示的内

6、容是：_。 A：579 B：123 C：456123 D：456107、设a=5，b=6，c=7，d=8，则执行下列语句后，x的值为：_。x= IIF(ab) And (c 0 Then X = Y - 3 Else Y = X + 3 Print X - Y; Y - X A：-3 3 B： 5 -8 C： 3 -3 D： 25 -25113、下列程序段的执行结果为_。 N = 0 For I = 1 To 3 For J = 5 To 1 Step -1 N = N + 1 Next J, I Print N; J; I A： 12 0 4 B： 15 0 4 C： 12 3 1 D： 1

7、5 3 1114、下列程序段的执行结果为_。 N = 10 For K = N To 1 Step -1 X = Sqr(K) X = X - 2 Next K Print X - 2 A：-3 B：-1 C： 1 D： 1.16227765115、下列程序段的执行结果为_。 A = 0: B = 1 Do A = A + B B = B + 1 Loop While A 10 Print A; B A： 10 5 B： A B C： 0 1 D： 10 30116、下列程序段的执行结果为_。 Dim A(5) For I = 1 To 5 A(I) = I * I Next I Print

8、A(I - 1) A： 5 B： 25 C： 0 D： 16117、设执行以下程序段时依次输入1、3、5，执行结果为_。 Dim a(4) As Integer, b(4) As Integer For K = 0 To 2 a(K + 1) = Val(InputBox(请输入数据) b(3 - K) = a(K + 1) Next K Print b(K) A： 1 B： 3 C： 5 D： 0118、改变驱动器列表框的Drive属性值将激活_事件。 A：Change B：Scroll C：KeyDown D：KeyUp119、以下叙述中正确的是_。 A：窗体的Name属性指定窗体的名称，

9、用来标识一个窗体 B：窗体的Name属性的值是显示在窗体标题栏中的文本 C：可以在运行期间改变对象的Name属性的值 D：对象的Name属性值可以为空120、刚建立一个新的标准EXE工程后，出现在工具箱中的控件是_。 A：CommonDialog B：ListView C：TextBox D：Toolbar121、设有如下变量声明Dim TestDate As Date为变量TestDate正确赋值的表达方式是_。 A：TestDate=#1/1/2002# B：TestDate=#1/1/2002# C：TestDate=date(1/1/2002) D：TestDate=Format(m/

10、d/yy,1/1/2002)122、设有如下声明：Dim X As Integer如果Sgn(X)的值为-1，则X的值是_。 A：整数 B：大于0的整数 C：等于0的整数 D：小于0的整数123、以下能够触发文本框Change事件的操作是_。 A：文本框失去焦点 B：文本框获得焦点 C：设置文本框的焦点 D：改变文本框的内容124、在窗体上画两个单选按钮，名称分别为Optionl、Option2，标题分别为宋体和黑体；一个复选框，名称为Check1，标题为粗体；一个文本框，名称为Text1，Text属性为改变文字字体。要求程序运行时，宋体单选按钮和粗体复选框被选中（窗体外观如下图），则能够实现

11、上述要求的语句序列是_。 A：Option1.Value=True Check1.Value=False B：Option1.Value=True Check1.Value=True C：Option2.Value=False Check1.Value=True D：Option1.Value=True Check1.Value=1125、在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：Private Sub Command1_Click() For I = 1 To 4 For J = 0 To I Print Chr$(65 + I); Next J Print Next

12、 IEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是_。 A：BB CCC DDDD EEEEE B：A BB CCC DDDD C：B CC DDD EEEE D：AA BBB CCCC DDDDD126、图像框有一个属性，可以自动调整图像框的大小，以适应图像的尺寸，这个属性是_。 A：AutoSize B：Stretch C：AutoRedraw D：Appearance127、在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim x As In

13、teger, n As Integer x = 1 n = 0 Do While x 20 x = x * 3 n = n + 1 Loop Text1.Text = Str(x) Text2.Text = Str(n)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别是_。 A：15和1 B：27和3 C：195和3 D：600和4128、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Private Sub Command1_Click() Dim i As Integer,j As Integer Dim a(10,10) As Integer For

14、i=1 To 3 For j=1 To 3 a(i,j)=(i-1)*3+j Print a(i,j); Next j Print Next iEnd Sub程序运行后，单击命令按钮，窗体上显示的是_。 A：1 2 3 2 4 6 3 6 9 B：2 3 4 3 4 5 4 5 6 C：1 4 7 2 5 8 3 6 9 D：1 2 3 4 5 6 7 8 9129、设有如下程序：Option Base 0Private Sub Form_Click() Dim a Dim i As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i = 0

15、To 3 Print a(5 - i); NextEnd Sub程序运行后，单击窗体，则在窗体上显示的是_。 A： 4 3 2 1 B： 5 4 3 2 C： 6 5 4 3 D： 7 6 5 4130、下列叙述中正确的是_。 A：在窗体的Form_Load事件过程中定义的变量是全局变量 B：局部变量的作用域可以超出所定义的过程 C：在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程 D：在调用过程中，所有局部变量被系统初始化为0或空字符串131、在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该

16、对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能的代码是_。 A：Private Sub Command1_Click() x = InputBox(请输入整数) a = F1(Val(x) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2 = 0 Then Return 0 Else Return 1 End If End Function B：Private Sub Command1_Click() x = Inpu

17、tBox(请输入整数) a = F1(Val(x) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2 = 0 Then F1 = 0 Else F1 = 1 End If End Function C：Private Sub Command1_Click() x = InputBox(请输入整数) F1 (Val(x) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2 = 0 Then F1 = 1 Else F1 = 0 End If End Functio

18、n D：Private Sub Command1_Click() x = InputBox(请输入整数) F1 (Val(x) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2 = 0 Then Return 0 Else Return 1 End If End Function132、以下叙述中错误的是_。 A：如果过程被定义为Static类型，则该过程中的局部变量都是Static类型 B：Sub过程中不能嵌套定义Sub过程 C：Sub过程中可以嵌套调用Sub过程 D：事件过程可以像通用过程一样由用户定义过程名133、以下叙

19、述中错误的是_。 A：在同一窗体的菜单项中，不允许出现标题相同的菜单项 B：在菜单的标题栏中，&所引导的字母指明了访问该菜单项的访问键 C：程序运行过程中，可以重新设置菜单的Visible属性 D：弹出式菜单也在菜单编辑器中定义134、设在菜单编辑器中定义了一个菜单项，名为menu1。为了在运行时隐藏该菜单项，应使用的语句是_。 A：menu1.Enabled=True B：menu1.Enabled=False C：menu1.Visible=True D：menu1.Visible=False135、以下叙述中错误的是_。 A：一个工程中可以包含多个窗体文件 B：在一个窗体文件中用Priv

20、ate定义的通用过程能被其他窗体调用 C：在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件 D：全局变量必须在标准模块中定义136、设在工程中有一个标准模块，其中定义了如下记录类型Type Books Name As String * 10 TelNum As String * 20End Type在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是_。 A：Private Sub Command1_Click() Dim B As Books Op

21、en c:Person.txt For Output As #1 B.Name = InputBox(输入姓名) B.TelNum = InputBox(输入电话号码) Write #1, B.Name, B.TelNum Close #1 End Sub B：Private Sub Command1_Click() Dim B As Books Open c:Person.txt For Input As #1 B.Name = InputBox(输入姓名) B.TelNum = InputBox(输入电话号码) Print #1, B.Name, B.TelNum Close #1 End

22、 Sub C：Private Sub Command1_Click() Dim B As Books Open c:Person.txt For Output As #1 B.Name = InputBox(输入姓名) B.TelNum = InputBox(输入电话号码) Write #1, B Close #1 End Sub D：Private Sub Command1_Click() Dim B As Books Open c:Person.txt For Input As #1 Name = InputBox(输入姓名) TelNum = InputBox(输入电话号码) Print

23、 #1, Name, TelNum Close #1 End Sub137、目录列表框的Path属性的作用是_。 A：显示当前驱动器或指定驱动器上的目录结构 B：显示当前驱动器或指定驱动器上的某目录下的文件名 C：显示根目录下的文件名 D：显示该路径下的文件138、在设计应用程序时，通过_窗口可以查看到应用程序工程中的所有组成部分。 A：代码窗口 B：窗体设计窗口 C：属性窗口 D：工程资源管理器窗口139、在Visual Basic中，所有的窗体和控件都必定具有的一个属性是_。 A：Name B：Font C：Caption D：FillColor140、可以同时删除字符前导和尾部空白的函数

24、是_。 A：Ltrim B：Rtrim C：Trim D：Mid141、如果在立即窗口中执行以下操作（ 是回车键）： a=8 b=9 print ab 则输出结果是_。 A：-1 B：0 C：False D：True142、当一个工程含有多个窗体时，其中的启动窗体是_。 A：启动Visual Basic时建立的窗体 B：第一个添加的窗体 C：最后一个添加的窗体 D：在“工程属性”对话框中指定的窗体143、对变量名说法不正确的是_。 A：必须是字母开头，不能是数字或其他字符 B：不能是VB的保留字 C：可以包含字母、数字、下划线和标点符号 D：不能超过255个字符144、在Visual Basi

25、c中，下列运算符中优先级最高的是：_。 A：* B： C： D：Not145、以下关系表达式中，其值为假的是：_。 A：XYZXYz B：VisualBasic=visualbasic C：thethere D：IntegerInt146、在窗体上画一个命令按钮（名称为Command1），编写如下事件过程：Private Sub Command1_Click() b = 5 c = 6 Print a = b + cEnd Sub程序运行后，单击命令按钮，输出的结果是：_。 A：a=11 B：a=b+c C：a= D：False147、以下程序段运行的结果是：_。 Dim a(-1 To 5)

26、 As Boolean Dim flag As Boolean flag = False Dim i As Integer Dim j As Integer Do Until flag = True For i = -1 To 5 j = j + 1 If a(i) = False Then a(i) = True Exit For End If If i = 5 Then flag = True End If Next Loop Print j A：20 B：7 C：35 D：8148、在窗体上画一个文本框，其名称为Text1，为了在程序运行后隐藏该文本框，应当使用的语句为：_。 A：Text1.Clear B：Text1.Visible = False C：Text1.Hide D：Text1.Enabled = False149、在窗体上画一个命令按钮（名称为Command1），然后编写如下事件过程：Private Sub Command1_Click() Dim b As Integer b = b + 1End