试题 百分网手机站

9月计算机二级考试VB考试题

时间:2020-09-14 20:51:25 试题 我要投稿

2017年9月计算机二级考试VB考试题

  VB是计算机二级考试的科玛之一,你知道计算机二级考试VB科目都考哪些知识吗?为了方便考生备考计算机二级考试VB 科目。下面是小编为大家带来的计算机二级考试VB考试题,欢迎阅读。

2017年9月计算机二级考试VB考试题

  考试题一:

  1. 在窗体上画一个命令按钮,然后编写如下代码:

  Option Base 1

  Private Sub Command1_Click( )

  Dim a ( )

  a = Array ( 30 , 40 , 70 , 10 , 50 , 80 , 20 , 90 , 60 )

  s = 0

  k = 1

  While k – 10

  s = s + a ( k )

  k = k + 1

  Wend

  Aver = s / ( k – 1 )

  m = 0

  For i = 1 To k – 1

  If a ( i ) > Aver Then m = m +1

  Next i

  Print m

  End Sub

  程序运行后,单击命令按钮,输出结果为( 【84】 )

  (A)4     (B)5     (C)6     (D)7

  2. 有以下函数:

  Function Fun(ByVal a As Integer) As Integer

  Dim b As Integer

  Static c As Integer

  b=2 : c = 1

  b = b +2

  c = c + 2

  Fun = a + b + c

  End Function

  在窗体上画一个命令按钮,然后编写如下代码:

  Privat Sub Command1_Click ( )

  For i = 1 To 4

  Print Fun ( i ) ,

  Next i

  End Sub

  运行程序后,单击命令按钮,输出结果为( 【85】 )

  (A)8 8 8 8     (B)8 13 18 23

  (C)8 9 10 11 (D)8 11 14 17

  3. 下列不能打开属性窗口的操作是(   )

  (A)执行“视图”菜单中的【属性窗口】命令    (B)按

  (C)单击工具栏上的【属性窗口】按钮       (D)按

  4. 在使用Visual Basic的工具箱时,如果工具箱没有出现在窗口中,应在(   )菜单中操作使它可见。

  (A)视图    (B)窗口     (C)文件     (D)编辑

  5. Visual Basic的.特点不包括下面的(   )

  (A)不需编程            (B)面向对象的程序设计

  (C)可视化程序设计         (D)事件驱动的程序设计

  6. 在Visual Basic集成环境的主窗口中,不包括的项目是(   )

  (A)标题栏    (B)菜单栏    (C)状态栏    (D)工具栏

  7. 在Visual Basic环境中,窗体等大小的默认计量单位是(   )

  (A)英寸     (B)厘米     (C)像素     (D)twip

  8. 与传统的程序设计语言相比,Visual Basic最突出的特点是(   )

  (A)结构化程序设计          (B)程序开发环境

  (C)事件驱动编程机制         (D)程序调试技术

  9. Visual Basic窗体设计器的主要功能是(   )

  (A)建立用户界面           (B)编写源程序代码

  (C)画图               (C)显示文字

  10. 为了在按下键时执行某个命令按钮的事件过程,需要把该命令按钮的一个属性设置为True,这个属性是(   )

  (A)Value    (B)Default    (C)Cancel    (D)Enabled

  考试题二:

  1. 有如下一个函数过程:

  Function Func (ByVal Num As Long )

  Dim k As Long

  k=1

  Num = Abs (Num)

  Do While ( Num)

  k = k * (Num Mod 10)

  Num = Num 10

  Loop

  Func = k

  End Function

  以下是一个调用该函数的事件过程,在运行该过程后,在输入对话框中输入“2345”,则该过程的运行结果是( 【78】 )

  Private Sub Command1_Click( )

  Dim n As Long , r As Long

  n = InputBox ( “请输入数据:” )

  n = CLng ( n )       ‘CLng函数的返回值是一个长整型数值

  r = Func ( n )

  Print r

  End Sub

  (A)0     (B)24     (C)60     (D)120

  2. 在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框,然后编写如下事件过程:

  Private Sub Command1_Click()

  n = Val(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中显示的内容是

  (A)10 (B)20 (C)30 (D)40

  3. 在窗体上画一个名称为Text1的文本框,一个名称为Command1的命令按钮,然后编写如下事件过程和通用过程:

  Private Sub Command1_Click()

  N=Val(Text1.Text)

  If n 2 = n / 2 Then

  f=f1(N)

  Else

  F=f2(N)

  End If

  Print f; n

  End Sub

  Public Function f1(ByRef x)

  x = x * x

  f1=x + x

  End Function

  Public Function f2(ByVal x)

  x = x * x

  f1=x + x + x

  End Function

  程序运行后,在文本框中输入6,然后单击命令按钮,窗体上显示的是( 【79】 )

  (A)72 6   (B)108 6   (C)72 36   (D)108 36

  4. 设在工程中有一个标准模块,其中定义了如下记录类型

  Type Books

  Name As String * 10

  TelNum As String * 20

  End Type

  在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Command1_Click( )时,在顺序文件Ks74 . Txt中写入一条记录。下列能够完成该操作的事件过程是( 【79】 )

  (A)Private Sub Command1_Click( )

  Dim b As Books

  Open “D:Vb2003KsKs74.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 “D:Vb2003KsKs74.Txt” For InPut As #1

  b.Name = InputBox ( “输入姓名”)

  b.TelNum = Inputbox ( “输入电话号码”)

  Print #1 , b.Name , b.TelNum

  Close #1

  End Sub

  (C)Private Sub Command1_Click( )

  Dim b As Books

  Open “D:Vb2003KsKs74.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 “D:Vb2003KsKs74.Txt” For InPut As #1

  b.Name = InputBox ( “输入姓名”)

  b.TelNum = Inputbox ( “输入电话号码”)

  Print #1 , Name , TelNum

  Close #1

  End Sub

  5. 在窗体上画一个名称为Text1的文本框,并编写如下程序:

  Private Sub Form_Load()

  Show

  Text1.Text = ""

  Text1.SetFocus

  End Sub

  Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

  Print "程序设计"

  End Sub

  Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

  Print "Visual Basic";

  End Sub

  程序运行后,如果按"A"键,然后单击窗体,则在窗体上显示的内容是

  (A)Visual Basic         (B)程序设计

  (C)A程序设计         (D)Visual Basic程序设计

  6. 下列程序运行后,运行结果不是144的程序是( 【80】 )

  (A)Dim z As Integer            (B)Dim x As Integer

  Private Sub Form_Click( ) Private Sub Form_Click( )

  x=12 x=12

  Call Fun ( x ) Call Fun ( x , z)

  Print z Print z

  End Sub End Sub

  Sub Fun ( y ) Sub Fun ( y , z )

  z = y * y z = y * y

  End Sub End Sub

  (C)Private Sub Form_Click( ) (D)Private Sub Form_Click( )

  x=12 x=12

  Call Fun ( x ) Call Fun ( x , z )

  Print z Print z

  End Sub End Sub

  Sub Fun ( Byref y ) Sub Fun ( Byref y , z )

  z = 12 * 12 z = y * y

  End Sub End Sub

  7. 设有如下程序:

  Private Sub Command1_Click()

  Dim sum As Double, x As Double

  sum = 0

  n = 0

  For i = 1 To 5

  x = n / i

  n = n + 1

  sum = sum + x

  Next

  End Sub

  该程序通过For循环计算一个表达式的值,这个表达式是

  (A)1+1/2+ 2/3+3/4+4/5       (B)1+1/2+2/3+3/4

  (C)1/2+2/3+3/4+4/5        (D)1+1/2+1/3+1/4+1/5

  8. 程序如下:

  Private Sub Form_Click( )

  Dim a As Integer , b As Integer

  a = 5 : b = 8

  Call Fun (a , b)

  Print a , b

  End Sub

  Private Sub Fun ( x As Integer , y As Integer )

  x = x * y

  y = y * x

  End Sub

  程序运行时,单击窗体后,在窗体上输出的结果为( 【81】 )

  (A)5 8   (B)40 40   (C)40 8   (D)40 320

  9. 在窗体上画一个命令按钮,然后编写如下事件过程:

  Private Sub Command1_Click( )

  x=0

  For i=1 to 3

  x=1

  For j=1 to 4

  x=2

  For k=1 to 5

  x = x + 2

  Next k

  Next j

  Next i

  Print x

  End Sub

  程序运行后,单击命令按钮,输出结果为( 【82】 )

  (A)12    (B)24    (C)36    (D)48

  10. 在窗体上画一个命令按钮,然后编写如下代码:

  Private Type Record

  ID As Integer

  Name As String * 20

  End Type

  Private Sub Command1_Click( )

  Dim MaxSize , NextChar , MyChar

  Open “D:Vb2003KsKs78.Dat ” For Binary As #1

  MaxSize = LOF ( 1 )

  For NextChar = MaxSize To 1 Step -1

  Seek # 1 , NextChar

  MyChar = Input ( 1 , # 1 )

  Next NextChar

  Print EOF ( 1 )

  Close # 1

  End Sub

  程序运行后,单击命令按钮,其输出结果为( 【83】 )

  (A)True    (B)False    (C)Null    (D)0


【2017年9月计算机二级考试VB考试题】相关文章:

2017年9月计算机二级考试VB基础题09-23

2017年9月计算机二级考试VB备考题09-03

2017计算机二级考试VB基础考试题10-01

计算机二级考试VB考试题及答案08-29

计算机二级VB考试题含答案08-29

计算机二级VB考试题及答案08-27

2017年9月计算机二级考试VB基础备考题09-25

2017年9月计算机二级考试VB测试题09-19

2017年9月计算机二级考试VB复习题09-09