实验报告2.docx
- 文档编号:3945454
- 上传时间:2022-11-26
- 格式:DOCX
- 页数:12
- 大小:480.84KB
实验报告2.docx
《实验报告2.docx》由会员分享,可在线阅读,更多相关《实验报告2.docx(12页珍藏版)》请在冰豆网上搜索。
实验报告2
甘肃政法学院
本科生实验报告
(二)
姓名:
学院:
专业:
班级:
实验课程名称:
实验日期:
2013年3月28日
指导教师及职称:
实验成绩:
开课时间:
2012-2013学年第一学期
甘肃政法学院实验管理中心印制
实验题目
顺序结构程序设计
小组合作
姓名
班级
1
学号
一、实验目的
1.掌握表达式、赋值语句的正确书写规则。
2.掌握常用函数的使用。
3.掌握Inputbox与MsgBox的使用
二.实验环境
一台装有MicrosoftVisualStudio2008的计算机。
三、实验内容与步骤
1.分别随机生成3个正整数,其中1个1位数,1个2位数,1个三位数,计算它们的平均值,保留两位小数。
2.编写窗体上有两个命令按钮,第一显示“VB.NET”和图标,第二个显示“画图”的程序
3.利用计算机解决古代数学问题“鸡兔同笼问题”。
既已知在同一笼里有总数M只鸡和兔,鸡和兎的总脚数为N,求鸡和兎各为多少只?
4.编写一个“个人简历表”程序,改程序运行后,单机递交按钮运行在右边显示个人信息,单机重置,清楚所有信息。
5,用单循环显示有规律图形。
6.编译一个进度条随时间减少而减少的程序。
四、实验过程与分析
实验2.1
拖出四个标签,三个文本框,还有三个按钮,修改其属性。
2.对按钮进行编译
产生按钮Randomize()
TextBox1.Text=Int(Rnd()*10)
TextBox2.Text=Int(Rnd()*90+10)
TextBox3.Text=Int(Rnd()*900+100)
计算按钮DimaAsDouble
a=(Val(TextBox1.Text)+Val(TextBox2.Text)+Val(TextBox3.Text))/3
Label4.Text="平均值为:
"+Format(a,"0.00")
结束按钮Me.Close()
3.运行结果
实验2.7
1.拖出2个按钮,修改属性。
2对按钮编译:
对VB.NET编译Shell("D:
\MicrosoftVisualStudio9.0\Common7\IDE\devenv.exe")
对画图编译Shell("C:
\windows\system32\mspaint.exe")
3.运行结果:
实验3.5
拖出两个标签和两个文本框,并修改其属性。
进行Label2编译DimxAsInteger
DimyAsInteger
IfVal(TextBox2.Text)Mod2=0AndInt(Val(TextBox2.Text)/Val(TextBox1.Text))>=2And(Val(TextBox2.Text)/Val(TextBox1.Text))<=4.0Then
y=Int(TextBox2.Text)/2-Int(TextBox1.Text)
x=Int(TextBox1.Text)-y
Label2.Text=""+Str(x)+""+Str(y)
Else
MsgBox("输入不符求解条件,请重新输入",48,"")
运行结果:
输入有误时
正确运行结果
实验3.11
在窗体中安题目要求添加控件,修改其属性。
对递交编译:
DimxbAsString=""
DimxlAsString=""
DimzyAsString=""
DimahAsString=""
IfRadioButton1.Checked=TrueThen
xb="男"
ElseIfRadioButton2.Checked=TrueThen
xb="女"
EndIf
IfRadioButton3.Checked=TrueThen
xl="大专"
ElseIfRadioButton4.Checked=TrueThen
xl="本科"
ElseIfRadioButton5.Checked=TrueThen
xl="研究生"
EndIf
IfRadioButton6.Checked=TrueThen
zy="教师"
ElseIfRadioButton7.Checked=TrueThen
zy="医生"
ElseIfRadioButton8.Checked=TrueThen
zy="公务员"
EndIf
IfCheckBox1.Checked=TrueThen
ah="旅游"+""
Else:
ah=ah
EndIf
IfCheckBox2.Checked=TrueThen
ah=ah+"体育"+""
Else:
ah=ah
EndIf
IfCheckBox3.Checked=TrueThen
ah=ah+"音乐"+""
Else
ah=ah
EndIf
IfCheckBox4.Checked=TrueThen
ah=ah+"美食"+""
Else:
ah=ah
EndIf
RichTextBox1.Text=Space(20)+"简历"+vbCrLf+"姓名:
"+TextBox1.Text+vbCrLf+"年龄:
"+TextBox2.Text+vbCrLf+"性别:
"+xb+vbCrLf+"学历:
"+xl+vbCrLf+"职业:
"+zy+vbCrLf+"爱好:
"+ah
对重置编译RichTextBox1.Text=""
对年龄编译IfNotIsNumeric(TextBox2.Text)Then
MsgBox("年龄必须为数字",48,"警告")
TextBox2.Text=""
EndIf
运行结果
实验4.1
按要求拖出必要控件,修改属性。
对确定按钮被编译Label1.Text=""
DimsAsString="★"
DimiAsInteger
Fori=0To15
Label1.Text=Label1.Text+Space(30-2*i)+StrDup(2*i+1,s)+Space(60-4*i)+vbCrLf
Nexti
运行结果:
实验4.10
1.安实验要求在窗体中添加必要控件,修改属性
对time-click编译:
TextBox1.Text=""+Str(T\60)+":
"+Str(TMod60)
ProgressBar1.Value=T
T=T-1
IfT<0Then
Timer1.Enabled=False
EndIf
对文本框编译IfAsc(e.KeyChar)=13Then
T=Val(TextBox1.Text)*60
ProgressBar1.Minimum=0
ProgressBar1.Maximum=T
ProgressBar1.Value=T
Timer1.Enabled=True
EndIf
运行结果:
五、实验总结
在本次实验中出现了很多的错误,有些函数还没弄清楚,在问同学后最终了解了表达式,以及正确书写赋值语句。
并且掌握常用函数的使用和Inputbox与MsgBox的使用。
在完成本次试验后感觉自己在VB.NET中更进一步。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 实验 报告