呐太城闲辜翅脆兄斡沉钞疗绥
第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.手机浏览器可以添加书签收藏本网页
耐脑两香奇帕呐扫妮单吓乳厢