资源描述：
《中国石油大学华东VB练习题10至15周程序题总括.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、..1、（1）PrivateSubCommand1_Click()Text3.Text=2*(Val(Text1.Text)+Val(Text2.Text))Text4.Text=Val(Text1.Text)*Val(Text2.Text)EndSub（2）PrivateSubCommand1_Click()Text3.Text=Str(2*(Val(Text1.Text)+Val(Text2.Text)))Text4.Text=Str(Val(Text1.Text)*Val(Text2.Text))EndSub（3）Pri
2、vateSubCommand1_Click()DimcAsDouble,kAsDouble,zAsDouble,mAsDoublec=Val(Text1.Text)k=Val(Text2.Text)z=2*(c+k)m=c*kText3.Text=Str(z)Text4.Text=Str(m)EndSub2、（1）PrivateSubCommand1_Click()Text2.Text=2*3.1415926*Val(Text1.Text)Text3.Text=3.1415926*Val(Text1.Text)^2EndSub
3、（2）PrivateSubCommand1_Click()..下载可编辑....Text2.Text=Str(2*3.1415926*Val(Text1.Text))Text3.Text=Str(3.1415926*Val(Text1.Text)^2)EndSub（3）PrivateSubCommand1_Click()r=Val(Text1.Text)p=2*3.1415926*rs=3.1415926*r^2Text2=pText3=sEndSub3、（1）PrivateSubCommand1_Click()Text3.T
4、ext=Val(Text1.Text)/Val(Text2.Text)EndSub（2）PrivateSubCommand1_Click()Text3.Text=Str(Val(Text1.Text)/Val(Text2.Text))EndSub（3）PrivateSubCommand1_Click()DimrmbAsDouble,blAsDouble,myAsDoublermb=Val(Text1.Text)bl=Val(Text2.Text)my=rmb/blText3.Text=Str(my)EndSub1、在上方文本框
5、Text1中输入任意2位数，单击“处理”按钮Command1，将这个两位数逆序输出到下方文本框Text2中。..下载可编辑....PrivateSubCommand1_Click()ys=Val(Text1.Text)ns=(ysMod10)*10+(ys10)Text2.Text=nsEndSubPrivateSubCommand1_Click()ys=Text1.Textns=Right(ys,1)&Left(ys,1)Text2.Text=nsEndSubPrivateSubCommand1_Click()ys=Tex
6、t1.Textns=Mid(ys,2,1)&Mid(ys,1,1)Text2.Text=nsEndSub2、在上方文本框Text1中写入普通手机号码，点击转换按钮Command1，将普通手机号码转为加横线的手机号码写入Text2文本框中。相反，在下方文本框Text2中写入加横线的手机号码，点击反转按钮Command2，将加横线的手机号码转为普通手机号码写入Text1文本框中。PrivateSubCommand1_Click()yhm=Text1.Textxhm=Mid(yhm,1,3)&"-"&Mid(yhm,4,4)&"-"
7、&Mid(yhm,8,4)Text2.Text=xhmEndSubPrivateSubCommand2_Click()yhm=Text2.Textxhm=Mid(yhm,1,3)&Mid(yhm,5,4)&Right(yhm,4)Text1.Text=xhmEndSub3、在文本框Text1中写入一字符串，点击处理按钮Command1，则将Text1..下载可编辑....中所有小写字母转换为大写字母，结果写入文本框Text2中，并计算Text1中字符个数写入文本框Text3中。PrivateSubCommand1_Click(
8、)yzf=Text1.Textxzf=UCase(yzf)zfgs=Len(yzf)Text2.Text=xzfText3.Text=zfgsEndSub4、在txtChinese、txtMath文本框中分别输入“语文”和“数学”的成绩，单击“计算”按钮cmdComp，程序计
