VBnet实验指导书Word下载.docx
- 文档编号:20357537
- 上传时间:2023-01-22
- 格式:DOCX
- 页数:50
- 大小:419.83KB
VBnet实验指导书Word下载.docx
《VBnet实验指导书Word下载.docx》由会员分享,可在线阅读,更多相关《VBnet实验指导书Word下载.docx(50页珍藏版)》请在冰豆网上搜索。
如图所示。
a)标题栏的制作
通过属性窗口的修改,修改“Text”,就是改变标题,把它改为“记事本”,然后回车后,在窗体中的标题已经跟随变为记事本了。
对于标题中的图标可以通过属性窗口中的icon属性选择实现。
b)菜单栏的制作
在工具箱中的【Windows窗体】选择【MainMenu】,在窗体中左键点击,自动添加到窗体中去,用户可以直接在自己窗体上的菜单栏中写入文字,实现菜单的编辑。
c)编辑区的制作
在工具箱中的【Windows窗体】选择【RichTextBox】,在窗体中左键点击,自动添加到窗体中去,通过鼠标移动到编辑区的边缘,这时候边缘会出现拉动的箭头,通过拉动实现编辑区大小的控制,通过鼠标左键按住,移动鼠标的同时,编辑区也跟随一起移动。
修改该文本编辑的属性,在属性Text中写入自己编辑区显示的内容。
案例总结:
通过对记事本的设计,使同学们熟悉VB开发环境,了解简单界面的开发过程。
【准独立完成实验题目】
题目二:
计算器界面的设计
案例提出:
在本案例中我们要用VB.Net制作一个简单的计算器的界面。
该计算器界面与Windows系统附件里自带的计算器一样,能实现加、减、乘、除四则运算及常用计算功能。
以操作系统带的计算器为例子。
示例分析:
分析计算器的组成,以便实现自己的计算器。
a)标题栏
观察状态栏,左上角有个当前文件夹的标题,右上角有三个小控制按钮(【最小化】、【最大化】和【关闭】)。
b)菜单栏
菜单栏中有各种下拉菜单,所以在制作的时候我们也要实现一个菜单,如【查看】-〉【标准型】等。
c)编辑框
使用控件组中的TextBox控件实现。
d)按钮
使用控件组中的Button控件实现。
示例技术:
编辑框和按钮的实现
通过在工具栏中选择所需要的控件,点击就添加到我们的窗体中了,并且设置控件的常用属性,如Text表示控件显示的外观字。
通过点击控件我们实现了基本的计算器的界面设计。
【独立完成实验题目】
显示文本信息
要求:
采用visual设计上述界面。
第二章VB.Net的语言基础
本章实验主要以锻炼学生从熟悉到熟练应用简单的表达式语句,熟练基本的程序结构,掌握V中过程和函数的定义和调用方法,深入理解VB.Net语言各数据类型。
要求学生能够正确运用VB.Net语言的开发环境,自觉培养良好的VB.Net语言的编程风格,遵守VB.Net语言的编程规则,养成良好的编程习惯。
程序的运行环境:
控制台应用程序。
运行VisualStdio.NET,选择【新建项目】,在弹出的新建项目对话框中的模板中选择“控制台应用程序”,然后用鼠标点击【确定】按钮,出现编程环境。
加法运算
题目描述:
编写一个程序,要求两个整数,然后求和并输出。
参考源程序:
ModuleModule1
SubMain()
Dima,b,cAsInteger
Console.Write("
请输入第一个数:
"
)
a=Console.ReadLine()'
输入第一个数
请输入第二个数:
b=Console.ReadLine()
c=a+b
Console.WriteLine("
和为:
&
c)
Console.Read()
EndSub
EndModule
6.运行结果与结果分析
7.综合分析:
此题主要实践了语言中的数据类型及输出格式控制符的用法,在输出要考虑数据类型和控制字符的对应关系。
题目二:
温度转换
编写一个程序,要求将华氏温度转换为摄氏度。
Subconvert()
Dimtemp
temp=InputBox("
请输入华氏温度。
1)
MsgBox("
温度为"
Celsius(temp)&
"
摄氏度。
FunctionCelsius(ByValfDegrees)
Celsius=(fDegrees-32)*5/9
EndFunction
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
TextBox2.Text=Celsius(CInt(TextBox1.Text))
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
'
convert()
Callconvert()
EndSub
运行结果与结果分析
点击“调用过程”按钮时,出现下图的对话框。
选择“ok”时,如下图所示。
题目一:
判断两个数的大小,交换两者的位置。
点击“判断交换”,出现下面的对话框。
代码提示:
“判断交换”按钮的代码如下:
Dima,b,tempAsInteger
a=Val(TextBox1.Text)'
得到a的值
b=Val(TextBox2.Text)'
得到b的值
Ifa<
bThen'
如果a的值比b的值小
temp=a:
a=b:
b=temp'
交换它们的值
EndIf
TextBox1.Text=CStr(a)'
显示交换过来的值
TextBox2.Text=CStr(b)
从键盘接收学生成绩,计算其平均成绩,并将两者输出。
界面如下。
点击“输入成绩”按钮,出现下面的对话框。
当成绩输入完成时,点击“计算”按钮,出现下面的对话框。
采用的算法:
二维数组存成绩(3×
5)。
参考代码:
ConstMAsInteger=5
ConstNAsInteger=3
DimCJ(M-1,N),Aver(N-1)AsInteger
Dimi,jAsInteger
Fori=0ToM-1'
二重循环输入学号和成绩并存放到成绩数组CJ
Forj=0ToN
CJ(i,j)=Val(InputBox("
输入a("
+CStr(i)+"
"
+CStr(j)+"
)"
"
输入学号和成绩"
))
Nextj
Nexti
Forj=0ToN-1'
该循环求每门课的平均成绩
Aver(j)=0
Fori=0ToM-1
Aver(j)+=CJ(i,j+1)
Aver(j)\=M
Label1.Text="
下面是成绩数组:
+Chr(10)+Chr(13)
该循环输出各个学生的学号及各科成绩
Label1.Text=Label1.Text+Chr(10)+Chr(13)
Label1.Text=Label1.Text+CStr(CJ(i,j))+"
Label1.Text=Label1.Text+Chr(10)+Chr(13)+Chr(10)+Chr(13)+"
下面输出平均成绩"
+Chr(10)+Chr(13)+"
Av"
Fori=0ToN-1'
该循环输出各科的平均成绩
Label1.Text=Label1.Text+CStr(Aver(i))+"
PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click
End
计算梯形面积。
输入上底、下底和高,求梯形的面积。
如下图所示。
点击“计算”按钮,出现下面的对话框。
方阵转置(二维)。
点击“生成方阵”按钮,将随机产生一个方阵,出现下面的对话框。
点击“转置方阵”按钮,将生成的方阵转置,出现下面的对话框。
可以不按上述的界面设计,能完成上述功能就可以。
环境:
选择”windows窗体”或“控制台应用程序”。
题目三:
排列数(一维)。
从键盘输入一组数,按从大到小的顺序排列。
主要技术:
采用循环语句。
第三章可视化编程方法
1.理解可视化编程环境;
2.掌握可视化编程的步骤;
3.理解VB.net程序书写规则;
4.掌握对象和事件编程。
弹出文本窗体
编写一个程序,在文本框中输入信息,然后将输入的文本以对话框的方式弹出。
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
MsgBox(TextBox1.Text)
点击“Button1”,弹出下面的对话框。
综合分析:
此题主要实践了语言中的MsgBox()函数的用法,弹出对话框的实现过程。
实现自动换行功能。
点击“选择文件…”,将出现下面的对话框。
选择“自动换行”,出现下面的对话框。
“选择文件…”按钮的代码如下:
OpenFileDialog1.Filter="
RTF格式文件(*.rtf)|*.rtf"
IfOpenFileDialog1.ShowDialog()=DialogResult.OKAnd_
OpenFileDialog1.FileName<
>
Then
RichTextBox1.LoadFile(OpenFileDialog1.FileName)
“自动换行”选择框的代码如下:
IfCheckBox1.Checked=TrueThen
RichTextBox1.WordWrap=True
Else
RichTextBox1.WordWrap=False
Time类的创建与演示
编写一个名为的类,该类能够存放时间信息,并且具有设置时间和显示时间的功能。
然后编程对该类进行测试。
点击“验证”按钮,出现下面的对话框。
第四章Windows窗体与控件
1、掌握窗体的概念及窗体的属性、方法、事件并能为常见的窗体
事件编程。
2、熟练掌握文本控件、按钮控件、列表控件、图片控件等常用控
件的属性及其简单应用,能够根据实际需要在窗体中应用一些常用控件。
3、掌握菜单类的属性和方法。
并且能够根据需要设计具体的程序
菜单,并且为其菜单进行编程。
选择翻转字符串
编写一个对文本框中选中的字符倒序存放的程序。
程序运行时在上面的文本框中输入文本,然后在【开始位置】文本框中输入要选定的字符的起始位置,在【长度】文本框中输入要选中字符的长度。
输入完毕后单击【选择】按钮将上面的文本框中选定指定的字符串,然后单击【倒序】按钮把选中的字符串倒序存放并显示在下面的文本框中。
下图为选择反转字符串的界面
为使输入和输出的文本框能够显示多行,需把它们的MultiLine属性值设为Ture,还应该把它们的ScrollBars属性值设置为Both、把WordWrap属性值设置为False,以便显示出水平和垂直滚动条。
在【选择】按钮的Click事件中,可通过调用文本框的Select方法选取从指定位置开始的指定数量的文本。
在【倒序】按钮的Click事件中,首先应通过输入文本框的selectText获取选中的字符串,然后通过循环把选中的字符串倒序存放,最后把倒序存放的字符串赋值给输出文本框的Text属性即可。
为使输出文本框中的文本全部被选中,应调用它的SelectAll方法。
Dimstart,lengthAsInteger
Try
start=Convert.ToInt32(TextBox2.Text)'
获取选中文本的起始位置
ength=Convert.ToInt32(TextBox3.Text)'
获取选中文本的长度
TextBox1.Select(start,length)'
选中指定的文本
TextBox1.Focus()'
焦点置于textBox1中
CatchE1AsFormatException
MessageBox.Show("
输入的起始点和长度应该是全数字!
转换异常"
)'
捕获数据格式不正确的异常
EndTry
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
Dimsstr,dstrAsString
DimiAsInteger
sstr=TextBox1.SelectedText'
得到TextBox1中选中的字符串
dstr="
Fori=sstr.Length-1To0Step-1'
该循环把选中的字符串反序存放在dstr变量中
dstr=dstr+sstr.Substring(i,1)
TextBox4.Text=dstr'
把dstr存放到TextBox4中
TextBox4.SelectAll()'
把TextBox4中的所有文本选中
运行结果分析:
列表框示例
编写一个列表框应用程序。
程序运行时单击【多列】单选按钮将使列表框显示多列,单击【单列】单选按钮将使列表框以一列的形式显示。
在查找后面的文本框中输入一个字符串,然后单击【精确查找】按钮,如果列表项中有与输入的字符串精确匹配的项,则找到并选中该项,如果没有则给出提示信息。
单击【清除】按钮将删除选中的选项。
在【添加项】文本框中输入一个字符串,然后单击【添加】按钮将把字符串作为列表项添加到列表框中。
单击【清除】按钮将清除列表框中的所有列表项。
下图为列表框示例的界面
改变列表框显示的列数,可以通过设置它的MultiColumn属性值来实现。
精确查找可调用列表框的FindStringExact方法来实现,通过程序来选中某一项,可通过调用列表框的SetSelected方法来实现。
删除列表项可通过调用列表框的Items.Remove方法来实现。
添加列表项可通过调用列表框的Items.Add来实现。
PrivateSubRadioButton1_CheckedChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesRadioButton1.CheckedChanged
ListBox1.MultiColumn=True'
设置列表框为多列
PrivateSubRadioButton2_CheckedChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesRadioButton2.CheckedChanged
ListBox1.MultiColumn=False'
设置列表框为单列
DimfindstrAsString,nAsInteger
findstr=TextBox1.Text'
获取要查找的字符串
n=ListBox1.FindStringExact(findstr)'
在列表框中精确查找
If(n>
=0)Then'
如果找到
ListBox1.SetSelected(n,True)'
把找到的项选中
Else'
没有查找到
无此选项"
找不到提示框"
显示找不到信息
IfListBox1.SelectedIndex>
=0Then'
如果有选中的项
ListBox1.SetSelected(ListBox1.SelectedIndex,False)'
去除对该项的选择
如果有选中的选项
ListBox1.Items.Remove(ListBox1.Items(ListBox1.SelectedIndex))'
删除选中的选项
无选中的选项
没有选中项"
无选中项对话框"
显示提示信息
PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click
ListBox1.Items.Add(TextBox2.Text)'
添加一项
PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.Click
ListBox1.Items.Clear()'
清除所有的列表项
以列表方式显示磁盘结构
PrivateSubDriveListBox1_SelectedIndexChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)
HandlesDriveListBox1.SelectedIndexChanged
Me.DirListBox1.Path=Me.DriveListBox1.Drive
PrivateSubDirListBox1_SelectedIndexChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)
Ha
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VBnet 实验 指导书