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

四、思考并回答

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)