Visual Basic程序设计（吉林医药学院）智慧树答案2024版100分完整版

惶炕捎羡苗混轨剿圭叫检谰阔

踢弛疾茫紊赣缔射惮搪巨吴纹

第一章单元测试

1、
以下关于VB语言的说法中，正确的是（）。

A:VB是一种面向过程的语言
B:VB是一种面向对象的语言
C:VB是一种低级语言
D:VB是一种机器语言
答案: VB是一种面向对象的语言

2、
在Visual Basic环境下，当写一个新的Visual Basic程序时，所做的第一件事是（）。

A:编写代码
B:新建一个工程
C:打开属性窗口
D:进入Visual Basic环境
答案: 新建一个工程

3、
以下可以构成语句的是（）。

A:对象名.属性
B:对象名.方法名
C:对象名.事件名
D:对象名.函数名
答案: 对象名.方法名

4、
（）是由Visual Basic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。

A:文件
B:属性
C:方法
D:窗体
答案: 方法

5、
下列不是Visual Basic 文件的是（）。

A:*.frm文件
B:*.bas
C:*.cls文件
D:*.txt
答案: *.txt

6、
下列不能打开工具箱窗口的操作是(　　)。

A:执行“视图”菜单中的“工具箱”命令
B:按Alt+F8键
C:单击工具栏上的“工具箱”按钮
D:按Alt+V，然后按Alt+X键
答案: 按Alt+F8键

7、
下列可以打开立即窗口的操作是(　　)。

A:Ctrl+D
B:Ctrl+E
C:Ctrl+F
D:Ctrl+G
答案: Ctrl+G

8、
Visual Basic6.0集成环境的主窗口中不包括(　　)。

A:标题栏
B:菜单栏
C:状态栏
D:工具栏
答案: 状态栏

9、
在Visual Basic中，不能关闭的窗口是(　　)。

A:窗体设计器窗口
B:工程窗口
C:属性窗口
D:立即窗口
答案: 工程窗口

10、
Visual Basic是一种面向对象的可视化程序设计语言，采取了(　　)的编程机制。

A:从窗体开始执行
B:按书写顺序执行
C:从主程序开始执行
D:事件驱动
答案: 事件驱动

第二章单元测试

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”
答案: Const a As Integer=“12”

2、
表达式“Turbo”+“c”>“Ture”+“Basic”的值是（）。

A:True
B:False
C:Null
D:出错信息
答案: False

3、
执行下列语句后，V的值是（）。

A=“56789” V=Val（Mid（A，3，2））

A:89
B:78
C:67
D:0
答案: 78

4、
表达式4+56*7/8 Mod 4的值是（）。

A:4
B:5
C:6
D:7
答案: 5

5、
下列符号（）是Visual Basic中合法的变量名。

A:x23
B:8xy
C:END
D:X8[B]
答案: x23

6、
在一行内写多条语句时，每个语句之间用（）来分隔。

A:，
B:：
C:、
D:；
答案: ：

7、
在VB中，用Single来表示的数据类型是（）。

A:长整型
B:字符型
C:逻辑型
D:单精度型
答案: 单精度型

8、
下列程序段的运行结果是（）。
Dim A As Integer , B As Integer
A = 15
B = 4
Print 4 + A B

A:7
B:-7
C:7.75
D:8
答案: 7

9、
三种逻辑运算符号优先次序为（）。

A:AND、NOT、OR
B:NOT、OR、AND

C:NOT、AND、OR
D:OR、NOT、AND
答案: NOT、AND、OR

10、
数学式3abc(d+e)改写为VB表达式为（）。

A:3a*b*c(d+e)
B:3abc(d+e)

C:3abcd +3abce
D:3*a*b*c*(d+e)
答案: 3*a*b*c*(d+e)

第三章单元测试

1、
结构化程序设计的三种基本结构不包括（）。

A:顺序结构
B:倒序结构
C:选择结构
D:循环结构
答案: 倒序结构

2、
下面四个语句中，能打印显示20*30字样的是（）。

A:Print“20*30”
B:Print 20*30
C:Print Chr(20)+“*”+Chr(30)
D:Print val(“20”)*val(“30”)
答案: Print“20*30”

3、
关于MsgBox函数，以下说法不正确的是（）。

A:“提示”参数用于在MsgBox函数产生的对话框内显示提示信息
B:“按钮”参数是数值表达式，是表示指定显示按钮的数目和类型、使用的图标样式，默认按钮的标识以及消息框样式的数值的总和
C:MsgBox函数的返回值是一个字符串，这个字符串与所选择的命令按钮有关
D:“标题”参数可选，显示在对话框标题栏中的字符串表达式
答案: MsgBox函数的返回值是一个字符串，这个字符串与所选择的命令按钮有关

4、
语句If x=1 Then y=1,下列说法正确的是( )。

A:x=1和y=1均为赋值语句
B:x=1和y=1均为关系表达式
C:x=1为关系表达式,y=1为赋值语句

D:x=1为赋值语句, y=1为关系表达式

答案: x=1为关系表达式,y=1为赋值语句

5、
下面程序段执行结果为( )。 x = 5 : y = -6If not x > 0 Then x = y – 3 Else y = x + 3End IfPrint x – y; y – x

A:-3 3
B:5 -9
C:3 -3
D:-6 5
答案: -3 3

6、
编写如下事件过程: Private Sub Form_Click() score=Int(Rnd*10)+80 Select Case score Case Is

A: A
B: B
C: C
D: D
答案: B

7、
循环结构For I%= -1 to –17 Step –2 共执行( )次。

A: 5
B: 6
C: 8
D: 9
答案: 9

8、
下列程序段的执行结果为( )。 a=0:b=1 Do a=a+b b=b+1 Loop While a

A: 10 5
B: a b
C: 0 1
D: 10 30
答案: 10 5

9、
有如下程序,运行后输出的结果是( )。j=0:n=0 Do While n

A: 0 1
B: 182 3
C: 30 4
D: 3 3
答案: 182 3

10、
下列的程序段执行后,x的值为( )。x=0 For i=1 To 10 For j=i To 10 x=x+1 Next j Next i

A: 50
B: 55
C: 5
D: 105
答案: 55

第四章单元测试

1、
以下关于静态数组的描述正确的是（）。

静态数组的大小是固定的，可以有不同类型的数组元素

静态数组的大小是可变的，但所有数组元素的类型必须相同

静态数组的大小是固定的，所有数组元素的类型必须相同

静态数组的大小是可变的，可以有不同类型的数组元素

答案:

静态数组的大小是固定的，可以有不同类型的数组元素

2、
执行下面程序段后，输出的结果为（）。 Dim m(5) As Integer s = 0 For i = 0 To 5 m(i) = 5 Next i For j = 0 To 5 s = s + m(j) Next j

Print s

答案:

3、
下面程序：Private Sub Form_Click() Dim a(100) As Integer For i = 1 To 10 j = i * i a(j) = j Next i Print a(25)End Sub运行后，单击窗体，则输出的结果是（）。

答案:

4、

有如下语句：

Option Base 1

Private Sub Command1_Click()

Dim A(2, -1 To 1) As Integer

……

End Sub 以上语句所定义的数组A为（）维数组，共有（）个元素，第一维下标从（）到（），第二维下标从（）到（）。

1,2,6,2,-1,1

6,2,1,2,-1,1

2,6,1,2,-1,1

2,1,6,-1,1,2

答案:

2,6,1,2,-1,1

5、
有如下程序： Const n = -5 Const m = 6 Dim a(n To m) As Integer For i = LBound(a, 1) To UBound(a, 1) a(i) = i Next i Print a(LBound(a, 1)); a(UBound(a, 1))运行后输出的结果为（）。

0 0

-5 0

-5 6

0 6

答案:

-5 6

6、
下面关于控件数组与一般控件的叙述中正确的是（）。

控件数组一定有1个以上同类型的控件组成，而一般控件只有一个控件

控件数组的索引属性值Index值为0，而一般控件的Index值为空

控件数组的Index值为1，而一般控件的Index值为0

控件数组的建立通过Dim语句声明，而一般控件不需要声明

答案:

控件数组一定有1个以上同类型的控件组成，而一般控件只有一个控件

7、
如果要对已经声明的数组重新定义大小，并保留原有数据，可以使用语句（）。

Dim

ReDim

Dim Preserve

ReDim Preserve

答案:

ReDim Preserve

8、
下列程序的输出结果为（）。

Private Sub Command1_Click()

Dim a

ReDim a(6)

For j=1 To 5

a(j)=j*j

Next j

Print a(a(2)*a(3)-a(4)*2)+a(5)

End Sub

答案:

9、
执行下面程序段后，输出的结果为（）。 Dim a(10, 10) As Integer For i = 2 To 4 For j = 4 To 5 a(i, j) = i * j Next j Next i Print a(2, 5) + a(3, 4) + a(4, 5)

答案:

10、
要分配存放如下方阵的数据，正确的且最节约存储空间的数组声明语句是（）。

1.1 2.2 3.3

4.4 5.5 6.6

7.7 8.8 9.9

Dim a(9) As Single

Dim a(3, 3) As Single

Dim a(-1 To 1, -5 To -3) As Single

Dim a(-3 to 1, -5 to 7) As Integer

答案:

Dim a(-1 To 1, -5 To -3) As Single

第五章单元测试

1、
假定有如下的Sub过程：Sub fun(x As Single, y As Single) t = x x = t / y y = t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim a As Single Dim b As Single a = 6 b = 4 fun a, b Print a, bEnd Sub程序运行后，单击命令按钮，输出结果为（）。

5 4

1 1

1.25 4

1.5 2

答案:

1.5 2

2、
假定有以下函数过程：Function Fun(s As String) As String Dim s1 As String For i = 1 To Len(s) s1 = UCase(Mid(s, i, 1)) + s1 Next i Fun = s1End Function在窗体上添加一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim Str1 As String Dim Str2 As String Str1 = InputBox(“请输入一个字符串”) Str2 = Fun(Str1) Print Str2End Sub程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后再窗体上输出的结果为（）。

Abcdefg

ABCDEFG

gfedcba

GFEDCBA

答案:

GFEDCBA

3、
有如下函数过程：Function secproc(x As Integer, y As Integer, z As Integer) secproc = 3 * y + z + 2 * xEnd Function Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a = 2: b = 3: c = 4 Print secproc(c, b, a)End Sub该程序的运行结果是（）。

答案:

4、
有如下函数过程：Function Cys(ByVal x As Integer, ByVal y As Integer) As Integer Dim quotients Do While y 0 quotients = x / y x = y y = quotients Loop Cys = xEnd Function以下是调用该函数的事件过程，该程序的运行结果是（）。Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = 10 b = 2 x = Cys(a, b) Print xEnd Sub

100

答案:

5、
以下是一个能返回数组a中最大数的函数过程代码：

Function maxval(a() As Integer) As Integer

Dim max%

max = 1

For i = 2 To 10

If a(i) > a(max) Then max = i

Next i

maxval = max

End Function

Private Sub Command1_Click()

Dim x(1 To 10) As Integer

For i = 1 To 10

x(i) = Int(Rnd() * 100)

Print x(i);

Next i

Print maxval(x())

End Sub程序运行时，发现函数过程的返回值是错的需要修改，下面的修改方案中正确的是（）。

语句“max = 1”应改为“max = a(1)”

语句“For i = 2 To 10”应改为“For i = 1 To 10”

If语句“max = i”应改为“max = a(i)”

语句“maxval = max ”应改为“maxval = a(max)”

答案:

语句“maxval = max ”应改为“maxval = a(max)”

6、
在窗体上画一个命令按钮(名称为Command1)，并编写如下代码：Function Fun1(ByVal a As Integer, b As Integer) As Integer Dim t As Integer t = a – b b = t + a Fun1 = t + bEnd Function Private Sub Command1_Click() Dim x As Integer x = 10 Print Fun1(Fun1(x, (Fun1(x, x – 1))), x – 1)End Sub程序运行后，单击命令按钮，输出结果是(　　)。

答案:

7、
下面程序的运行结果为（）。Dim a%, b%, c%Sub p1(x%, y%) Dim c As Integer x = 2 * x: y = y + 2: c = x + yEnd SubSub p2(x%, ByVal y%) Dim c As Integer x = 2 * x: y = y + 2: c = x + yEnd SubPrivate Sub Command1_Click() a = 2: b = 4: c = 6 Call p1(a, b) Call p2(a, b) Print a; b; cEnd Sub

4 6 6

8 6 6

4 6 10

8 8 6

答案:

8 6 6

8、
下面程序：Function a(x) Static b As Integer b = b + x ^ 2 Print bEnd Function Private Sub Command1_Click() Dim c% c = a(2)End Sub单击两次命令按钮，第二次显示的结果是（）。

答案:

9、
下列叙述中正确的是（）。

在窗体的Form_Load事件中定义的变量是全局变量

局部变量的作用域可以超出所定义的过程

在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程

在调用过程时，所有局部变量被系统初始化为0或空字符串

答案:

在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程

10、
若已编写了一个Sort子过程，在该工程中有多个窗体，为了方便地调用Sort子过程，应将该过程放在（）中。

窗体模块

标准模块

类模块

工程

答案:

标准模块

如需购买完整答案，请点击下方红字：

点击这里，购买完整答案

获取更多网课答案，请点击这里，进入www.mengmianren.com

阿七抬颗岔构孤需贬叉稍汞翠

刮培糯棉霜贯鸥辈连愁猜痞呈

第一章 单元测试

第二章 单元测试

第三章 单元测试

第四章 单元测试

第五章 单元测试

第一章单元测试

第二章单元测试

第三章单元测试

第四章单元测试

第五章单元测试