vb模拟题1.docx

vb模拟题1.docx

《vb模拟题1.docx》由会员分享，可在线阅读，更多相关《vb模拟题1.docx（22页珍藏版）》请在冰点文库上搜索。

【HNCE网上考试系统v9.6】 本套软件使用权属于：

郑州大学

考试课程:

VB-程序设计-练习 考试时间:

90分钟 考场:

第一考场 考试日期:

2017.04.10

剩余时间：

88:

09

保存交卷退出帮助

窗体顶端

本卷共有2道大题:

窗体底端

一、单项选择题（50道小题，共50分）

1、与传统的程序设计语言相比较，Visual Basic最突出的特点是______。

（1分）

A、结构化的程序设计

B、数据处理

C、面向对象的可视化编程

D、中文支持

2、任何控件都具有的属性是______。

（1分）

A、Picture

B、Caption

C、Name

D、AutoSize

3、保存一个Visual Basic应用程序，正确的是______。

（1分）

A、只保存工程文件（.vbp）

B、只保存窗体文件（.frm）

C、只保存标准模块文件（.bas）

D、分别保存窗体文件和工程文件

4、处于设计状态时，在窗体上双击鼠标，则系统在代码窗口显示的事件过程模板是______。

（1分）

A、Load

B、Click

C、DblClick

D、MouseDown

5、启动Visual Basic后，VB为用户建立的第一个窗体是______。

（1分）

A、Form

B、Form1

C、窗体1

D、窗体

6、程序如下：

i = 0:

 s = 0:

 Do:

 i = i + 2:

 s = i + s:

 Loop Until i > 4，执行后s的值是______（1分）

A、10

B、11

C、12

D、15

7、表示年龄（age）在20岁和30岁之间的表达式是______。

（1分）

A、age>=20 And age<=30

B、age>=20 0r age<=30

C、age<=20 And age>=30

D、age<=20 0r age>=30

8、文本框中的ScrollBars属性已设置为 3-Both，但却没有水平和垂直滚动条的效果，原因可能是______。

（1分）

A、文本框中没有内容

B、文本框的MultiLine属性为False

C、文本框的MaxLength属性为0

D、文本框的Locked属性是True

9、决定窗体标题栏显示内容的属性是______。

（1分）

A、Text

B、Name

C、Caption

D、BackStyle

10、找出两个数中较大的数的程序段，错误的是______。

（1分）

A、IF x >y Then max=x Else max=y

B、max=IIF（x>y , x, y）

C、IF x >y Then max=x  :

  max=y

D、max=x:

 If x< y Then max=y

11、若要选择Text对象的Text1_KeyPress事件，可以______。

（1分）

A、在属性窗口中选择

B、在工程资源管理器窗口中选择

C、在代码设计窗口中利用对象列表框、过程列表框选择 

D、在窗体设计窗口中双击Text1对象

12、在下列语句中，正确的是______。

（1分）

A、Text1.Text+Text2.Text=Text3.Text

B、Command1.Name="cmdok"

C、Label1.Caption=4567

D、x=InputBox（please input）

13、Select Case 语句中的“表达式列表”不能是______。

（1分）

A、变量名的列表，例如 Case x ,y ,z

B、值的列表，例如 Case "a ","b","c"

C、To 表达式，例如 Case  1 to 10

D、Is关系表达式，例如 Case Is <8

14、下列关于窗体的Name属性的叙述，正确的是______。

（1分）

A、它的值在程序运行中可以重新改写

B、它是显示在窗体标题栏中的文本

C、它是指窗体的名称，在程序中用来标识一个窗体对象

D、它的值可以为空

15、在Form_Load（）中，如果想用Print方法将计算结果显示在窗体上，则必须保证窗体的______属性值为True。

（1分）

A、Enabled

B、Apperance

C、AutoRedraw

D、Moveable

16、如果对文本框Text1设置了PasswordChar=“$”，且程序运行时向文本框中输入“abcd”，则文本框中显示的是______。

（1分）

A、1个“$”

B、4个“$”

C、不显示内容

D、“*”

17、Visual Basic的编程机制是______。

（1分）

A、面向过程

B、面向对象

C、事件驱动

D、可视化

18、窗体上有一个文本框和一个命名按钮，当向文本框中输入一个字符时，命令按钮的标题设置为“计算机考试”。

下面正确的事件过程为______。

（1分）

A、Private Sub Command1_Click（）:

 Command1.Caption = "计算机考试":

 End Sub 

B、Private Sub Command1_Click（）:

 Text1 = "计算机考试":

 End Sub

C、Private Sub Text1_Change（）:

 Command1.Caption = "计算机考试":

 End Sub

D、Private Sub Text1_Click（）:

 Text1.Caption = "计算机考试":

 End Sub

19、程序段 Dim x%:

 If x Then y = x Else y = x + 1:

 Print y 运行后，显示的结果是______。

（1分）

A、0

B、1

C、随机数

D、显示出错信息

20、有一个命令：

Text1= "欢迎您！

"，表达方式中省略了对象的______。

（1分）

A、方法

B、属性名

C、对象名

D、标题

21、以下不合法的常量是______。

（1分）

A、10^2

B、100

C、100.0

D、10E+01

22、语句Print "int（-23.4）= "; ; Int（-23.4）的输出结果为（1分）

A、Int（-23.4）=-23.4

B、（-23.4）=23.4

C、Int（-23.4）=-23

D、Int（-23.4）=-24

23、启动Visual Basic后，VB为用户新建立的第一个工程的名字是______。

（1分）

A、窗体1

B、工程

C、窗体

D、工程1

24、Cls方法可以清除窗体或图片框中的______。

（1分）

A、在设计阶段使用Picture设置的背景位图

B、在设计阶段放置的控件

C、在运行阶段产生的图形和文字

D、以上全部内容

25、窗体上有一个标签Label1和一个命名按钮Command1，当程序运行时每单击一次命令按钮，标签就向右（→）移动一定距离。

在Command1_Click（）中能完成这个功能的命令为______。

（1分）

A、Label1.Left = 100

B、Label1.Left = Label1.Left - 100

C、Label1.Move 100

D、Label1.Move Label1.Left + 100

26、执行语句Print Format（32548.5, "###,##0.00"），输出结果是______。

（1分）

A、32548.5

B、32,548.5

C、032,548.50

D、32,548.50

27、Print DateDiff（"m", #1/28/2004#, #1/31/2004#）的输出结果是______。

（1分）

A、O

B、1

C、-1

D、2

28、执行语句：

Print Format（32548.5, "000,000.00"），输出结果是______。

（1分）

A、32548.5

B、32,548.5

C、032,548.50

D、32,548.50

29、下列表达式中，表示"X和Y之中有一个是奇数"的表达式是______。

（1分）

A、X Mod 2 = 1 And Y Mod 2 = 1

B、X Mod 2 = 1 Or Y Mod 2 = 1

C、（X Mod 2 = 1 And Y Mod 2 = 0） And （X Mod 2 = 0 And Y Mod 2 = 1）

D、（X Mod 2 = 1 And Y Mod 2 = 0） Or （X Mod 2 = 0 And Y Mod 2 = 1）

30、表达式"Turbo" + "C" > "True" + "Basic"的值是______。

（1分）

A、True

B、False

C、Null

D、出错信息

31、程序段Print -15;:

 Print -16， 输出的结果是______。

（1分）

A、-15 -16

B、-31

C、-15-16

D、出错

32、以下声明语句中，错误的是______。

（1分）

A、Const varl=123

B、Const var2="ABC"

C、Public const="计算机等级考试"

D、Static var3 as Integer

33、Single（单精度）型数据占______个字节。

（1分）

A、2

B、4

C、8

D、10

34、已知下列程序段：

a = 3:

 b = 4:

 Print b > a ，输出的结果是______。

（1分）

A、True

B、False

C、4>3

D、显示出错信息

35、在下列逻辑表达式中，逻辑值为"真"的是______。

（1分）

A、Not （1 > 2）

B、Not （3 + 4 < 4 + 6）

C、1 > 2 Or 2 > 3

D、2 > 1 And 3 < 2

36、如果将布尔常量值True赋给一个整型变量，则整型变量的值为______。

（1分）

A、O

B、-1

C、True

D、False

37、执行程序段：

Dim axs As Integer:

 axs% = 232:

 axs = 132.32:

 Print axs%; axs，输出的结果是______。

（1分）

A、232  132032

B、132  132

C、132.32  132.32

D、显示出错信息

38、语句Print 4 + 5 \ 6 * 7 / 8 Mod 9的值是______。

（1分）

A、4

B、5

C、6

D、7

39、变体型变量未赋值时，它的值为______。

（1分）

A、O

B、空""

C、Null

D、没任何值

40、执行语句age = InputBox（"请输入数值", "年龄输入框", "38"），如果从键盘上输入数值20并按回车键，则下列叙述中,不正确的叙述是______。

（1分）

A、变量Age的值是数值数据20

B、对话框标题栏中显示的是"年龄输入框"

C、对话框的默认值是38

D、对话框的提示文字为"请输入数值"

41、在VB中，以10为底的x的常用对数表达式是______。

（1分）

A、Log（X）

B、Log10（X）

C、Log（X） / Log（e）

D、Log（X） / Log（10）

42、执行程序段：

m$ = "ABC":

 n$ = "abc":

 k$ = LCase$（m$）:

 j$ = UCase$（n$）:

 Print Asc（k$ + j$），输出的结果是______。

（1分）

A、abcabc

B、ABCABC

C、65

D、97

43、表达式Val（".123E2CD"）的值是______。

（1分）

A、.123

B、12.3

C、O

D、.123E2CD

44、下列符号常量的声明中，______是不合法的。

（1分）

A、Const a As Single = 1.1

B、Const a As Integer = "12"

C、Const a As Double = Sin

（1）

D、Const a = "OK"

45、下列符号中，属于Visual Basic合法变量名的是______。

（1分）

A、x23

B、8xy

C、END

D、X8[B]

46、设有变体变量x，执行语句：

x = InputBox（"输入数值","0","示例"）后，如果从键盘上输入10并按回车键，则下列叙述中正确的是______。

（1分）

A、变量x的值是数值10

B、在InputBox对话框标题栏中显示的是“示例”

C、0是默认值

D、变量x的值是字符串“10”

47、方法Print "等级";"考试"，输出的结果是______。

（1分）

A、等级考试

B、等级;考试

C、"等级考试"

D、"等级";"考试"

48、InStr（"Visual Basic程序设计简明教程中关于可视化界面的设计", "设计"）的函数值为______。

（1分）

A、15

B、17

C、30

D、47

49、下面关系运算中，输出结果为“True”的是______。

（1分）

A、"1" + 2 = "12"

B、"1" + "2" = "3"

C、"1" & 2 = "12"

D、"1" & "2" = "3"

50、设有变量声明：

Dim TestDate As Date，为变量TestDate正确赋值的表达方式是______。

（1分）

A、TestDate = #1/1/2002#

B、TestDate = #"1/1/2002"#

C、TestDate = Date（"1/1/2002"）

D、TestDate = Format（"m/d/yy", "1/l/2002"）

二、程序应用题（8道小题，共50分）

1、* 下面程序用来输出如下图案，请填空。

                                  ABCDE

                                  ABCD

                                  ABC

                                  AB

                                  A

Private Sub Command1_Click（）

  Dim i%, j%

  For i = 5 To 1 Step -1

      For j = 1 To 

          Print Chr（ + 64）;

      Next j

      Print

  Next

End Sub

（4分）

2、* 使用InputBox函数接收一批字符，将其中的数字字符进行累加并输出累加和。

Private Sub Form_Click（）

    Dim s As String, i As Integer

    s = InputBox（"请输入一个带数字的字符串"）

    i = 

    Sum = 

    Do While i <= Len（s）

        If Mid（s, i, 1） >= "0" And Mid（s, i, 1） <= "9" Then

            Sum = Sum + Mid（s, i, 1）

        End If

        i = i + 1

    Loop

    Print Sum

End Sub

（4分）

3、* 删除已知数组 a 中的某个元素。

  Private Sub Command1_Click（）

    Dim a（） As Variant, n As Integer, Key As Integer

    a = Array（1, 6, 8, 3, 5, 9, 10, 2, 7, 4）

    n = UBound（a）

    Key = InputBox（"请输入要删除的数"）

    For i = 0 To n

        If Key = a（i） Then Exit For

    Next i

    If i = n + 1 Then MsgBox （"找不到此数"） Exit Sub

    For j = i + 1 To n   

        a（j - 1） = a（j）   

    Next j

    n =  - 1

    ReDim Preserve a（n）

    For i = 0 To n

        Print a（i）;

    Next i:

 Print

  End Sub

（4分）

4、* 三个学生的四门课（政治、数学、英语、计算机）成绩（均在70分以上）随即生成存放在二维数组R（3，4）中，计算每个学生的平均成绩（存放在数组S中）和最高平均成绩。

  Private Sub Form_Click（）

   Dim R（1 To 3, 1 To 4） As Integer

   Dim S（1 To 3） As Integer

   Dim i%, j%, max%, k%  'k为最高成绩学生序号

   For i = 1 To 3

    （i） = 0

    For j = 1 To 4

      （i, j） = Int（30 * Rnd + 70）

      Print Tab（（j - 1） * 5）; R（i, j）;

      S（i） = S（i） + R（i, j）

    Next j

    S（i） = S（i） / 4

    Print

   Next i

   max = 0

   For i =  To 3

    Print "学生" & i; "平均成绩:

" & S（i）

    If max < S（i） Then

        max = S（i）

        k = i

     End If

   Next i

   Print "最高平均成绩 k="; k, "max="; max

  End Sub

（6分）

5、* 下面程序计算1!

+3!

+5!

+...+9!

的值，请将其补充完整。

* 程序代码如下：

Dim nt As Single

Private Sub aa（ByVal n As Single）

Dim i As Integer

 = 1

For i = 1 To n

   nt = nt * i

Next i

End Sub

Private Sub Form_Click（）

Dim sum As Single, n As Integer

sum = 0

For n = 1 To 9 Step 2

   aa （）

   sum = sum + 

Next n

Print sum

End Sub

（6分）

6、* 编写一个登录的程序，如图{}所示。

* 运行过程：

点击确定按钮时判断密码是否为“Gong”，如果是则使用msgbox显示“欢迎你！

”，如果不是则清空密码输入框，焦点重新定位到密码输入框。

 Private Sub Form_Load（）

   Text2.PasswordChar = "*"

   .Text = ""

   Text1 = ""

 End Sub

 Private Sub Command1_Click（）

   Dim I As Integer

   If Text2.Text = "" Then

     MsgBox "登录成功"

   Else

     .Text = ""

     Text2.SetFocus

   End If

 End Sub

【附图5】（6分）

7、* 下列程序的功能是：

有200元钱需要兑换成零钱，零钱有10元，5元，1元三种面额，输出所有的兑换方法。

* 请填空：

Option Explicit

Private Sub Command1_Click（）

    Dim n%, i%, j%, k%

    n = 0

    For i =  To 

        For j =  To 

            For k =  To 

                If i * 10 + j * 5 +  =  Then

                    n = n + 

                End If

            Next k

        Next j

    Next i

    Print n

End Sub

程序运行的结果是

（10分）

8、* 下载由正整数组成的数据文件{}到自己的机器中，编写程序，统计出该数据文件中，在第51个-第1000个数据之间，末位数字是4的数据的个数。

把结果写入试卷中指定位置。

* 请填空：

Option Explicit

Private Sub Command1_Click（）

    Dim x%, t%, i%, j%

    Open "d:

\wj002.txt" For  As #1

    For i = 1 To 50

        Input , 

    Next i

    For i = 51 To 1000

        Input , 

        If x Mod  =  Then  =  + 1

    Next i

    Print t

End Sub

程序运行的结果是

（【下载文件“wj002.txt”】；）下载方法：

在链接上右击打开弹出菜单，选择“目标另存为”。

（10分）

窗体底端

剩余时间：

88:

09

保存交卷退出帮助

强烈建议您使用IE5.0以上，屏幕分辨率800X600以上，真彩，小字体浏览