VB.NET程序设计(华中科技大学) 中国大学mooc慕课答案2024版 m90525
第1讲 算法与程序设计 第1讲测验
1、 计算机中，所有信息的存储都采用______。
答案: 二进制
2、 计算机内部采用二进制表示数据信息，二进制主要优点是______。
答案: 计算机容易实现
3、 正数的原码与_相同。
答案: 补码
4、 设计算机中用一个字节（8个二进制位）来存放一个整数。某整数的真值为：-1010110，则对应的补码为______。
答案: 10101010
5、 设计算机中用一个字节（8个二进制位）来存放一个整数。某整数的真值为：- 1100001，则对应的反码为______。
答案: 10011110
6、 下列字符中，其ASCII码值最大的一个是______。
答案: a
7、 数字0的ASCII码是48，那么数字9的ASCII码是______。
答案: 57
8、 ASCII码的字母A和a，它们的编码之差为______。
答案: -32
9、 在ASCII码中共有______个字符编码。
答案: 128
10、 将汉字转换为二进制编码，下列四种说法中正确的是______。
答案: 表示汉字机内码的两个字节每个字节的最高位均为1
11、 从计算机键盘上输入汉字时，输入的实际上是______。
答案: 汉字输入码
12、 存储一个汉字机内码需要______字节。
答案: 2
13、 为解决问题而采用的方法和______就是算法。
答案: 步骤
14、 算法有三种结构，也是程序的三种逻辑结构，它们是______。
答案: 顺序、选择、循环
15、 下列关于算法说法不正确的是______。
答案: 算法独立于任何具体的语言，Visual Basic算法只能用Visual Basic语言来实现
16、 语言处理程序的发展经历了______ 三个发展阶段。
答案: 机器语言、汇编语言和高级语言
17、 下列属于高级程序设计语言的是______。
答案: Visual Basic
18、 用一些助记符表示指令功能的计算机语言是______。
答案: 汇编语言
19、 计算机硬件能直接识别和执行的语言只有______。
答案: 机器语言
第2讲 VB.NET程序设计入门 第2讲测验
1、 对于VB.NET，描述错误的是______。
答案: 仅能开发Windows窗体应用程序
2、 对象的三要素不包含______。
答案: 过程
3、 类是对象的抽象，对象则是类的具体化。在窗体上建立的一个控件称为______。
答案: 对象
4、 在VB.NET中，称对象的数据（特征）为______。
答案: 属性
5、 ______是由VB.NET提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。
答案: 方法
6、 对象可以识别和响应的某些动作称为______。
答案: 事件
7、 有程序代码如下，则Text1、Text、”Text1.Text”分别代表______。 Text1.Text = “Text1.text”
答案: 对象、属性、值
8、 对于Form1.Show( )描述正确的是______。
答案: 对象Form1的Show方法
9、 VB.NET是一种面向对象的可视化程序设计语言，采取了______的编程机制。
答案: 事件驱动
10、 一语句要在下一行继续写，用Space + _符号作为续行符。
答案: _
11、 在一行内写多条语句时，每个语句之间用_符号分隔。
答案: :
12、 下例符号中，_是VB.NET合法的标识符。
答案: x_y
13、 下面属于合法的标识符的是_。
答案: BC_7
14、 对于Visual Studio，描述错误的是______。
答案: Visual Studio是一种编程语言
15、 Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是______。
答案: 属性、事件、方法
16、 VB.NET注释语句的开头符号可以是______。
答案: ‘
第3讲 VB.NET可视化编程 第3讲测验
1、 下列属性中，不能在程序运行阶段通过赋值语句改变属性值的是______。
答案: Name
2、 要使窗体的标题为“我的程序”，应修改窗体的______属性。
答案: Text
3、 运行程序时，系统自动执行窗体的______事件过程。
答案: Load
4、 能显示窗体的方法是______。
答案: Show
5、 对于文本框控件，如果要能够多行显示，应修改文本框控件的______属性值为True。
答案: MultiLine
6、 要使文本框成为密码输入框，一般应修改文本框的______。
答案: PasswordChar属性
7、 文本框TextBox1的PasswordChar的属性值设为&，程序运行时，在文本框TextBox1中连续输入123456，最终在文本框中显示的结果为______。
答案: &&&&&&
8、 要使文本框中的文字不能被修改，应设置______属性。
答案: ReadOnly
9、 要判断在文本框中是否按了Enter键，应在文本框的______事件过程中判断。
答案: KeyPress
10、 程序运行时，用户在一个文本框中输入了“ABCD”4个字符，则该文本框发生了______次TextChanged事件。
答案: 4
11、 要使命令按钮不可操作，应对______属性进行设置。
答案: Enabled
12、 要使命令按钮在运行时不显示，应对______属性进行设置。
答案: Visible
13、 标签控件的作用是______。
答案: 显示或输出文本信息
14、 以下叙述正确的是______。
答案: 对象的Name属性指定对象的名称，用来标识一个对象
15、 在文本框中，通过______属性能获得当前插入点所在的位置。
答案: SelectionStart
16、 当将文本框的ScrollBars属性值设置为Vertical，却没有出现垂直滚动条，原因是______。
答案: 文本框的MulitLine属性为False
17、 设置标签边框的属性是______。
答案: BorderStyle
第4讲 VB.NET语言基础 第4讲测验
1、 下列属于合法的变量名的是_。
答案: X_yz
2、 下列属于合法的字符串常数的是______。
答案: “ABC”
3、 下列属于合法的单精度型变量的是______。
答案: mun！
4、 Rnd函数不可能的值是______。
答案: 1
5、 Int(198.555*100+0.5)/100的值是______。
答案: 198.56
6、 表达式Len(“123程序设计ABC”）的值是______。
答案: 10
7、 要使变量x赋值为1～100（含1，不含100）的一个随机整数，正确的语句是______。
答案: x=1+Int(99*Rnd( ))
8、 表达式Strings.InStr(4, “abcdefabcdefab”, “ab”)的运算结果为______。
答案: 7
9、 语句Dim a%=123+Mid(“123456”,3,2)执行后，a变量的值是______。
答案: 157
10、 设 a = “MicrosoftVisualBasic”， 则以下使变量b的值为”Basic”的语句是______。
答案: b= Strings.Mid(a,16)
11、 下列定义常量不正确的语句是______。
答案: Const Str1$=# VB.Net #
12、 变量A%的类型是______。
答案: Integer
13、 如果将布尔常量值True赋给一个整型变量，则整型变量的值为______。
答案: -1
14、 下列数据中是布尔常量的是______。
答案: True
15、 以下不是常量的是______。
答案: 10 ^ 2
16、 骰子是一个正六面体，用1~6这6个数分别代表这六面，掷一次骰子出现的数可以表示为______。
答案: Int( Rnd( ) * 6 + 1)
17、 设x为大于0的数，下列不能进行四舍五入取整的是______。
答案: Math.Abs(x+0.5)
18、 表达式Len(Space(5))的值是______。
答案: 5
第5讲 表达式与赋值语句 第5讲测验
1、 \、/、Mod、 四个算术运算符中，优先级别最低的是______。
答案: Mod
2、 数学关系表达式 3≤x＜10表示成正确的VB.NET表达式为______。
答案: 3<=x And x<10
3、 表达式 16 / 4 – 2 ^ 5 * 8 / 4 Mod 5 \ 2 的值为______。
答案: 4
4、 下列的运算符中，关系运算符是______。
答案: < >
5、 已知A$=”12345678″，则表达式Val(Mid(A, 1, 4) + Mid(A, 4, 2))的值为______。
答案: 123445
6、 有如下两个表达式： 表达式1：”235″ > “59” 表达式2：Not True And False下列描述正确的是______。
答案: 表达式1和表达式2的值均为False
7、 表达式 21 / 3 – 2 ^ 4 * 90 / 30 Mod 5 \ 2 + Int(-9.2) 的运算结果为______。
答案: -3
8、 如果变量 a=2、b=”abc”、c=”acd”、d=5，则表达式 a<d Or b>c And b<>c 的值为______。
答案: True
9、 执行完上述语句后a的值是多少______。 Dim a as Integer a = 3.7
答案: 4
10、 以下______程序段可以实现x、y变量值的交换。
答案: z = x ：x = y ：y = z
11、 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是______。
答案: x = 1 ：y = 1 ：z = 1
12、 执行如下语句段后，TextBox1中显示的内容为______。 Dim intX%,sglY!,dblZ# intX = 12345.6789 sglY = 12345.6789 dblZ = 12345.6789 TextBox1.text = intX & ” ” & sglY & ” ” & dblZ
答案: 12346 12345.68 12345.6789
13、 如下语句段执行的结果是______。 Dim chrX As Char chrX = “abc” Dim strY As String strY = “abc” TextBox1.Text = chrX & ” ” & strY
答案: 文本框TextBox1中显示内容为 a abc
14、 如下语句段执行的结果是______。 Dim blnX As Boolean = -1 Dim intX As Integer = True TextBox1.Text = “blnX=” & blnX & ” ” & “intX=” & intX
答案: 能正常运行，在TextBox1中显示的内容为：blnX=True intX=-1
15、 与数学表达式 
对应，VB.NET不正确的表达式是______。
答案: ab/3c*d
16、 在VB.NET中，运算符”+”既可用于加法运算，又可用于字符串连接运算。执行下面的代码，消息框中输出的结果分别是______。 Dim x$, y% x = 123 : y = 456 MsgBox(x + y) MsgBox(x & y)
答案: 579 123456
17、 选拔身高T超过1.7m且体重W小于62.5kg的人，表示该条件的表达式为______。
答案: T > 1.7 And W < 62.5
18、 某单位招聘秘书，条件是：女性，40岁以下，本科或专科学历。表示该条件的逻辑表达式是______。
答案: 性别 = “女” And 年龄 < 40 And (学历 = “本科” Or 学历 = “专科”)
下方是付费阅读内容：本平台商品均为虚拟商品，无法用作二次销售，不支持退换货，请在购买前确认您需要购买的资料准确无误后再购买，望知悉！
完整答案需点击上方按钮支付5元购买,所有答案均为章节测试答案，购买后上方矩形框将出现已付费的隐藏内容。
,
第1讲 算法与程序设计 第1讲测验
1、 计算机中，所有信息的存储都采用______。
答案: 二进制
2、 计算机内部采用二进制表示数据信息，二进制主要优点是______。
答案: 计算机容易实现
3、 正数的原码与_相同。
答案: 补码
4、 设计算机中用一个字节（8个二进制位）来存放一个整数。某整数的真值为：-1010110，则对应的补码为______。
答案: 10101010
5、 设计算机中用一个字节（8个二进制位）来存放一个整数。某整数的真值为：- 1100001，则对应的反码为______。
答案: 10011110
6、 下列字符中，其ASCII码值最大的一个是______。
答案: a
7、 数字0的ASCII码是48，那么数字9的ASCII码是______。
答案: 57
8、 ASCII码的字母A和a，它们的编码之差为______。
答案: -32
9、 在ASCII码中共有______个字符编码。
答案: 128
10、 将汉字转换为二进制编码，下列四种说法中正确的是______。
答案: 表示汉字机内码的两个字节每个字节的最高位均为1
11、 从计算机键盘上输入汉字时，输入的实际上是______。
答案: 汉字输入码
12、 存储一个汉字机内码需要______字节。
答案: 2
13、 为解决问题而采用的方法和______就是算法。
答案: 步骤
14、 算法有三种结构，也是程序的三种逻辑结构，它们是______。
答案: 顺序、选择、循环
15、 下列关于算法说法不正确的是______。
答案: 算法独立于任何具体的语言，Visual Basic算法只能用Visual Basic语言来实现
16、 语言处理程序的发展经历了______ 三个发展阶段。
答案: 机器语言、汇编语言和高级语言
17、 下列属于高级程序设计语言的是______。
答案: Visual Basic
18、 用一些助记符表示指令功能的计算机语言是______。
答案: 汇编语言
19、 计算机硬件能直接识别和执行的语言只有______。
答案: 机器语言
第2讲 VB.NET程序设计入门 第2讲测验
1、 对于VB.NET，描述错误的是______。
答案: 仅能开发Windows窗体应用程序
2、 对象的三要素不包含______。
答案: 过程
3、 类是对象的抽象，对象则是类的具体化。在窗体上建立的一个控件称为______。
答案: 对象
4、 在VB.NET中，称对象的数据（特征）为______。
答案: 属性
5、 ______是由VB.NET提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。
答案: 方法
6、 对象可以识别和响应的某些动作称为______。
答案: 事件
7、 有程序代码如下，则Text1、Text、”Text1.Text”分别代表______。 Text1.Text = “Text1.text”
答案: 对象、属性、值
8、 对于Form1.Show( )描述正确的是______。
答案: 对象Form1的Show方法
9、 VB.NET是一种面向对象的可视化程序设计语言，采取了______的编程机制。
答案: 事件驱动
10、 一语句要在下一行继续写，用Space + _符号作为续行符。
答案: _
11、 在一行内写多条语句时，每个语句之间用_符号分隔。
答案: :
12、 下例符号中，_是VB.NET合法的标识符。
答案: x_y
13、 下面属于合法的标识符的是_。
答案: BC_7
14、 对于Visual Studio，描述错误的是______。
答案: Visual Studio是一种编程语言
15、 Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是______。
答案: 属性、事件、方法
16、 VB.NET注释语句的开头符号可以是______。
答案: ‘
第3讲 VB.NET可视化编程 第3讲测验
1、 下列属性中，不能在程序运行阶段通过赋值语句改变属性值的是______。
答案: Name
2、 要使窗体的标题为“我的程序”，应修改窗体的______属性。
答案: Text
3、 运行程序时，系统自动执行窗体的______事件过程。
答案: Load
4、 能显示窗体的方法是______。
答案: Show
5、 对于文本框控件，如果要能够多行显示，应修改文本框控件的______属性值为True。
答案: MultiLine
6、 要使文本框成为密码输入框，一般应修改文本框的______。
答案: PasswordChar属性
7、 文本框TextBox1的PasswordChar的属性值设为&，程序运行时，在文本框TextBox1中连续输入123456，最终在文本框中显示的结果为______。
答案: &&&&&&
8、 要使文本框中的文字不能被修改，应设置______属性。
答案: ReadOnly
9、 要判断在文本框中是否按了Enter键，应在文本框的______事件过程中判断。
答案: KeyPress
10、 程序运行时，用户在一个文本框中输入了“ABCD”4个字符，则该文本框发生了______次TextChanged事件。
答案: 4
11、 要使命令按钮不可操作，应对______属性进行设置。
答案: Enabled
12、 要使命令按钮在运行时不显示，应对______属性进行设置。
答案: Visible
13、 标签控件的作用是______。
答案: 显示或输出文本信息
14、 以下叙述正确的是______。
答案: 对象的Name属性指定对象的名称，用来标识一个对象
15、 在文本框中，通过______属性能获得当前插入点所在的位置。
答案: SelectionStart
16、 当将文本框的ScrollBars属性值设置为Vertical，却没有出现垂直滚动条，原因是______。
答案: 文本框的MulitLine属性为False
17、 设置标签边框的属性是______。
答案: BorderStyle
第4讲 VB.NET语言基础 第4讲测验
1、 下列属于合法的变量名的是_。
答案: X_yz
2、 下列属于合法的字符串常数的是______。
答案: “ABC”
3、 下列属于合法的单精度型变量的是______。
答案: mun！
4、 Rnd函数不可能的值是______。
答案: 1
5、 Int(198.555*100+0.5)/100的值是______。
答案: 198.56
6、 表达式Len(“123程序设计ABC”）的值是______。
答案: 10
7、 要使变量x赋值为1～100（含1，不含100）的一个随机整数，正确的语句是______。
答案: x=1+Int(99*Rnd( ))
8、 表达式Strings.InStr(4, “abcdefabcdefab”, “ab”)的运算结果为______。
答案: 7
9、 语句Dim a%=123+Mid(“123456”,3,2)执行后，a变量的值是______。
答案: 157
10、 设 a = “MicrosoftVisualBasic”， 则以下使变量b的值为”Basic”的语句是______。
答案: b= Strings.Mid(a,16)
11、 下列定义常量不正确的语句是______。
答案: Const Str1$=# VB.Net #
12、 变量A%的类型是______。
答案: Integer
13、 如果将布尔常量值True赋给一个整型变量，则整型变量的值为______。
答案: -1
14、 下列数据中是布尔常量的是______。
答案: True
15、 以下不是常量的是______。
答案: 10 ^ 2
16、 骰子是一个正六面体，用1~6这6个数分别代表这六面，掷一次骰子出现的数可以表示为______。
答案: Int( Rnd( ) * 6 + 1)
17、 设x为大于0的数，下列不能进行四舍五入取整的是______。
答案: Math.Abs(x+0.5)
18、 表达式Len(Space(5))的值是______。
答案: 5
第5讲 表达式与赋值语句 第5讲测验
1、 \、/、Mod、 四个算术运算符中，优先级别最低的是______。
答案: Mod
2、 数学关系表达式 3≤x＜10表示成正确的VB.NET表达式为______。
答案: 3<=x And x<10
3、 表达式 16 / 4 – 2 ^ 5 * 8 / 4 Mod 5 \ 2 的值为______。
答案: 4
4、 下列的运算符中，关系运算符是______。
答案: < >
5、 已知A$=”12345678″，则表达式Val(Mid(A, 1, 4) + Mid(A, 4, 2))的值为______。
答案: 123445
6、 有如下两个表达式： 表达式1：”235″ > “59” 表达式2：Not True And False下列描述正确的是______。
答案: 表达式1和表达式2的值均为False
7、 表达式 21 / 3 – 2 ^ 4 * 90 / 30 Mod 5 \ 2 + Int(-9.2) 的运算结果为______。
答案: -3
8、 如果变量 a=2、b=”abc”、c=”acd”、d=5，则表达式 a<d Or b>c And b<>c 的值为______。
答案: True
9、 执行完上述语句后a的值是多少______。 Dim a as Integer a = 3.7
答案: 4
10、 以下______程序段可以实现x、y变量值的交换。
答案: z = x ：x = y ：y = z
11、 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是______。
答案: x = 1 ：y = 1 ：z = 1
12、 执行如下语句段后，TextBox1中显示的内容为______。 Dim intX%,sglY!,dblZ# intX = 12345.6789 sglY = 12345.6789 dblZ = 12345.6789 TextBox1.text = intX & ” ” & sglY & ” ” & dblZ
答案: 12346 12345.68 12345.6789
13、 如下语句段执行的结果是______。 Dim chrX As Char chrX = “abc” Dim strY As String strY = “abc” TextBox1.Text = chrX & ” ” & strY
答案: 文本框TextBox1中显示内容为 a abc
14、 如下语句段执行的结果是______。 Dim blnX As Boolean = -1 Dim intX As Integer = True TextBox1.Text = “blnX=” & blnX & ” ” & “intX=” & intX
答案: 能正常运行，在TextBox1中显示的内容为：blnX=True intX=-1
15、 与数学表达式 对应，VB.NET不正确的表达式是______。
答案: ab/3c*d
16、 在VB.NET中，运算符”+”既可用于加法运算，又可用于字符串连接运算。执行下面的代码，消息框中输出的结果分别是______。 Dim x$, y% x = 123 : y = 456 MsgBox(x + y) MsgBox(x & y)
答案: 579 123456
17、 选拔身高T超过1.7m且体重W小于62.5kg的人，表示该条件的表达式为______。
答案: T > 1.7 And W < 62.5
18、 某单位招聘秘书，条件是：女性，40岁以下，本科或专科学历。表示该条件的逻辑表达式是______。
答案: 性别 = “女” And 年龄 < 40 And (学历 = “本科” Or 学历 = “专科”)
,
第6讲 数据的分支处理 第6讲测验
1、 对于语句“If x=1 Then y=1”，下列说法正确的是_。
答案: “x=1”为关系表达式，“y=1”为赋值语句
2、 下列程序运行后消息对话框显示的结果是______。 Dim x%, y% x = Int(Rnd()) + 3 If x ^ 2 > 8 Then y = x ^ 2 + 1 If x ^ 2 = 9 Then y = x ^ 2 – 2 If x ^ 2 < 8 Then y = x ^ 3 MsgBox(y)
答案: 7
3、 设a=1, b=2, c=3, d=4，则表达式IIf(a<b, c, d)的结果为______。
答案: 3
4、 有如下程序段： Dim intResult%, intX%, intY% intX = 100 : intY = 50 intResult = IIf(intX <= intY, intX * 2, intY – 50) 执行该段程序后，intResult的值为______。
答案: 0
5、 计算分段函数值，下列程序段正确的是______。
答案: If x >= 2 Then y = 3ElseIf x >= 1 Then y = 2ElseIf x >=0 Then y = 1Else y = 0End If
6、 有如下程序段，执行该段程序后，TextBox1中显示的内容为______。 Dim a%, b%, c% a = 10 : b = 100 : c = 500 If a < b Then If c > a Then TextBox1.Text = b Else TextBox1.Text = c End If Else TextBox1.Text = a End If
答案: 100
7、 下面If语句统计满足职称（用字符串变量duty表示）为副教授或教授、且年龄（用整型变量age表示）小于40岁条件的人数，正确的语句是______。
答案: If age < 40 And （duty = “教授” or duty = “副教授”） Then n = n + 1
8、 有下列程序段，其中存在着1个错误，发生在______语句。 Const pi = 3.14! Dim i%, s! i = 4.6 pi = 3.14159 If i Then s = pi * i * i Else s = 1 MsgBox(s)
答案: pi = 3.14159
9、 有如下代码段，这段代码执行完毕之后，消息框中显示的内容为______。 Dim A as integer A = 200 If A <= 100 Then A = A * 10 If A > 1000 Then A = A － 10 Else A = A ＋ 10 Endif Else A = A / 10 If A = 10 Then A = A － 10 Else A = A ＋ 10 End If End If MsgBox(A)
答案: 30
10、 有三个整型变量a、b、c，当a大于b且b大于c时，将变量x的值加1，以下语句正确的是______。
答案: If a > b And b > c Then x = x + 1
11、 程序段如下，程序运行后消息框显示的结果是______。 Dim x%, y%, z%, t% x = 38 : y = 50 : z = 46 If x > y Then t = x : x = y : y = t If x > z Then t = x : x = z : z = t If y > z Then t = y : y = z : z = t MsgBox(y)
答案: 46
12、 下列程序段的执行结果为______。 Dim x% x = Int(Rnd( ) + 4) If x > 4 then MsgBox( “优秀” ) ElseIf x > 3 MsgBox( “良好” ) ElseIf x >2 MsgBox( “通过” ) Else MsgBox( “不通过” ) End If
答案: 良好
13、 有如下程序段，该程序段运行后变量a的值为______。 Dim a As Integer, b As Integer a = 5 : b = 3 If a Mod b = 2 Then a = a ^ 2 Else a = b ^ 2
答案: 25
14、 有如下程序段，该程序段运行后Label1中显示的内容为______。 Dim x$, y% x = “boy or girl?” y = Len(x) If y < 11 Then Label1.Text = “I am ” & Mid(x, 1, 3) Else Label1.Text = “I am ” & Mid(x, 8, 4) End If
答案: I am girl
15、 有如下程序段，该程序段运行后变量c的值为______。 Dim c As String, a As Boolean a = True If Not a Then c = Chr(Asc(“A”) + 1) Else c = Chr(Asc(“A”) + 2) End If
答案: “C”
16、 设a=6，b=5，c=2，执行语句MsgBox(a > b > c)后，消息框中显示的是______。
答案: False
第7讲 数据的循环处理 第7讲测验
1、 有如下程序段，执行该段程序后，消息对话框显示的内容为______。 Dim i%, n% For i = 3 To 20 Step 4 n = n + 1 Next MsgBox(i & ” ” & n)
答案: 23 5
2、 某人设计了下列程序用于计算并输出7!（7的阶乘），执行程序时，发现结果是错误的。下列修改方案中能够得到正确结果的是______。 Dim t%, k% t = 0 For k = 7 To 2 Step -1 t = t * k Next Msgbox(t)
答案: 把 t=0 改为 t=1
3、 下列这段代码执行后，消息框弹出的结果是______。 Dim i As Integer For i = 1 To 5 i += 2 Next i MsgBox(i)
答案: 7
4、 下列循环语句中在任何情况下都至少执行一次循环体的是______。
答案: Do 循环体Loop Until <条件>
5、 下列循环体能正常结束的是______。
答案: i = 10Do i = i + 1Loop Until i > 0
6、 有如下代码段，如果要求该程序执行3次循环，则在程序中的括号里要填入______。 Dim x% = 1 Do x = x + 3 MsgBox(x) Loop Until ( )
答案: x >= 8
7、 以下程序输出的结果为______。 Dim x%, y% x = 1 ： y = 4 Do Until y > 4 x = x * y y = y + 1 Loop MsgBox( x )
答案: 4
8、 下列关于For …Next 语句的说法正确的是______。
答案: 循环变量、初值、终值和步长都必须为数值型
9、 有以下程序段, 执行该段程序后，消息对话框显示的内容为______。 Dim s%, i% s = 0 For i = 10 To 50 Step 10 s = s + i If i = 30 Then Exit For End If Next i MsgBox(s & ” ” & i)
答案: 60 30
10、 执行下面的程序段后，m的值为______。 Dim m%, n% For n = 1 To 20 If n Mod 3 <> 0 Then m = m + n \ 3 Next n Label1.text = m
答案: 42
11、 以下程序执行完毕后，在消息框中显示的消息是______。 Dim k as integer For k=1 to 5 step 2 k=k+3 Next MsgBox(k)
答案: 6
12、 以下程序运行后，标签中显示的内容是______。 Dim S%, X% For i = 1 To 15 X = 2 * i – 1 If X Mod 3 = 0 Then S = S + 1 Next Label1.Text = S
答案: 5
13、 循环结构For i = 100 to 1 step -4中，循环体执行的次数为______。
答案: 25
14、 下列程序执行后，变量s的值为______。 Dim i%, j%, s% j = 1 s = 0 For i = 4 To 1 Step -1 s = s + i * j j = j * 10 Next i
答案: 1234
15、 下列程序段执行后，Label1显示的结果是______。 Dim a, b, k, m As Integer a = 16 b = 24 m = a If a > b Then m = b For k = m To 1 Step -1 If a Mod k = 0 And b Mod k = 0 Then Exit For Next Label1.Text = k
答案: 8
16、 程序段如下，程序运行后消息框显示的结果是______。 Dim a, s As String, i As Integer a = “晴空万里” s = “” For i = 1 To 4 Step 2 s &= Mid(a, 4 – i, 2) Next MsgBox(s)
答案: 万里晴空
17、 执行下面的程序段后，s的值为______。 Dim s As String, i As Integer, flag As Boolean s = “this is a book” flag = True For i = 1 To Len(s) If Mid(s, i, 1) = ” ” Then flag = True ElseIf flag Then s = Strings.Left(s, i – 1) & UCase(Mid(s, i, 1)) & Strings.Right(s, Len(s) – i) flag = False End If Next i
答案: This Is A Book
第8讲 多重循环及综合案例 第8讲测验
1、 下面的程序执行完后y的值为______。Dim x As Long = 1203004Dim y As long = 0Do y = y * 10 + x Mod 10 x = x \ 10Loop Until x = 0
答案: 4003021
2、 下列程序段的运行结果为______。 Label1.Text = “” For i = 3 To 1 Step -1 Label1.Text &= Space(5-i) For j = 1 To 2 * i – 1 Label1.Text &= “*” Next j Label1.Text &= vbCrLf Next i
答案: 
3、 下列程序段能分别正确显示1!、2!、3!、4!的值的是______。
答案: n = 1j = 1Do While j <= 4 n = n * j MsgBox(n) j = j + 1Loop
4、 有如下程序段，运行该程序代码段后，消息对话框中显示的内容为______。 Dim i%, j%, n%, m%, k% m = 0 : k = 0 For i = 1 To 5 k = k + 1 n = 0 For j = 1 To 2 n = n + 1 m = m + 1 Next j Next i MsgBox(k & ” ” & n & ” ” & m)
答案: 5 2 10
5、 下列程序段显示______个“”。 Dim i%, j% For i = 1 To 5 For j = 2 To i MsgBox(““) Next j Next i
答案: 10
6、 对于下面的程序，其循环执行的次数为：______。 For i = 1 To 3 For j = 5 To 1 Step -1 Label1.Text = i + j Next j Next i
答案: 15
7、 下列程序段执行后，Label1显示的是______。 Dim s As String = “你好华科大，大美华科大，我爱你华科大！” Dim s1 As String Dim k, p As Integer k = InStr(s, “华科大”) p = Len(s) Do While k > 0 s1 = Microsoft.VisualBasic.Left(s, k – 1) s1 &= “HUST” s1 &= Microsoft.VisualBasic.Right(s, p – k + 1 – Len(“华科大”)) s = s1 k = InStr(s, “华科大”) p = Len(s) Loop Label1.Text = s
答案: 你好HUST，大美HUST，我爱你HUST！
8、 下面的程序运行后，Label1显示的结果是______。 Dim n,s As Integer n = 5127 s = 0 Do While n > 0 s = s + n mod 10 n = n \ 10 Loop Label1.Text = s
答案: 15
9、 程序段如下，程序运行后消息框显示的结果是______。 Dim x%, n% x = 0 Do While x < 50 x = (x + 2) * (x + 3) n = n + 1 Loop MsgBox(n & ” ” & x)
答案: 2 72
10、 下面的程序执行完后a，b的值分别为______。 Dim x, y, a, b As Integer x = 12 : y = 8 a = 1 : b = x * y Do While x Mod 2 = 0 And y Mod 2 = 0 x = x \ 2 y = y \ 2 a = a * 2 Loop Do While x <> y If x > y Then x = x – y Else y = y – x End If Loop a = a * x b = b \ a
答案: 4 24
11、 下列程序段执行后，在标签Label1中显示的图形是______。 Dim s$, i%, j% s = “” For i = 1 To 4 s &= Space(4 – i) For j = 1 To i s &= 2 * i – 1 Next j s &= vbCrLf Next i Label1.Text = s
答案: 
12、 下列程序段执行后，在标签Label1中显示的图形为______。 Dim i As Integer Dim p As String = “ABCDEFGH” Dim s As String s = “” For i = 1 To 5 s &= Microsoft.VisualBasic.Left(p, i) s &= vbCrLf Next Label1.Text = s
答案: 
13、 下面的程序段运行后，消息框显示的结果是______。 For i = 1 To 4 n = 1 For j = 1 To i n = n * j Next j Next i MsgBox(n)
答案: 24
14、 下列程序段执行后，变量a，b，c，d的值分别为______。 Dim a, b, c, d, i, j As Integer a = 0: b = 0: c = 0: d = 0 For i = 1 To 20 a = a + 1 For j = 1 To 10 b = b + 1 If j > 6 Then Exit For End If c = c + 1 Next d = d + 1 Next
答案: 20 140 120 20
15、 下面的程序运行后，Label1显示的结果是______。 Dim n, s As Long n = 87562423 Do While n >= 10 s = 0 Do s = s + n Mod 10 n = n \ 10 Loop Until n = 0 n = s Loop Label1.Text = n
答案: 1
16、 下面代码执行后，变量s的值为______。 Dim i, n As Integer, s As String i = 2 : n = 12 : s = n & “=” Do Until n = 1 Do While n Mod i = 0 s &= i & “” n = n \ i Loop i += 1 Loop s = Strings.Left(s, Len(s) – 1)
答案: 12=223
第9讲 数组（一） 第9讲测验
1、 Dim dblScore#(4) 声明的数组的类型是______。
答案: Double
2、 下列语句声明的数组Score有______个元素。 Dim intScore%(4)
答案: 5
3、 下列语句声明的数组Score有______个元素。 Dim intNum% Dim intScore%(intNum)
答案: 1
4、 下面语句正确的是______。
答案: Dim a( ) As Integer = {12}
5、 对于语句 Dim blnArr(-1) As Boolean，说法正确的是______。
答案: 该数组没有元素
6、 下列程序执行后，a(a(2)) 结果为______。 Dim a%(18) For i = 0 To 10 a(i) = 3 * i Next i
答案: 18
7、 下列程序执行后，a(n) 与b(n) 结果为______。 Dim a(10), b(10), n As Integer n = 3 For i = 1 To 5 a(i) = i b(n) = 2 * n + i Next i
答案: 3 11
8、 已知有一个一维数组A，下列语句______不能得到数组的总大小。
答案: A.GetLength
9、 执行以下程序时，则输出结果为______。 Dim a() = {1, 3, 5, 7}, b(4) , i As Integer For i = 0 To 2 b(3 – i) = a(i + 1) Next i MsgBox(b(i))
答案: 3
10、 下列程序执行后，s的值为______。 Dim i%, j%, s% Dim a%() = {1, 2, 3, 4} j = 1 For i = 3 To 0 Step -1 s = s + a(i) * j j = j * 10 Next i
答案: 1234
11、 同一个数组的数据元素具有相同的______。
答案: 数据类型
12、 若使用DimA(100) As Integer语句声明了数组A，下列引用错误的是______。
答案: A(56) = A(-56)
13、 以下程序的输出结果是______。 Dim a%( ) = { 1, 2, 3, 4, 5, 6, 7 } Dim i% For i = 0 To a.GetUpperBound(0) a(i) = a(i) * a(i) Next MsgBox(a(i))
答案: 程序出错
14、 下面代码执行后，在消息框中显示的消息是______。 Dim i, j As Integer, s As String Dim intPrime As Integer() = { 0, 0, 2, 3, 4, 5, 6, 7, 8, 9 } For i = 2 To intPrime.GetUpperBound(0) – 1 If intPrime(i) <> 0 Then s &= intPrime(i) & “,” For j = i + 1 To intPrime.GetUpperBound(0) If intPrime(j) Mod intPrime(i) = 0 Then intPrime(j) = 0 Next End If Next MsgBox(s)
答案: 2,3,5,7,
15、 下面的程序运行后，Label1显示的结果是______。 Dim a() As Integer = {12, 45, 23, 46, 67, 234} Dim i, s, x, d As Integer Dim tag As Boolean s = 0 For i = a.GetLowerBound(0) To a.GetUpperBound(0) x = a(i) tag = False Do While x <> 0 d = x Mod 10 x = x \ 10 If d = 4 Then tag = True Exit Do End If Loop If tag = True Then s = s + a(i) End If Next Label1.Text = s
答案: 325
16、 在窗体中添加一文本框TextBox1，然后编写以下程序代码： Private Sub Form1_Click(…) Handles Me.Click Dim a = Split(TextBox1.Text, “,”) Dim strTemp As String For i = a.GetLowerBound(0) To a.GetUpperBound(0) strTemp &= a(i) + trim(str(i)) Next MsgBox(strTemp) End Sub在程序运行时，先在文本框中键入数据“0,1,2,3,4”，然后单击窗体，程序的输出结果是______。
答案: 0011223344
第10讲 数组（二） 第10讲测验
1、 运行以下程序，消息框中的输出结果为______。 Dim x$() = {“VB语言”, “VB.Net语言”, “C++语言”, “C#语言”} MsgBox(x(Len(x(2)) – x.Length – x.Rank))
答案: VB语言
2、 以下程序的输出结果为______。 Dim a%() = {345, -54, 200, 356, 65, 23} Dim i As Integer, m As Integer, intIndex As Integer m = a(intIndex) For i = a.GetLowerBound(0) To a.GetUpperBound(0) If a(i) > m Then m = a(i) intIndex = i End If Next MsgBox(m & ” ” & intIndex)
答案: 356 3
3、 以下程序的输出结果为______。 Dim a(10) As Integer, p(3), i, k As Integer For i = 1 To 10 a(i) = 2 * (i – 1) + 1 Next i For i = 1 To 3 p(i) = a(i * i) Next i For i = 1 To 3 k = k + p(i) \ 2 Next i MsgBox(k)
答案: 11
4、 下面代码运行后，消息框中显示的消息是______。 Dim intA As Integer() = {23, 56, 90, 54, 67, 32, 54, 78, 67} Dim x = 67, i As Integer For i = intA.GetLowerBound(0) To intA.GetUpperBound(0) If x = intA(i) Then Exit For Next MsgBox(i)
答案: 4
5、 下列有关ReDim语句的叙述中，正确的是______。
答案: 它只能用于过程内部
6、 把整型数组a的大小更改为6，并要求保留老数据，下面的语句正确的是______。
答案: ReDim Preserve a(5)
7、 把整型数组intScore的大小更改为6，下面的语句正确的是______。
答案: Array.Resize(intScore, 6)
8、 假设一维数组intA、intB已有正确的定义，则下面的两语句执行后_____。 ReDim Preserve intA(10) Array.Resize(intB, 10)
答案: intA的大小为11，intB的大小为10
9、 下列程序执行后的结果为______。 Dim intArray(5, 10) As Integer For i = intArray.GetLowerBound(0) To intArray.GetUpperBound(0) For j = intArray.GetLowerBound(1) To intArray.GetUpperBound(1) intArray (i, j) = j – i Next Next MsgBox(intArray (intArray (1, 2), 4))
答案: 3
10、 下面代码的执行结果是______。 Dim intArray(5, 5) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 2 To 4 intArray (i, j) = i + j Next Next MsgBox(intArray (2, 3) + intArray (3, 4) + intArray (1, 1))
答案: 12
11、 下面代码执行后，strTemp中的结果是______。 Dim i, j, m, n, intArray(3, 3) As Integer, strTemp As String For i = intArray.GetLowerBound(0) To intArray.GetUpperBound(0) For j = intArray.GetLowerBound(1) To intArray.GetUpperBound(1) If i = 1 Then intArray(i, j) = j + 1 Else intArray(i, j) = i * j Next Next For m = 1 To 2 For n = 1 To 3 strTemp &= intArray(m, n) Next n Next m MsgBox(strTemp)
答案: 234246
12、 如需要使用数组来存储如下的方阵数据，则最合适的数组声明语句为______。 1.1 2.2 3.3 4.4 5.5 6.6 7.7 8.8 9.9
答案: Dim a(2, 2) As Single
13、 设有变量n，其值为3，有语句Dim strName$( n )，则下列说法中正确的是______。
答案: 该语句等价于Dim strName$ (0 To n)
14、 假设一维数组intArray中有6个元素，则语句ReDim intArray(intArray.Length)连续执行三次后，数组intArray的大小为______。
答案: 9
15、 用以下语句定义的数组，元素的个数是______。 Dim A（3, 5） As Integer
答案: 24
16、 如下数组声明语句，正确的是______。
答案: Dim a%(,)
第11讲 过程 第11讲测验
1、 过程是VB.NET的基本组成单位，下列不是VB.NET的常用过程的是______。
答案: Generic过程
2、 对于过程，下列说法正确的是______。
答案: 声明一个过程，默认的访问方式是Public
3、 在Function过程的定义中，要想返回所需要的值，至少需对函数名赋值或使用Return语句______。
答案: 一次
4、 从函数过程退出，并返回到主调过程，可使用语句______。
答案: Exit Function
5、 下列关于Function过程的叙述中正确的是______。
答案: 一个Function过程必须有一个End Function语句
6、 在过程定义中参数用______说明，表示是传值参数。
答案: ByVal
7、 要想从子过程调用后带回两个结果，下列子过程声明语句正确的是______。
答案: Sub f1(ByRef n%, ByRef m%)
8、 在参数传递时，如果对形参所做的修改在过程执行完毕返回到主调过程后想要它影响到实参，应采用______。
答案: 按地址传递
9、 过程代码段如下，单击Button1后，消息框中显示的结果是_。 Public Sub F1(ByRef n%, ByVal m%) n = n Mod 10 m = m \ 10 End Sub Private Sub Button1Click(sender As Object, e As EventArgs) Handles Button1.Click Dim x%, y% x=12 y=34 Call F1(x, y) MsgBox( x & ” ” & y ) End Sub
答案: 2 34
10、 过程代码段如下，单击Button1后，消息框中显示的结果是_。 Private Function P%(ByVal n As Integer) Dim i%, Sum% For i = 1 To n Sum = Sum + 1 Next i Return Sum End Function Private Sub Button1Click(sender As Object, e As EventArgs) Handles Button1.Click Dim S% S = P(1) + P(2) + P(3) + P(4) MsgBox(S) End Sub
答案: 10
11、 过程代码段如下，单击Button1后，文本框中显示的结果是_。 Private Function f(ByVal m As Integer) As String Dim s As String, b As Integer s = “” Do While m > 0 b = m Mod 10 If b <> 0 Then s = b & s End If m = m \ 10 Loop Return s End Function Private Sub Button1Click(sender As Object, e As EventArgs)Handles Button1.Click TextBox1.Text = f(102003) End Sub
答案: 123
12、 过程代码段如下，单击Button1后，消息框中显示的消息为_。 Private Sub Button1Click(sender As Object, e As EventArgs)Handles Button1.Click Dim s%, d% s = 100 : d = 10 f(100, 10, s, d) MsgBox(s & “ “ & d) End Sub Function f%(Byval x%, Byval y%, Byval Sum%, ByRef Differ%) Sum = x + y Differ = x – y Return 0 End Function
答案: 100 90
13、 过程代码段如下，单击Button1后，消息框中显示的消息为_。 Private Sub Button1Click(sender As Object, e As EventArgs) Handles Button1.Click Dim MyRice%, MyMeat% Dim Str1 As String MyRice = 500 : MyMeat = 200 Str1 = Eater(MyRice, MyMeat) MsgBox( MyRice & ” ” & MyMeat ) End Sub Function Eater(ByVal Rice%, ByRef Meat%) As String Rice = Rice – 100 Meat = Meat – 50 Return “I have had a meal!” End Function
答案: 500 150
14、 下面定义过程语句说明合法的是______。
答案: Function f1(ByVal f1 As Integer) As Integer
15、 下列关于Function过程的叙述中，正确的是______。
答案: Function过程形参的类型与函数的返回值类型没有关系
16、 在Button1的单击事件中，有如下代码： Dim arrA%(0 To 9), intAver%需要调用函数过程funAver求数组arrA的平均值，并将函数过程的返回值赋值给变量intAver。调用的语句中，数组arrA作为该函数过程的实参进行传递。下列语句中能正确实现该要求的是______。
答案: intAver = funAver(arrA)
17、 过程代码段如下，单击Button1后，文本框中显示的结果是_。 Private Sub p(ByVal a As Integer) a = a + 1 End Sub Private Sub Button1Click(sender As Object, e As EventArgs) Handles Button1.Click Dim n, s, x As Integer s = 0 x = 1 For n = 1 To 5 Call p(x) s = s + x Next TextBox1.Text = s End Sub
答案: 5
第12讲 用户界面设计 第12讲测验
1、 在下列关于单选按钮和复选框的说法中，错误的是______。
答案: 某个单选按钮被单击一定会触发它的CheckedChanged事件
2、 复选框是否被选中，是由其______属性值决定的。
答案: Checked
3、 列表框中的选项可以通过______属性设置。
答案: Items
4、 若要获知列表框中列表的总项目数，可通过______属性值来得到。
答案: Items.Count
5、 列表框的______属性是数组。
答案: Items
6、 引用列表框ListBox1的最后一项应使用______。
答案: ListBox1.Items( ListBox1.Items.Count – 1)
7、 将数据项“China”添加到列表框List1中，成为排在最前面的第1项，语句为______。
答案: List1.Items.Insert(0, “china”)
8、 要清除列表框ListBox1中的所有内容，可以使用______语句。
答案: ListBox1.Items.Clear()
9、 若要获得滚动条滑块的当前位置，可以通过访问______属性来实现。
答案: Value
10、 表示滚动条控件滑块位置取值范围最大值的属性是______。
答案: Maximum
11、 滚动条产生Scroll事件是因为______值改变了。
答案: Value
12、 要使载入图片框的图像拉伸或收缩，以适合图片框的大小，则要设置图片框SizeMode属性的值为______。
答案: StretchImage
13、 要使计时器控件的Tick事件每2s触发一次，则需设置Interval属性值为______。
答案: 2000
14、 下列叙述正确的是______。
答案: 可以通过将Interval属性赋值为0，以使得计时器停止工作
15、 在窗体Form1上有一个列表框ListBox1，编写如下两个事件过程： Private Sub Form1_Load(…) Handles MyBase.Load ListBox1.Items.Add(“ItemA”) ListBox1.Items.Add(“ItemB”) ListBox1.Items.Add(“ItemC”) ListBox1.Items.Add(“ItemD”) ListBox1.Items.Add(“ItemE”) End Sub Private Sub Form1_Click(…) Handles Me.Click ListBox1.Items.RemoveAt(1) ListBox1.Items.RemoveAt(3) ListBox1.Items.RemoveAt(2) End Sub运行程序，然后单击窗体，则列表框ListBox1中显示的项目为______。
答案: ItemA和ItemC
16、 在列表框中，如果没有选项被选中时，______属性的值为-1。
答案: SelectedIndex
17、 窗体上有一个名为HScrollBar1的水平滚动条和一个名为TextBox1的文本框。当移动滚动条中的滑块时，在文本框中显示滑块的当前位置值。下列能实现上述操作的程序段是_。
答案: Private Sub HScrollBar1_Scroll(…) Handles HScrollBar1.Scroll TextBox1.Text = HScrollBar1.ValueEnd Sub
18、 为了清除图片框PictureBox1中的图像，可使用语句______。
答案: PictureBox1.Image = Nothing
19、 ______控件不能响应Click事件。
答案: 计时器
点关注，不迷路，微信扫一扫下方二维码
关注我们的公众号：阿布查查 随时查看答案，网课轻松过
为了方便下次阅读，建议在浏览器添加书签收藏本网页
电脑浏览器添加/查看书签方法
1.按键盘的ctrl键+D键，收藏本页面
2.下次如何查看收藏的网页？
点击浏览器右上角-【工具】或者【收藏夹】查看收藏的网页
手机浏览器添加/查看书签方法
一、百度APP添加/查看书签方法
1.点击底部五角星收藏本网页
2.下次如何查看收藏的网页？
点击右上角【┇】-再点击【收藏中心】查看
二、其他手机浏览器添加/查看书签方法
1.点击【设置】-【添加书签】收藏本网页
2.下次如何查看收藏的网页？
点击【设置】-【书签/历史】查看收藏的网页
