VB程序实验报告

VB 程序设计程序设计 实验报告实验报告 实验二实验二 顺序结构程序设计顺序结构程序设计 学院电子电气班级1 班学号20110804姓名 实验日期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 label4 label4 Str s End Sub 2 2 2a代码是 Private Sub Command1 Click Text1 ForeColor RGB 255 0 0 Text2 ForeColor RGB 255 0 0 Text2 PasswordChar Text1 Text1 2006000 Text2 Text2 TJin1234 End Sub Private Sub Command2 Click End End Sub Private Sub Form Load End Sub Private Sub Text1 GotFocus Text1 Text1 ForeColor RGB 0 0 0 End Sub Private Sub Text2 GotFocus Text2 Text2 ForeColor RGB 0 0 0 Text2 PasswordChar End Sub 3 2 2b代码是 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 4 2 2c代码是 5 2 3a代码是 Private Sub Command1 Click Dim x y x Text1 y Text2 x y Text3 x Text4 y End Sub Private Sub Command2 Click Dim x y x Text1 y Text2 y x Text3 x Text4 y End Sub Private Sub Command3 Click Dim x y x Text1 y Text2 x x 1 Text3 x Text4 y End Sub Private Sub Command4 Click Dim x y x Text1 y Text2 x x y Text3 x Text4 y End Sub Private Sub Command5 Click Dim x y x Text1 y Text2 x y y x Text3 x Text4 y End Sub Private Sub Command6 Click Dim x y t x Text1 y Text2 t x x y y t Text3 x Text4 y Text5 t End Sub Private Sub Form Load End Sub 6 2 3b代码是 Private Sub Command1 Click Dim r1 r2 r3 X r1 Val Text2 r2 Val Text3 r3 Val Text4 X 1 1 r1 1 r2 1 r3 Label5 计算结果 X End Sub 五 简述本次实验存在的问题五 简述本次实验存在的