VB程序实验报告.doc

《VB程序实验报告.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、《VB程序设计》实验报告实验二顺序结构程序设计学院电子电气班级1班学号20110804姓名实验日期2012.批次1地点教师教师评语年月日一、实验目的1．掌握表达式、赋值语句的正确使用与书写规则。2．掌握常用函数的使用。3．掌握InputBox与MsgBox函数（过程）的使用。4．掌握各种数据类型5．掌握VB程序基本的输入输出方法。二、实验内容（你做了哪几个题）1．必做题：全做2．选做题：无三、简述其中一题（写清题号）的具体操作步骤：实验2-2b具体操作步骤如下：1、打开VB程序，创建一个新的标准窗口2、在窗口

2、的相应位置，分别建立4个label。并在属性框中的label的caption处更改label的名称。（label1更名为：输入原文：。Label2更名为：转换后：。Label3更名为：字串长：。Label4更名为：去空格后：）3、分别在以上建立的4个label后再建立4个text。（text1、text2、text3、text4）并在属性框中一一清除其caption后的名称。4、在窗口的最后建立3个按钮。并在属性框的caption中分别更改名称为：转换成大写、转换成小写、统计字串长5、双击按钮，对按钮进行编程

3、：（输入程序如下）PrivateSubCommand1_Click()Text2=UCase(Text1)EndSubPrivateSubCommand2_Click()Text2=LCase(Text1)EndSubPrivateSubCommand3_Click()Text3=Len(Text1)Text4=Len(Trim(Text1))EndSubPrivateSubForm_Load()EndSub计算机技术基础（VB）实验报告——实验二四、思考并回答1．写出实验中的代码：⑴2-1a代码是：Priv

4、ateSubCommand1_Click()Text2.Text=2*3.14*Val(Text1)EndSubPrivateSubCommand2_Click()Text3.Text=3.14*Val(Text1)^2EndSubPrivateSubForm_Load()EndSubPrivateSubText1_LostFocus()IfNotIsNumeric(Text1)Theni=MsgBox("输入了非法字符！",64,"提示")Text1=""Text1.SetFocusEndIfText2="

5、"Text3=""EndSub⑵2-1b代码是：PrivateSubCommand1_Click()Constpi=3.14159DimrAsSingle,lAsSingle,sAsSingler=InputBox("请输入半径:","输入半径")s=pi*r^2l=2*pi*rLabel2=Label2&rLabel3=Label3+Str(l)label4=label4+Str(s)EndSub2．2-2a代码是：PrivateSubCommand1_Click()Text1.ForeColor=RGB(

6、255,0,0)Text2.ForeColor=RGB(255,0,0)Text2.PasswordChar=""Text1=(Text1="2006000")Text2=(Text2="TJin1234")EndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_Load()EndSubPrivateSubText1_GotFocus()Text1=""Text1.ForeColor=RGB(0,0,0)EndSubPrivateSubText2_Got

7、Focus()Text2=""Text2.ForeColor=RGB(0,0,0)Text2.PasswordChar="*"EndSub3．2-2b代码是：PrivateSubCommand1_Click()Text2=UCase(Text1)EndSubPrivateSubCommand2_Click()Text2=LCase(Text1)EndSubPrivateSubCommand3_Click()Text3=Len(Text1)Text4=Len(Trim(Text1))EndSubPrivateS

8、ubForm_Load()EndSub4.2-2c代码是：5.2-3a代码是：PrivateSubCommand1_Click()Dimx%,y%x=Text1:y=Text2x=yText3=xText4=yEndSubPrivateSubCommand2_Click()Dimx%,y%x=Text1:y=Text2y=xText3=xText4=yEndSubPrivateSubCommand3