程序实验报告

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

2、l的名称。（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 SubPrivate Sub Command2_

3、Click()Text2 = LCase(Text1)End SubPrivate Sub Command3_Click()Text3 = Len(Text1)Text4 = Len(Trim(Text1)End SubPrivate Sub Form_Load()End Sub计算机技术基础（VB）实验报告实验二四、思考并回答1写出实验中的代码：2-1a代码是：Private Sub Command1_Click()Text2.Text = 2 * 3.14 * Val(Text1)End SubPrivate Sub Command2_Click()Text3.Text = 3.14 *

4、Val(Text1) 2End SubPrivate Sub Form_Load()End SubPrivate Sub Text1_LostFocus()If Not IsNumeric(Text1) Theni = MsgBox("输入了非法字符！", 64, "提示")Text1 = ""Text1.SetFocusEnd IfText2 = ""Text3 = ""End Sub2-1b代码是：Private Sub Command1_Click()Const pi = 3.14159D

5、im r As Single, l As Single, s As Singler = InputBox("请输入半径:", "输入半径")s = pi * r 2l = 2 * pi * rLabel2 = Label2 & rLabel3 = Label3 + Str(l)label4 = label4 + Str(s)End Sub22-2a代码是：Private Sub Command1_Click()Text1.ForeColor = RGB(255, 0, 0)Text2.ForeColor = RGB(255, 0, 0)Text2

6、.PasswordChar = ""Text1 = (Text1 = "2006000")Text2 = (Text2 = "TJin1234")End SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()End SubPrivate Sub Text1_GotFocus()Text1 = ""Text1.ForeColor = RGB(0, 0, 0)End SubPrivate Sub Text2_GotFocus()Text2 = &

7、quot;"Text2.ForeColor = RGB(0, 0, 0)Text2.PasswordChar = "*"End Sub3 2-2b代码是：Private Sub Command1_Click()Text2 = UCase(Text1)End SubPrivate Sub Command2_Click()Text2 = LCase(Text1)End SubPrivate Sub Command3_Click()Text3 = Len(Text1)Text4 = Len(Trim(Text1)End SubPrivate Sub Form_Load(

8、)End Sub4. 2-2c代码是：5. 2-3a代码是：Private Sub Command1_Click()Dim x%, y%x = Text1: y = Text2x = yText3 = xText4 = yEnd SubPrivate Sub Command2_Click()Dim x%, y%x = Text1: y = Text2y = xText3 = xText4 = yEnd SubPrivate Sub Command3_Click()Dim x%, y%x = Text1: y = Text2x = x + 1Text3 = xText4 = yEnd SubPr

9、ivate Sub Command4_Click()Dim x%, y%x = Text1: y = Text2x = x + yText3 = xText4 = yEnd SubPrivate Sub Command5_Click()Dim x%, y%x = Text1: y = Text2x = y: y = xText3 = xText4 = yEnd SubPrivate Sub Command6_Click()Dim x%, y%, t%x = Text1: y = Text2t = x: x = y: y = tText3 = xText4 = yText5 = tEnd SubPrivate Sub Form_Load()End Sub6. 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