vb实验四的题

《vb实验四的题》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、实验四4.1选择1、编写程序，用inputbox函数从键盘上输入你的生日，通过msgbox函数输出你的出生日是星期几？并在窗体上显示当今至你的出生日已经有多少天了?PrivateSubForm_Load()DimsrAsDatesr=InputBox("请输入你的生日","输入生日")MsgBoxWeekdayName(Weekday(sr))PrintDateDiff("d",sr,Date)EndSub4.22、编写程序，用inputbox函数从键盘上任意输入A，B，C三个数，然后比较输出最大和最小的数。PrivateSubForm_Click()Dima!,b!,c!a=Inpu

2、tBox("输入a")b=InputBox("输入b")c=InputBox("输入c")Max=a:Min=aIfMaxbThent=Min:Min=b:b=tIfMaxcThent=Min:Min=c:c=tPrint"最大数是：";Max,"最小数是：";MinEndSub4.33、编写程序计算话费，界面要求：在Text1文本框中输入通话时间，然后按回车键(Enter),马上在Text2文本框中显示出话费（话费的显示格式为：$1.50元）。0.5a<=3y=0.5+(a-3

3、)×0.233Anda<10Theny=0.5+(a-3)*0.2Else5y=0.5+7*0.2+(a-10)*0.1EndIfText2.Text=Format(y,"$###.00")EndIfEndSub4.41、随机产生一

4、个不多于4位的正整数，要求：1）求它是几位数；2）分别显示出每位数；3）逆序输出各位数字。PrivateSubCommand1_Click()Dima%,b%,indiv%,ten%,hun%,th%Randomizea=Int(Rnd*10000)Ifa>999Thenb=4'如果a大于999则为4位数ElseIfa>99Thenb=3ElseIfa>9Thenb=2Elseb=1EndIfindiv=aMod10'a除以10的余数为个位数ten=a10Mod10'求十位数hun=a100Mod10th=a1000Mod10SelectCasebCase4Printa,"是";

5、b;"位数"Print"各位数分别是：";th;hun;ten;indivPrint"逆序为：";indiv;ten;hun;thCase3Printa,"是";b;"位数"Print"各位数分别是：";hun;ten;indivPrint"逆序为：";indiv;ten;hunCase2Printa,"是";b;"位数"Print"各位数分别是：";ten;indivPrint"逆序为：";indiv;tenCase1Printa,"是";b;"位数"Print"各位数分别是：";indivPrint"逆序为：";indivEndSelectEndSub54.51、建立一个文本框对象

6、用于输入日期；一个标签对象用于输出结果（格式自定）和一个“确定”按钮；当在文本框中输入日期然后按“确定”键,程序能算出所输入的日期是星期几，若为星期一、星期三、星期五，则在标签中显示“星期几在图书馆”；若为星期二、星期四，则显示“星期几在家”；若为星期六、星期天，则显示“星期几出去玩”PrivateSubCommand1_Click()d=CDate(Text1.Text)x=WeekdayName(Weekday(d))SelectCasexCase"星期一","星期三","星期五"Label1.Caption=x&"在图书馆"Case"星期二","星期四","星期六"Label1.

7、Caption=x&"在家"CaseElseLabel1.Caption=x&"去逛街"EndSelectEndSub4.62、编写学前班学生使用的计算程序，计算20以内的加与减运算。界面如下图所示。操作数与运算符随机产生并用标签输出算术式子，用文本框接收用户输入的答案，单击“确定”按钮后算术式子和答案以及对错都在图片框中显示；单击“计分”按钮算出题数和得分；单击“重做”按钮则清空图片框并重发题；单击“结束”按钮结束程序运行。51、Dima%,