中国大学VB程序设计基础答案(慕课2023完整答案)
45 min read中国大学VB程序设计基础答案(慕课2023完整答案)
第一章单元测验
1、中国VB集成开发环境有三种工作模式，大学答案答案不属于三种工作模式之一的程序是（）。
A、设计设计模式
B、基础编辑模式
C、慕课运行模式
D、完整中断模式
2、中国类是大学答案答案同种（）的集合和抽象。
A、程序变量
B、设计常量
C、基础对象
D、慕课函数
3、完整程序代码“Text1．Text="Visual Basic"，中国其中的Text1、Text和"Visual Basic"分别代表（）。
A、对象、值、属性
B、对象、方法、属性
C、对象、属性、值
D、属性、对象、值
4、要使某对象在运行时不可显示，应对( )属性进行设置。
A、Enabled
B、Visible
C、BackColor
D、ControlBox
5、不论任何控件，共同具有的属性是( )属性。
A、Text
B、Caption
C、BackColor
D、Name
6、启动窗体时，系统自动执行启动窗体的( )事件过程。
A、Load
B、Click
C、UnLoad
D、GotFocus
7、程序运行后，在窗体上单击鼠标，此时窗体不会接受到的事件是( )。
A、MouseDown
B、MouseUp
C、Load
D、Click
8、在Visual Basic中最基本的对象是( )，它是应用程序界面设计的基础，是其他控件的容器。
A、文本框
B、窗体
C、标签
D、命令按钮
9、Private Sub Form_click() Print "Hello" Me.ForeColor = vbRed End Sub 第一次单击窗体，输出"Hello"的颜色为：（ ）
A、红色
B、白色
C、蓝色
D、黑色（默认颜色）
10、对于窗体Form1，执行了Form1.Left=Form1.Left-300语句后，则该窗体( )。
A、上移
B、下移
C、左移
D、右移
11、当标签需要自动调整标签大小以适应文本长度时，可设置的属性是（）。
A、AutoSize
B、Visible
C、Enabled
D、Caption
12、下列叙述错误的是（）。
A、VB是可视化程序设计语言
B、VB采用事件驱动编程机制
C、VB是面向过程的程序设计语言
D、VB应用程序可以以编译方式执行
13、文本框不具有（ ）属性。
A、caption
B、text
C、locked
D、password
第二章 VB语言基础
第二章单元测验
1、下列可以将变量x、y的值互换的是（）。
A、x=y:y=t:t=x
B、x=t:t=y:y=x
C、t=x:x=y:y=t
D、x=y:y=x
2、多条语句要书写在一行，用（）符号作分隔符。
A、+
B、：
C、，
D、续行符
3、赋值语句g = 200 + Mid("31415926", 3, 2)执行后，变量g的值是（）。
A、"20041"
B、241
C、20041
D、语法错误
4、表达式A%+B&+C!-D#的结果为( )。
A、整型
B、长整形
C、单精度
D、双精度
5、下列符号中，可以用作变量名的是( )。
A、a!b
B、123abc
C、abc123
D、len
6、"-35000"的数据类型是( )。
A、整型常量
B、浮点型常量
C、符号常量
D、字符串型常量
7、下列选项中，为日期型常量的是（ ）。
A、5/10/2002
B、"5/10/2002"
C、#5/10/2002#
D、“5,10,2002#”
8、设S="Myname"，可得到字符串"My"的选项是（ ）。
A、Right(S,2)
B、Left(S,2)
C、Mid(S,2,2)
D、Right(2,2)
9、用于返回字符串的长度函数是（ ）。
A、String( )
B、Len( )
C、Space( )
D、Mid( )
10、语句Print Format(32548.5, "000,000.00") 的输出结果是（ ）。
A、32,548.5
B、32548.5
C、032,548.50
D、3254.85
11、Int(198.555*10+0.5)/10的值()。
A、198.6
B、198
C、198.56
D、198.55
12、要使变量x赋值为[50～100]间的一个随机整数，正确的语句是( )。
A、x=INT(100*RND)
B、x=INT(101*RND)
C、x=INT(50*RND+50)
D、x=INT(51*RND+50)
13、如果x是一个正实数，可使x保留2位小数的表达式是()。
A、0.01 * Int(x + 0.005)
B、0.01 * Int(100 * (x + 0.005))
C、0.01 * Int(100 * (x + 0.05))
D、0.01 * Int(x + 0.05)
14、表达式Val("4.5674e2")的值为()。
A、4.5674
B、45.674
C、456.74
D、非法表达式
15、已知a="abcdefgh"，则表达式right(a, 4) + Mid(a, 3, 4)的值是()。
A、"efghcdef"
B、"abcddef"
C、"cdeefgh"
D、"abcdefgh"
16、如果变量 a=12、b="the"、c="sdf"、d=30，则表达式 a*3 mod 4<d\4 AND b>c AND d<>c 的值是( )。
A、-1
B、False
C、True
D、0
17、数学关系3≤x<10表示成正确的VB表达式为( )。
A、3<=x<10
B、3<=x AND x<10
C、x>=3 OR x<10
D、3<=x AND <10
18、在VB中，能正确表达“X是小于100的非负数”的表达式是（）。
A、X>=0 And X<100
B、0=<X<100
C、Not(X>=0 Or X<100)
D、X>=0 Or X<100
19、Dim x%,y% x=Inputbox("请输入第一个数") y=Inputbox("请输入第二个数") print x+y 当输入分别为12和34时，程序输出为（）。
A、1234
B、46
C、34
D、程序出错
20、有如下代码： dim a as long ,b as long a=Inputbox("请输入第一个数") b=Inputbox("请输入第二个数") print a & b 程序运行后，在两个对话框中先后输入12345和54321，则输出结果是（ ）。
A、66666
B、5432112345
C、1234554321
D、出错
第三章 基本控制结构
3.1 基本控制结构概述随堂测验
1、VB三种结构化程序设计的基本结构是（）。
A、选择结构、过程结构、顺序结构
B、顺序结构、选择结构、循环结构
C、递归结构、选择结构、顺序结构
D、过程结构、转向结构、递归结构
第三章 单元测验
1、VB的三种结构化程序设计的基本结构是（）。
A、选择结构、过程结构、顺序结构
B、递归结构、选择结构、顺序结构
C、过程结构、转向结构、递归结构
D、顺序结构、选择结构、循环结构
2、设用Max表示x、y中较大的数，则下面语句中不正确的是（）。
A、Max=IIf(x>y,x,y)
B、If x>y Then Max=x Else Max=y
C、Max=x If y>=x Then Max=y
D、If y>=x Then Max=y Max=x
3、下面语句执行后，变量W的值为（）。 W=Choose(Int(3.6),"Red","Green","Blue","Yellow")
A、Red
B、Green
C、Blue
D、Yellow
4、设窗体上有一个文本框Text1，以下程序段的功能是（）。 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii<65 Or KeyAscii>90 Then KeyAscii=0 End If End Sub
A、该文本框只能接收"a"-"z"之间的字母字符
B、该文本框只能接收65-90之间的数字
C、该文本框只能接收"A"-"Z"之间的字母字符
D、该文本框只能接收65或者90
5、循环结构For i=1 to 20 step 5一共执行（）次循环。
A、20
B、6
C、8
D、4
6、如下循环结构执行结束后i值将等于（ ）。 For i=1 To 15 Step 4 …… Next i
A、17
B、13
C、16
D、15
7、下列程序段能实现在Form窗体上按指定格式分多行输出数据，问每行能输出（）个数据。 Dim i% For i = 1 To 30 Print Tab(((i - 1) Mod 5) * 6); i; Next i
A、6
B、5
C、4
D、3
8、InputBox函数返回值的类型为( )。
A、数值型
B、字符型
C、布尔型
D、变体型
9、下列程序的运行结果是（）。 a = 78 If a > 50 Then i = 5 ElseIf a > 60 Then i = 6 ElseIf a > 70 Then i = 7 ElseIf a > 80 Then i = 8 End If Print i
A、5
B、6
C、7
D、8
10、以下程序代码能执行的是（）。
A、If a=1 Then b=0 Else c=0 End If
B、If a=1 Then B=0 ElseIf C=0 Then D=0
C、If a = 1 Then b = 0 Else If c = 0 Then d = 0 End If
D、If a = 1 Then b = 0 ElseIf c = 0 Then d = 0 End If
11、某工厂当年产值为12亿，以后每年的产值按5%的速度增长，能正确计算四年后总产值的程序是（）。
A、s=12:r=0.05 For i=1996 to 1998 s=s*(1+r)+s Next i Print i
B、s0=12:sum=12:r=0.05 For i=1996 To 1998 s=s0*(1+r) sum=sum+s Next i
C、s=12:r=0.05 For i=1996 To 1998 s=s*(1+r) Next i Print i
D、s=12:sum=12:r=0.05 For i=1996 To 1998 s=s*(1+r) sum=sum+s Next i Print sum
12、下列程序段中不能正确计算1!、2!、3!的值是（）。
A、For i=1 To 3 n=1 For j=1 to i n=n*j Next j Print n Next i
B、For i=1 to 3 For j=1 to i n=1 n=n*j Next j Print n Next i
C、n=1 For i=1 To 3 n=n*i Print n Next i
D、n=1 j=1 Do While j<=3 n=n*j print n j=j+1 Loop
13、以下说法正确的是（）。
A、内循环与外循环可以交叉
B、内循环与外循环的循环变量可以同名
C、Exit Do语句只能退出Do……Loop循环
D、双重循环嵌套时，内循环执行一次，外循环执行一轮
14、以下程序段的运行结果是（）。 a = "abcde" For i = 3 To 1 Step -2 x = Left(a, i) y = Right(a, i) z = z & x & y Next i Print z
A、abdeae
B、abcd
C、abde
D、aceda
15、下面If语句统计满足性别(sex)为男、职称(duty)为副教授以上、年龄(age)小于40岁条件的人数，不正确的语句是()。
A、If sex="男"And age<40 And InStr(duty,"教授")>0 Then n=n+1
B、If sex="男"And age<40 and(duty="教授"or duty="副教授") Then n=n+1
C、If sex="男"And age<40 And Right(duty,2)="教授" Then n=n+1
D、If sex="男"And age<40 And duty="教授"And duty="副教授" Then n=n+1
第五章 编程思维与方法训练
第六章单元测验
1、用冒泡排序算法对下列数据：12 37 42 19 27 35 56 44 10 ，进行从小到大的排序，在将最大的数“沉”到最后时，数据的顺序是（ ）。
A、12 37 42 19 27 35 44 10 56
B、12 37 42 19 27 35 10 44 56
C、12 37 19 27 35 42 44 10 56
D、10 12 19 27 35 37 42 44 56
2、用某种方法排序，调整序列如下，所选排序方法为（ ）。 7 4 2 8 1 0 6 3 0 4 2 8 1 7 6 3 0 1 2 8 4 7 6 3 0 1 2 8 4 7 6 3 0 1 2 3 4 7 6 8 0 1 2 3 4 7 6 8 0 1 2 3 4 6 7 8 0 1 2 3 4 6 7 8
A、插入排序
B、选择排序
C、交换排序
D、冒泡排序
3、对N个记录进行简单选择排序，最少的比较次数为（ ）。
A、1次
B、N次
C、N-1次
D、N*N次
4、对于长度为9的有序表，在进行折半查找时，查找失败，最多需要比较（ ）次。
A、2次
B、3次
C、4次
D、5次
5、折半查找有序表(4,6,10,12,20,30,50,70,88,100)。若查找表中元素58,则它将依次与表中（ ）比较大小,最终的查找结果是失败。
A、20,70,30,50
B、30,88,70,50
C、20,50
D、30,88,50
6、下面的程序用于根据文本框X中输入的内容进行以下处理：若X为2、4、6，则打印"X的值为2、4、6"；若X在11到15之间，则打印"X的值为大于等于11小于等于15"；若X大于20，则打印"X的值大于20"；否则，打印"X不在范围内"。 Private Sub Command1_Click() Select Case Val(X.Text) Case Print "X的值为2,4,6" Case 11 to 15 Print "X的值为大于等于11小于等于15" Case Is >20 Print "X的值大于20" Case Else Print "X不在范围内" EndSelect End Sub
A、2 4 6
B、2,4,6
C、2;4;6
D、6 to 2
7、找出被3、5、7除，余数均为1的最小的5个正整数。 Private Sub Command1_Click() Dim countn%, n% n =1: countn = 0 Do n= n + 1 If Then Print n countn = countn + 1 End If Loop until count n=5 End Sub
A、n mod 3=1 And n mod 5=1 And n mod 7=1
B、n mod 3=1 or n mod 5=1 or n mod 7=1
C、n \ 3=1 And n \ 5=1 And n \ 7=1
D、n \ 3=1 or n \ 5=1 or n \ 7=1
8、编程显示100~500之间所有的水仙花数之和。 (水仙花数是3位数，其各位数立方之和等于该数本身) Private Sub Form_Click() Print"100~500之间所有的水仙花数为：" Dim x%, a%, b%, c% For x = 100 To 500 a= x Mod 10 b= (x Mod 100) \ 10 c= x \ 100 If Then Print x Next x End Sub
A、x = a + b*10 + c*100
B、x = a*100 + b*10 + c
C、x = a ^ 3 + b ^ 2 + c
D、x = a ^ 3 + b ^ 3 + c ^ 3
9、输入两个整数M，N，求它俩的最大公约数。 Private Sub Command1_Click() Dim m%, n%，t%，x% m = Val(InputBox("请输入第1个数m：")) n = Val(InputBox(“请输入第2个数n：”)) If m < n Then t = m: m = n: n = t For y = n To 1 Step -1 If Then Print "最大公约数为："; y Exit For End If Next y End Sub
A、y Mod m = 0 And y Mod n = 0
B、m Mod y = 0 And n Mod y = 0
C、m Mod y = 0 or n Mod y = 0
D、y Mod m = 0 or y Mod n = 0
10、从键盘输入一个数N，判断是否为质数。 Private Sub Command1_Click() Dim N %, I%, K% N = Val(InputBox("N=？")) K= N-1 For I = 2 To K If N Mod I = 0 Then Exit For Next I If Then Print N; “ 是质数" Else Print N; “ 不是质数" End If End Sub
A、I>K
B、I=K
C、I>K+1
D、I>N
第六章 模块化程序设计
第六章单元测验
1、要想从子过程调用后返回两个结果，下面子过程语句说明合法的是（）。
A、Sub f(ByVal n%,ByVal m%)
B、Sub f(n%, m%)
C、Sub f(n%,ByVal m%)
D、Sub f(ByVal n%,m%)
2、以下叙述错误的是（）。
A、表达式中可以调用Function过程
B、表达式中可以调用Sub过程
C、过程的参数可以是控件名称
D、过程的参数可以是窗体
3、假定定义了一个过程Sub Add(a As Single, b As Single)，则正确的调用语句是( )。
A、Add 12,12
B、Call Add [12,12]
C、Call Add x,y
D、Call Add (12, 12, x)
4、Sub过程与Function过程的区别是（ ）。
A、Sub过程可以使用Call语句调用，而Function过程不可以。
B、Function过程可以有参数，Sub过程不可以。
C、两种过程参数的传递方式不同。
D、Sub过程名不能返回值，而Function过程可通过过程名返回值。
5、定义过程时，关键字Private的作用是（）。
A、此过程可以被其他过程调用。
B、此过程调用不受限制。
C、此过程只可以被本工程中的其他过程调用。
D、此过程只可以被本窗体模块中的其他过程调用。
6、同一个模块内的不同过程之间相互传递数据，以下叙述错误的是（）。
A、利用过程级变量
B、利用全局变量
C、利用传地址的变量作为过程参数
D、利用模块级变量
7、过程中定义的变量，在过程结束后，对该过程保留变量的值，则应该使用（）关键字。
A、Dim
B、Private
C、Public
D、Static
8、下面的程序输出100-300之间的素数，阅读程序并填空。 Function sushu(Byval x As Integer) As Boolean Dim i As Integer sushu = False For i = 2 To sqr(x) If x Mod i = 0 Then exit for Next i If i >= sqr(x) Then _____________ End Function Private Sub Command1_Click() Dim m As Integer For m = 100 To 300 If sushu(m) Then Print m; Next m End Sub
A、print i
B、sushu=True
C、sushu=False
D、print m
9、下列程序可以求方阵对角线元素之和。 Option Base 1 Private Function djx(a%(), n%) As Integer Dim i% For i = 1 To n Sum = Sum + a(i) Next i If n Mod 2 <> 0 Then Sum = Sum - a(n \ 2 + 1, n \ 2 + 1) End If djx=Sum End Function Private Sub Command1_Click() Dim a%(), n% n = InputBox("n=") ReDim a%(n, n) For i = 1 To n For j = 1 To n a(i, j) = Int(Rnd * 9 + 1) Print a(i, j); Next j Print Next i Print "对角线元素之和为：" & _____________ End Sub
A、call djx(a,n)
B、djx a,n
C、djx(a,n)
D、djx(a(i),n)
10、下列程序用选择法升序排序。阅读程序并填空。 Option Base 1 Private Sub paixu(a()) n = Ubound(a) For i = 1 To n - 1 k = i For j = i + 1 To n If a(j)<a(k) Then k = j Next j t = a(i): a(i) = a(k): a(k) = t Next i End Sub Private Sub Command1_Click() Dim b(), i As Integer b = Array(15, 8, 4, 13, 6, 10, 17, 1) n = UBound(b) Print "排序前："; For i = 1 To n Print b(i); Next i Print _____________ Print "排序后："; For i = 1 To n Print b(i); Next i End Sub
A、call paixu(b)
B、paixu(b)
C、call paixu(b(i))
D、call paixu(b,n)
11、在窗体的通用程序段中用关键词Dim声明的是( )级变量。
12、变量的作用域可以分为过程级、( )和全局级。
13、在子过程的调用中，要按地址进行参数传递，实参只能是变量或( )。
14、形参是数组时，只能采用（ ）传递方式。
学习通VB程序设计基础
VB是Visual Basic的缩写，是一种基于Windows操作系统的高级程序设计语言。学习VB程序设计基础，可以帮助我们开发出各种功能强大的Windows应用程序。
一、VB的应用领域
VB可以用于开发各种类型的应用程序，包括但不限于：
- 桌面应用程序
- 数据库应用程序
- 游戏系统
- 网络应用程序
二、VB开发环境
VB的开发环境包括以下几个部分：
- Visual Studio IDE
- Visual Basic语言
- .NET Framework
2.1 Visual Studio IDE
Visual Studio是微软公司开发的一款集成开发环境（IDE），可运行在Windows操作系统上。它支持多种编程语言，包括VB、C++、C#等等。
2.2 Visual Basic语言
VB语言是一种基于事件驱动的编程语言。它支持面向对象编程，可以使用各种数据类型、运算符、控制结构、函数、方法等。
2.3 .NET Framework
.NET Framework是微软公司开发的一个框架，提供了各种开发工具和库，支持各种开发语言，包括VB。.NET Framework可以大大简化开发工作，提高开发效率。
三、VB程序设计基础
学习VB程序设计基础，需要掌握以下知识点：
3.1 变量和数据类型
变量是指在程序中用于存储数据的一种占位符。VB支持多种数据类型，包括整型、浮点型、字符型、布尔型等。
3.2 运算符和表达式
运算符是指用于进行运算的符号，包括算术运算符、比较运算符、逻辑运算符等。表达式是由变量、常量、运算符等组成的一个值。
3.3 控制结构
控制结构是指用于控制程序流程的语句，包括条件语句、循环语句、选择语句等。
3.4 函数和子程序
函数是指一个独立的代码块，它可以接收传入的参数并返回一个值。子程序是指不返回值的函数。
四、VB程序设计实例
下面是一个简单的VB程序，用于计算两个数相加的结果：
Dim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = InputBox(\请输入第一个数\num2 = InputBox(\请输入第二个数\sum = num1 + num2MsgBox(\两个数的和为：\ & sum)
该程序首先定义了三个变量，分别用于存储两个数和它们的和。然后使用InputBox函数获取用户输入的两个数，使用加号运算符将它们相加，并将结果存储在sum变量中。最后使用MsgBox函数显示计算结果。
五、总结
学习通VB程序设计基础，需要掌握VB的开发环境、变量和数据类型、运算符和表达式、控制结构、函数和子程序等基本知识。通过实例练习，可以加深对这些知识的理解和掌握。在日常工作中，可以利用VB开发出各种实用的Windows应用程序，提高工作效率。
中国大学VB程序设计基础
VB程序设计是计算机科学的一门基础课程，也是信息技术时代的重要组成部分。在中国大学中，VB程序设计基础课程通常由计算机科学与技术专业的教师教授，并作为该专业的核心课程之一。
VB程序设计基础课程主要包括以下内容：
1. VB语言基础
VB语言是一种基于对象的编程语言，因此在学习VB程序设计基础前，我们需要先了解VB语言的基本语法和程序结构。VB语言包括变量、数据类型、运算符、条件语句、循环语句、数组等基本概念，这些都是VB程序设计的基础。
2. 窗体设计
VB程序的窗体是程序界面的主要组成部分，因此学习窗体设计是VB程序设计基础不可或缺的一部分。窗体设计包括窗体的创建、窗体属性的设置、控件的添加、控件属性的设置等内容。
3. 事件处理
VB程序是事件驱动的，因此学习事件处理是VB程序设计基础中必不可少的一部分。事件处理包括事件的定义、事件处理程序的编写、事件参数的传递等内容。
4. 数据库编程
大多数VB程序都需要涉及数据库编程，因此学习数据库编程也是VB程序设计基础中重要的一部分。数据库编程包括连接数据库、查询数据、插入数据、更新数据、删除数据等内容。
5. 文件操作
VB程序常常需要进行文件操作，因此学习文件操作也是VB程序设计基础中必不可少的一部分。文件操作包括文件的打开、读取、写入、关闭、删除等内容。
6. 网络编程
VB程序可以利用网络进行通信，因此学习网络编程也是VB程序设计基础中的重要一部分。网络编程包括TCP/IP协议、Socket编程、Web服务编程等内容。
7. 面向对象程序设计
VB语言是一种基于对象的编程语言，因此学习面向对象程序设计也是VB程序设计基础中必不可少的一部分。面向对象程序设计包括类的定义、对象的创建、属性的设置、方法的调用等内容。
总的来说，中国大学VB程序设计基础是一门重要的计算机科学课程，对于计算机科学与技术专业的学生来说尤为重要。只有通过对VB程序设计基础的学习和实践，才能掌握VB程序设计的基本技能，为以后的编程工作打下坚实的基础。
