VB程序实验报告.docVIP

- . z. VB程序设计实验报告 实验二 顺序构造程序设计 学院 电子电气 班级 1班 **实验日期 2012. 批次 1 地点 教师 教师评语 年 月 日 一、实验目的 1．掌握表达式、赋值语句的正确使用与书写规则。 2．掌握常用函数的使用。 3．掌握InputBo*与MsgBo*函数〔过程〕的使用。 4．掌握各种数据类型 5．掌握VB程序根本的输入输出方法。 二、实验内容〔你做了哪几个题〕 1．必做题：全做 2．选做题：无 三、简述其中一题〔写清题号〕的具体操作步骤： 实验2-2b 具体操作步骤如下： 翻开VB程序，创立一个新的标准窗口 在窗口的相应位置，分别建立4个label。并在属性框中的label的caption处 更改label的名称。〔label1更名为：输入原文：。Label2更名为：转换后：。Label3更名为：字串长：。Label4更名为：去空格后：〕 分别在以上建立的4个label后再建立4个te*t。〔te*t1、te*t2、te*t3、te*t4〕并在属性框中一一去除其caption后的名称。 在窗口的最后建立3个按钮。并在属性框的caption中分别更改名称为：转换成大写、转换成小写、统计字串长 双击按钮，对按钮进展编程：〔输入程序如下〕 Private Sub Command1_Click() Te*t2 = UCase(Te*t1) End Sub Private Sub Command2_Click() Te*t2 = LCase(Te*t1) End Sub Private Sub Command3_Click() Te*t3 = Len(Te*t1) Te*t4 = Len(Trim(Te*t1)) End Sub Private Sub Form_Load() End Sub 计算机技术根底〔VB〕实验报告——实验二 四、思考并答复 1．写出实验中的代码： ⑴2-1a代码是： Private Sub Command1_Click() Te*t2.Te*t = 2 * 3.14 * Val(Te*t1) End Sub Private Sub Command2_Click() Te*t3.Te*t = 3.14 * Val(Te*t1) ^ 2 End Sub Private Sub Form_Load() End Sub Private Sub Te*t1_LostFocus() If Not IsNumeric(Te*t1) Then i = MsgBo*(输入了非法字符！, 64, 提示) Te*t1 = Te*t1.SetFocus End If Te*t2 = Te*t3 = End Sub ⑵2-1b代码是： Private Sub Command1_Click() Const pi = 3.14159 Dim r As Single, l As Single, s As Single r = InputBo*(请输入半径:, 输入半径) s = pi * r ^ 2 l = 2 * pi * r Label2 = Label2 r Label3 = Label3 + Str(l) label4 = label4 + Str(s) End Sub 2．2-2a代码是： Private Sub Command1_Click() Te*t1.ForeColor = RGB(255, 0, 0) Te*t2.ForeColor = RGB(255, 0, 0) Te*t2.PasswordChar = Te*t1 = (Te*t1 = 2006000) Te*t2 = (Te*t2 = TJin1234) End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() End Sub Private Sub Te*t1_GotFocus() Te*t1 = Te*t1.ForeColor = RGB(0, 0, 0) End Sub Private Sub Te*t2_GotFocus() Te*t2 = Te*t2.ForeColor = RGB(0, 0, 0) Te*t2.PasswordChar = * End Sub 3．2-2b代码是： Private S