VB实验Word下载.docx
《VB实验Word下载.docx》由会员分享，可在线阅读，更多相关《VB实验Word下载.docx（18页珍藏版）》请在冰点文库上搜索。
myLabel3
成绩
myLabel4
空格
Com1
输出
Com2
关闭
VB实验三
教材
1．P61页例4-1
2．P57页习题三6、（4）、（5）设计窗体，利用文本框输入变量，计算表达式的值。
3．通过三个文本框输入三角形三个边，计算面积用标签输出。
4、设计窗体：
用两个文本框输入两个整数，计算输出其和、差、积、商、余数。
VB实验四
1、教材P64例4-2
2．用两个文本框输入两个数，单击交换按钮实现两个数交换，单击关闭按钮，退出。
3、用inputbox（）输入两个数，用print方法输出它们的和、平均数。
4、用随即函数产生1-100之间两个整数，用标签输出和、差、积、商。
公式：
产生[N1,N2]间随机整数：
Int（（N2-N1+1）*Rnd（））+N1
5、用print方法显示当前的系统日期，时间，星期。
如：
2010年3月8日，10:
20:
20，星期五
6、输入一个千位的整型数，输出其千位、百位、十位、个位数。
（提示：
用算术运算符）
如：
输入2458，输出千位数2，百位数4，十位数5，个位数8
VB实验五
1、实验指导书：
P44页，实验一。
2、用两个文本框实现x输入，y输出。
if条件then
语句
Else
Endif
3、用四个文本框输入四个数，计算最大值，用标签显示。
采用结构：
if条件then语句
4、用四个文本框输入四个数，从小到大排序，用标签显示。
5、计算运费.规则如下:
50km以内:
运费=运量（t）*距离（km）*1（元）
50~100km:
运费=运量（t）*距离（km）*0.8（元）
101~300km:
运费=运量（t）*距离（km）*0.6（元）
300km以上:
运费=运量（t）*距离（km）*0.5（元）
SelectCase测试表达式
Case表达式表1
语句组1
Case表达式表2
语句组2
。
。
EndSelect
VB实验六
1、DoWhile条件
语句组
Loop
DoUntil条件
Loop
用以上两种形式，计算1+2+3+…+100
2、用for循环，计算x阶乘。
（用文本框输入整数x值）
3、利用for循环和inputbox（“输入成绩”,”输入窗口”,０）函数,输入1０名学生成绩，输出总分，和平均分
4、实验指导书P65调试第6、7题
5、实验指导书P66修改第8题的4,5行，输出*号为倒三角形。
6、用穷举法：
输出所有“水仙花数”，一个三位数=每位数立方和。
如153=13+53+33
VB实验七
1、采用下列三种方式给数组赋值，求最大值和最小值,用标签输出。
形式1x=Array（1,12,23,14,5,16,67,28,9,10）
形式2
Dimx（1to10）asinteger
PrivateSubText1_KeyPress（KeyAsciiAsInteger）
IfKeyAscii=13Then
i=i+1
x（i）=Val（Text1.Text）
Text1.Text="
"
Printx（i）
EndIf
EndSub
形式3
Dimx（1To10）AsInteger
Fori=1To10
x（i）=Val（InputBox（"
请输入数据"
"
输入框"
0））
NextI
求最大值和最小值参考算法：
max=x
（1）
min=x
（1）
Fori=2To10
Ifx（i）>
MaxThenMax=x（i）
Ifx（i）<
minThenmin=x（i）
Nexti
PrintMax,min
2、输入10学生成绩给数组，输出他们的成绩，总分和平均分。
3、根据实验指导书：
P48题一。
4、根据实验指导书：
P62第4题。
5、根据实验指导书：
P66第9题。
VB实验八
1、实验指导书P67-70页，第11、12、13题。
2、填空并运行程序：
冒泡法排序
5、实验指导书51页，题三。
Dima（1To10）AsInteger
a（i）=__________（"
输入数据"
输入窗口"
0）
fori=1to9
forj=1to10-i
if______________then
t=a（j）
a（j）=a（j+1）
a（j+1）=t
Endif
Nextj
________________
4、利用控件数组设计下面窗体：
设计标签数组，在窗体load事件中设置caption属性；
设计文本框数组，在命令按钮单击事件中，利用循环计算总分。
然后计算平均分。
VB实验九
1、实验指导书P53，题一
2、用子程序、自定义函数过程:
计算:
3!
+5!
+7!
主程序调用Callsub1（实参）
子程序定义：
subsub1（形参）
Endsub
主程序调用：
fun（实参）
自定义函数：
functionfun（形参）
。
Fun=结果
Endfunction
3.用函数递归调用，输出Fibonaci数列前20项。
（参照教材P93）
4、编自定义函数,求数组中的最大数。
主程序：
Dimx（1To10）AsLong
x（i）=i+2
Printmax（x（））
函数定义格式：
Functionmax（y（）asinteger）
语句
max=返回值
VB实验十
1：
实验指导书P79-86实验一、实验二
2.设计下列窗体，调试代码
通过属性窗口设置list1的list属性值。
参考代码：
List2.AddItemList1.text
List2.RemoveItemList2.ListIndex
List2.Clear
3．通过滚动条改变标签字体颜色和大小
（1）、设置标签：
标题,自动调整大小
（2）、字体颜色滚动条：
通过change事件改变颜色，从0到15.
（3）、字体大小滚动条：
通过scroll事件改变字体大小，从10点到60点
4．利用计时器实现气球升空。
在窗体上添加两个图片框控件Picture1~Picture2，在picture属性中添加红、蓝气球。
两个计时器Timer1、Timer2，令Interval1=10，Interval1=20。
程序代码为：
PrivateSubTimer1_Timer（）
Picture1.Top=Picture1.Top–10'
气球上升
IfPicture1.Top<
0Then
Picture1.Top=Form1.Height-Picture1.Height'
气球1回到窗体下部
EndIf
EndSub
PrivateSubTimer2_Timer（）
Picture2.Top=Picture2.Top–10'
IfPicture2.Top<
Picture2.Top=Form1.Height-Picture2.Height'
气球2回到窗体下部
4．设计图片放大,缩小窗体，程序填空
Picture1:
显示操作信息
Image1的属性设置：
Stretch为True,BordeStyle为1
Height和Width均为1800
DimnAsInteger'
n记录图片框中的输出项数
PrivateSubForm_Load（）
n=0'
n赋初值
EndSub
PrivateSubCommand1_Click（）'
单击“放大”按钮
Image1._____=Image1._____*1.25'
图像宽度增大1.25倍
图像高度增大1.25倍
Picture1.Print"
放大图片"
:
n=n+1
Ifn=10ThenPicture1.Cls:
n=0:
Image1.Height=1800:
Image1.Width=1800
PrivateSubCommand2_Click（）'
单击“缩小”按钮
Image1.Width=Image1.Width*0.75
Image1.Height=Image1.Height*0.75
缩小图片"
n=0:
PrivateSubCommand3_Click（）'
单击“还原”按钮
Picture1.Cls
Image1.Height=1800
Image1.Width=1800
5．实验指导书P92-94题二
VB实验十一
在D盘建立aaa文件夹。
将图片复制到此文件中。
设计下列窗体：
可以选择不同磁盘，文件夹，图片文件，用图片框显示。
在drive1的change事件中：
Dir1.Path=Drive1.Drive
在dir1的change事件中：
File1.Path=Dir1.PathFile1.Refresh
在file1的click事件中：
Text1.Text=File1.FileName
在text1的change事件中：
x=Dir1.Path+"
\"
+Text1.TextPicture1.Picture=LoadPicture（x）
2．利用菜单数组，设计如下菜单。
字体主菜单：
标题字体,名称:
ztmain，无索引，访问键（T）
黑体：
标题：
黑体，名称zt，索引号0，快捷键Ctrl+a
宋体：
宋体，名称zt，索引号1，快捷键Ctrl+b
隶书：
隶书，名称zt，索引号2，快捷键Ctrl+c
分隔线标题：
-，名称zt,索引号3
退出：
退出，名称zt，索引号4，快捷键Ctrl+d
字号主菜单：
标题字号,名称:
zhmain，无索引,访问键（H）
10号:
标题：
10号，名称zh，索引号0
20号:
20号，名称zh，索引号1
30号:
30号，名称zh，索引号2
字形主菜单：
标题字形,名称:
zxmain，无索引，访问键（X）
粗体:
粗体，名称zx，索引号0
斜体:
斜体，名称zx，索引号1
下划线:
下划线，名称zx，索引号2
粗体,斜体,下划线可复选.
在窗体load事件中，设置文本框默认值：
宋体，20号，红色字。
菜单click事件，字体、字号菜单参考代码：
SelectCaseIndex
Case0
Text1.FontName="
黑体"
Case1
“字形”复选菜单参考代码：
Case0‘粗体复选菜单
Ifzx（Index）.Checked=TrueThen
zx（Index）.Checked=False
Text1.FontBold=False
Else
zx（Index）.Checked=True
Text1.FontBold=True
3、实验指导书P101页习题1
VB实验十二
1、使用公用对话框，控制文本框的字体和颜色.
“工程”--“部件”—添加“MicrosoftCommonDialogControl6.0“对话框
设置：
公共对话框：
flags属性为&
H3
HelpFile属性：
VBcmn96.hlp
HelpCommand属性：
&
H9
CommonDialog1.ShowColor
CommonDialog1.ShowFont
Text1.FontName=CommonDialog1.FontName
Text1.FontSize=CommonDialog1.FontSize
Text1.ForeColor=CommonDialog1.Color
Text1.FontBold=CommonDialog1.FontBold
Text1.FontItalic=CommonDialog1.FontItalic
2．用进程条，设计一个安装程序窗体
“工程”--“部件”对话框中选择:
“MicrosoftWindowsCommonControls6.0"
计时器初始值Enabled为false，Interval属性:
时间间隔100，用标签显示进程。
参考程序：
DimnAsInteger
PrivateSubCommand1_Click（）
Timer1.Enabled=True
n=n+5
Ifn<
=ProgressBar1.MaxThen
ProgressBar1.Value=n
MsgBox"
安装完成！
Timer1.Enabled=False
3、设置如下窗体工具栏、状态栏。
首先建立Imagelist图像列表。
再设置工具栏和状态栏
PrivateSubToolbar1_ButtonClick（ByValButtonAsMSComctlLib.Button）
SelectCaseButton.Index‘按钮索引号或Button.key
Case1
CommonDialog1.ShowOpen
Case2
CommonDialog1.ShowSave
Case3
CommonDialog1.ShowColor
4、编程将：
下面表中信息写入顺序文件d:
\file.txt文件中。
年龄
政治面貌
籍贯
张三
男
18
团员
河北
李四
19
党员
吉林
王小红
女
天津
Open“文件名”forinput/output/appendas#1
write#1,”abcd”,123,2+3将数据写入数据文件
print#1,”张三”,18将数据写入数据文件
Close#1
5、设计窗体，将文本框中数据写入文件随机文件D:
\data1，然后读出显示在图片框中。
完成代码填空。
PrivateSubCommand1_Click（）‘将文本框的内容写入随机文件
Open"
d:
\data1"
For________As_____
Put#1,____,Text1.Text
Put#1,____,Text2.Text
Put#1,____,Text3.Text
_________#1
PrivateSubCommand2_Click（）‘从随机文件读出显示
DimxAsString,yAsString,zAsString
For________As#2
Get____,______,________
Picture1.Printx;
Space
（2）;
y;
Space
（2）;
z
Close______
升级会员 