试题

计算机二级考试VB基础考试题

时间:2024-06-17 23:28:13 试题 我要投稿
  • 相关推荐

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

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

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

  考试题一:

  1. 下面程序是从键盘上输入一个字符串,把该字符串中的大写字母转换成小写字母,输出到文件Ks61.dat中,然后从该文件中读出字符串并显示出来。请完善下面的程序:

  Private Form_Click( )

  Dim Str1 As String * 50 , Str2 As String , FileNo As Integer

  FileNo = 【63】

  Open “d:Vb2003KsKs61.dat” For 【64】As FileNo

  Str1 = InputBox ( “请输入一个字符串:” )

  Str1 = Lcase ( Str1 )

  Seek #FileNo , 1

  Put #FileNo, , Str1

  【65】#FileNo, 1

  Str2 = Input (【66】, #FileNo )

  Print Str2

  End Sub

  【63】(A)Free     (B)File     (C)FreeFile    (D)FileFree

  【64】(A)Input     (B)Output    (C)Random    (D)Binary

  【65】(A)Loc     (B)Lof    (C)Eof     (D)Seek

  【66】(A)Len ( Str1 )  (B)Len ( Str2 )  (C)StrLen ( Str1 ) (D)StrLen (Str2)

  2. 以下程序的功能是:把当前目录下的顺序文件smtext1.txt的内容读入内存,并在文本框Text1中显示出来。请填空。

  Private Sub Command1_Click()

  Dim inData As String

  Text1.Text = ""

  Open ".smtext1.txt" 【14】 As #1

  Do While 【15】

  Input #1, inData

  Text1.Text = Text1.Text & inData

  Loop

  Close #1

  End Sub

  3. 在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程:

  Private Sub Form_Load( )

  Text1.Text = “ ”

  Text1.SetFocus

  For i = 1 to 10

  Sum = Sum + i

  Next i

  Text1.Text = Sum

  End Sub

  程序运行后,输出结果为( 【67】 )

  (A)在文本框Text1中输出55       (B)在文本框Text1中输出0

  (C)在文本框Text1中输出不定值      (D)出错

  4. 在窗体上画一个文本框和一个列表框,然后编写如下两个事件过程:

  Private Sub Form_Load( )

  List1.AddItem “123 ”

  List1.AddItem “456 ”

  List1.AddItem “369”

  List1.AddItem “789 ”

  Text1.Text = “ ”

  End Sub

  Private Sub List1_DblClick( )

  a = List1.Text

  Print a + Text1.Text

  End Sub

  程序运行后,在文本框中输入“248”,然后双击列表框中的“369”,则输出结果( 【68】 )

  (A)617    (B)248369    (C)369248    (D)0

  5. 在窗体上画两个滚动条,名称分别为Hscroll1 、Hscroll2;六个标签,名称分别为 Label1、Label2、Label3、Label4、Label5、Label6,其中标签Label 4~ Label6分别显示“A”、“B”、“A*B”等文字信息,标签Label1、Label2分别显示其右侧的滚动条的数值,Label3 显示A*B的计算结果。如图所示。当移动滚动框时,在相应的标签中显示滚动条的值。当单击命令按钮"计算"时,对标签Label1、Label2中显示的两个值求积,并将结果显示在Label3中。以下不能实现上述功能的事件过程是

  (A)Private Sub Command1_Click()

  Label3.Caption = Str(Val(Label1.Caption )*Val( Label2.Caption))

  End Sub

  (B)Private Sub Command1_Click()

  Label3.Caption = HScroll1.Value * HScroll2.Value

  End Sub

  (C)Private Sub Command1_Click()

  Label3.Caption = HScroll1 * HScroll2

  End Sub

  (D)Private Sub Command1_Click()

  Label3.Caption = HScroll1. Text * HScroll2.Text

  End Sub

  6. 阅读下面程序:

  Public Sub xy ( a As Integer , b As Integer )

  Dim t As Integer

  Do

  t = a Mod b

  a = b : b = t

  Loop While t

  Print a

  End Sub

  用Call xy (16 , 40 )调用此通用过程后,输出结果为( 【69】 )

  (A)4     (B)8     (C)16     (D)32

  7. 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:

  Private Sub Command1_Click()

  For n = 1 To 20

  If n Mod 3 <> 0 Then m = m + n 3

  Next n

  Print n

  End Sub

  程序运行后,如果单击命令按钮,则窗体上显示的内容是

  (A)15    (B)18    (C)21    (D)24

  8. 以下语句的输出结果是( 【70】 )

  a = “BeiJing”

  b = “ShangHai”

  Print a;b

  以下结果中,“ □ ”表示空格:

  (A)BeiJing□ShangHai      (B)BeiJingShangHai

  (C)BeiJingShangHai□      (D)BeiJing□ShangHai□

  9. 下面程序共执行了( 【71】 )次循环。

  Dim Intsum As Integer , i As Integer , j As Integer

  考试题二:

  1. 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:

  Private Sub Command1_Click()

  Dim num As Integer

  num = 1

  Do Until num > 6

  Print num;

  num = num + 2.4

  Loop

  End Sub

  程序运行后,单击命令按钮,则窗体上显示的内容是

  (A)1 3.4 5.8   (B)1 3 5  (C)1 4 7  (D)无数据输出

  2. 有如下函数:

  Function Facn ( x As Integer ) As Long

  Dim p As Long , i As Integer

  p = 1

  For i = 1 To x

  p = p * i

  Next i

  Facn = p

  End Function

  调用它的事件过程如下:

  Private Sub Command1_Click ( )

  i = Val ( InputBox ( “请输入数据”))

  a = Facn (( i ) ) ‘实参i用圆括号括起,则强制为值传递

  Print a

  End Sub

  若输入数据6,则程序运行结果为( 【73】 )

  (A)60     (B)120     (C)600     (D)720

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

  Private Sub Command1_Click()

  Dim a As Integer, s As Integer

  a = 8

  s = 1

  Do

  s = s + a

  a = a-1

  Loop While a <= 0

  Print s; a

  End Sub

  程序运行后,单击命令按钮,则窗体上显示的内容是

  (A) 7 9 (B) 34 0 (C) 9 7 (D)死循环

  4. 下列程序的执行结果为( 【74】 )

  Dim IntSum As Integer , i As Integer

  IntSum = 0

  For i = 30.2 To 1 Step -5.3

  IntSum = IntSum + i

  Next i

  Print IntSum

  (A)106    (B)105    (C)102    (D)101

  5. 在窗体上画一个命令按钮,然后编写如下事件过程,该过程执行结果为( 【75】 )

  Option Base 1

  Private Sub Command1_Click ( )

  Dim a As Variant , s As Integer

  a = Array ( 2 , 4 , 6 , 8 )

  j = 1

  For i = 1 To 4 Step 1

  s = s + a ( i ) * j

  j = j *10

  Next i

  Print s

  End Sub

  (A)0    (B)1110    (C)2468    (D)8642

  设有如下通用过程:

  Public Function f(x As Integer)

  Dim y As Integer

  x = 20

  y = 2

  f = x * y

  End Function

  6. 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:

  Private Sub Command1_Click()

  Static x As Integer

  x = 10

  y=5

  y = f(x)

  Print x; y

  End Sub

  程序运行后,如果单击命令按钮,则在窗体上显示的内容是

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

  7. 对窗体编写如下代码:

  Option Base 1

  Private Sub Form_KeyPress( KeyAscii As Integer)

  a = Array (123 , 86 , 57 , 248 , 32)

  m1 = a ( 1 )

  m2 = 1

  If KeyAscii = 13 Then

  For i=2 To 5

  If a ( i ) > m1 Then

  m1 = a ( i )

  m2 = i

  End If

  Next i

  End If

  Print m1 , m2

  End Sub

  程序运行后,按回车键,输出结果为( 【76】 )

  (A)32 5   (B)248 4   (C)32 1   (D)248 5

  设有如下通用过程:

  Public Sub Fun(a(), ByVal x As Integer)

  For i = 1 To 5

  x = x + a(i)

  Next

  End Sub

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

  Private Sub Command1_Click()

  Dim arr(5) As Variant

  For i = 1 To 5

  arr(i) = i

  Next

  n = 10

  Call Fun(arr(), n)

  Text1.Text = n

  End Sub

  程序运行后,单击命令按钮,则在文本框中显示的内容是

  (A)10     (B)15      (C)25      (D)24

  9. 阅读程序:

  Function Func ( a As Integer )

  b = 1

  Static c As Integer

  b = b +1

  c = c +1

  Func = a + b + c

  End Function

  Private Sub Command1_Click( )

  Dim a As Integer

  a = 3

  For i =1 to 3

  Print Func( a )

  Next i

  End Sub

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

  (A)6      (B)6     (C)6 (D)6

  7 6 8 13

  8 6 10 21

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

  Option Base 1

  Private Sub Command1_Click()

  d = 0

  c = 10

  x = Array(10, 12, 21, 32, 24)

  For i = 1 To 5

  If x(i) > c Then

  d = d + x(i)

  c = x(i)

  Else

  d = d-c

  End If

  Next i

  Print d

  End Sub

  程序运行后,如果单击命令按钮,则在窗体上输出的内容为

  (A)89     (B)99     (C)23     (D)77


【计算机二级考试VB基础考试题】相关文章:

计算机二级考试《VB》基础习题及答案07-22

2016年计算机二级《VB》考试题及答案03-13

二级计算机VB语言程序设计考试题及答案11-26

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

2015年计算机二级《VB》考试基础知识:窗口12-07

2015年计算机二级《VB》考试基础知识:对象与窗体12-07

2016计算机二级《VB》考试的重点内容03-30

计算机二级考试《VB》操作试题及答案07-25

计算机二级VB考试重点知识11-30