vb程序设计(含答案)

《vb程序设计(含答案)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、1、编写程序，将26个字母逆序输出。教材p87【例4-15】2、编写程序，在窗体上随机输出一个10--99之间的两位整数。PrivateSubForm_Click()clRandomizePrintInt(Rnd()*90)+10EndSub3、在窗体的单击事件中编写程序，从键盘输入3个数，按从小到大的顺序输出到窗体上。PrivateSubForm_Click()clsa=Val(InputBox("a="))b=Val(InputBox("b="))c=Val(InputBox("c="))Ifa>bThent=a:a=b:b=t

2、EndIfIfa>cThent=a:a=c:c=tEndIfIfb>cThent=b:b=c:c=tEndIfPrint"按从小到大排序后的结果:";a;"、";b;"、";cEndSub4、编写程序，要求随着不断单击命令按钮Command1，窗体的标题依次显示为：今天是星期一→今天是星期二→今天是星期三→今天是星期四→今天是星期五→今天是星期六→今天是星期日。PrivateSubCommand1_Click()StaticiAsIntegeri=i+1SelectCaseiCase1Form1.Caption="今天是星期一"Ca

3、se2Form1.Caption="今天是星期二"Case3Form1.Caption="今天是星期三"Case4Form1.Caption="今天是星期四"Case5Form1.Caption="今天是星期五"Case6Form1.Caption="今天是星期六"Case7Form1.Caption="今天是星期日"i=0EndSelectEndSub5、编写程序，将字符串""山高人为峰""按逆序""峰为人高山""输出。PrivateSubCommand1_Click()clss="山高人为峰"s1=""Fori=Len(s)To

4、1Step-1s1=s1&Mid(s,i,1)NextPrints1EndSub6、使用文本框输入长方形的长和宽,用MsgBox输出长方形的周长和面积.PrivateSubForm_Click()l=Val(Text1.Text)h=Val(Text2.Text)MsgBox"长是"+Str(l)+"宽是"+Str(h)+_"的长方形"+Chr(10)+"面积是:"+Str(l*h)+_Chr(10)+"周长是:"+Str(2*(l+h))EndSub7、输入x，计算y的值。其中：y=1+3x(x>=0);y=1-5x(x<0)。P

5、rivateSubForm_Click()clsx=Val(InputBox("x="))Ifx>=0Theny=1+3*xElsey=1-5*xEndIfPrint"x=";x;"时y=";yEndSubPrivateSubForm_Click()clsSum=0Fori=1To15x=1Forj=1Toix=x*jNextSum=Sum+xNextPrint"1!+2!+...+15!=";SumEndSubPrivateSubForm_Click()clsSum=0x=1Fori=1To15x=x*iSum=Sum+xNext

6、Print"1!+2!+...+15!=";SumEndSub8、在窗体的单击事件过程中，编写程序计算1！+2！+3！+…+15!9、编程计算从200到1000之间的所有4的倍数之和。PrivateSubForm_Click()clsSum=0Fori=200To1000Step4Sum=Sum+iNextPrint"200-1000中4的倍数和是:";SumEndSub10、编写程序，通过InputBox函数从键盘上输入4个数,计算并在窗体上显示这4个数的和及平均值。PrivateSubForm_Click()clsSum=0Fo

7、ri=1To4x=Val(InputBox("接收4个数"))Sum=Sum+xNextPrint"和是";SumPrint"平均值是";Sum/4EndSub11、编写程序,点击命令按钮Command1时，两个文本框text1与text2中的内容进行交换。PrivateSubCommand1_Click()t=Text1.TextText1.Text=Text2.TextText2.Text=tEndSub12、用InputBox函数输入3个数据，判断这3个数据是否可以组成三角形，如果能够组成三角形，计算并在窗体上输出三角形的面积

8、。构成三角形的条件是：任意两边之和大于第三边。面积公式为area=,其中S=(A+B+C)/2，A、B、C为三条边的长度。PrivateSubForm_Click()clsa=Val(InputBox("a="))b=Val(Inpu