VB程序实验报告.pdfVIP

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