《VB程序设计》实验单元一Word文件下载.docx
《《VB程序设计》实验单元一Word文件下载.docx》由会员分享，可在线阅读，更多相关《《VB程序设计》实验单元一Word文件下载.docx（18页珍藏版）》请在冰豆网上搜索。
Form_Load事件对文本框初值设为空；
Form_Click事件对文本框计数。
对文本框计数：
Text1=Val（text1）+1。
四、实验步骤
1、绘制Label1的caption输入“你单击窗体的次数：
”
2、绘制text。
编程为：
PrivateSubForm_Click（）
Text1.Text=Val（Text1.Text）+1
EndSub
PrivateSubForm_Load（）
Text1.Text="
"
3、text的fontsize设置为“一号”
五、实验结果
网媒1403班姓名凌紫怡学号201424050320指导教师：
二、实验目的
2、命令按钮、字号、内容和格式的复制练习。
按钮1：
使得Text1中的文本按要求改变。
按钮2：
将Text1中选定的文本复制到Text2.
控件名
属性
Form1
Caption=”实验2”
Label1
复制文本
Label2
输入文本
Text1
Text=“VB功能强大，但要下功夫学习才能学好。
Text2
Text=””
Command1
Caption=”隶书25磅”
Command2
Caption=”复制=>
1、label1的caption输入“复制效果”；
label2的caption输入“输入文本”。
2、绘制两个text。
PrivateSubText1_Click（）
VB功能强大，但要下功夫学习才能学好。
PrivateSubText2_click（）
Text2.Text="
3、以及两个Command。
Command1的caption输入“隶书25磅”；
Command2的caption输入“复制=>
”。
PrivateSubCommand1_Click（）
Text1.FontName="
隶书"
Text1.FontSize="
25"
PrivateSubCommand2_Click（）
Text2.Text=Text1.SelText
Text2.FontName=Text1.FontName
Text2.FontSize=Text1.FontSize
实验二VB语言基础和顺序结构
一、实验目的
1、掌握正确书写表达式、赋值语句的规则
2、掌握常用函数的使用
3、掌握InputBox与MsgBox的使用
4、掌握Print和Format的使用
二、实验环境
三、实验内容
1、输入半径的值，分别计算并输出圆的面积、圆的周长和球的体积。
1、绘制一个label，caption为r。
2、绘制四个text，编写程序代码为：
PrivateSubText1_Change（）
Text3.Text="
Text4.Text="
3、绘制三个command，command1的caption为“圆的面积”；
command2的caption为“圆的周长”；
command3的caption为“圆的体积”。
编写程序代码为：
a=3.14
Text2.Text=a*Text1.Text*Text1.Text
Text3.Text=2*a*Text1.Text
PrivateSubCommand3_Click（）
Text4.Text=4/3*a*Text1.Text*Text1.Text*Text1.Text
2、随机产生一个3位正整数，然后逆序输出，产生的随机数与逆序数同时显示。
例如735,输出537.
利用“Mod”和“\”将一个3位数分离出3个1位数，然后连接成一个逆序的3位数。
1、绘制一个text，并编写程序代码：
Label1="
2、绘制一个label，label的borderstyle属性为1-fixedsingle
3、绘制两个command，command1的caption命名为“产生”；
command2的caption命名为“逆序”
并且编写程序为：
Text1.Text=Int（Rnd*900+100）
Dimx%,x1%,x2%,x3%
x=Val（Text1.Text）
x1=xMod10
x2=（xMod100）\10
x3=x\100
Label1=x1*100+x2*10+x3
实验三选择结构
1、掌握逻辑表达式的正确书写形式。
2、掌握单分支与双分支条件语句的使用。
3、掌握多分支条件语句的使用。
4、掌握情况语句的使用及其与多分支条件语句之间的区别。
1、输入3个整数，输出最大的数。
1、绘制一个label，它的caption是“输入三个整数”
2、绘制四个text，并且编写程序代码为
3、绘制两个command，command1的caption为“输出最大值”并且编写程序代码为
y=Val（Text2.Text）
z=Val（Text3.Text）
Ifx>
yAndx>
zThen
Text4.Text=x
ElseIfy>
Text4.Text=y
Else
Text4.Text=z
EndIf
Command2的caption为“清空”，并且编写程序为
2、输出150-200的能被7但不能被3整除的数。
1、绘制一个command，它的caption为“输出150-200的能被7但不能被3整除的数”
2、command1的程序代码为
DimaAsInteger
Fora=150To200
IfaMod7=0AndaMod3>
0ThenPrinta
Nexta
3、输入一个三位数，判断是否为水仙数。
水仙数的特点：
个位数、十位数和百位数的立方和等于该数自身的数。
1、绘制一个command，它的caption为“判断是否为‘水仙数’”
DimaAsSingle
a=InputBox（"
输入一个三位数，判断其是否为水仙数"
"
输入三位数"
）
Dimb,c,d
b=aMod10
c=（aMod100）\10
d=a\100
Ifb^3+c^3+d^3=aThen
Print"
是"
否"
实验四循环结构
1、掌握For语句的使用。
2、掌握Do语句的各种形式的使用。
3、掌握如何控制循环条件，防止死循环或不循环。
1.一个富翁试图与陌生人做一笔换钱生意，换钱规则为：
陌生人每天给富翁10万元钱，直到满一个月（30天）；
而富翁第一天给陌生人1分钱，第二天2分，第三天4分……，富翁每天给陌生人的前是前一天的两倍，直到满一个月。
分别显示富翁给陌生人的钱和陌生人给富翁的钱为多少？
1、绘制一个command，它的caption为“计算”，程序代码为
a=100000
s1=a*30
陌生人给富人的钱是：
;
s1
n=0.01
s2=0
Fork=1To30
s2=s2+n
n=2*n
Nextk
富人给陌生人的钱是：
s2
4、掌握For语句的使用。
5、掌握Do语句的各种形式的使用。
6、掌握如何控制循环条件，防止死循环或不循环。
2.用计算机安排考试日程。
期末某专业在周一至周六的六天要考a,b,c三门课，考试顺序为先考a,然后考b,最后考c,规定一天只能考一门。
且c课只能安排在周五或周六考。
编写程序安排考试日程，要求列出满足条件的所有方案。
1、绘制一个command，它的caption设为“安排考试日程”，并且程序编写为：
Fori=1To6
Forj=1To6
Forl=5
升级会员 