排松苯腹焙汞斡害扫煌邢酒薄
第1讲 VB.NET入门基础 单元测验
1、 不属于VB.NET特点的是 。
A:没有语法的程序编写语言
B:易学易用的集成开发环境
C:具有面向对象的可视化设计工具
D:事件驱动的编程机制
E:支持结构化程序设计
F:具有丰富的数据类型、类库
G:强大的数据库、网络和图形功能
H:完备的帮助功能
答案: 没有语法的程序编写语言
2、 在VB.NET中，显示帮助信息的快捷键是 。
A:F1
B:F2
C:F5
D:F6
E:F3
F:Alt+F4
G:Ctrl+C
答案: F1
3、 在VB.NET集成开发环境中，通过 窗口编写程序。
A:代码
B:即时
C:监视
D:布局
E:属性
F:事件
答案: 代码
4、 在集成开发环境有两类窗口，浮动和固定，下面 窗口不是浮动窗口。
A:窗体
B:代码
C:工具箱
D:属性
E:即时
答案: 窗体;
代码
5、 VB.NET项目文件的扩展名是 。
A:.vbproj
B:.vb
C:.sln
D:.exe
E:.user
F:.frm
答案: .vbproj
6、 在下列窗口中， 可以查看与项目有关的所有文件。
A:解决方案资源管理器
B:属性窗口
C:起始页
D:任务列表
E:代码窗口
F:工具箱窗口
答案: 解决方案资源管理器
7、 将调试好的exe可执行文件复制到其他机器上不能运行，其主要原因是__ 。
A:运行的机器上无.NET框架
B:缺少窗体文件
C:该可执行文件有病毒
D:缺少代码文件
E:缺少属性文件
F:缺少方法文件
答案: 运行的机器上无.NET框架
8、 在下列有关VB.NET项目文件的叙述中,不正确的是 。
A:打开扩展名为.vb的文件，就能打开项目文件。
B:打开扩展名为.exe的文件，就能打开项目文件。
C:单击工具栏上的“保存全部”按钮，可以保存项目的所有相关文件。
D:执行“文件|关闭项目”命令，可以将当前项目的所有文件关闭。
E:创建新项目时，系统自动创建一个与项目名称同名的文件夹。
F:bin\debug是项目的当前目录,用于存放运行该项目的可执行程序和通过编码装入的图片、数据库等素材。
答案: 打开扩展名为.vb的文件，就能打开项目文件。;
打开扩展名为.exe的文件，就能打开项目文件。
9、 对象有三要素，分别是： 。
A:属性，事件和方法。
B:界面，代码和属性
C:事件，数据和结构
D:方法，函数和功能
E:属性，驱动和代码
答案: 属性，事件和方法。
10、 在VB.NET中，解决方案文件的扩展名是 。
A:.sln
B:.exe
C:.vb
D:.frm
E:.cs
F:.obj
答案: .sln
11、 对象发生了某个事件，就会执行与这个事件相应的代码，这段代码被称为 。
答案: 事件过程
12、 .NET框架有两个重要组成部分： （填写中文）和.NET基础类库。
答案: 公共语言运行库
作业第1讲 VB.NET入门基础 实验作业 VB.NET环境和可视化编程基础
1、 启动VB.NET，创建一个“Windows应用程序”类型的应用程序。程序的设计界面如图1.1，以“昵称-1-1”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-1-1.rar，以附件形式提交。要求：在屏幕上显示“欢迎学习VB.NET”，在文本框输入你的姓名，在标签框显示输入的姓名。 图1.1 实验1.1运行界面 提示① 所用的控件及属性设置见表2.1.1。
② “欢迎学习VB.NET”要在两行显示，将Label1控件的宽度缩小一些，控件的属性见表2.1.1。③ Label1是第一个Label控件，小写字母“l”与数字“1”要区分。
评分规则: 界面正确，项目能正确运行得2分；界面正确，但不能运行得1分，否则0分。
2、 模仿教材例1.1，改变事件过程中上下移动为左右移动，也要考虑文字出窗体边界的情况。
图1.2 实验1.2 设计界面各控件及属性在属性窗口设置见表格2.1.2，背景图形文件可以选择自己喜欢的。按钮上的图标通过Windows搜索功能查找。以“昵称-1-2”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-1-2.rar，以附件形式提交。
评分规则: 界面正确，项目能正确运行得2分；界面正确，但不能运行得1分，否则0分。
3、 编一程序，在文本框中显示该窗口上鼠标单击的次数，见图1.3。以“昵称-1-3”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-1-3.rar，以附件形式提交。提示: 对窗体编两个事件：Form_Load对文本框置初值为空；Form_Click对文本框计数。
图1.3 运行界面提示对文本框计数：TextBox1.Text=Val(TextBox1.Text)+1
评分规则: 界面正确，项目能正确运行得2分；界面正确，但不能运行得1分，否则0分。
第2讲 可视化编程基础 第2讲单元测验
1、 两个控件的 属性一定不能相同。
A:Name
B:Text
C:Font
D:Size
E:Location
F:Visible
答案: Name
2、 窗体的Load事件，在 时候触发。
A:当应用程序启动后
B:当鼠标单击窗体时
C:当鼠标双击窗体时
D:当窗体变成活动窗体时
E:当改变窗体的大小时
答案: 当应用程序启动后
3、 设置窗体边框的属性是 。
A:FormBorderStyle
B:Text
C:BackgroundImage
D:Cursor
E:Icon
答案: FormBorderStyle
4、 下列不属于控件属性的是 。
A:Class
B:Click
C:Name
D:Text
E:Size
F:Font
G:Visible
答案: Class;
Click
5、 如果某控件的Enable属性为false，则表示 。
A:该控件无效
B:该控件不显示
C:该控件没有背景颜色
D:该控件没有字体
E:该控件不能删除
F:该控件位置固定
答案: 该控件无效
6、 当文本框的ScrollBars属性设置了非None值，却没有滚动条，原因是 。
A:文本框的MultiLine属性为False
B:文本框的MultiLine属性为True
C:文本框的Locked属性为True
D:文本框的Enabled属性为True
E:文本框的ReadOnly属性为True
答案: 文本框的MultiLine属性为False
7、 一句语句要在下一行继续写，用 符号作为续行符。
A: (下划线)
B:– (减号)
C:+
D:…
E://
答案: (下划线)
8、 在文本框中，通过 属性能获得当前插入点所在的位置。
A:SelectionStart
B:SelectionLength
C:SelectedText
D:Text
E:Cursor
答案: SelectionStart
9、 要使文本框不能输入文字，只能显示，可以对 属性进行设置。
A:ReadOnly
B:Locked
C:Visible
D:Enabled
E:Name
答案: ReadOnly
10、 在代码窗口，代码下方有兰色波浪线表示 。
A:编译错误
B:对代码设置了格式
C:逻辑错误
D:运行时错误
E:注释代码
答案: 编译错误
11、 控件的属性可以通过属性窗口设置，也可以在代码窗口通过代码来设置。
A:正确
B:错误
答案: 正确
12、 当Label控件的AutoSize属性为True时，可以随意调整控件的大小。
A:正确
B:错误
答案: 错误
13、 当文本框的Text属性值发生改变时，将引发文本框的__事件。
答案: TextChanged
14、 当文本框的 属性为True时，可以输入或显示多行文本。
答案: MultiLine
作业第2讲 可视化编程基础 实验作业 VB.NET环境和可视化编程基础（续）
1、 按照教材例2.2对窗体三个事件过程（Load、Click、DoubleClick）的编程。程序运行效果如图2.1。以“昵称-2-1”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-2-1.rar，以附件形式提交。具体要求：（1）三个事件中装入不同的图片，可以是你自己喜欢的任何图片或者是你学校的图标。
(a) Load事件运行效果 (b) Click事件运行效果 (c) DoubleClick事件运行效果 图2.1 实验2.1运行界面（2）练习对鼠标指针Cursor的改变，当装入窗体时，鼠标改变为Key04.ico图标文件；当双击双击窗体时，鼠标恢复为默认（Default）状态；练习对窗体图标Icon、边框线类型FormBorderStyle、最大化按钮和最小化按钮的改变。提示①窗体背景图片和卸掉图片在代码窗口分别通过语句实现：Me.BackgroundImage = Image.FromFile(“图片文件名”)Me.BackgroundImage = Nothing ‘ 卸掉图片，窗体无背景图片②鼠标指针Cursor和窗体图标Icon的改变在代码窗口分别通过语句实现： Me.Cursor = New Cursor(“key04.ico”) ‘ 鼠标指针改为指定的文件名图标 Me.Cursor = Cursors.Default ‘ 鼠标指针恢复为默认值Me.Icon = New Icon(“misc34.ico”) ‘ 改变窗体左上方的小图标③图片、图标文件一般使用相对路径，则文件应存放在该项目的Bin\Debug文件夹下。
评分规则: 界面正确，项目能正确运行得2分；界面正确，但不能运行得1分，否则0分。
2、 命令按钮对文本选中内容的复制、字体设置，效果见图2.2。创建项目，以“昵称-2-2”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-2-2.rar，以附件形式提交。具体要求如下：界面有两个文本框，三个命令按钮①Button1：Text属性为“隶书 25磅”，Button1_Click事件过程代码为： TextBox1.Font = New Font(“隶书”, 25)②Button2：Text属性为“幼圆 15磅”，代码类似。③Button3：Text属性为“复制 =>”，要求复制在TextBox1选中的内容以及其字体格式。选中的内容通过TextBox1的.SelectedText属性；字体通过Font直接赋值。
图2.2 运行界面
评分规则: 界面正确，项目能正确运行得2分；界面正确，但不能运行得1分，否则0分。
3、 图片的缩小、还原的设置，效果如图2.3。创建项目，以“昵称-2-3”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-2-3.rar，以附件形式提交。界面设计要求：窗体上放置一个PictureBox1图片框和二个命令按钮。PictureBox1图片框装入你所喜欢的图片，设置SizeMode属性为StretchImage，使得图片随着图片框的大小而变，如图2.3所示。 .
图2.3 实验2.3运行界面要求：① 单击命令按钮“缩小一半”按钮，图片纵、横均缩小一半。② 单击“还原”按钮，图片还原回初始装入时大小。提示为了实现还原，要做三件事：① 必须在事件过程外声明窗体（模块）级变量： Public Class Form1 Dim h%, w% ‘ 用户输入的变量声明语句② 在Form1_Load事件中保存图片框的初始值： w = PictureBox1.Width h = PictureBox1.Height③ 在Button2_Click事件中还原成初始值： PictureBox1.Width =w PictureBox1.Height = h思考：若要设置图片放大，如何修改代码？
评分规则: 界面正确，项目能正确运行得2分；界面正确，但不能运行得1分，否则0分。
作业第3讲 VB.NET语言基础 第3讲实验作业 VB.NET语言基础
1、 随机产生一个3位正整数，然后逆序输出。例如，产生734，逆序是437。以“昵称-3-1”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-3-1.rar，以附件形式提交。
图3.1 运行界面提示利用运算符”Mod”和”\”将一个3位数分离出三个个位数，然后将各位连接成一个逆序的3位数。
评分规则: 界面正确，项目能正确运行得2分；界面正确，但不能运行得1分，否则0分。
2、 2005年1月6日，我国迎来13亿人口日，若按人口年增长0.8%计算，多少年后我国人口超过26亿。创建项目，界面自己设置。以“昵称-3-2”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-3-2.rar，以附件形式提交。提示已知年增长率r=0.8%，求人数超过26亿的年数n公式为：
其中：Log(x)为对数函数，要调用数学函数，必须在窗体代码的最前面加：Imports System.Math名称空间的限定，或者在函数名前加“Math.”。
评分规则: 界面正确，项目能正确运行得2分；界面正确，但不能运行得1分，否则0分。
3、 验证字符串函数的使用，TextBox1文本框输入字符串，TextBox2文本框为函数结果，命令按钮为字符串函数（见图图3.3），第二个标签Label2.Text显示对应的函数名。以“昵称-3-3”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-3-3.rar，以附件形式提交。提示图中所示的常用字符串函数由6个命令按钮组成，其中上面一行3个函数仅有一个TextBox1.Text 作为参数；第二行3个函数要多个参数，除了TextBox1.Text外，还要再通过InputBox输入参数。第二个标签Label2.Text要显示对应的函数名。例如：Instr函数事件过程如下：Sub Button6_Click(…) Handles Button6.Click Dim s1$ s1 = InputBox(“输入查找子串s1”) TextBox2.Text = InStr(TextBox1.Text, s1) Label2.Text = Button6.Text & “函数的结果” End Sub
图3.3 运行界面
评分规则: 界面正确，项目能正确运行得2分；界面正确，但不能运行得1分，否则0分。
4、 随机产生一个3位正整数，然后逆序输出。例如，产生734，逆序是437。以“昵称-3-1”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-3-1.rar，以附件形式提交。
图3.1 运行界面提示利用运算符”Mod”和”\”将一个3位数分离出三个个位数，然后将各位连接成一个逆序的3位数。
评分规则: 界面正确，项目能正确运行得30分；界面正确，但不能运行得10分，其余情况酌情给分分。
5、 2005年1月6日，我国迎来13亿人口日，若按人口年增长0.8%计算，多少年后我国人口超过26亿。创建项目，界面自己设置。以“昵称-3-2”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-3-2.rar，以附件形式提交。提示已知年增长率r=0.8%，求人数超过26亿的年数n公式为：
其中：Log(x)为对数函数，要调用数学函数，必须在窗体代码的最前面加：Imports System.Math名称空间的限定，或者在函数名前加“Math.”。
评分规则: 界面正确，项目能正确运行得30分；界面正确，但不能运行得10分，其余酌情给分。
6、 验证字符串函数的使用，TextBox1文本框输入字符串，TextBox2文本框为函数结果，命令按钮为字符串函数（见图图3.3），第二个标签Label2.Text显示对应的函数名。以“昵称-3-3”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-3-3.rar，以附件形式提交。提示图中所示的常用字符串函数由6个命令按钮组成，其中上面一行3个函数仅有一个TextBox1.Text 作为参数；第二行3个函数要多个参数，除了TextBox1.Text外，还要再通过InputBox输入参数。第二个标签Label2.Text要显示对应的函数名。例如：Instr函数事件过程如下：Sub Button6_Click(…) Handles Button6.Click Dim s1$ s1 = InputBox(“输入查找子串s1”) TextBox2.Text = InStr(TextBox1.Text, s1) Label2.Text = Button6.Text & “函数的结果” End Sub
图3.3 运行界面
评分规则: 界面正确，项目能正确运行得40分；界面正确，但不能运行得10分，每个功能正确可得5分。
第3讲 VB.NET语言基础 第3讲单元测验
1、 要存放某人的年龄，下面 数据类型占用的字节数最小。
A:Byte
B:Short
C:Integer
D:Long
E:Single
F:Double
答案: Byte;
Short
2、 下面 是合法的变量名。
A:X_yz
B:t123
C:z_12ts
D:Integer
E:123abc
F:zhang san
G:x+y
答案: X_yz;
t123;
z_12ts
3、 表达式Chr(Int(Rnd*10+66))产生的范围是 。
A:”B”～”K”
B:”A”～”Z”
C:”a”～”z”
D:”b”～”k”
E:”a”～”j”
答案: ”B”～”K”
4、 表达式Len(“123程序设计ABC”)的值是 。
A:10
B:14
C:7
D:9
E:12
答案: 10
5、 下面 不属于VB.NET基本数据类型
A:Number
B:Value
C:Char
D:Integer
E:Boolean
F:Single
G:Double
答案: Number;
Value
6、 数学关系 3<=x<10 表示成正确的VB.NET表达式为
A:3<=x AND x<10
B:x>=3 OR x<10
C:x>=3 XOR x<10
D:3<=x<10
E:x>=3 MOD x<10
答案: 3<=x AND x<10
7、 整数的数据类型符是 。
A:%
B:$
C:!
D:#
E:@
F:&
答案: %
8、 已知A$=”12345678″，则表达式Val(Mid(A,1,4)+Mid(A,4,2))的值为 。
A:123445
B:2345
C:1252
D:123456
E:1478
答案: 123445
9、 “+”既可作算术相加，也可作字符串连接
A:正确
B:错误
答案: 正确
10、 “&”是字符串连接符，可以将任意基本类型的数据进行连接。
A:正确
B:错误
答案: 正确
11、 表达式Int(3.5)的值是 。
答案: 3
12、 表示x是5的倍数的逻辑表达式为 。
答案: x Mod 5 = 0
13、 要存放某人的年龄，下面 数据类型占用的字节数最小。
A:Byte
B:Long
C:Single
D:Double
答案: Byte
14、 下面 是合法的变量名。
A:X_yz
B:t1+23
C:Integer
D:123abc
答案: X_yz
15、 表达式Chr(Int(Rnd*10+66))产生的范围是 。
A:”B”～”K”
B:”A”～”Z”
C:”a”～”z”
D:”b”～”k”
答案: ”B”～”K”
16、 下面 不属于VB.NET基本数据类型
A:Number
B:Char
C:Integer
D:Boolean
E:Single
F:Double
答案: Number
17、 已知A$=”12345678″，则表达式Val(Mid(A,1,4)+Mid(A,4,2))的值为 。
A:123445
B:2345
C:1252
D:123456
答案: 123445
作业第4讲 控制结构-顺序结构 第4讲实验作业 顺序结构
1、 1. 分别随机生成3个正整数，其中一个1位数、1个2位数、1个3位数,计算它们的平均值,保留2位小数。运行界面如图4.1所示。以“昵称-4-1”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-4-1.rar，以附件形式提交。
图4.1 运行界面提示① 随机数生成某范围内的正整数公式：Int(Rnd范围+基数) 范围：数的上限-下限+1；基数：数的下限例如要生成2位数：Int(Rnd(99-10+1)+10)=Int(Rnd*90+10)②保留两位小数，利用Format函数：形式Format(要显示的数值，”0.00”)
评分规则: 界面正确，项目能正确运行得2分；界面正确，但不能运行得1分；否则0分。
2、 2．输入半径，计算圆周长和圆面积，如图4.2所示。 进一步要求，为了保证程序运行的正确，对输入的半径要进行合法性检查。数据输入结束有两种方法：按“Tab”键和按“回车”键。分别编事件过程对数据进行合法性检查。“昵称-4-2”为项目名保存。 项目完成后，将整个项目文件夹压缩成：昵称-4-2.rar，以附件形式提交。数据合法性检验：① 按“Tab”键焦点离开，这时利用TextBox1_LostFocus事件。② 按“回车”键，利用TextBox1_KeyPress事件中对返回参数“e.KeyChar”的Asc()值为13表示数据输入结束。 数据合法性检验调用IsNumeic()函数，参阅教材例2.5；若有错利用MsgBox显示出错信息，如图4.3所示，通过Focus方法定位于出错的文本框处，重新输入；计算结果保留2位小数。
图4.2 运行界面 图4.3 数据有错显示信息
评分规则: 界面正确，项目能正确运行得2分；界面正确，但不能运行得1分，否则0分。
3、 3.利用计算机解决古代数学问题“鸡兔同笼问题”。即已知在同一笼子里有总数为M只鸡和兔，鸡和兔的总脚数为N只，求鸡和兔各有多少只？以“昵称-4-3”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-4-3.rar，以附件形式提交。提示鸡、兔的只数M和脚数N通过文本框输入，列出方程可解。设鸡为 x只，兔为y只，则计算公式为：x+y=M2x+4y=N即：x=M-y y=N/2-M但不要求出荒唐的解（例3.5只鸡、4.5只兔，或者求得的只数为负数）。因此，在TextBox2_LostFocus事件中要考虑下面两个条件：① 对输入的总脚数N必须是偶数，否则提示数据错的原因，重新输入数据；② 若求出的头数为负数，提示数据错的原因，如图4.4所示，重新输入数据。
图4.4 运行界面
评分规则: 界面正确，项目能正确运行得2分；界面正确，但不能运行得1分，否则0分。
第4讲 控制结构-顺序结构 第4讲单元测验
1、 表达式：123+MID(“123456″,3,2) 执行后，结果是 。
A:157
B:”12334”
C:12334
D:123
E:168
F:程序错误
答案: 157
2、 下面正确的赋值语句是 。
A:y=x+30
B:z=val(InputBox(“请输入人数”))
C:x+y=30
D:3y=x
E:3=xy
F:y=πrr
答案: y=x+30;
z=val(InputBox(“请输入人数”))
3、 已知 a=12,b=20， 复合赋值语句： a *=b+10 执行后，a的值是 。
A:360
B:250
C:50
D:30
E:80
答案: 360
4、 InputBox函数返回值的数据类型是 。
A:字符串型
B:整型
C:长整型
D:单精度型
E:双精度型
答案: 字符串型
5、 为了给x,y,z三个变量赋初值1，下面正确的赋值语句是 。
A:x=1：y=1：z=1
B:x=1，y=1，z=1
C:x=y=z=1
D:xyz=1
E:x，y，z=1
答案: x=1：y=1：z=1
6、 InputBox函数中不能省略的参数是 。
A:提示
B:标题
C:默认值
D:x坐标
E:y坐标
答案: 提示
7、 表达式：123 & MID(“123456″,3,2) 执行后，结果是 。
A:”12334″
B:”12345″
C:157
D:”157″
E:”168”
答案: “12334”
8、 MsgBox函数的作用是 。
A:打开信息框，等待用户选择一个按钮并返回。
B:只显示提示信息，不等待用户选择按钮。
C:提供用户输入一个数据
D:等待用户输入用户名
E:等待用户输入密码
答案: 打开信息框，等待用户选择一个按钮并返回。
9、 Debug.Write()方法的作用是： 。
A:调试程序时，在“输出”窗口输出信息
B:程序运行时在”窗体”窗口输出信息
C:程序调试时，将信息写入文件
D:将信息写入Bin/Debug文件夹
E:将调试者信息写入日志
答案: 调试程序时，在“输出”窗口输出信息
10、 赋值语句：y = 3x，是正确的赋值语句，其作用是将x乘以3后的值赋给y。
A:正确
B:错误
答案: 错误
11、 执行赋值语句：y = z 与 z = y 效果是等价的。
A:正确
B:错误
答案: 错误
12、 获取当前系统日期的函数是 。
答案: Now
13、 表达式：a = Val(TextBox1.Text),当在文本框中输入”12a3b”时，则a的值为 。
答案: 12
14、 表达式：123+MID(“123456″,3,2) 执行后，结果是 。
A:157
B:”12334”
C:12334
D:168
答案: 157
15、 下面正确的赋值语句是 。
A:y=x+30
B:z=val(InputBox(“请输入人数”)
C:x+y=30
D:3y=x
E:3=xy
F:y=πrr
答案: y=x+30
第5讲 控制结构-选择结构和控件 第5讲单元测验
1、 分段函数：
,下面程序段中正确表达的是 。
A:If x > =2 Then y = 3ElseIf x > =1 Then y = 2ElseIf x > =0 Then y = 1Else y = 0End If
B:If x < 0 Then y = 0If x < 1 Then y = 1If x < 2 Then y = 2If x >= 2 Then y = 3
C:If x >= 2 Then y = 3If x >= 1 Then y = 2If x > 0 Then y = 1If x < 0 Then y = 0
D:If x < 0 Then y = 0ElseIf x > 0 Then y = 1ElseIf x > 1 Then y = 2Else y = 3End If
E:If x < 0 Then y = 0If 0 <= x <1 Then y = 1If 1 <= x < 2 Then y = 2If x >= 2 Then y = 3
答案: If x > =2 Then y = 3ElseIf x > =1 Then y = 2ElseIf x > =0 Then y = 1Else y = 0End If
2、 下面If语句用于统计满足性别(sex)男、职称(duty)为副教授或教授、年龄(age)小于40岁条件的人数，正确的是 。
A:If sex = “男” And age < 40 And (duty= “教授” or duty= “副教授”) 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 duty = “教授” And duty = “副教授” Then n = n + 1
D:If sex = “男” Or age < 40 Or duty = “教授” And duty = “副教授” Then n = n + 1
E:If sex = “男” Or age < 40 Or duty = “教授” Or duty = “副教授” Then n = n + 1
答案: If sex = “男” And age < 40 And (duty= “教授” or duty= “副教授”) Then n = n + 1
3、 关于单选按钮和复选框控件的说法中，错误的是 。
A:某个单选按钮被单击一定会触发它的CheckedChanged事件
B:一个单选按钮的状态发生变化，不会影响其他单选按钮的状态
C:某个复选框被单击一定会触发它的CheckedChanged事件
D:一个单选按钮的状态发生变化，同组中必有另一个单选按钮的状态也发生变化
E:一个复选框的状态发生变化，不会影响其他复选框的状态
答案: 某个单选按钮被单击一定会触发它的CheckedChanged事件;
一个单选按钮的状态发生变化，不会影响其他单选按钮的状态
4、 下面程序段运行后，显示的结果是 。 Dim x% If x Then MsgBox(x) Else MsgBox( x + 1)
A:1
B:0
C:2
D:-1
E:显示出错信息
答案: 1
5、 语句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为关系表达式
E:语句错误
答案: x=1为关系表达式，y=1为赋值语句
6、 下面程序段计算学生的外语附加分：外语6级（lang6）为 ”优秀” 加15分，”通过” 加10分；外语4级（lang4）为 ”优秀” 加8分，”通过” 加4分，外语附加分只能计一次最高的分数。下面 能正确计算。
A:If lang6 = “优秀” Then langf = 15ElseIf lang6 = “合格” Then langf = 10ElseIf lang4 = “优秀” Then langf = 8ElseIf lang4 = “合格” Then langf = 4Else langf = 0EndIf
B:If lang4 = “合格” Then langf = 4ElseIf lang4 = “优秀” Then langf = 8ElseIf lang6 = “合格” Then langf = 10ElseIf lang6 = “优秀” Then langf = 15Else langf = 0EndIf
C:If lang6 = “优秀” Then langf = 15If lang6 = “合格” Then langf = 10If lang4 = “优秀” Then langf = 8If lang4 = “合格” Then langf = 4 langf = 0
D:If lang4 = “合格” Then langf = 4If lang4 = “优秀” Then langf = 8If lang6 = “合格” Then langf = 10If lang6 = “优秀” Then langf = 15 Else langf = 0
E:If lang6 = “优秀” Then langf = 15If lang6 = “合格” Then langf = 10If lang4 = “优秀” Then langf = 8If lang4 = “合格” Then langf = 4 Else langf = 0
答案: If lang6 = “优秀” Then langf = 15ElseIf lang6 = “合格” Then langf = 10ElseIf lang4 = “优秀” Then langf = 8ElseIf lang4 = “合格” Then langf = 4Else langf = 0EndIf
7、 分组控件（GroupBox）的主要作用是 。
A:对控件分组
B:为了规整显示
C:建立新的显示窗口
D:在窗体上划线条
E:建立新的字体
答案: 对控件分组
8、 下面程序段，显示的结果是 。 Dim x% x = Int(Rnd) + 5 Select Case x Case 5 MsgBox( “优秀”) Case 4 MsgBox( “良好”) Case 3 MsgBox( “通过”) Case Else MsgBox( “不通过”) End Select
A:优秀
B:良好
C:通过
D:不通过
E:不确定，随机
答案: 优秀
9、 下面程序段求两个数中的大数，不正确的是 。
A:If y >= x Then Max1= yMax1 = x
B:Max1 = yIf x >= y Then Max1= x
C:If x > y Then Max1 = x Else Max1 = y
D:Max1 = Math.Max(x,y)
E:Max1 = xIf y >= x Then Max1= y
答案: If y >= x Then Max1= yMax1 = x
10、 用If语句表示分段函数
，下列不正确的程序段是 。
A:If x >=1 Then f=Math.Sqrt(x+1) f=xx+3
B:If x >=1 Then f= Math.Sqrt(x+1)If x < 1 Then f=xx+3
C:f=xx+3If x >=1 Then f= Math.Sqrt(x+1)
D:If x < 1 Then f=xx+3Else f= Math.Sqrt(x+1)EndIf
E:f = Math.Sqrt(x+1)If x < 1 Then f=xx+3
答案: If x >=1 Then f=Math.Sqrt(x+1) f=xx+3
11、 简单 If 形式无 End If 时，Then 后面只能是一句语句或多条语句间用冒号分隔，而且必须在一行上书写。
A:正确
B:错误
答案: 正确
12、 任何Select Case语句都可以改写成If语句，同样，任何If语句也都可以改写成Select Case语句。
A:正确
B:错误
答案: 错误
13、 下面程序运行后，y的值是 。Dim x%,y%x = Int(Rnd) + 3If x ^ 2 = 9 Then y = x ^ 2 – 2If x ^ 2 > 8 Then y = x ^ 2 + 1
答案: 10
14、 下面程序运行后，n的值是_。Dim n%n = 5Select Case n Mod 2 Case 0 n += n/2 Case 1 n += nEnd Select
答案: 10
作业第5讲 控制结构-选择结构和控件 第5讲实验作业 选择结构
1、 在某商店购买物品可以获得折扣。折扣后价格计算公式如下：
请编写程序计算折扣后价格。程序界面自行设计。提示用多分支结构实现，注意条件表达式的书写。以“昵称-5-1”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-5-1.rar，以附件形式提交。
评分规则: 界面正确，项目能正确运行得2分；代码中IF结构正确，但不能运行得1分，否则0分。
2、 编一程序输入上网的时间计算上网费用，计算的方法如下：
同时为了鼓励多上网，每月收费最多不超过150元。提示首先利用一个多分支If语句根据三个时间段算出费用，然后再用一个If语句对超过150元的费用设置为150元。运行界面自行设计。以“昵称-5-2”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-5-2.rar，以附件形式提交。
评分规则: 界面正确，项目能正确运行得2分；代码中IF结构正确，但不能运行得1分，否则0分。
3、 输入a、b，c三个数，按从大到小的次序显示，如图5.1。以“昵称-5-3”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-5-3.rar，以附件形式提交。
图5.1 运行界面提示① 最好将文本框的内容存放到数值型变量中再进行比较。如果直接比较三个文本框的内容，将会得到错误的结果（因为文本框的内容是字符型，当三个数位数不同时，不是按数值大小比较，而是按字符串的大小进行比较，例如会出现”34″>”2345″>”126789”的情况）② 三个数排序，一般通过两两比较来实现，可用三句单分支的If语句。方法如下： 先让a与b比较使得a>b；然后让a与c比较使得a>c，此时a最大；最后b与c比较使得b>c。③ 要在文本框显示如图所示的排序结果，可利用字符连接符来实现，如： TextBox4.Text = a & “>” & b & “>” & c
评分规则: 界面正确，项目能正确运行得2分；代码中IF结构正确，但不能运行得1分，否则0分。
4、 输入一元二次方程的系数，计算并输出一元二次方程的两个实根，界面如图5.2所示。 以“昵称-5-4”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-5-4.rar，以附件形式提交。提示要考虑是否存在实根，即判断b2-4ac ≥0是否成立。
图5.2 运行界面
评分规则: 界面正确，项目能正确运行得2分；代码中IF结构正确，但不能运行得1分，否则0分。
5、 输入一个1~7之间范围之内的数字，利用Select语句显示英文形式的星期一至星期日。界面自行设计。以“昵称-5-5”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-5-5.rar，以附件形式提交。
评分规则: 界面正确，项目能正确运行得2分；代码中Select结构正确，但不能运行得1分，否则0分。
第6讲 控制结构-循环结构 第6讲单元测验
1、 对用户输入的数值限制为正数，如果输入了负数，则要求重新输入。下面__可以实现。
A:Dim x As IntegerDo x = Val(InputBox(“请输入数据”))Loop While x < 0
B:Do x = Val(InputBox(“请输入数据”))Loop While x > 0
C:Do While x > 0 x = Val(InputBox(“请输入数据”))Loop
D:x = Val(InputBox(“请输入数据”))If x < 0 ThenEnd If
E:For x < 0 x = Val(InputBox(“请输入数据”))Next
答案: Dim x As IntegerDo x = Val(InputBox(“请输入数据”))Loop While x < 0
2、 以下程序段运行后，Label1.Text结果是___。Label1.Text = “”For i = 1 To 6 If i Mod 2 = 0 Then Label1.Text = i EndifNext
A:6
B:135
C:246
D:123456
E:24
答案: 6
3、 当在文本框输入“ABCD”时，则下面程序运行后，标签 Label1上显示的是_____。Dim i As IntegerLabel1.Text = TextBox1.TextFor i = 1 To Len(TextBox1.Text) Label1.Text &= Mid(TextBox1.Text, i, 1)Next
A:ABCDABCD
B:ABCDDCBA
C:AABABCABCD
D:DCBA
E:AABBCCDD
答案: ABCDABCD
4、 下面程序功能是在文本框输入任意字符串，将字符串倒置后在标签显示结果。例如，输入“ABCDEFG”变换成“GFEDCBA”。在空白处填入合适的表达式，使程序完整。Dim i As IntegerLabel1.Text = “”For i = 1 To Len(TextBox1.Text) Label1.Text = __Next
A:Mid(TextBox1.Text, i, 1) & Label1.Text
B:Mid(TextBox1.Text, i, 1)
C:Label1.Text & Mid(TextBox1.Text, i, 1)
D:Label1.Text & TextBox1.Text
E:TextBox1.Text & Label1.Text
答案: Mid(TextBox1.Text, i, 1) & Label1.Text
5、 在下列循环中，能正常结束的是 。
A:i=5Do i=i+1Loop while i>10
B:i=1Do i=i+2Loop while i<>10
C:i=10Do i=i+1Loop while i>10
D:i=6Do i=i-2Loop while i<>1
E:i=3Do i = i mod 2Loop while i<>0
答案: i=5Do i=i+1Loop while i>10
6、 以下 是正确的For … Next结构。
A:For x = 3 To -3 Step -3 …Next
B:For x=1 Step 10 …Next
C:For x = 1 To 10 re: … NextIf x = 10 Then GoTo re
D:For x = 3 To 10 Step 3 …Next y
E:For x = 3 To 1 , 3 …Next
答案: For x = 3 To -3 Step -3 …Next
7、 下列程序段不能正确显示1！、2！、3！、4！的结果的是 。
A:For i = 1 To 4 For j = 1 To i n = 1 n = n * j Next j MsgBox( n)Next i
B:Dim i%, j%, n%For i = 1 To 4 n = 1 For j = 1 To i n = n * j Next j MsgBox( n)Next i
C:Dim j%, n%n = 1For j = 1 To 4 n = n * j MsgBox( n)Next j
D:Dim j%, n%n = 1j = 1Do While j<=4 n=nj MsgBox(n) j=j+1Loop
E:Dim j%, n%n = 1j = 1Do n=nj MsgBox(n) j=j+1Loop While j<=4
答案: For i = 1 To 4 For j = 1 To i n = 1 n = n * j Next j MsgBox( n)Next i
8、 下面程序功能是在文本框输入一个正整数，转换为7进制后在标签显示结果。在空白处填入合适的表达式，使程序完整。Dim n As IntegerDim s As Stringn = Val(TextBox1.Text)Do While __ s = n Mod 7 & s n = n \ 7LoopLabel1.Text = s
A:n > 0
B:n > 7
C:s > 0
D:TextBox1.Text > 0
E:n < 0
答案: n > 0
9、 在下面关于Do循环和For循环的说法中，正确的是 。
A:Do循环和For循环都可以用于循环次数已知或未知的情况。
B:For循环只能用于循环次数已知的情况。
C:Do循环只能用于循环次数未知的情况。
D:Do循环和For循环都不可以用于循环次数未知的情况。
E:Do循环只能用于循环次数已知的情况。
答案: Do循环和For循环都可以用于循环次数已知或未知的情况。
10、 以下程序段运行后，Label1.Text结果是___。Label1.Text = “”For i = 7 To 1 Step -1 If i Mod 3 = 0 Then Continue For Label1.Text &= i & ” “Next
A:7 5 4 2 1
B:7
C:7 6
D:6 3
E:7 6 5 4
答案: 7 5 4 2 1
11、 在Do while···Loop 循环中，想要跳出循环，用Exit do 语句。
A:正确
B:错误
答案: 正确
12、 在For循环中，想要结束本轮循环，用Exit For 语句。
A:正确
B:错误
答案: 错误
13、 要使下列For语句的循环体循环执行20次，循环变量的初值应当是__。For k = _ To 5 Step 2
答案: -33
14、 以下程序段运行后，如果输入123，b的结果是___。 Dim a, b As Integer a = Val(InputBox(“请输入数据”)) Do While a > 0 b = b * 10 + a Mod 10 a = a \ 10 Loop
答案: 321
作业第6讲 控制结构-循环结构 第6讲实验作业 循环结构
1、 用单循环显示有规律的图形，如图6.1所示。 以“昵称-6-1”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-6-1.rar，以附件形式提交。
图6.1 运行界面 提示问题的关键：① 找出行号（ i=1～8）与字母的关系：即： Chr(64+i), i=1～8；② 再利用StrDup函数产生有规律的字符串，即：StrDup(18-2*i, Chr(64+i))；③ 利用Space函数产生每行起始空格数。
评分规则: 界面正确，项目能正确运行得2分；代码中For结构正确，但不能运行得1分，否则0分。
2、 筛选字母并反序存放，界面如图6.2所示。以“昵称-6-2”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-6-2.rar，以附件形式提交。提示① 输入的字母可能有大写和小写。② 首先利用Len函数求TextBox1.Text字符串长度，然后利用For循环结构逐一取字符进行是否为字母的判断，若是字母则利用语句： TextBox2.Text =字母 & TextBox2.Text将字母连接到TextBox2文本框。思考：若连接表达式为：TextBox2.Text &=字母，则效果如何？
图6.2 运行界面
评分规则: 界面正确，项目能正确运行得2分；代码中For结构正确，但不能运行得1分，否则0分。
3、 计算下列级数，直到第i项的值<
时结束。
以“昵称-6-3”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-6-3.rar，以附件形式提交。提示本题的关键是找规律并写出通项。本题规律为：第i项的分母是第i-1项的分母加上i。即分母通项为：
。因为事先不知循环次数，一般应使用Do While循环结构；当然也可使用For循环结构，设置循环的终值为一个较大的值，当满足精度后退出循环。运行结果见图6.3。
图6.3 运行结果
评分规则: 界面正确，项目能正确运行得2分；代码中For结构正确，但不能运行得1分，否则0分。
4、 编一程序，显示出所有的水仙花数。所谓水仙花数，是指一个3位数，其各位数字立方和等于该数本身。例如，153是水仙花数，因为
。以“昵称-6-4”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-6-4.rar，以附件形式提交。提示解该题的方法有两种：① 利用三重循环，将三个一位数连接成一个3位数再进行判断。例如，将i,j,k三个一位数连成一个三位数的表达式为： i100+j10+k ‘ i、j、k分别为三重循环的循环控制变量② 利用单循环将一个3位数逐位分离后进行判断。例如，x是一个三位数，分离为三个一位数i、j、k：x=357i= x \100 ‘ i获得百位数，结果为3j= (x Mod 100) \10 ‘ j获得十位数，结果为5k=x Mod 10 ‘ k获得个位数，结果为7
评分规则: 界面正确，项目能正确运行得2分；代码中For结构正确，但不能运行得1分，否则0分。
作业第7讲 控制结构-循环控件和常用算法(1) 第7讲实验作业 循环结构（续）
1、 计算
的近似值，
的计算公式为：
界面自己设计。以“昵称-7-1”为项目名保存，项目完成后，将整个项目文件夹压缩成：昵称-7-1.rar，以附件形式提交。提示① 显示当n=50时、当n=1000时的结果。② 要防止大数相乘时溢出问题，将变量类型和常数2改为双精度型（即2#）。
评分规则: 界面正确，项目能正确运行得2分；代码中循环结构正确，但不能运行得1分，否则0分。
2、 以“昵称-7-2”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-7-2.rar，以附件形式提交。求Sn=a+aa+aaa+aaaa+…+aa…aaa(n个a)，其中a是通过滚动条获得的1~9(包括1和9)之间的一个正整数，n是通过滚动条获得的5~10(包括5和10)之间的一个数。例如：当a=2，n=5时，Sn=2+22+222+2222+22222。提示① 因为滚动条产生的数值范围比较小，所以将LargeChange设置为1～2； Maximum设置为最大值-LargeChange+1，否则到不了最大值。 为了得到不断重复a的n位的数Temp，可用如下程序段实现： Temp=0 For i=1 To n Temp=Temp*10+a Next i② 产生的表达式以横向和纵向两种形式显示，如下图所示。
横向显示运行结果
纵向显示运行结果
评分规则: 界面正确，项目能正确运行得2分；代码中循环结构正确，但不能运行得1分，否则0分。
3、 以“昵称-7-3”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-7-3.rar，以附件形式提交。利用TextBox、ProgressBar、Timer控件设计一个带有进度条的倒计时程序，如下图所示。要求倒计时时间是以分为单位输入，以秒为单位显示，进度条指示的是倒数读秒剩余时间，即填充块的数目是随时间减少的。当在文本框输入分钟数按回车间时，开始进入倒计时，进度条也随之减少。
运行界面
评分规则: 界面正确，项目能正确运行得2分；代码中循环结构正确，但不能运行得1分，否则0分。
4、 以“昵称-7-4”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-7-4.rar，以附件形式提交。参阅教材例4.18，用迭代法求
，求立方根的迭代公式为：
迭代的流程图如下图所示。要求：x的初值是任意的，迭代到
为止。显示a=3、27时所求得的根，并通过求a^(1/3)的表达式加以验证。
迭代法求根流程图
评分规则: 界面正确，项目能正确运行得2分；代码中循环结构正确，但不能运行得1分，否则0分。
第7讲 控制结构-循环控件和常用算法(1) 第7讲单元测验
1、 利用枚举法求解和尚吃馒头问题。寺庙里有60个和尚，总共吃60个馒头，1个大和尚吃2个馒头，2个小和尚合吃1个馒头。问有几个大和尚、小和尚？在空白处填入合适的表达式，使程序完整。 Label1.Text = “” Dim b1, b2 As Integer ‘b1表示大和尚，b2表示小和尚 For b1 = 1 To 30 For b2 = 2 To 60 Step 2 If b1 + b2 = 60 And __ Then Label1.Text &= “大和尚” & b1 & “小和尚” & b2 & vbCrLf End If Next Next
A:b1 * 2 + b2 / 2 = 60
B:b1 * 2 = b2 / 2
C:b1 / 2 + b2 * 2 = 60
D:b1 – b2 = 60
答案: b1 * 2 + b2 / 2 = 60
2、 关于水平滚动条(HScrollBar)的Value属性，正确的是__。
A:Value属性值代表当前滚动条滑块所在的值。
B:Value属性值代表滚动条滑块的起始值。
C:Value属性值代表滚动条滑块的默认值。
D:Value属性值代表滚动条滑块的最大值。
E:Value属性值代表滚动条滑块的最小值。
答案: Value属性值代表当前滚动条滑块所在的值。
3、 下面程序功能是求自然对数e的近似值，误差小于0.001，在标签显示结果。
在空白处填入合适的表达式，使程序完整。 Dim i As Integer Dim sum, t As Double t = 1 : i = 1 Do While __ sum += t t = t / i i += 1 Loop Label1.Text = sum
A:t > 0.001
B:t < 0.001
C:t <= 0.001
D:i <= 0.001
E:i > 0.001
答案: t > 0.001
4、 关于水平滚动条(HScrollBar)的说法，正确的是__。
A:发生Scroll事件，一定也会发生ValueChanged事件。
B:Scroll事件和ValueChanged事件一定同时发生。
C:发生ValueChanged事件，一定也会发生事件Scroll。
D:Scroll事件和ValueChanged事件没有任何关系。
答案: 发生Scroll事件，一定也会发生ValueChanged事件。
5、 关于水平滚动条(HScrollBar)的说法，正确的是__。
A:水平滚动条的Value所能达到的最大值除了Maximum外，还和SmallChange和LargeChange有关。
B:水平滚动条的Value所能达到的最大值就是Maximum。
C:水平滚动条的Value所能达到的最大值就是LargeChange。
D:水平滚动条的Value所能达到的最大值就是MaxSize。
E:水平滚动条的Value所能达到的最大值可以是个任意值。
答案: 水平滚动条的Value所能达到的最大值除了Maximum外，还和SmallChange和LargeChange有关。
6、 定时器的重要事件是__。
A:Tick
B:Click
C:ValueChanged
D:TextChanged
E:IntervalChanged
答案: Tick
如需购买完整答案，请点击下方红字：
为了方便下次阅读，建议在浏览器添加书签收藏本网页
添加书签方法：
1.电脑按键盘的Ctrl键+D键即可收藏本网页
2.手机浏览器可以添加书签收藏本网页
获取更多慕课答案，欢迎在浏览器访问我们的网站：http://mooc.mengmianren.com
注：请切换至英文输入法输入域名，如果没有成功进入网站，请输入完整域名：http://mooc.mengmianren.com/
我们的公众号
打开手机微信，扫一扫下方二维码，关注微信公众号：萌面人APP
本公众号可查看各种网课答案，还可免费查看大学教材答案
点击这里，可查看公众号功能介绍
APP下载
APP功能说明
1.可查看各种网课答案
点击【萌面人官网】，可查看知到智慧树，超星尔雅学习通，学堂在线等网课答案
点击【中国大学慕课答案】，可查看mooc慕课答案
2.可一键领取淘宝/天猫/京东/拼多多无门槛优惠券
如图所示，点击对应图标即可领取淘宝/天猫/京东/拼多多无门槛优惠券
咆洽惧滇隋霞逻奉敖背烧侥疯