实验一顺序结构程序的设计4学时Word文档格式.docx
- 文档编号:21727635
- 上传时间:2023-02-01
- 格式:DOCX
- 页数:10
- 大小:193.89KB
实验一顺序结构程序的设计4学时Word文档格式.docx
《实验一顺序结构程序的设计4学时Word文档格式.docx》由会员分享,可在线阅读,更多相关《实验一顺序结构程序的设计4学时Word文档格式.docx(10页珍藏版)》请在冰豆网上搜索。
实验容
一、VB环境和顺序结构
【实验1】设计一个简单VB程序(20分)(实验教材P5)
它由一个窗体、一个文本框和3个命令按钮组成。
窗体的标题为"
VisualBasic程序设计示例"
,当用户单击命令按钮“显示”时,文本框中出现“欢迎使用VisualBasic6.0”,窗体上显示“你好”,单击命令按钮“清除”时,清除文本框中显示的容和窗体上的容,单击命令按钮“结束”时,结束程序。
通过该程序熟悉VB的界面,了解VB的工作原理:
事件驱动
实验结果:
【请将你的代码粘贴到下面】
PrivateSubCommand1_Click()
Text1.Text="
欢迎使用VisualBasic6.0"
Form1.Print"
你好"
EndSub
PrivateSubCommand2_Click()
Text1="
"
Form1.Cls
PrivateSubCommand3_Click()
End
【请将你的典型结果的截图粘贴到下面】
【实验2】分别定义八个变量,变量名为:
var1、var2、var3、var4、var5、var6、var7、var8,变量的数据类型依次定义为:
字符串型、整型、长整型、单精度浮点型、双精度浮点型、货币型、布尔型和日期型。
按照图2-2给出的形式为八个变量赋值,并按照图2-4的样式进行输出。
(20分)(P15)
通过该程序掌握变量的定义、变量名与变量值的含义。
OptionExplicit
PrivateSubForm_Click()
Dimvar1AsString
Dimvar2AsInteger
Dimvar3AsLong
Dimvar4AsSingle
Dimvar5AsDouble
Dimvar6AsCurrency
Dimvar7AsBoolean
Dimvar8AsDate
var1="
HelloWorld!
"
:
var2=1000
var3=30000:
var4=1.005
var5=3.1415926:
var6=100.1234
var7=True:
var8=#5/1/2015#
Print"
变量名:
;
Tab(15);
var1"
Tab(30);
var2"
Tab(40);
var3"
Tab(50);
var4"
变量值:
var1;
var2;
var3;
var4
变量类型:
TypeName(var1);
TypeName(var2);
TypeName(var3);
TypeName(var4)
var5"
var6"
var7"
var8"
var5;
var6;
var7;
var8
TypeName(var5);
TypeName(var6);
TypeName(var7);
TypeName(var8)
PrivateSubForm_Load()
Form1.Caption="
变量的定义和赋值"
Form1.FontSize=13
【实验3】编写程序,其功能为输入三角形的三边,求三角形的面积。
计算公式为:
S=(a+b+c)/2,面积=sqr(s*(s-a)*(s-b)*(s-c))(20分)(P29)
通过该程序掌握计算类程序的结构、赋值语句的使用
程序界面如下所示
DimaAsDouble,bAsDouble,cAsDouble
DimsAsDouble,areaAsDouble,rAsInteger
a=Val(InputBox("
请输入三角形边长a的值"
"
计算三角形面积程序"
))
Text1.Text=Str(a)
b=Val(InputBox("
请输入三角形边长b的值"
Text2.Text=Str(b)
c=Val(InputBox("
请输入三角形边长c的值"
Text3.Text=Str(c)
Ifa+b<
=cOra+c<
=bOrb+c<
=aThen
r=MsgBox("
您输入的数据不符合组成三角形的条件!
,"
)
Else
s=(a+b+c)/2
area=Sqr(s*(s-a)*(s-b)*(s-c))
MsgBox"
三角形的面积是:
&
Str(area),,"
EndIf
PrivateSubcommand2_click()
Text2.Text="
Text3.Text="
form1.Caption="
【实验4】编写如图2-10所示的一个求“倒序数”的程序。
“倒序数”指的是:
如产生的数为“1234”,那么与之对应的倒序数就是“4321”。
点击“生成”按钮,分别在文本框一中随机生成一个2位整数,在文本框二中随机生成一个3位整数,在文本框三中随机生成一个4位整数。
然后点击“求倒序数”按钮,分别在文本框四、文本框五、文本框六中输出其对应的倒序数。
(20分)(P27)
通过该程序掌握常见函数的使用
DimtwobitsAsInteger,threebitsAsInteger,fourbitsAsInteger
PrivateSubcommand1_click()
Randomize
twobits=Int(Rnd()*(99-10+1))+10'
2位随机整数
threebits=Int(Rnd()*(999-100+1))+100'
3位随机整数
fourbits=Int(Rnd()*(9999-1000+1))+1000'
4位随机整数
Text1.Text=Str(twobits)
Text2.Text=Str(threebits)
Text3.Text=Str(fourbits)
DimtbAsString,thbAsString,fbAsString
DimtbinvAsString,thbinvAsString,fbinvAsString
tb=Trim(Text1.Text)
thb=Trim(Text2.Text)
fb=Trim(Text3.Text)
tbinv=Right(tb,1)+Left(tb,1)
thbinv=Right(thb,1)+Mid(thb,2,1)+Left(thb,1)
fbinv=Right(fb,1)+Mid(fb,3,1)+Mid(fb,2,1)+Left(fb,1)
Text4.Text=tbinv
Text5.Text=thbinv
Text6.Text=fbinv
PrivateSubform_load()
Form1.Caption="
求倒序数程序"
【实验5】参照图2-15所示的容,编写一个由Print方法及其相关格式函数进行输出的程序。
使用不同的分隔符(即:
逗号或分号)或者格式输出函数(即:
Tab()、Spc()、Format()、Space())来控制Print方法输出的格式。
(20分)(P31)
通过该程序掌握print方法及格式函数的使用
PrivateSubform_click()
PrintSpc
(1);
No."
Tab(11);
Name"
Tab(20);
dept."
Print"
=============================="
'
spc()函数应用
0001"
Spc(5);
Lucy"
Finance"
0002"
Paul"
0003"
Jim"
Spc(6);
0004"
Jacob"
Spc(4);
tab()函数应用
PrintTab
(2);
0005"
Lily"
Personnel"
0006"
Steven"
0007"
Bruce"
spc()和tab()函数应用
David"
Technology"
0009"
Gray"
space()函数应用
0010"
Space(5)+"
Kala"
定制Print输出格式程序"
Form1.FontBold=True
Form1.FontSize=12
实验小结
1.遇到的问题:
2.对课程的建议:
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 实验 顺序 结构 程序 设计 学时