《VB程序实验报告[精校版本].doc》由会员分享，可在线阅读，更多相关《VB程序实验报告[精校版本].doc（7页珍藏版）》请在三一文库上搜索。
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.14159Dim r As Single, l As Single, s As Singler = InputBox(请输入半径:,
5、 输入半径)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.PasswordChar = Text1 = (Text1 = 2006000)Text2 = (Text2 = TJin1234)End SubPrivate Sub Co
6、mmand2_Click()EndEnd SubPrivate Sub Form_Load()End SubPrivate Sub Text1_GotFocus()Text1 = Text1.ForeColor = RGB(0, 0, 0)End SubPrivate Sub Text2_GotFocus()Text2 = Text2.ForeColor = RGB(0, 0, 0)Text2.PasswordChar = *End Sub3 2-2b代码是：Private Sub Command1_Click()Text2 = UCase(Text1)End SubPrivate Sub C
7、ommand2_Click()Text2 = LCase(Text1)End SubPrivate Sub Command3_Click()Text3 = Len(Text1)Text4 = Len(Trim(Text1)End SubPrivate Sub Form_Load()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 =
8、Text1: y = Text2y = xText3 = xText4 = yEnd SubPrivate Sub Command3_Click()Dim x%, y%x = Text1: y = Text2x = x + 1Text3 = xText4 = yEnd SubPrivate 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 = x
9、Text3 = 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 = 计算结果: & XEnd Sub五、简述本次实验存在的问题在实验2-3b中：需题目的公式是一张图片。应先用Office中的公式编辑好（或用图形工具画好），再贴到窗体上的图形框（或图像框）中。由于对Office的部分功能还不大熟悉，因此自己编辑该题目所需的公式较为困难。在有就是对VB的编程语言 也不熟悉，无法明白大多内容。7优异品+