《VB程序设计》实验单元一Word格式文档下载.docx
- 文档编号:21366391
- 上传时间:2023-01-30
- 格式:DOCX
- 页数:18
- 大小:701.09KB
《VB程序设计》实验单元一Word格式文档下载.docx
《《VB程序设计》实验单元一Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《《VB程序设计》实验单元一Word格式文档下载.docx(18页珍藏版)》请在冰豆网上搜索。
对文本框计数:
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=5To6
Ifi<
jAndj<
lThenPrint"
a"
i,"
b"
j,"
c"
l
Nextl
Nextj
Nexti
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB程序设计 VB 程序设计 实验 单元