vb模拟2.docx

vb模拟2.docx

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

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

郑州大学

考试课程:

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

90分钟 考场:

第一考场 考试日期:

2017.04.20

剩余时间：

89:

55

保存交卷退出帮助

窗体顶端

本卷共有2道大题:

窗体底端

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

1、要求在程序运行时，一旦点击文本框使之获取焦点，就自动选中文本框内的所有文本，则需要编写事件过程______。

（1分）

A、Text1_Change（）

B、Text1_GotFocus（）

C、Text1_KeyPress（KeyAscii As Integer）

D、Text1_SetFocus（）

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

（1分）

A、1个“$”

B、4个“$”

C、不显示内容

D、“*”

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

（1分）

A、结构化的程序设计

B、数据处理

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

D、中文支持

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

（1分）

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

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

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

D、以上全部内容

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

（1分）

A、Text

B、Name

C、Caption

D、BackStyle

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

（1分）

A、10^2

B、100

C、100.0

D、10E+01

7、若要使标签控件显示时，不覆盖其背景内容，应设置的属性是______。

（1分）

A、Forecolor

B、BackColor

C、BackStyle

D、BorderStyle

8、已知x=2, y=9, z=－4，逻辑表达式x>y OR z>x AND NOT z>y的值是______。

（1分）

A、True

B、-1

C、0

D、False

9、设a=3，b=5，则以下表达式值为假的是______。

（1分）

A、a>=b And b> l0

B、（a>b） Or （b>2）

C、（a<0） or （b>0）

D、（5>a） And （b>2）

10、下面四个语句中，正确的赋值语句是______。

（1分）

A、a = a + c

B、a + c = a

C、c + a = a

D、a － c = a

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

（1分）

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

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

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

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

12、能产生[10，32]之间随机整数的函数表达式为______。

（1分）

A、Int（Rnd*22）+10

B、Int（Rnd*23）+10

C、Int（Rnd*22）+11

D、Int（Rnd*23）+11

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

（1分）

A、在属性窗口中选择

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

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

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

14、以下______是正确的For … Next结构。

（1分）

A、For x=1 To Step 10 … Next x

B、For x=3 To -3 Step -3 … Next x

C、For x=1 To x=10 … Next x

D、For x=3 To 10 Step 3 … Next y

15、语句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

16、一个工程文件中可以有多个窗体，默认状态下，VB运行时指定为启动窗体的是______。

（1分）

A、窗体

B、Form窗体

C、Form1窗体

D、第一个创建的窗体

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

（1分）

A、Load

B、Click

C、DblClick

D、MouseDown

18、表示年龄（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

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

（1分）

A、Enabled

B、Apperance

C、AutoRedraw

D、Moveable

20、设n=10，执行n=IIF（n=3,n,-n）后，n 的值为______。

（1分）

A、10

B、-10

C、3

D、-3

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

（1分）

A、If a ≥ b Then t=a a=b b=t

B、If a ≥ b Then t=a;a=b; b=t

C、If a >= b Then t=a a=b b=t

D、If a >= b Then t=a:

  a=b :

 b=t

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

（1分）

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

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

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

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

23、程序如下：

k = 0:

 Do Until k > 10:

 k = k + 1:

 Loop的循环体执行次数是______。

（1分）

A、9

B、10

C、11

D、无数次

24、如果在图片框Picture1中装入一个图片，为了清除该图片（不删除图片框），应采用的方法是______。

（1分）

A、选择图片框，在属性窗口中选择Picture属性条，然后按回车键

B、选择图片框，然后按Del键

C、执行语句 Picture1.Picture = LoadPicture（""）

D、执行语句 Picture1.Picture = ""

25、下列叙述中，正确的是______。

（1分）

A、工程文件（.vbp）应用程序可以在任何计算机上运行

B、打开一个工程文件，系统自动装入与该工程有关的窗体文件

C、VB工程文件中可以没有窗体文件

D、退出VB系统前要保存新创建的应用程序，只需保存工程文件（.vbp）即可

26、执行程序段：

Const c$ = "Henan":

 c$ = "Zhengzhou":

 c$ = "Daxue":

 Print c$，输出的结果是______。

（1分）

A、Henan

B、Zhengzhou

C、Daxue

D、显示出错信息

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

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

（1分）

A、变量x的值是数值10

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

C、0是默认值

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

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

（1分）

A、.123

B、12.3

C、O

D、.123E2CD

29、执行MsgBox 123 + 123，信息框中可以出现______。

（1分）

A、123 + 123

B、123123

C、246

D、显示出错信息

30、已知下列程序段：

a = 3:

 b = 4:

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

（1分）

A、True

B、False

C、4>3

D、显示出错信息

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

（1分）

A、Const a As Single = 2.6

B、Const a As String = "ab"

C、Const a As Double = Sin

（1）

D、Const a = "OK"

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

（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"

33、Print Format（32556, "#######"）; Format（32556, "###"）的输出结果是______。

（1分）

A、3255632556

B、32556—32556

C、32556-325

D、--32556325

34、下列数据中，______是日期型数据。

（1分）

A、"01/30/2004"

B、Date（"01/30/2004"）

C、#01/30/2004#

D、01/30/2004

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

（1分）

A、True

B、False

C、Null

D、出错信息

36、假设变量iVar是一个整型变量，则执行赋值语句iVar = "2" + "3" 之后，变量 iVar 的值是______。

（1分）

A、2

B、3

C、5

D、23

37、InputBox函数返回值的类型为______。

（1分）

A、数值

B、字符串

C、变体

D、数值或字符串

38、某中心选拔身高T超过1.7米且体重W小于52.5公斤的学员，能正确表示该条件的布尔表达式是______。

（1分）

A、T >= 1.7 And W <= 52.5

B、T <= 1.7 Or W >= 52.5

C、T > 1.7 And W < 52.5

D、T > 1.7 Or W < 625

39、下列选项中，______不是字符串常量。

（1分）

A、"你好"

B、""

C、"True"

D、#False#

40、定义为数值类型的变量未赋值时，数值型变量的值为______。

（1分）

A、O

B、空串""

C、Null

D、没任何值

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

（1分）

A、O

B、1

C、-1

D、2

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

（1分）

A、Not （1 > 2）

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

C、1 > 2 Or 2 > 3

D、2 > 1 And 3 < 2

43、语句T = MsgBox（"程序执行了非法操作", vbAbortRetryIgnore, "提示信息"）的执行后，可以在对话框中显示______个按钮。

（1分）

A、1

B、2

C、3

D、4

44、下列不合法的常量形式是______。

（1分）

A、"1O0"

B、100.0

C、1OE+0.5

D、Const G = 23 + 12

45、程序段 a = 10.5:

 b = Int（a + 0.5）:

 Print b 的功能是______。

（1分）

A、输出平均值

B、将一个实数四舍五入取整并输出

C、输出绝对值

D、舍去一个实数的小数部分并输出

46、表达式Str（Len（"123"）） + Str（77.7） 的值是______。

（1分）

A、377.7

B、3 77.7

C、80.7

D、12377.7

47、下列表达式中，表示"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）

48、语句 x = x + 1的正确含义是______。

（1分）

A、变量x的值与 x + 1的值相等

B、将变量x的值存到 x + 1中去

C、将变量x的值加1后赋给变量x

D、变量x的值为1

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

（1分）

A、O

B、空""

C、Null

D、没任何值

50、下面表达式中，______的运算结果与其他3个不同。

（1分）

A、Log（Exp（-3.5））

B、Int（-3.5） + 0.5

C、-Abs（-3.5）

D、Sin（30 * 3.14 / 180）

二、程序应用题（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、* 求7!

（7!

=1*2*3...*6*7）的值。

Private Sub Command1_Click（）

Dim a As Single

a = 

For i = 1 To 7

    a =  * i

Next i

Print a

End Sub

（4分）

3、* 对10个100以内的整数用选择法按递增顺序排序。

  Private Sub Command1_Click（）

    Dim a（10） As Integer, t As Integer

    Dim i As Integer, j As Integer

    For i = 1 To 10

        a（i） = Int（ * 101）

        Print a（i）;

    Next i:

 Print

    For i = 1 To 9     

        For j = i + 1 To 

            If a（i） > a（j） Then t = a（i）:

 a（i） = a（j）:

 a（j） = t   

        Next j

    Next i

    For i = 1 To 10

        Print a（i）;

    Next i:

 Print

  End Sub

（4分）

4、* 杨辉三角形如图所示{}：

* 完成下面程序。

  Private Sub Form_Click（）

    Dim a（1 To 10, 1 To 10） As Integer, i%, j%

    For i = 1 To 10

     a（i, 1） = 1

     a（i, ） = 1

    Next i

    For i = 3 To 10

      For j =  To i - 1

         a（i, j） = a（i - 1, j - 1） + a（i - 1, j）

      Next j

    Next i

    For i = 1 To 10

      For j = 1 To 

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

      Next j

      Print

    Next i

  End Sub

【附图3】（6分）

5、* 利用判断一个三位数是否为对称数（如：

343）的函数过程，求出所有三位对称数之和。

* 程序代码如下：

             Private Sub Command1_Click（）

                Dim sum As Long,n As Integer

                sum=0

                For n = 100 To 999

                  If duicheng（） then sum=sum+

                Next n

             End Sub 

             Public Function duicheng（ByVal i%） As Boolean

                a = i Mod 10

                c = i \ 100

                If a = c Then

                   duicheng=true

                Else 

                   duicheng=False 

                End If

             End 

（6分）

6、* 编写一个显示随机数的程序，如图{}所示。

* 运行过程：

* 点击训练开始按钮之后，每隔一秒产生一个5位数的随机整数显示到上面的标签中。

Private Sub Command1_Click（）

    Timer1.Enabled = True

    Timer1.Interval = 

End Sub

Private Sub _Load（）

    Label1.ForeColor = vbWhite

    Label1.BackColor = vbGreen

End Sub

Private Sub Timer1_（）

    Label1 = Val（Int（Rnd * 90000 + 10000））

End Sub

【附图1】（6分）

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

求出500以内最大的10个能被13或17整除的自然数之和。

* 请填空：

Option Explicit

Private Sub Command1_Click（）

    Dim s%, i%, n%

    s = 0

     i  500  1 Step 

        If i Mod 13 = 0  i Mod 17 = 0 Then

            n = n + 

            s = s + 

        End If

        If  = 10 Then  For

    Next i

    Print s

End Sub

程序运行的结果是

（10分）

8、* 下载由正整数组成的文件{}，编写程序，统计该文件中素数（质数）的个数。

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

（在大于1的自然数中，除了1和此整数自身外，无法被其他自然数整除的数是素数，1不是素数）

* 请填空：

Option Explicit

Private Sub Command1_Click（）

    Dim x%, t%, m%

    Open "d:

\wj003.txt"  Input As #1

    t = 

    Do While  EOF

（1）

        Input , 

        For  = 2 To x - 1

            If x Mod  =  Then Exit For

        Next m

        If m =  Then t = t + 1

    Loop

    Print t

End Sub

  Print s

End Sub

程序运行的结果是

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

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

（10分）

窗体底端

剩余时间：

89:

55

保存交卷退出帮助

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