VisualBasic编程与应用课程作业1Word下载.docx
《VisualBasic编程与应用课程作业1Word下载.docx》由会员分享,可在线阅读,更多相关《VisualBasic编程与应用课程作业1Word下载.docx(11页珍藏版)》请在冰豆网上搜索。
注:
假定上面
(1)和(3)中的c+d和x为弧度,如果为度则应转换为弧度。
6、设a=2,b=3,c=4,d=5,求下列表达式的值:
(1)a>
bANDC<
=dOR2*a>
C
(2)3>
2*bORa=cANDb<
>
cORC>
d
(3)NOTa<
=cOR4*c=b∧2ANDb<
a+c
7、编写程序,计算1+2+3+4+…+100。
8、我国现有人口为12亿,设年增长率为1%,编写程序,计算多少年后增加到16亿。
9、给定三角形的三条边长,计算三角形的面积。
编写程序,首先判断给出的三条边能否构成三角形,如可以构成,则计算并输出该三角形的面积,否则要求重新输入。
当输入-1时结束程序。
10、税务部门征收所得税,规定如下:
(1)收入在200元以内,免征;
(2)收入在200~400内,超过200元的部分纳税3%;
(3)收入超过400元的部分,纳税4%;
(4)当收入达到5000元或超过时,将4%税金改为5%。
编程序实现上述操作。
11、编写程序,打印如下所示的“数字金字塔”:
1
121
12321
1234321
.
12345678987654321
12、勾股定理中三个数的关系是:
a2+b2=c2编写程序,输出100以内满足上述关系的整数组合,例如3,4,5就是一个整数组合。
12、从键盘上输入两个正整数M和N,求最大公因子。
14、编写程序,打印如下的乘积表:
*36912
15
16
17
18
15、从键盘上输入一个学生的学号和考试成绩,然后输出该学生的学号、成绩,并根据成绩按下面的规定输出对该学生的评语:
成绩 80~100 60~79 50~59 40~49 0~39
评语 Verygood Good Fair Poor Fail
VisualBasic编程与应用课程作业2
(2002年05月23日)
第二部分
1、制作一个万年历,用来查看某年的元旦是星期几。
确定某年的元旦是星期几可由以下式子得出:
F=(y―1)(1+1/4-1/100+1/400)+1
K=F―int(F/7)*7
其中,Y为某年公元年号,计算出K为星期几,K=0为星期日。
从文本框(txtYear)输入年份,单击“查看”按钮,在文本框(txtDay)中显示星期。
注意:
对数值型变量取整,可以用Fix(x)和Int(x)函数。
当函数参数x是正数时,Fix(x)和Inx(x)函数结果相同;
当参数x是负数时,则Int函数返回小于等于x的第一个负整数,而Fix函数则会返回大于等于x的第一个负整数。
2、创建一个登录界面,由两个标签(Label1、Labe12)和两个文本框(txtName、txtPassword)组成。
其中,口令文本框(txtPassword)的PasswordChar属性设置为“*”,运行时要求输入姓名和密码,如果在两个文本框中分别输入“Guest:
”和“12345”,则界面显示“欢迎使用本系统!
”,否则显示“对不起,你不是本系统用户!
”。
3、运用定时器和图片框设计一个简单的动画。
动画场景:
界面有两个按钮“缩小”和“暂停”(cmdSize和cmdStop)、一个垂直滚动条(VsbSize)、一个图像框(imgSize)和两个标签组成。
单击“缩”按钮,就开始定时地缩小图形;
单击“暂”按钮,则停止缩小;
改变滚动条箭头的位置可以改变缩小的速度。
各对象的属性设置如表所示,设置定时器每时间间隔为1秒。
控件属性
对象
控件名
属性名
属性值
Form
Form1
Caption
定时缩小图象框
Label
Labe11
Labe12
快
慢
CommandButton
cmdSize
cmdStop
缩小
暂停
Image
imgSize
Stretch
Picture
True
C:
\Visual
Studio\Common\Graphics\Metafile\Arrows
Timer
tmrSize
Enabled
Interval
False
1000
VscrollBar
VshSize
Max
Min
LargeChange
950
50
4、使用控件数组创建一个简单的电话拨号程序。
界面中一个文本框(txtPhoneNo)用于显示所拨的电话号码,按钮控件数组(cmdNumber)用于拨号,Index属性是0~9,Caption属性为相应的数字。
另两个命令按钮“拨号”和“取消”在本程序中未编程使用。
5、改正下列语句中的错误:
(1)A$=abc
(2)Printa=34+23
(3)X=5y=6
(4)Print'
'
c='
:
5+6
(5)Text1.Print'
########'
(6)A*5=B+2
6、写出下列语句的输出结果,并上机验证:
(1)Print'
25+32'
;
25+32
(2)X=12.5
Print'
x='
;
x
(3)a%=3.14156
Printa%
(4)Print'
China'
Beijing'
,'
Tianjin'
Shanghai'
Wuhan'
,
Print'
Nanjing'
Print'
Shenyang'
Chongqing'
Wulumuqi'
Print,,'
Guangzhou'
,,'
Chengdu'
(5)PrintTab(5);
100;
Space$(5);
200;
Tab(35);
300
PrintTab(10);
400;
Tab(23);
500;
600
7、写出下列语句的输出结果:
SubForm_Click( )
A=10:
b=15:
c=20:
d=25
PrintA;
Spc(5);
b;
Spc(7);
c
Spc(8);
Space$(5);
Printc;
Spc(3);
"
+"
;
d;
PrintSpc(3);
="
c+d
EndSub
8、从键盘上输入4个数,编写程序,计算并输出这4个数的和及平均数。
通过InputBox函数输入数据,在窗体上显示和及平均值。
9、编写程序,要求用户输入下列信息:
姓名、年龄、通信地址、邮政编码、电话,然后将输入的数据用适当的格式在窗体上显示出来。
10、编写程序,求解鸡兔同笼问题。
一个笼子中有鸡x只,兔y只,每只鸡有两只脚,每个兔子有4只脚。
今知鸡和兔的总头数为h,总脚数为f。
问笼中鸡和兔各有多少只?
提示:
根据数学知识,可以写出如下的联立方程式:
x+y=h
(1)
2x+4y=f
(2)
(2)式—2*
(1)式:
2y=f—2h故:
y=(f—2h)/2
4*
(1)—
(2)式:
2x=4h—f故:
x=(4*h—f)/2
可按上式编写程序。
用InputBox函数输入h和f的值,设h=71,f=158,请编写程序并上机运行。
11、设a=5,b=2.5,c=7.8,编程序计算:
y=丌ab/(a+bc)
12、输入以秒为单位表示的时间,编写程序,将其换算成几日几时几分几秒。
13、可以通过哪几种方法在图片框中装入图形?
14、在窗体上画4个图像框和一个文本框,在每个图像框中装入一个箭头图形,分为4个不同的方向,把文本框的MultiLine属性设置为True。
编写程序,当单击某个图像框时,在文本框中显示相应的信息。
例如,单击向右的箭头时,在文本框中显示“单击向右箭头”。
15、在窗体上建立三个文本框和一个命令按钮。
程序运行后,单击命令按钮,在第一个文本框中显示由Command1_Click事件过程设定的内容(例如“MicrosoftVisua1Basic”),同时在第二、第三个文本框中分别用小写字母和大写字母显示第一个文本框中的内容。
提示:
用第一个文本框的Change事件过程在第二、三个文本框中显示指定的内容。
16、编写程序,演示列表框控件的基本操作。
在窗体上建立两个列表框,两个命令按钮。
程序运行后,在第一个列表框中选择所需要的项目,单击“添加”按钮,可把所选择的项目移到第二个列表框中。
如果单击“删除”按纽,则执行相反的操作。
在第二个列表框中,允许同时选择多个项目。
分别在两个列表框的下面显示列表框当前的Style和Sorted属性。
17、编写程序,用计时器按秒计时。
在窗体上画一个计时器控件和一个标签,程序运行后,在标签内显示经过秒数,并响铃。
第三部分
1、编写一个求3个数中最大值Max和最小值Min的过程,然后用这个过程分别求3个数、5个数、7个数中的最大值和最小值。
2、编写一个过程,以整型数作为形参,当该参数为奇数时输出False,而当该参数为偶数时输出True。
3、分析下面程序运行的结果。
PrivateFunctionMultiply(