《vb程序设计》实验报告

《《vb程序设计》实验报告》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、台州学院《VB程序设计》实验报告实验1.1设计一个程序，程序运行的初始界面如图1-1所示。当单击“显示”按钮时，在文本框中显示“欢迎使用VB！”（图1-1）；当单击“清除”按钮时，清除文本框内的文本；当单击“退出”按钮时，结束程序运行。PrivateSubCommand1_Click()Text1.Text="欢迎使用VB！"EndSubPrivateSubCommand2_Click()Text1.Text=""EndSubPrivateSubCommand3_Click()EndEndSub实验1.2设计一个程序，程序运行的初始界面如图1-3所示，其中“显示”按钮为不

2、可用。同时要求：（1）当单击“改变文字”按钮时，在左边标签文字内容改为“你好，张三！”，同时“改变文字”按钮变为不可用（图1-4）；（2）当单击“隐藏”按钮时，将左边标签设为不可见，同时“隐藏”按钮变为不可用，“显示”按钮变为可用（图1-5）；（3）当单击“显示”按钮时，重新显示左边标签，同时“隐藏”按钮变为可用，“显示”PrivateSubCommand1_Click()Label1.Caption="你好，张三！"Command1.Enabled=FalseEndSubPrivateSubCommand2_Click()Label1.Visible=FalseComm

3、and3.Enabled=TrueCommand2.Enabled=FalseEndSubPrivateSubCommand3_Click()Label1.Visible=TrueCommand2.Enabled=TrueCommand3.Enabled=FalseEndSub实验2.1设计一个程序，运行时界面如图2-1所示。当单击“左”、“右”、“上”、“下”按钮时，标签分别向左、右、上、下移动。PrivateSubCommand1_Click()Label1.Left=Label1.Left-100EndSubPrivateSubCommand2_Click()Lab

4、el1.Left=Label1.Left+100EndSubPrivateSubCommand3_Click()Label1.Top=Label1.Top-100EndSubPrivateSubCommand4_Click()Label1.Top=Label1.Top+100EndSub实验2.2设计一个程序，在文本框中输入一个3位整数，单击按钮后，在标签上输出该数的百位数、十位数和个位数，运行界面如图2-2所示。PrivateSubCommand1_Click()Label1.Caption="百位数："+Left(Text1.Text,1)+"十位数："+Mid(Te

5、xt1.Text,2,1)+"个位数："+Right(Text1.Text,1)EndSub实验2.3设计一个程序，实现简单计算的功能、PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSinglea=Text1.Textb=Text2.Textc=a+bLabel1.Caption="+"Text3.Text=cEndSubPrivateSubCommand2_Click()DimaAsSingle,bAsSingle,cAsSinglea=Text1.Textb=Text2.Textc=a-bLabel1.Capt

6、ion="-"Text3.Text=cEndSubPrivateSubCommand3_Click()DimaAsSingle,bAsSingle,cAsSinglea=Text1.Textb=Text2.Textc=a*bLabel1.Caption="*"Text3.Text=cEndSubPrivateSubCommand4_Click()DimaAsSingle,bAsSingle,cAsSinglea=Text1.Textb=Text2.Textc=a/bLabel1.Caption="/"Text3.Text=cEndSubPrivateSubCommand5

7、_Click()Text1.Text=""Text2.Text=""Text3.Text=""EndSubPrivateSubCommand6_Click()EndEndSub实验2.4设计一个程序，单击“输入”按钮可弹出一个输入对话框，提示用户输入带区号的电话号码，区号为4为，号码为8位，比如输入“0571-86281517”，然后将区号和电话号码在消息对话框中显示出来，运行界面如图2-4所示。PrivateSubCommand1_Click()DimcAsStringc=InputBox("输入带区号的电话号码，区号为4为