VB实验Word文件下载.docx
- 文档编号:17197628
- 上传时间:2022-11-28
- 格式:DOCX
- 页数:14
- 大小:149.44KB
VB实验Word文件下载.docx
《VB实验Word文件下载.docx》由会员分享,可在线阅读,更多相关《VB实验Word文件下载.docx(14页珍藏版)》请在冰豆网上搜索。
Caption
学生成绩管理
Text1
text
空白
Label1
Caption
姓名
Text2
Label2
性别
Text3
Label3
语文
Text4
Label4
数学
Label5
空格
Command1
输出
Command2
关闭
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()‘退出
______________
2、设计窗体,求方程2x2-5x+1=0的两个实根。
PrivateSubCommand1_Click()
Dimx1AsSingle,x2AsSingle
DimaAsInteger,bAsInteger,cAsInteger
a=2
b=-5
c=1
x1=______________________
x2=_____________________
___________=x1
___________=x2
PrivateSubCommand2_Click()
___________
3、计算x绝对值。
采用下面结构
if条件then
语句
else
语句
Endif
4、用两个文本框实现x输入,y输出。
采用块if结构:
if条件then
语句
Endif
5、用四个文本框输入四个数,计算最小值,用标签显示。
采用行if结构:
if条件then语句
思路:
用文本框输入四个数给a,b,c,d,将第一数赋给变量X=a
如果b<
x,x=b
如果c<
x,x=c
如果d<
x,x=d
最后显示x值
VB实验五
1、用下面的结构编程,用文本框输入x,用文本框输出y。
If条件1Then
语句组1
ElseIf条件2Then
语句组2
Elseif条件nThen
语句组n
Else
其他语句组
EndIf
2、用下面的结构编程,用文本框输入成绩,判断优、良、中、及格、不及格,用标签显示。
SelectCase测试表达式
Case表达式表1
Case表达式表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
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<
nThen
______
_______
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实验七
在窗体中,设计排序按钮,用冒泡法从小到大排序。
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
Next_____
_____________‘用print输出各个元素
2、填空,在窗体中设计输出按钮,输出下列矩阵及其最大值和位置。
dimx(________,________)asinteger
Fori=1To___‘输入矩阵数据
forj=1to___
_____=val(InputBox(“输入数据”,“输入框”,”0”))
Nextj
Fori=1To3‘输出矩阵
forj=1to4
print_____;
Nextj
Max=_____‘求最大值及位置
m=____
n=____
Fori=1To3
if____________then
max=_____
n=____
endif
nexti
Print“最大元素”;
Max,”所在行和列”;
m,n
3.设计下面窗体,利用命令按钮控件数组,编程。
参考实验指导书P79页
4、设计如下窗体,处理学生成绩。
参考程序:
Dima(1To5,1To3)AsInteger‘通用段定义数组
PrivateSubCommand1_Click()‘输入学号和成绩
Fori=1To5'
产生5个学生学号
a(i,1)=i
Fori=1To5
a(i,2)=Val(InputBox("
输入成绩"
"
第一科"
0))
a(i,3)=Val(InputBox("
第二科"
PrivateSubCommand2_Click()‘显示成绩单
Print"
学号成绩1成绩2"
Printa(i,1);
a(i,2);
a(i,3)
PrivateSubCommand3_Click()‘显示总分、平均分
s=s+a(i,2)
p=p+a(i,3)
Prints,p,s/5,p/5
PrivateSubCommand4_Click()‘显示第一科成绩最高分
Max=a(1,2)
Ifa(i,2)>
MaxThenMax=a(i,2)
PrintMax
PrivateSubCommand5_Click()‘输出第一科不及格人数
Ifa(i,2)<
60Thenm=m+1
Printm
VB实验八
1、程序填空:
通过子程序调用
r=Val(Text1.Text)
s=0
Call_________
Text2.Text=s
Subsub1(_______,_______)
y=3.14*x*x
2.程序填空,用函数递归调用,输出Fibonaci数列前20项。
Fori=1To20
Printfib(i);
IfiMod5=0ThenPrint
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 实验