VB程序实验报告

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

2、为：输入原文Label2更名为：转换后z Labels 为：字串长:。Label4更名为：去空格后：）并在3、分別在以上建立的4个label后再建立4个tex* （tcxtl、texi2 text?text4）属性框中淸除其caption后的需称。4、在窗口的最后建立3个按钮。并在属性框的caption中分别更改名称为：转换成大 写、转换成小写、统计字串长5、双击按钮，对按钮进行编程：（输入程序如下）Private Sub Command l_Click（）Text? = UCase（Textl）End SubPrivate Sub Command2_Click()Text2 = LCascf

3、kxil)End SubPrivate Sub Command3_Click()Texts = Len(Textl)Text4 = Len(Trim(Tcxi 1)End SubPrivate Sub Fonn_Load() End Sub计算机技术基础(VB)实验报告一一实验二四、思考并回答写出实验中的代码：(i)2-la代码是：Private Sub Command l_Click() Text2.Text = 2*3J4* Val(lfcxtl) End SubPrivate Sub Command2_Click() Tcx3Tcxt = 3J4* Val(Texil) 2 End Su

4、bPrivate Sub Form_Load)End SubPrivate Sub Text l_LosiFocus()If Not IsNumcric(Tcxtl) Theni = MsgBox(”输入了非法字符！ “, 64.提示)Textl =Textl.SetFocusEnd IfText2 =Texts =End Sub(2)2-lb代码是：Private Sub Command l_Click()Const pi = 3.14159Dim r As Single. 1 As Single, s As Single r = InputBoxCig输入半径:“，”输入半径“) S =

5、P i * r A 21 = 2 * pi * rLabel2 = Label2 & rLabel3 = Labcl3 + Str(l)label4 = label4 + Str(s)End Sub222a代码是：Private Sub Command l_Click() TextLForeColor = RGB(255 0, 0) Text2.ForeColor = RGB(255 0, 0) Text2.PasswordChar =Textl = (Textl = 2006000) Text2 = (Text2 = TJinl234) End SubPrivate Sub Command2

6、_Click()EndEnd SubPrivate Sub Form_Load) End SubPrivate Sub Text l_GotFocus() Textl =TextLForeColor = RGB(0 0. 0)End SubPrivate Sub Text2_GotFocus()Text? =Text2.ForeColor = RGB(0 0. 0)Text2.PasswordChar=End Sub32-2b代码是:Private Sub Command l_Click() Text2 = UCase(Textl)End SubPrivate Sub Command2_Cli

7、ck()Text2 = LCase(Textl)End SubPrivate Sub Command3_Click() Texts = Len(Textl)Text4 = Len(Trini(Text 1)End SubPrivate Sub Form_Load()End Sub4 22c代码是:523a代码是：Private Sub Command l_Click() Dim X%, y%X = Texll: y = Texl2x = yTexts = XText4 = yEnd SubPrivate Sub Command2_Click() Dim X%, y%X = Texll: y =

8、 Texl2y = xTexts = XText4 = yEnd SubPrivate Sub Command3_Click() Dim X%, y%X = Texil: y = Texl2x = x+ 1Texts = XText4 = yEnd SubPrivate Sub Command4_Click() Dim X%, y%x = Texll: y = Text2X = X + yTexts = XText4 = yEnd SubPrivate Sub Command5_Click() Dim X%, y%x = Texll: y = Texl2x = y: y = xTexts =

9、XText4 = yEnd SubPrivate Sub Conimand6_Click() Dim X%, y%, t%X = Texll: y = Texl2l = x: x = y: y = lTexts = XText4 = yTexts = tEnd SubPrivate Sub Form_Load) End Sub623b代码是:Private Sub Command l_Click()Dimrl!r2!r3!X!rl = Val(Text2): r2 = Val(Text3): r3 = Val(Text4)X= 1/(1 /rl + 1 /r2+ 1 /r3)Label5 = if-算结果:”&XEnd Sub五.