东大可视化程序设计（VB）X期末考试复习资料与参考答案

3亿多的题库，支持文图片，语音搜题，包含国家开放大广东开放大云南开放大北京开放大上海开放大江苏开放大超青奥鹏等等多个平台题库，考试作业必备神器。

正确 答案：微信搜索【渝粤搜题】公众号

广东开放大学 2023年春季招生简章

可视化程序设计( )X复习题

选择题

在设计阶段，当双击窗体上的某个控件时，所打开的窗口是( )

A) 工程资源管理器窗口B) 工具箱窗口

C) 代码窗口D) 属性窗口

刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是( )

A) 单选按钮B) 图片框C) 通用对话框 D) 文本框

VB中工程文件的扩展名为( )

rm B）vbp C）bs D)bas

为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为rue，这个属性是( )。

A) ValueB) CancelC) Deaul D) Enled

在窗体(Name属性为orm1)上画两个文本框( )和一个命令按钮( )，然后编写如下两个事件过程：

Priv Sub Command1_Click()

a=ex1.ex+ex2.ex

Prin a

End Sub

Priv Sub ormm_Load()

ex1 ex=""

ex2 ex=""

End sub

程序运行后，在第一个文本框( )和第二个文本框( )中分别输入100和200，然后单击命令按钮，则输出结果为( )。

A) 100200 B) 200100 C) 300 D) 120000

以下能在窗体orm1的标题栏中显示“东北大学"的语句是

A) orm1.Name="东北大学"

B) orm1.ile="东北大学"

C) orm1.pion="东北大学"

D) orm1.ex="东北大学"

在窗体上画一个名称为Command1的命令按钮，在事件过程中执行：

Move 500，500

程序运行后，单击命令按钮，执行的操作为

A) 命令按钮移动到距窗体左边上边界各500的位置

B) 窗体移动到距屏幕左边上边界各500的位置

C) 命令按钮向上方向各移动500

D) 窗体向上方向各移动500

在窗体上有一个名称为ex2的文本框。影响ex2的顺序的属性是

A) SopB)Enled C) Visible D)Index

设a=”Visual Basic”，下面使b="Basic"的语句是

A) b=Le(a,8,12) B) b=Mid(a,8,5)

C) b=Righ(a,5,5) D) b=Le(a,8,5)

以下关于MsgBox的叙述中，错误的是

A) MsgBox函数返回一个整数

B) 通过MsgBox函数可以设置信息框中图标和按钮的类型

C) MsgBox语句没有返回值

D) MsgBox函数的第二个参数是一个整数,该参数只能确定对话框中显示的按钮数

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

Priv Sub Command1_Click()

Dim x As Ineger

Cls

x=2

y=0

or i=1 o 2

y=y+x

x=x+2

Nex

Prin y,x

End Sub

程序运行后，连续三次单击Command1按钮后，窗体上显示的是

A) 4 2 B) 6 6 C) 12 30 D) 4 6

以下合法的Visual Basic标识符是

A) wwendB)consC) 9 D) a#x

当一个复选框被选中时，它的Value属性的值是

3 B) 2 C) 1 D) 0

执行如下两条语句，窗体上显示的是

a=9.8596

Prin orma(a,"$00,00.00")

0,009.86 B) $9.86 C) $0,009.86 D) 9.86

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

Priv Sub Command1_Click()

x=InpuBox("Inpu")

Selec Case x

Case 1,3

Prin "分支 1"

Case Is >4

Prin "分支 2"

Case Else

Prin "Else 分支 "

End Selec

End Sub

程序运行后，如果在输入对话框中输入2，则窗体上显示的是

A) 分支1 B) 分支2 C) Else分支 D) 程序出错

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

Priv Sub Command1_Click()

a$="VisualBasic"

Prin righ(3,a$)

End Sub

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

VisB) sic C) ccc D) $$$

设窗体上有一个文本框，名称为ex1,程序运行后，要求该文本框只能显示信息，不能接受输入的信息，以下能实现该操作的语句是

A) ex1.Enled=lase B) ex1.MaxLengh=0

C) ex1.Visible=lase D) ex1.Widh=0

设有如下程序段：

x=0

or i=1 o 10 Sep 3

x=x+i

Nex

运行以上程序后，x的值是

20 B) 21 C) 22 D) 23

以下叙述中错误的是

A) 在KeyPress事件过程中不能识别键盘的按下与释放

B) 在KeyPress事件过程中不能识别回车键

C) 在KeyDown和KeyUp事件过程中,将输入的"A"和"a"视作相同的字母

D) 在KeyDown和KeyUp事件过程中,从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符

窗体上画一个名称为CommandDialog1的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：

Priv Sub Command1_Click()

CommonDialog1.ileName =""

CommonDialog1.iler="All ile|*.*|(*.oc)|*.ocx|(*.x)|*.x"

CommonDialog1.ilerIndex=2

CommonDialog1.ialogile="VBes"

CommonDialog1.ion=1

End Sub

对于这个程序，以下叙述中错误的是

A) 该对话框被设置为“打开”对话框

B) 在该对话框中指定的默认文件名为空

C) 该对话框的标题为VBes

D) 在该对话框中指定的默认文件类型为文本文件(*.x)

在窗体上画两个名称分别为exexe2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

Priv Sub Command1_Click()

Dim x As Ineger,n As Ineger

x=1

n=0

Do While x<20

x=x*3

n=n+1

Loop

ex1.ex=Sr(x)

ex2.ex=Sr(n)

End Sub

程序运行后，单击命令按钮，在两个文本框中显示的值分别是

A) 27和3B) 15和1C) 195和3D) 600和4

设有如下程序：

Opion Base 0

Priv Sub orm_Click()

Dim a

Dim i As Ineger

a=Array(1,2,3,4,5,6,7,8,9)

or i=0 o 3

Prin a(5-i);

Nex

End Sub

程序运行后，单击窗体，则在窗体上显示的是

4 3 2 1B) 5 4 3 2C) 6 5 4 3 D) 7 6 5 4

在窗体上画一个名称为Command1的命令按钮和一个名称为ex1的文本框，然后编写如下程序：

Priv Sub Command1_Click()

Dim x,y,z As Ineger

x=5

y=7

z=0

ex1.ex=””

Call P1(x,y,z)

ex1.ex=Sr(x)

End Sub

Sub P1(ByVal a As Ineger,ByVal b As Ineger,c As Ineger)

c=a+b

End Sub

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

A) 0B) 12C) Sr(z)D) 没有显示

以下叙述中错误的是

A) 如果过程被定义为Saic类型，则该过程中的局部变量都是Saic类型

B) Sub过程中不能嵌套定义Sub过程

C) Sub过程中可以嵌套调用Sub过程

D) 事件过程可以像通用过程一样由用户定义过程名

表示滚动条控件取值范围最大值的属性是

A) Max B) LargeChangeC) ValueD) Max-Min

编程题

1）编制程序实现从键盘读入一数字，求其平方根。如果此数为负数，请提示“负数没有平方根”，否则输出其平方根。

2）输入10个同学的数学成绩，计算所有及格以上同学的平均分。

3）编写程序，由键盘输入10个数，求出其中的最大数。

4）编写程序，其功能为输出1+2+……+100的和，并求出1-100之间能被17整除的数的个数。

简答题

1）简述子过程和函数过程的共同点和不同之处。

2）简述自定义类型和自定义变量的区别。

3）简述标签和文本框的区别。

4）简述列表框和组合框的异同处。

5）分析下面程序的执行过程，给出运行结果。

Priv Sub Command2_Click()

Dim x%, y%, z%

x = 242; y = 44

z = x * y

Do Unil x = y

I x> y hen x = x – y Else y = y – x

Loop

Prin x, z / x

End Sub

6）分析下面程序的执行过程，给出运行结果。

Priv Sub Command1_Click()

a = 10

= “旅游景点：”_

&II(a>3, “长城”, “”)_

&II(a<8, “故宫”, “”)_

&II(a<8, “颐和园宫”, “”)

ex1.ex =

End Sub

7）下面程序的功能是产生20个[10, 100]之间的随机整数，每行输出10个数，根据题意，完善程序。

Priv Sub command1_Click()

Dim a(1 o 20) As Ineger

Randomize

i = 0

Do While i < 20

i = i +1

a(i) = ( )

I ( (2) ) hen

Prin a(i)

End I

I i = 10 hen Prin a(i)

I i > 10 hen prin a(i)

Loop

End Sub

8）分析下面程序的执行过程，给出运行结果。

Priv Sub Command1_Click()

Dim x$, n%

n = 20

Do While n <> 0

a = n Mod 2

n = n \ 2

x = Chr(48 + a) & x

Loop

Prin x

End Sub

9）分析下面程序的执行过程，给出运行结果。

Priv Sub command1_click()

x = InpuBox(“请输入一个整数”)

lag = 1

or i = 2 o (1)

I x Mod i = 0 hen

lag = 0

End i

Nex i

I( (2) ) hen Prin x; “素数” Else Prin x; “非素数”

End Sub

10）在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：

Opion Base 1

Priv Sub Command1_Click()

Dim a(10) As Ineger

or i = 1 o 10

a(i) = i

Nex

Call swap( ) ）

or i = 1 o 10

Prin a(i);

Nex

End Sub

Sub swap(b() As Ineger)

n = ( )

or i = 1 o n / 2

= b(i)

b(i) = b(n)

b(n) =

( )

Nex

End Sub

上述程序的功能是：通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。试分析给出的程序代码，完成相应的语句。

答案

选择题

1C

2C

3B

4C

5A

6C

7B

8D

9B

10D

11B

12A

13C

14C

15C

16B

17A

18C

19B

20D

21A

22C

23B

24C

25A

编程题

1）答案

num = InpuBox("请输入一整数", "输入")

I num < 0 hen

Prin "负数没有平方根"

Else

Prin Sqr(num)

2）答案

Dim scores(1 o 10) As Single

Dim avgScore As Single

or i = 1 o 10

scores(i) = InpuBox("输入分数[0,100]")

Nex

avgScore = 0

or i = 1 o 10

i scores(i)>=60 hen

avgScore = avgScore + scores(i)

end i

Nex

avgScore = avgScore / 10

Prin "平均分:"; avgScore

3）答案

Priv Sub orm_Click()

Dim a(10), max, i, j

max = -1

or i = 1 o 10

a(i) = In(Rnd * 100)

Prin a(i);

I max < a(i)

hen

max = a(i):

End I

Nex i

Prin "最大数是"; max

End Sub

4）答案

Priv Sub Command1_Click()

Dim i As Ineger, c As Ineger

Dim s AsIneger

or i = 1 o100

s = s + i

I i Mod 179 = 0 hen c = c + 1

Nex i

Prin "1+2+...+100="; s

Prin "能被17整数的数据有";c; "个"

End Sub

简答题

1）子过程和函数过程的共冋点：函数过程和子过程都是功能相对独立的一种子程序结构，它们有各自的过程变量声明和过程体。在程序中使用它们不但可避免书写重复的程序语句，缩短代码，而且可

使程序条理淸晰，容易阅读。

两者不同点是：

a.过程声明的关键字不同，子过程用的是sub，函数过程用的 uncion.

b.子过程名无值就无类型声明，函数过程名有值就是有类型声明；

c. 函数过程名兼作结果变量名，因此在函数过程体内至少对函数过程名赋值；而子过程名在过程体内不能赋值；

d. 调用方式不同，子过程是一条独立的语句，可用call子过程成或省略call直接以子过程名调用；函数过程不是一条独立语句，足一个函数值，必须参与表达式的运算；

e.—般来说，一个函数过程可以被一个子过程代替，代替时只要改变函数过程定义的形式，并在子过程的形参表中增加一个地址传递的形参来传递结果。

2）前者仅定义了类型，这如同系统提供的inegesring等基本类型；后者系统为其分配了存储单元。

3）在程序运行时，标签只能显示文字，不能输入文字，显示文字时Capion属性进行赋值来实现；而文本框既能显示文字，也能输入文字，这通过ex属性来实现。

4）相同处都是可以存放字符串，不同处在于：组合框是文本框和列表框的组合可以输入内容，但要通过addiem方法添加；列表框只能选择项目，不能直接输入内容。

5）22484

6）旅游景点：颐和园宫

7）(1) in(rnd*91)+10 (2) i<10

8）10100

9）( )in(sqr(x))或者x-1 ( )lag=1

10）a (2) 10 (3) n = n -1