VB实验.docx
- 文档编号:4279640
- 上传时间:2022-11-28
- 格式:DOCX
- 页数:14
- 大小:149.44KB
VB实验.docx
《VB实验.docx》由会员分享,可在线阅读,更多相关《VB实验.docx(14页珍藏版)》请在冰豆网上搜索。
VB实验
VB实验一
一、实验教程P18页习题三
二、P20-25页习题三,实验2-1,2-2,2-3
VB实验二
一、实验教程P27页实验2-4,2-5
二、设计如下窗体,完成计算功能
窗体名称:
myform,标题:
计算,背景为绿色
标签名称label_bj,标题:
输入半径,样式为透明,自动大小。
标签名称label_zc,标题:
周长,样式为透明,自动大小。
标签名称label_mj,标题:
面积,样式为透明,自动大小。
文本框名称mytext,默认文本内容为0
三个命令按钮名称:
cmd1.cmd2,cmd3,标题为:
求周长,求面积,关闭
三、设计如下窗体:
通过文本框输入学生姓名,性别、语文和数学成绩。
单击输出按钮,用标签Label4显示输出结果。
单击关闭按钮,退出.
提示:
用label5的caption输出。
对象
属性
属性值
对象
属性
属性值
Form1
Caption
学生成绩管理
Text1
text
空白
Label1
Caption
姓名
Text2
text
空白
Label2
Caption
性别
Text3
text
空白
Label3
Caption
语文
Text4
text
空白
Label4
Caption
数学
Label5
Caption
空格
Command1
Caption
输出
Command2
Caption
关闭
VB实验三
一、设计如下窗体,完成计算功能
通过三个文本框输入三角形的三个边,计算面积,用标签输出。
二、设计窗体:
在两个文本框中,用随机函数产生1-100之间两个整数,计算输出其和、差、积、商、余数。
公式:
产生[N1,N2]间随机整数:
Int((N2-N1+1)*Rnd())+N1
三、通过inputbox()函数输入两门课成绩,完成计算总分、平均分。
四、实验教程P38页实验3-3
VB实验四
1、设计窗体,填空调试程序
程序填空:
PrivateSubCommand1_Click()‘计算
Dimx1,x2,x3,x4
x1=Val(Text1.Text)
x2=Val(Text2.Text)
x3=____________
x4=____________
text4.Text=_______________
EndSub
PrivateSubCommand2_Click()‘退出
______________
EndSub
2、设计窗体,求方程2x2-5x+1=0的两个实根。
程序填空:
PrivateSubCommand1_Click()
Dimx1AsSingle,x2AsSingle
DimaAsInteger,bAsInteger,cAsInteger
a=2
b=-5
c=1
x1=______________________
x2=_____________________
___________=x1
___________=x2
EndSub
PrivateSubCommand2_Click()
___________
EndSub
3、计算x绝对值。
采用下面结构
if条件then
语句
else
语句
Endif
4、用两个文本框实现x输入,y输出。
采用块if结构:
if条件then
语句
Endif
5、用四个文本框输入四个数,计算最小值,用标签显示。
采用行if结构:
if条件then语句
思路:
用文本框输入四个数给a,b,c,d,将第一数赋给变量X=a
如果b 如果c 如果d 最后显示x值 VB实验五 1、用下面的结构编程,用文本框输入x,用文本框输出y。 If条件1Then 语句组1 ElseIf条件2Then 语句组2 Elseif条件nThen 语句组n Else 其他语句组 EndIf 2、用下面的结构编程,用文本框输入成绩,判断优、良、中、及格、不及格,用标签显示。 SelectCase测试表达式 Case表达式表1 语句组1 Case表达式表2 语句组2 。 。 。 EndSelect 3、用以下两种形式,计算1+2+3+…+100 DoWhile条件 语句组 Loop DoUntil条件 语句组 Loop 4、计算: 5、在循环中,用inputbox()输入10个成绩求和,用两个文本框输出总分和平均分。 VB实验六 1、填空: 输出1-100中能被7整除的数。 x=1 DoWhile________ If___________ThenPrintx x=x+1 Loop 2填空: 输出九九乘法表。 Fori=1To_____ Forj=1To______ Printi;"*";j;"=";i*j; Next___ ________ Next____ 3填空: 求最大公约数和最小公倍数。 m=Val(Text1.Text) n=Val(Text2.Text) a=m b=n Ifm ______ ______ _______ EndIf Do r=________ m=n n=r LoopWhile_______ Label1.Caption="最小公倍数: "&(a*b/m)&"最大公约数: "&m 4、编程: 百鸡百钱,公鸡一,值钱五;母鸡一,值钱三;小鸡三,值钱一;公鸡,母鸡,小鸡各多少? 5x+3y+1/3z=100 x+y+z=100 5、编程: 输出图形 * ** *** **** ***** ****** 6、编程: 计算计算100-200之间的的素数 VB实验七 1、填空: 在窗体中,设计排序按钮,用冒泡法从小到大排序。 Dima(1To10)AsInteger Fori=1To10 ______=val(InputBox(“输入数据”,“输入框”,0)) Nexti fori=1to_____ forj=1to______ if___________then t=a(j) a(j)=a(j+1) a(j+1)=t Endif Next_____ Next_____ Fori=1To10 _____________‘用print输出各个元素 Nexti 2、填空,在窗体中设计输出按钮,输出下列矩阵及其最大值和位置。 dimx(________,________)asinteger Fori=1To___‘输入矩阵数据 forj=1to___ _____=val(InputBox(“输入数据”,“输入框”,”0”)) Nextj Nexti Fori=1To3‘输出矩阵 forj=1to4 print_____; Nextj _______ Nexti Max=_____‘求最大值及位置 m=____ n=____ Fori=1To3 forj=1to4 if____________then max=_____ m=____ n=____ endif Nextj nexti Print“最大元素”;Max,”所在行和列”;m,n 3.设计下面窗体,利用命令按钮控件数组,编程。 参考实验指导书P79页 4、设计如下窗体,处理学生成绩。 参考程序: Dima(1To5,1To3)AsInteger‘通用段定义数组 PrivateSubCommand1_Click()‘输入学号和成绩 Fori=1To5'产生5个学生学号 a(i,1)=i Nexti Fori=1To5 a(i,2)=Val(InputBox("输入成绩","第一科",0)) Nexti Fori=1To5 a(i,3)=Val(InputBox("输入成绩","第二科",0)) Nexti EndSub PrivateSubCommand2_Click()‘显示成绩单 Print"学号成绩1成绩2" Fori=1To5 Printa(i,1);a(i,2);a(i,3) Nexti EndSub PrivateSubCommand3_Click()‘显示总分、平均分 Fori=1To5 s=s+a(i,2) p=p+a(i,3) Nexti Prints,p,s/5,p/5 EndSub PrivateSubCommand4_Click()‘显示第一科成绩最高分 Max=a(1,2) Fori=1To5 Ifa(i,2)>MaxThenMax=a(i,2) Nexti PrintMax EndSub PrivateSubCommand5_Click()‘输出第一科不及格人数 Fori=1To5 Ifa(i,2)<60Thenm=m+1 Nexti Printm EndSub VB实验八 1、程序填空: 通过子程序调用 PrivateSubCommand1_Click() r=Val(Text1.Text) s=0 Call_________ Text2.Text=s EndSub Subsub1(_______,_______) y=3.14*x*x EndSub 2.程序填空,用函数递归调用,输出Fibonaci数列前20项。 PrivateSubCommand1_Click() Fori=1To20 Printfib(i); IfiMod5=0ThenPrint Nexti EndSub Function_____ Ifn=1Orn=2Theny=____ Ifn>2Theny=_______ _________ EndFunction 3、用自定义函数调用,计算: 主程序调用: fun(实参) 自定义函数: functionfun(形参) 。 。 。 Fun=结果 Endfunction 4、设计以下窗体: 5.设计下列窗体,调试代码 通过属性窗口设置list1的list属性值。 参考代码: List2.AddItemList1.text List2.RemoveItemList2.ListIndex List2.Clear 6、在窗体上设计: 列表框、一组单选按钮、一个组合框、一组复选框、标签、命令按钮。 选择内容后,按“确定”按钮,在标签上显示选择的学生信息。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 实验