熟幌砂哇锨惯戮抽贪尽休案临
第1讲 VB.NET入门基础 单元测验
1、 不属于VB.NET特点的是 。
答案: 没有语法的程序编写语言
2、 在VB.NET中，显示帮助信息的快捷键是 。
答案: F1
3、 在VB.NET集成开发环境中，通过 窗口编写程序。
答案: 代码
4、 在集成开发环境有两类窗口，浮动和固定，下面 窗口不是浮动窗口。
答案: 窗体;
代码
5、 VB.NET项目文件的扩展名是 。
答案: .vbproj
6、 在下列窗口中， 可以查看与项目有关的所有文件。
答案: 解决方案资源管理器
7、 将调试好的exe可执行文件复制到其他机器上不能运行，其主要原因是__ 。
答案: 运行的机器上无.NET框架
8、 在下列有关VB.NET项目文件的叙述中,不正确的是 。
答案: 打开扩展名为.vb的文件，就能打开项目文件。;
打开扩展名为.exe的文件，就能打开项目文件。
9、 对象有三要素，分别是： 。
答案: 属性，事件和方法。
10、 在VB.NET中，解决方案文件的扩展名是 。
答案: .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、 两个控件的 属性一定不能相同。
答案: Name
2、 窗体的Load事件，在 时候触发。
答案: 当应用程序启动后
3、 设置窗体边框的属性是 。
答案: FormBorderStyle
4、 下列不属于控件属性的是 。
答案: Class;
Click
5、 如果某控件的Enable属性为false，则表示 。
答案: 该控件无效
6、 当文本框的ScrollBars属性设置了非None值，却没有滚动条，原因是 。
答案: 文本框的MultiLine属性为False
7、 一句语句要在下一行继续写，用 符号作为续行符。
答案: (下划线)
8、 在文本框中，通过 属性能获得当前插入点所在的位置。
答案: SelectionStart
9、 要使文本框不能输入文字，只能显示，可以对 属性进行设置。
答案: ReadOnly
10、 在代码窗口，代码下方有兰色波浪线表示 。
答案: 编译错误
11、 控件的属性可以通过属性窗口设置，也可以在代码窗口通过代码来设置。
答案: 正确
12、 当Label控件的AutoSize属性为True时，可以随意调整控件的大小。
答案: 错误
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、 要存放某人的年龄，下面 数据类型占用的字节数最小。
答案: Byte;
Short
2、 下面 是合法的变量名。
答案: X_yz;
t123;
z_12ts
3、 表达式Chr(Int(Rnd*10+66))产生的范围是 。
答案: ”B”～”K”
4、 表达式Len(“123程序设计ABC”)的值是 。
答案: 10
5、 下面 不属于VB.NET基本数据类型
答案: Number;
Value
6、 数学关系 3<=x<10 表示成正确的VB.NET表达式为
答案: 3<=x AND x<10
7、 整数的数据类型符是 。
答案: %
8、 已知A$=”12345678″，则表达式Val(Mid(A,1,4)+Mid(A,4,2))的值为 。
答案: 123445
9、 “+”既可作算术相加，也可作字符串连接
答案: 正确
10、 “&”是字符串连接符，可以将任意基本类型的数据进行连接。
答案: 正确
11、 表达式Int(3.5)的值是 。
答案: 3
12、 表示x是5的倍数的逻辑表达式为 。
答案: x Mod 5 = 0
13、 要存放某人的年龄，下面 数据类型占用的字节数最小。
答案: Byte
14、 下面 是合法的变量名。
答案: X_yz
15、 表达式Chr(Int(Rnd*10+66))产生的范围是 。
答案: ”B”～”K”
16、 下面 不属于VB.NET基本数据类型
答案: Number
17、 已知A$=”12345678″，则表达式Val(Mid(A,1,4)+Mid(A,4,2))的值为 。
答案: 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) 执行后，结果是 。
答案: 157
2、 下面正确的赋值语句是 。
答案: y=x+30;
z=val(InputBox(“请输入人数”))
3、 已知 a=12,b=20， 复合赋值语句： a *=b+10 执行后，a的值是 。
答案: 360
4、 InputBox函数返回值的数据类型是 。
答案: 字符串型
5、 为了给x,y,z三个变量赋初值1，下面正确的赋值语句是 。
答案: x=1：y=1：z=1
6、 InputBox函数中不能省略的参数是 。
答案: 提示
7、 表达式：123 & MID(“123456″,3,2) 执行后，结果是 。
答案: “12334”
8、 MsgBox函数的作用是 。
答案: 打开信息框，等待用户选择一个按钮并返回。
9、 Debug.Write()方法的作用是： 。
答案: 调试程序时，在“输出”窗口输出信息
10、 赋值语句：y = 3x，是正确的赋值语句，其作用是将x乘以3后的值赋给y。
答案: 错误
11、 执行赋值语句：y = z 与 z = y 效果是等价的。
答案: 错误
12、 获取当前系统日期的函数是 。
答案: Now
13、 表达式：a = Val(TextBox1.Text),当在文本框中输入”12a3b”时，则a的值为 。
答案: 12
14、 表达式：123+MID(“123456″,3,2) 执行后，结果是 。
答案: 157
15、 下面正确的赋值语句是 。
答案: y=x+30
第5讲 控制结构-选择结构和控件 第5讲单元测验
1、 分段函数：
,下面程序段中正确表达的是 。
答案: 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岁条件的人数，正确的是 。
答案: If sex = “男” And age < 40 And (duty= “教授” or duty= “副教授”) Then n = n + 1
3、 关于单选按钮和复选框控件的说法中，错误的是 。
答案: 某个单选按钮被单击一定会触发它的CheckedChanged事件;
一个单选按钮的状态发生变化，不会影响其他单选按钮的状态
4、 下面程序段运行后，显示的结果是 。 Dim x% If x Then MsgBox(x) Else MsgBox( x + 1)
答案: 1
5、 语句If x=1 Then y=1，下列说法正确的是 。
答案: x=1为关系表达式，y=1为赋值语句
6、 下面程序段计算学生的外语附加分：外语6级（lang6）为 ”优秀” 加15分，”通过” 加10分；外语4级（lang4）为 ”优秀” 加8分，”通过” 加4分，外语附加分只能计一次最高的分数。下面 能正确计算。
答案: If lang6 = “优秀” Then langf = 15ElseIf lang6 = “合格” Then langf = 10ElseIf lang4 = “优秀” Then langf = 8ElseIf lang4 = “合格” Then langf = 4Else langf = 0EndIf
7、 分组控件（GroupBox）的主要作用是 。
答案: 对控件分组
8、 下面程序段，显示的结果是 。 Dim x% x = Int(Rnd) + 5 Select Case x Case 5 MsgBox( “优秀”) Case 4 MsgBox( “良好”) Case 3 MsgBox( “通过”) Case Else MsgBox( “不通过”) End Select
答案: 优秀
9、 下面程序段求两个数中的大数，不正确的是 。
答案: If y >= x Then Max1= yMax1 = x
10、 用If语句表示分段函数
，下列不正确的程序段是 。
答案: If x >=1 Then f=Math.Sqrt(x+1) f=xx+3
11、 简单 If 形式无 End If 时，Then 后面只能是一句语句或多条语句间用冒号分隔，而且必须在一行上书写。
答案: 正确
12、 任何Select Case语句都可以改写成If语句，同样，任何If语句也都可以改写成Select Case语句。
答案: 错误
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、 对用户输入的数值限制为正数，如果输入了负数，则要求重新输入。下面__可以实现。
答案: 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
答案: 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
答案: ABCDABCD
4、 下面程序功能是在文本框输入任意字符串，将字符串倒置后在标签显示结果。例如，输入“ABCDEFG”变换成“GFEDCBA”。在空白处填入合适的表达式，使程序完整。Dim i As IntegerLabel1.Text = “”For i = 1 To Len(TextBox1.Text) Label1.Text = __Next
答案: Mid(TextBox1.Text, i, 1) & Label1.Text
5、 在下列循环中，能正常结束的是 。
答案: i=5Do i=i+1Loop while i>10
6、 以下 是正确的For … Next结构。
答案: For x = 3 To -3 Step -3 …Next
7、 下列程序段不能正确显示1！、2！、3！、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
答案: n > 0
9、 在下面关于Do循环和For循环的说法中，正确的是 。
答案: 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
答案: 7 5 4 2 1
11、 在Do while···Loop 循环中，想要跳出循环，用Exit do 语句。
答案: 正确
12、 在For循环中，想要结束本轮循环，用Exit For 语句。
答案: 错误
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
答案: b1 * 2 + b2 / 2 = 60
2、 关于水平滚动条(HScrollBar)的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
答案: t > 0.001
4、 关于水平滚动条(HScrollBar)的说法，正确的是__。
答案: 发生Scroll事件，一定也会发生ValueChanged事件。
5、 关于水平滚动条(HScrollBar)的说法，正确的是__。
答案: 水平滚动条的Value所能达到的最大值除了Maximum外，还和SmallChange和LargeChange有关。
6、 定时器的重要事件是__。
答案: Tick
上方为免费预览版答案，如需购买完整答案，请点击下方红字
为了方便下次阅读，建议在浏览器添加书签收藏本网页
添加书签方法：
1.电脑按键盘的Ctrl键+D键即可收藏本网页
2.手机浏览器可以添加书签收藏本网页
我们的公众号
打开手机微信，扫一扫下方二维码，关注微信公众号：萌面人APP
本公众号可查看各种网课答案，还可免费查看大学教材答案
藏逝汇咀去烷富休哄嚼陈芭楼