当前位置：文档之家 › vb实例

vb实例

  • 格式：doc
  • 大小：5.34 MB
  • 文档页数：26

实验报告1略。

实验报告2：实验题目1：设计窗体。

参考界面如下：运行前运行后要求：1）在窗体上添加一个标签，通过属性窗囗设置标签格式：Caption：字体格式Alignment：2—Center（居中）BorderStyle ：1—Fixed Single（有边框）Backstyle：0—Tansparent（背景透明）2）运行时，单击“字号”，将标签内容的字号设置为30；单击“加粗”，将标签内容加粗；单击“下划线”，则在标签内容下加下划线。

提示：字号FontSize、加粗FontBold、下划线FontUnderline实验题目1源程序代码：Private Sub Command1_Click()Label1.FontSize = 30End SubPrivate Sub Command2_Click()Label1.FontBold = trueEnd SubPrivate Sub Command3_Click()Label1.FontUnderline = TrueEnd Sub实验题目2：设计一个计算器。

参考界面如下：要求：1）实现算术运算（+、-、*、/）的功能；2）实现清除和结束的功能；3）实现清除后，将焦点移到第一个文本框中。

实验题目2源程序代码：Private Sub Command1_Click()Text3.Text = Val(Text1.Text) + Val(Text2.Text)End SubPrivate Sub Command2_Click()Text3.Text = Val(Text1.Text) - Val(Text2.Text)End SubPrivate Sub Command3_Click()Text3.Text = Val(Text1.Text) * Val(Text2.Text)End SubPrivate Sub Command4_Click()Text3.Text = Val(Text1.Text) / Val(Text2.Text)End Sub实验题目3：设计一个能够统计某学生三门课程成绩总分和平均分的程序。

参考界面如下：要求：没有计算出总分前，计算均分的命令按钮不可用，计算出总分后，计算均分的命令按钮才可用。

说明：设计时先将计算均分的命令按钮的Enabled属性设置为false。

实验题目3源程序代码：Private Sub Command1_Click()Text4.Text = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click()Text5.Text = Val(Text4.Text) / 3End SubPrivate Sub Command3_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""End Sub实验题目4：设计界面，编写程序计算圆的周长和面积。

参考界面如下：要求：①设置窗体的标题为“计算圆的周长和面积”。

②“计算”命令按钮的功能：定义变量和符号常量，计算出圆的周长和面积。

③“清除”命令按钮的功能：将三个文本框的内容清除，并将焦点移到第一个文本框中。

④“退出”命令按钮的功能：程序运行结束。

实验题目4源程序代码：Private Sub Command1_Click()Dim r As Double, s As DoubleConst pi = 3.1415926r = Val(Text1.Text)s = pi * r * rc = 2 * pi * rText2.Text = Str(c)Text3.Text = Str(s)End SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text1.SetFocusEnd Sub实验题目5：设计界面，编写程序验证算术运算符的功能。

参考界面如下：要求：①设置窗体的标题为“验证算术运算符”。

②“计算”命令按钮的功能：计算两个数的除、整除和取余。

③“清除”命令按钮的功能：将五个文本框的内容清除，并将焦点移到第一个文本框中。

④“退出”命令按钮的功能：程序运行结束。

实验题目5源程序代码：Private Sub Command1_Click()Text3.Text = Val(Text1.Text) / Val(Text2.Text)Text4.Text = Val(Text1.Text) \ Val(Text2.Text)Text5.Text = Val(Text1.Text) Mod Val(Text2.Text)End SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""End SubPrivate Sub Command3_Click()EndEnd Sub实验题目6：设计界面，编写程序分离出一个三位数的个位、十位、百位上的数字。

参考界面如下：要求：①设置窗体的标题为“分离三位数”。

②“分离”命令按钮的功能：分离出一个三位数的个位、十位、百位上的数字。

③“清除”命令按钮的功能：将四个文本框的内容清除，并将焦点移到第一个文本框中。

④“退出”命令按钮的功能：程序运行结束。

实验题目6源程序代码：Private Sub Command1_Click()Dim a As Integera = Val(Text1.Text)Text4.Text = Str(a \ 100)Text3.Text = Str((a Mod 100) \ 10)Text2.Text = Str(a Mod 10)End SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text1.SetFocusEnd SubPrivate Sub Command3_Click()EndEnd Sub实验题目7：输入一个三位数，将它按逆序输出。

参考界面如下：要求此题用两种解法：第一种解法：将文本框中的数据按字符型数据进行处理，用函数实现；第二种解法：将文本框中的数据按数值型数据进行处理，用算术表达式实现（利用mod、\、*、+等运算符）。

实验题目7源程序代码：第一种解法：Private Sub Command1_Click()Dim a As String, b As String, c As String, d As Stringa = Trim(Text1.Text)b = Left(a, 1)c = Mid(a, 2, 1)d = Right(a, 1)Text2.Text = d & c & bEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""End Sub第二种解法：Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer, d As Integera = Val(Text1.Text)b = a \ 100c = (a Mod 100) \ 10d = a Mod 10Text2.Text = Str(d * 100 + c * 10 + b)End SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""End Sub实验题目8：输入两个数，将这两个数交换。

要求：不允许使用第三个文本框，可以借助一个中间变量。

实验题目8源程序代码：Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integera = Val(Text1.Text)b = Val(Text2.Text)c = aa = bb = cText1.Text = Str(a)Text2.Text = Str(b)End Sub实验题目9：设计文本编辑窗体。

复制按钮的功能：移动按钮的功能：提示：文本框的SelText属性表示选定的内容。

要求：文本框可以多行输入。

说明：设计时先将文本框的multiline属性设置为true。

实验题目9源程序代码：Private Sub Command1_Click()Text2.Text = Text1.SelTextEnd SubPrivate Sub Command2_Click()Text2.Text = Text1.SelTextText1.SelText = ""End SubPrivate Sub Command3_Click()Text1.Text = ""Text2.Text = ""End SubPrivate Sub Command4_Click()EndEnd Sub实验报告3：实验题目1：编写程序计算某个学生三门课程的平均成绩。

要求：（1）单击“计算”命令按钮，输入学生的成绩并在文本框中显示该学生的平均分。

（调用三次inputbox函数输入三门课程的成绩，并用三个内存变量保存成绩）提示：如a表示一门课程的成绩，则调用inputbox函数输入为：a=val(inputbox("请输入第一门课的成绩"))（2）单击“结束”命令按钮结束程序运行。

界面如下：实验题目1源程序代码：Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer, d As Integera = Val(InputBox("请输入第一门成绩"))b = Val(InputBox("请输入第二门成绩"))c = Val(InputBox("请输入第三门成绩"))d = (a + b + c) / 3Text1.Text = dEnd Sub实验题目2：编写程序计算长方体的体积。

合集下载

vb教程编程实例详解

vb教程编程实例详解

vb教程编程实例详解VB教程编程实例详解VB（Visual Basic）是一种面向对象的编程语言，它可以用于开发Windows应用程序。

在这里，我们将详细解释一些VB 编程实例，以帮助初学者更好地理解和掌握这门语言。

编程实例1：计算器首先，让我们创建一个计算器的VB程序。

我们将使用VB的窗体和按钮来实现这个功能。

首先，我们需要在窗体上添加一些按钮，如"1"、"2"、"+"、"="等。

然后，我们需要用一个文本框来显示计算结果。

在窗体上双击"+"按钮并添加以下代码：```Private Sub ButtonPlus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonPlus.ClickDim num1 As IntegerDim num2 As IntegerDim result As Integernum1 = Integer.Parse(TextBoxNum1.Text)num2 = Integer.Parse(TextBoxNum2.Text)result = num1 + num2TextBoxResult.Text = result.ToString()End Sub```在这个代码中，我们首先定义了三个变量：num1、num2和result，用于存储计算结果。

然后，我们使用Integer.Parse方法将文本框中输入的文本转换为整数类型，并将其赋值给num1和num2。

接下来，我们将num1和num2相加，将结果赋值给result，并使用result.ToString()方法将结果转换为字符串类型并显示在结果文本框中。

编程实例2：学生成绩管理系统接下来，让我们创建一个学生成绩管理系统的VB程序。

VB程序设计实例

VB程序设计实例

VB程序设计实例1.银行存款计算器编写一个程序，可以计算并显示一个银行账户的存款利息。

用户可以输入初始存款金额、年利率以及存款年限。

程序将根据用户的输入计算出最终存款金额，并显示在屏幕上。

```vbModule BankDepositCalculatorSub Main'用户输入初始存款金额、年利率和存款年限Console.WriteLine("请输入初始存款金额：")Dim principal As Decimal = Console.ReadLineConsole.WriteLine("请输入年利率：")Dim interestRate As Decimal = Console.ReadLineConsole.WriteLine("请输入存款年限：")Dim years As Integer = Console.ReadLine'计算最终存款金额Dim finalAmount As Decimal = principal * (1 + interestRate) ^ years'显示最终存款金额Console.WriteLine("最终存款金额为：" & finalAmount)Console.ReadLineEnd SubEnd Module```2.温度转换器编写一个程序，可以将摄氏温度转换为华氏温度或将华氏温度转换为摄氏温度。

用户可以选择要进行的转换类型并输入相应的温度值。

程序将根据用户的选择进行温度转换，并显示转换结果。

```vbModule TemperatureConverterSub Main'用户输入转换类型和温度值Console.WriteLine("请选择转换类型（1-摄氏转华氏，2-华氏转摄氏）：")Dim conversionType As Integer = Console.ReadLineConsole.WriteLine("请输入温度值：")Dim temperature As Decimal = Console.ReadLine'进行温度转换Select Case conversionTypeDim fahrenheit As Decimal = temperature * 9 / 5 + 32Console.WriteLine("转换结果为：" & fahrenheit & "华氏度")Case 2Dim celsius As Decimal = (temperature - 32) * 5 / 9Console.WriteLine("转换结果为：" & celsius & "摄氏度")Case ElseConsole.WriteLine("无效的转换类型")End SelectConsole.ReadLineEnd SubEnd Module```3.数字猜猜猜游戏编写一个程序，模拟一个数字猜猜猜游戏。

VB编程实例

VB编程实例

一、导入到Xls文件并打印Sub OnLButtonUp(ByVal Item, ByVal Flags, ByVal x, ByVal y)Dim a,fsoa=HMIRuntime.Tags("fileName").ReadSet fso = CreateObject("scripting.filesystemobject")If fso.FileExists("C:\Model.xls") ThenDim objExcelAppSet objExcelApp = CreateObject("Excel.Application")objExcelApp.Visible = FalseobjExcelApp.Workbooks.Open "C:\Model.xls"objExcelApp.Cells(2, 3).Value = HMIRuntime.Tags("NewTag1_1").read objExcelApp.Cells(4, 5).Value = HMIRuntime.Tags("NewTag1_2").read objExcelApp.Cells(6, 7).Value = HMIRuntime.Tags("NewTag1_3").read objExcelApp.Cells(8, 9).Value = HMIRuntime.Tags("NewTag1_4").readobjExcelApp.Cells(10, 11).Value = HMIRuntime.Tags("NewTag1_5").read objExcelApp.ActiveWorkbook.SaveAs("C:\Report\"&CStr(a)&".xls")objExcelApp.ActiveWorkbook.PrintOutobjExcelApp.Workbooks.CloseobjExcelApp.QuitSet objExcelApp = NothingMsgBox "文件已经成功导出/Export Successful"ElseMsgBox "Excel模板文件不存在"End ifEnd Sub二、从Xls文件导入或者查询Sub OnLButtonUp(Byval Item, Byval Flags, Byval x, Byval y) Dim a,fsoa=HMIRuntime.Tags("FileName").ReadSet fso = CreateObject("scripting.filesystemobject")If fso.FileExists("C:\Report\"&CStr(a)&".xls") ThenDim objExcelAppSet objExcelApp = CreateObject("Excel.Application") objExcelApp.Visible = FalseobjExcelApp.Workbooks.Open "C:\Report\"&CStr(a)&".xls"HMIRuntime.Tags("NewTag1_1").Write objExcelApp.Cells(2, 3).Value HMIRuntime.Tags("NewTag1_2").Write objExcelApp.Cells(4, 5).Value HMIRuntime.Tags("NewTag1_3").Write objExcelApp.Cells(6, 7).Value HMIRuntime.Tags("NewTag1_4").Write objExcelApp.Cells(8, 9).ValueHMIRuntime.Tags("NewTag1_5").Write objExcelApp.Cells(10, 11).Value objExcelApp.ActiveWorkbook.SaveobjExcelApp.Workbooks.CloseobjExcelApp.QuitSet objExcelApp = NothingMsgBox "导入数据成功/Import Successful"ElseMsgBox "文件不存在/file is not existing"End ifEnd Sub3、WinCC如何实现带确认的按钮操作网上多是介绍C脚本实现的方法,其实VB脚本的实现更简单,代码如下:Sub OnLButtonUp(Byval Item, Byval Flags, Byval x, Byval y) If MsgBox("提示内容",1,"提示标题")=1 ThenHMIRuntime.Tags("TestTag").Write 1ElseHMIRuntime.Tags("TestTag").Write 0End IfEnd Sub说明MsgBox("提示内容",1,"提示标题")中的1为消息窗口中按钮的类型0=vbOKonly1=vbOKCancel2=vbAbortRetryIgnore3=vbYesNoCancel4=vbYesNo一、将WinCC变量导出到TEXT文件Sub OnLButtonUp(ByVal Item, ByVal Flags, ByVal x, ByVal y) Dim fso,FileDim aa=HMIRuntime.Tags("FileName").ReadConst ForWriting = 2Set fso = CreateObject("Scripting.FileSystemObject")Set File = fso.OpenTextFile("D:\Export&Import\"&CStr(a)&".txt", ForWriting, True) File.WriteLine(HMIRuntime.Tags("Var_1").read)File.WriteLine(HMIRuntime.Tags("Var_2").read)File.WriteLine(HMIRuntime.Tags("Var_3").read)File.WriteLine(HMIRuntime.Tags("Var_4").read)file.WriteLine(HMIRuntime.Tags("Var_5").read)File.CloseMsgBox "文件已经成功导出/Export Successful"End Sub二、从TXT文件中读取数据到WinCC变量Sub OnLButtonUp(ByVal Item, ByVal Flags, ByVal x, ByVal y)Dim fsoDim txtfileDim aa=HMIRuntime.Tags("FileName").ReadSet fso = CreateObject("scripting.filesystemobject")If fso.FileExists("D:\\Export&Import\\"&CStr(a)&".txt") ThenSet txtfile = fso.OpenTextFile("D:\\Export&Import\\"&CStr(a)&".txt") HMIRuntime.Tags("Var_1").Write txtfile.ReadLineHMIRuntime.Tags("Var_2").Write txtfile.ReadLineHMIRuntime.Tags("Var_3").Write txtfile.ReadLineHMIRuntime.Tags("Var_4").Write txtfile.ReadLineHMIRuntime.Tags("Var_5").Write txtfile.ReadLineMsgBox "导入数据成功/Import Successful"txtfile.CloseElseMsgBox "文件不存在/File is not existing"End ifEnd Sub。

vb6.0开发实例 -回复

vb6.0开发实例 -回复

vb6.0开发实例-回复VB6.0开发实例-一个简单的计算器在VB6.0中，我们可以轻松地创建一个简单的计算器。

计算器是我们日常生活中常见的工具，让我们一步一步地在VB6.0中创建一个简单的计算器，来帮助我们理解和掌握VB编程的基础知识和技巧。

首先，我们需要创建一个新项目。

在VB6.0中，选择“新建”->“标准EXE”创建一个新的窗体应用程序。

接下来，我们需要在窗体上添加一些控件，如文本框、按钮等，以实现计算器的功能。

在VB6.0中，我们可以通过拖动控件到窗体上的方式来添加控件。

第一个控件是一个文本框，用于显示输入的数字和计算结果。

在工具箱中选择文本框控件，然后点击窗体上的位置来添加它。

第二个控件是数字按钮，用于输入数字。

在工具箱中选择按钮控件，然后点击窗体上的位置来添加一个按钮。

我们可以复制该按钮来创建其他数字按钮。

第三个控件是运算符按钮，用于进行加、减、乘、除等计算操作。

同样地，在工具箱中选择按钮控件，然后点击窗体上的位置来添加一个按钮，复制该按钮来创建其他运算符按钮。

接下来，我们需要为这些按钮添加事件处理程序，以实现相应的功能。

在VB6.0中，我们可以通过双击按钮来自动创建一个点击事件的处理程序。

在点击事件中，我们可以使用VB6.0提供的内置函数和运算符来编写计算逻辑。

例如，我们可以使用“+”运算符来进行两个数字的相加，并将结果显示在文本框中。

除了基本的运算功能外，我们还可以为计算器添加其他功能，如清除输入、退格、求平方根等。

这些功能可以使用VB6.0提供的其他内置函数和方法来实现。

最后，我们需要进行界面的美化和调整，以满足用户的需求和审美。

在VB6.0中，我们可以通过更改控件的属性、添加背景和图标等方式来实现界面的美化。

完成所有的功能和界面调整后，我们可以运行程序来测试计算器的功能。

在VB6.0中，我们可以点击“运行”按钮来启动程序，并进行测试和使用。

通过以上的步骤，我们就成功地在VB6.0中创建了一个简单的计算器。