VB操作题答案

《VB操作题答案》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第一次作业PrivateSubCommand1_Click()Text1.Text="欢迎你学习VB程序设计"Text1.ForeColor=vbGreenText1.Font="宋体"Text1.FontSize=25Text1.FontItalic=TrueText1.FontBold=TrueEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_Click()Text1.ForeColor=vbRedText1.Font="隶书"Text1.Te

2、xt="佛山大学理学院"EndSub第二次作业(服务员密码)1、请建立一个工程（zy02.vbp),含有1个窗体（zy02.frm),该窗体有两个标签，两个命令按钮（设置成不同的背景色），一个文本框。要求如下：1）当程序启动运行时，命令按钮不可用（变灰色），当在文本框中输入正确密码时，显示出来的是星号，（2）…3）点击结帐按钮后，窗体所有控件消失，仅显示出标签“谢谢你，再见！”这样的服务用语。PrivateSubCommand1_Click()Text1.Visible=FalseLabel2.Visible

3、=TrueLabel2.Caption="你好，你需要什么"Command2.Enabled=TrueEndSubPrivateSubCommand2_Click()Command1.Visible=FalseCommand2.Visible=FalseLabel1.Visible=FalseLabel2.Caption="谢谢你，再见！"EndSubPrivateSubForm_Load()Label2.Visible=FalseCommand1.Enabled=FalseCommand2.Enabled=

4、FalseEndSubPrivateSubText1_Change()IfText1.Text="12345"ThenCommand1.Enabled=TrueText1.PasswordChar="*"EndSub第三次建立一个工程(zy03.vbp),含有一个窗体（zy03.frm）。请在该窗体上设计两个文本框，三个命令按钮，标题分别是减运算和除运算，退出，如图。请编写适当的程序，根据两个文本框中输入的数据（整型数据）分别进行减运算和除运算，并将运算结果（注意：除运算结果采用浮点数）用标签控件显示出来。特

5、别要求：总是用两个文本框中输入的大数据做被减数或被除数。工程文件和窗体文件上传到你的操作题子目录下。PrivateSubCd1_Click()DimX%,Y%,Z%DimP$X=Int(Tt1.Text)Y=Int(Tt2.Text)IfX>YThenZ=X-YElseZ=Y-XP=Str(Z)Ll2.Caption=PEndSubPrivateSubCd2_Click()DimX%,Y%,Z#DimP$X=Int(Tt1.Text)Y=Int(Tt2.Text)IfX>YThenZ=X/YElseZ=Y/X

6、P=Str(Z)Ll2.Caption=PEndSubPrivateSubCd3_Click()Visible=FalseEndSub第四次1、建立一个工程(zy041.vbp),含有一个窗体（zy041.frm）。请在该窗体上设计三个文本框，两个命令按钮，标题分别是计算和与清除，如图。请编写两个命令按钮适当的程序，点击命令按钮计算，利用inputbox函数输入任意两个正整数，将这两个数显示在前两个文本框中，然后根据两个数的和进行判断，如果是奇数，将其放在第3个文本框中，如果是偶数，将其打印在窗体上，点击清除

7、按钮后，清除文本框中的数和窗体上的数据。PrivateSubC1_Click()DimxAsInteger,yAsInteger,zAsInteger,mAsIntegerx=InputBox("请输入第一个正整数：","数据输入")y=InputBox("请输入第二个正整数：","数据输入")Ifx>0Andy>0ThenT1.Text=xT2.Text=yz=x+ym=zMod2Ifm=0ThenPrintzElseT3.Text=zEndIfElsePrint"输入的数据无效！请再次输入~"EndIfE

8、ndSubPrivateSubC2_Click()T1.Text=""T2.Text=""T3.Text=""ClsEndSubPrivateSubForm_Load()T1.Enabled=FalseT2.Enabled=FalseT3.Enabled=FalseEndSub2建立一个工程(zy042.vbp),含有一个窗体（zy042.frm）。请在该窗体上设计两个文本框，。编写窗体的单击事件过