vb程序设计含详解
- 格式:docx
- 大小:21.53 KB
- 文档页数:18
VB程序设计第一章Visual Basic 程序设计概述Visual Basic程序设计第一章 Visual Basic程序设计概述1.1 Visual Basic简介Visual Basic(简称VB)是一种面向对象的事件驱动编程语言,它是Microsoft公司开发的一种高级计算机程序设计语言。
VB的主要特点是简单易学、可视化编程、快速开发和广泛应用。
1.2 VB的历史发展VB最初于1991年推出,是作为Windows操作系统的开发工具而设计的。
经过多次版本更新,目前最新的版本是Visual Basic 2019.1.3 VB的编程环境VB使用Visual Studio作为主要的开发工具,提供了可视化的设计界面以及强大的编程功能。
开发者可以通过拖拽控件、设置属性以及添加事件来构建程序界面,并使用VB编写代码逻辑。
1.4 VB的基本语法VB的语法类似于英语,采用英语关键字和固定的语法规则。
VB程序由一系列语句构成,每个语句以换行符或分号结束。
1.4.1 变量和数据类型VB中的变量需要先声明才能使用,可以使用关键字Dim来声明变量。
VB支持多种数据类型,包括整型、浮点型、字符串型、布尔型等。
1.4.2 控制流程VB提供了多种控制流程语句,如条件语句(If-Then-Else语句)、循环语句(For循环、Do循环)以及跳转语句(GoTo语句)等,用于控制程序的执行流程。
1.4.3 函数和子程序VB可以定义函数和子程序来封装一段特定的代码逻辑。
函数可以返回一个值,而子程序则不返回任何值。
开发者可以在程序中调用函数和子程序来实现代码的重复利用。
1.5 VB的应用领域VB广泛应用于Windows环境下的软件开发,尤其在企业管理系统、数据库应用、人机交互界面等方面具有重要地位。
附录:本文档涉及附件本文档的附件包含了VB相关的示例代码、项目文件以及其他相关文档,可以帮助开发者更好地理解和学习VB程序设计。
法律名词及注释:1.Visual Basic(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程序。
第1章Visual Basic6.0概述[课程引入]:先用教师机播放《VB教学实例程序演示系统》软件,将几个用VB编写的、有趣的典型应用程序实例,例如:倒计时、滚动字幕、学生学籍管理、自制IE浏览器等演示给学生,引入本课程,以提高学生的感性认识及学习兴趣。
[课堂提问及讨论]:有哪些同学见过或使用过VB应用程序?试举例说明。
[知识点讲解]:§1.1程序设计基础一、程序设计几个概念1、程序:是为解决某一问题而编写的语句集合,是将一个实际问题的具体操作用某种程序设计语言描述出来的指令序列。
2、程序设计:是分析问题、编写程序、调试程序的过程。
3、程序设计语言:是人们根据描述问题的需要而设计的,有固定的符号和语法规则、是计算机能够识别的人机交流所使用的语言。
二、程序设计语言的发展概况1、机器语言2、汇编语言3、高级语言§1.2Visual Basic6.0简介一、Visual Basic6.0简介1、概念:Visual Basic6.0简称VB,是Windows环境下可视化的、面向对象的程序设计开发工具。
其中:Visual英文原意是“可视的”、“视觉的”。
6.0是版本号。
2、VB功能:用它可以开发数学计算、数据库管理、客户/服务器软件、通讯软件、多媒体及Internet/Intranet软件等。
其功能之强大绝非是早期Basic 所能比拟的,其直观、通俗易懂,特别适合于初学者。
3、VB发展过程:美国微软公司于1991年推出VB1.0版至今已经历了6个版本。
4、VB中常用的几个基本概念:面向对象:面向对象编程是建立在类的基础上的,其通过类的封装而使源程序更加便于维护。
事件驱动:在事件驱动模式下,程序的执行是依靠系统能够被识别的触发事件启动的。
5、VB的版本:VB6.0是Microsoft Visual Studio开发工具组件中的一员,它共有3个版本:标准版、专业版、企业版。
教学中采用企业版。
第一章 VB程序设计初步1.1 Visual Basic的发展Visual Basic(以下简称VB)是Microsoft公司于1991年推出Windows应用程序开发工具。
Visual一词具有“可视化的”、“形象化的”的含义,在语言功能方面,VB与早期的Basic语言基本兼容,但由于VB具有良好的图形用户界面(Graphic User interface,即GUI),因此有人称它为可视化的Basic语言。
和Basic语言相比,VB提供的一系列可视化设计工具,大大简化了应用程序界面的设计工作,不仅易学易用,同时其编程系统采用了面向对象、事件驱动机制,非专业人员也可以使用该语言工具方便地完成基于Windows的应用程序开发,因而一经推出,便获得了巨大成功。
从1991年至1997年,微软相继推出了VB1.0,VB2.0,VB3.0,VB4.0及VB5.0版,1998年发布的Microsoft Visual Studio 98中包含了VB6.0,2000年又推出了。
VB 5.0以前的版本主要用于16位应用程序开发,VB6.0则专为32位操作系统设计。
本书主要介绍VB6.0。
VB6.0包括三种版本,分别为学习版、专业版和企业版。
三种版本适于不同层次的用户。
(1)学习版是VB的基础版本,该版本包含了所有VB的标准控件及网格控件、数据绑定控件和Tab对象。
适合初学者用来学习开发Windows应用程序。
(2)专业版为专业编程者提供了一整套功能完备的开发工具,包括了学习版中的全部功能,同时加入了ActiveX 控件、Internet控件和报表控件等。
(3)企业版该版本包含了专业版的全部功能,增加了自动化管理器、部件管理器、数据库管理工具、Microsoft Visual Source Safe面向工程版的控制系统等。
如无特别说明,本书中内容均基于VB6.0企业版作介绍,所有程序在VB6.0企业版下运行通过,大多数程序可以在专业版和学习版中运行。
vb程序设计含详解一、教学内容本节课的教学内容来自于小学数学教材《数学》的第四章《几何图形》。
本章主要介绍了平面几何图形的性质和分类,包括三角形、四边形、五边形等。
本节课的具体内容是学习三角形的性质,包括三角形的定义、三角形的分类、三角形的内角和、三角形的边长关系等。
二、教学目标1. 让学生了解三角形的定义和性质,能够正确识别各种类型的三角形。
2. 培养学生运用几何知识解决实际问题的能力。
3. 培养学生合作学习、积极思考的学习习惯。
三、教学难点与重点重点:三角形的基本性质和分类。
难点:三角形内角和定理的理解和应用。
四、教具与学具准备教具:多媒体课件、黑板、粉笔。
学具:几何图形卡片、量角器、直尺。
五、教学过程1. 情景引入:通过多媒体课件展示一些生活中的三角形图形,让学生观察并说出它们的名称。
2. 知识讲解:讲解三角形的定义和性质,通过示例和讲解让学生理解三角形内角和定理。
3. 课堂练习:让学生分组进行合作学习,用几何图形卡片组成三角形,并测量内角和,验证三角形内角和定理。
4. 例题讲解:讲解一道关于三角形内角和的例题,引导学生运用所学知识解决问题。
5. 随堂练习:让学生独立完成一道关于三角形内角和的练习题,教师进行个别指导。
7. 作业布置:布置一道关于三角形内角和的作业题,要求学生在家长的监督下完成。
六、板书设计板书设计如下:三角形定义:由三条边组成的图形性质:1. 内角和为180度2. 有三个角3. 有三条边七、作业设计作业题目:计算下面三角形的内角和。
答案:八、课后反思及拓展延伸课后反思:本节课的教学内容较为抽象,对于学生来说有一定的难度。
在教学过程中,我通过多媒体课件、示例和练习题等多种方式,帮助学生理解和掌握三角形内角和定理。
在课堂练习环节,我鼓励学生分组合作,培养他们的团队协作能力。
在作业布置方面,我选择了一道具有挑战性的题目,让学生在家长的监督下完成,以巩固所学知识。
拓展延伸:三角形在生活中的应用非常广泛,可以让学生举例说明三角形在生活中的应用,如自行车三角架、建筑物的结构等。
vb解释程序设计li
Visual Basic(VB)是一种基于事件驱动的编程语言,最初由
微软公司开发。
它是一种易学易用的编程语言,通常用于Windows
应用程序的开发。
VB具有直观的用户界面设计工具和丰富的库,使
得开发人员可以快速地创建各种类型的应用程序,包括桌面应用、
数据库应用和游戏等。
在VB中,程序设计主要围绕着事件和事件处理程序展开。
开发
人员可以通过在用户界面元素上添加事件处理程序来响应用户的操作,比如点击按钮、输入文本等。
这种事件驱动的编程模型使得开
发人员可以更加直观地构建用户交互界面,并且可以更容易地处理
用户的输入。
另外,VB还提供了丰富的库和组件,开发人员可以利用这些库
和组件来实现各种功能,比如文件操作、数据库访问、图形绘制等。
这些库和组件大大简化了开发人员的工作,使得他们可以更加高效
地开发应用程序。
除此之外,VB还支持面向对象的编程范式,开发人员可以使用类、对象、继承等面向对象的特性来组织和管理代码,提高代码的
复用性和可维护性。
总的来说,VB是一种功能强大且易学易用的编程语言,适合初学者和有经验的开发人员使用,可以用于快速开发各种类型的Windows应用程序。
VB程序设计VB程序设计介绍Visual Basic(VB)是一种用于Windows操作系统的事件驱动编程语言。
它由微软公司开发,并且基于BASIC(Beginner's All-purpose Symbolic Instruction Code)语言。
VB程序设计允许开发人员创建图形用户界面(GUI)应用程序,从简单的窗口应用程序到复杂的数据库驱动应用程序。
本文档将介绍VB程序设计的基本概念、语法和一些常用的编程技巧,帮助读者快速上手VB程序设计。
VB程序设计的基本概念- 事件驱动编程:VB程序是基于事件驱动的编程模型。
程序通过响应来自用户或操作系统的事件来执行相应的操作。
事件可以是键盘按键、鼠标、窗口关闭等。
- 对象:在VB程序设计中,一切都是对象。
对象是一种数据结构,具有属性和方法。
例如,窗体、按钮、文本框都是对象。
- 属性:属性是对象的特性,描述了对象的状态信息。
例如,窗体的大小和位置是窗体对象的属性。
- 方法:方法是对象可以执行的操作。
例如,按钮对象具有单击操作的方法。
- 事件处理程序:事件处理程序是响应特定事件的代码块。
当事件发生时,事件处理程序将执行相应的操作。
VB程序设计的语法- 变量声明:在VB程序设计中,需要使用变量来存储和处理数据。
变量可以使用`Dim`关键字进行声明,并指定变量的数据类型。
例如:vbDim name As StringDim age As Integer- 条件语句:条件语句用于根据条件执行不同的代码块。
常用的条件语句有`IfThenElse`和`Select Case`语句。
例如:vbIf age > 18 ThenMsgBox \。
VB程序设计VB程序设计一、介绍VB程序设计是指使用Visual Basic语言进行软件开发的过程。
Visual Basic是一种高级的、可视化的编程语言,广泛用于Windows平台上的应用程序开发。
在VB程序设计中,开发者可以通过简单的拖拽和控件的属性设置来完成界面的创建和布局,通过编写逻辑代码来实现程序的各类功能。
VB程序设计的特点是简单易学、开发效率高,特别适合初学者和快速开发的场景。
二、VB程序设计的基本语法1. 变量和数据类型在VB程序设计中,变量是用来存储数据的一种容器。
在声明变量时,需要指定变量的类型,常用的数据类型有整型、浮点型、字符型等。
例如,可以使用以下语句声明一个整型的变量:Dim num As Integer2. 控制结构控制结构用于根据条件来执行不同的代码块。
常用的控制结构有条件语句和循环语句。
条件语句:If 条件 Then' 代码块ElseIf 条件 Then' 代码块Else' 代码块End If循环语句:For i = 1 To 10' 代码块Next iDo While 条件' 代码块Loop3. 函数和过程函数是一段代码块,接受输入参数并返回一个值。
过程是一段代码块,用于执行一系列操作。
在VB程序设计中,可以自定义函数和过程,也可以使用内置的函数和过程。
例如,可以使用以下语句定义一个函数:Function Add(num1 As Integer, num2 As Integer) As IntegerAdd = num1 + num2End Function4. 对象和事件在VB程序设计中,控件是程序的核心。
通过使用控件,可以创建窗体、按钮、文本框等等。
每个控件都是一个对象,可以通过设置对象的属性和调用对象的方法来实现不同的功能。
对象还可以响应事件,例如鼠标、键盘按下等。
开发者可以编写事件处理程序来控制对象的行为。
例如:Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click' 代码块End Sub三、VB程序设计的开发工具1. Visual StudioVisual Studio是微软推出的集成开发环境(IDE),可用于开发多种类型的应用程序,包括VB程序。
合用标准文案1、编写程序,将26 个字母逆序输出。
教材 p87 【例 4-15】2、编写程序,在窗体上随机输出一个10--99 之间的两位整数。
Private Sub Form_Click()clRandomizePrint Int(Rnd() * 90) + 10End Sub3、在窗体的单击事件中编写程序,从键盘输入 3 个数,按从小到大的序次输出到窗体上。
Private Sub Form_Click()clsa = Val(InputBox("a="))b = Val(InputBox("b="))c = Val(InputBox("c="))If a > b Thent = a: a = b: b = tEnd IfIf a > c Thent = a: a = c: c = tEnd IfIf b > c Thent = b: b = c: c = tEnd IfPrint " 按从小到大排序后的结果 :"; a; " 、"; b; " 、"; c End Sub4、编写程序,要求随着不断单击命令按钮Command1,窗体的标题依次显示为:今天是星期一→今天是星期二→今天是星期三→今天是星期四→今天是星期五→今天是星期六→今天是星期日。
Private Sub Command1_Click()优秀文档Static i As Integeri = i + 1Select Case iCase 1Form1.Caption = "今天是星期一"Case 2Form1.Caption = "今天是星期二"Case 3Form1.Caption = "今天是星期三"Case 4Form1.Caption = "今天是星期四"Case 5Form1.Caption = "今天是星期五"Case 6Form1.Caption = "今天是星期六"Case 7Form1.Caption = "今天是星期日"i = 0End SelectEnd Sub5、编写程序,将字符串"" 山高人为峰 "" 按逆序 "" 峰为人顶峰 "" 输出。
VB程序设计教程完整版VB程序设计是一门面向对象的编程语言,它是Microsoft公司开发的一种基于Visual Basic的编程环境。
它易于学习和使用,适合初学者学习编程的选择。
本教程将介绍VB程序设计的基本概念和语法,以帮助读者快速上手。
一、VB程序设计的基本概念1.程序:VB程序由一系列指令组成,用于向计算机传达执行特定任务的指示。
2.变量:变量是存储数据的容器,可以存储不同类型的数据,如整数、字符串、布尔值等。
3.数据类型:VB中有多种数据类型,包括整型、字符串型、布尔型等,每种数据类型在存储和处理数据时有不同的方式。
5.事件:事件是程序响应用户操作的方式,当用户执行其中一种操作时,程序会相应的执行相应的代码。
二、VB程序设计的语法1.注释:在VB中,可以使用单引号(')来注释代码行,以便于程序员理解和维护代码。
2. 声明变量:在VB中,可以使用Dim关键字声明变量,并指定变量的类型。
例如:Dim a As Integer。
3.赋值:可以使用等号(=)将一个值赋给一个变量。
例如:a=10。
4. 输入和输出:可以使用MsgBox函数向用户显示消息框,使用InputBox函数获取用户输入的值。
5. 条件判断:使用If...Then语句对程序进行条件判断,根据条件的结果执行相应的代码块。
6. 循环:使用For循环和While循环结构来重复执行一段代码,根据指定的条件判断是否继续执行循环体。
三、VB程序设计的实例下面是一个简单的VB程序实例,用于计算两个数字的和:```Private Sub Button1_Click( Handles Button1.ClickDim a As IntegerDim b As IntegerDim sum As Integera = InputBox("请输入第一个数字")b = InputBox("请输入第二个数字")sum = a + bMsgBox("两个数字的和是:" & sum)End Sub```在这个例子中,当用户点击按钮时,会依次弹出两个输入框,用户输入两个数字后,程序将计算两个数字的和并显示在消息框中。
VB程序设计基础(简单易懂)VB程序设计基础VB程序设计是一种基于Visual Basic语言的计算机编程技术,它可以轻松地创建各种应用程序,从简单的窗体应用程序到复杂的数据库管理系统。
本文将介绍VB程序设计的基础知识和一些简单易懂的实例,帮助读者初步掌握这门技术。
一、VB程序设计概述VB程序设计是一种事件驱动的编程语言,它使用各种控件和对象来创建用户界面,并通过编写事件处理程序来实现特定的功能。
VB程序设计采用了基于对象的编程思想,强调代码的重用性和可扩展性。
对于初学者来说,掌握VB程序设计的基础知识是非常重要的。
二、VB程序设计环境在进行VB程序设计之前,我们需要安装一个合适的开发环境。
Visual Studio是微软公司推出的一款集成开发环境,它提供了一系列的工具和组件,方便我们开发和调试VB程序。
安装完成后,打开Visual Studio,我们就可以开始编写VB程序了。
三、VB程序的基本结构一个VB程序由多个模块组成,每个模块包含一组语句。
VB程序的基本结构如下所示:```Module Module1Sub Main()' 在这里编写程序代码End SubEnd Module```在上述的代码中,Module1是一个模块的名称,Main是一个子程序的名称。
在Sub Main()中编写的代码将在程序运行时被执行。
四、VB程序的数据类型在VB程序设计中,我们需要使用不同的数据类型来存储不同类型的数据。
常用的数据类型包括整数、浮点数、字符串等。
下面是一些常用的数据类型及其定义方式:```Dim num As Integer ' 定义一个整数变量Dim price As Double ' 定义一个浮点数变量Dim name As String ' 定义一个字符串变量```在上述的代码中,num是一个整数变量,price是一个浮点数变量,name是一个字符串变量。
五、VB程序的控制流程VB程序中的控制流程用于决定某段代码的执行顺序。
1编写程序,将26个字母逆序输出教材p87【例4-15】2、编写程序,在窗体上随机输出一个10--99之间的两位整数。
Private Sub Form_Click()clRan domizePrint Int(Rnd() * 90) + 10End Sub3、在窗体的单击事件中编写程序,从键盘输入3个数,按从小到大的顺序输出到窗体上。
Private Sub Form_Click()clsa = Val(I nputBox("a二"))b = Val(I nputBox("b二"))c = Val(I nputBox("c二"))If a > b The nt = a: a = b: b = tEnd IfIf a > c The nt = a: a = c: c = tEnd IfIf b > c The nt = b: b = c: c = tEnd IfPrint "按从小到大排序后的结果:";a; " 、"; b; " 、"; cEnd Sub4、编写程序,要求随着不断单击命令按钮Commandl,窗体的标题依次显示为: 今天是星期一T今天是星期二T今天是星期三T今天是星期四T今天是星期五今天是星期日。
T今天是星期六TPrivate Sub Comma nd1_Click()Static i As In tegeri = i + 1Select Case iCase 1Form1.Capti on 二”今天是星期一Case 2Form1.Capti on 二”今天是星期二Case 3Form1.Capti on 二”今天是星期三Case 4Form1.Capti on 二”今天是星期四Case 5Form1.Capti on 二”今天是星期五Case 6Form1.Capti on 二”今天是星期六Case 7Form1.Capti on 二”今天是星期日i = 0End SelectEnd Sub5、编写程序,将字符串""山高人为峰""按逆序""峰为人高山""输出。
Private Sub Comma nd1_Click()clss ="山高人为峰"s1 =""For i = Len(s) To 1 Step -1s1 = s1 & Mid(s, i, 1)NextPrint s1End Sub6、使用文本框输入长方形的长和宽,用MsgBox输出长方形的周长和面积・Private Sub Form_Click()l = Val(Text1.Text)h = Val(Text2.Text)MsgBox "长是"+ Str(l) + " 宽是"+ Str(h) + _"的长方形” + Chr(10) + "面积是:"+ Str(l * h) + _Chr(10) + " 周长是:"+ Str(2 * (l + h))End Sub7、输入 x ,计算 y 的值。
其中:y=1+3x (x>=0); y=1-5x (x<0)Private Sub Form_Click() cis x = Val(l nputBox("x=")) If x >= 0 The n y = 1 + 3 * x Elsey = 1 - 5 * x End IfPrint "x="; x;" 时 y="; y End Sub8在窗体的单击事件过程中,编写程序计算1! +2! +3! + (15)9、编程计算从200到1000之间的所有4的倍数之和Private Sub Form_Click() cis Sum = 0For i = 200 To 1000 Step 4 Sum = Sum + i NextPrint "200-1000 中 4 的倍数和是:";SumEnd Sub10、编写程序,通过InputBox函数从键盘上输入4个数,计算并在窗体上显示这4个数的和及平均值Private Sub Form_Click()cisSum = 0For i = 1 To 4x = Val(lnputBox(" 接收 4 个数"))Sum = Sum + xNextPrint "和是";SumPrint " 平均值是";Sum / 4End Sub11、编写程序,点击命令按钮Commandl时,两个文本框textl与text2中的内容进行交换。
Private Sub Comma nd1_Click()t = Text1.TextText1.Text = Text2.TextText2.Text = tEnd Sub12、用InputBox函数输入3个数据,判断这3个数据是否可以组成三角形,如果能够组成三角形,计算并在窗体上输出三角形的面积。
构成三角形的条件是:任意两边之和大于第三边。
面积公式为area=,其中S=(A+B+C)/2,A、B、C为三条边的长度。
Private Sub Form_Click()clsa = Val(I nputBox("a二"))b = Val(I nputBox("b二"))c = Val(I nputBox("c二"))If a + b > c And a + c > b And b + c > a The ns = (a + b + c) / 2area = Sqr(s * (s - a) * (s - b) * (s - c))Print " 边长为:";a; b; c;" 的三角形面积为:";area End IfEnd Sub13、编程将一维数组A(10)中数组元素循环向后移动一个位置,最后一个元素移动到第一个元素的位置。
Private Sub Form_Click()Dim a(10) As In tegerRan domizeclsPrint "初始数组为:"For i = 0 To 10a(i) = Int(Rnd * 10)Print a(i);NextPrintt = a(10)For i = 10 To 1 Step -1a(i) = a(i - 1)Nexta(0) = tPrint " 移位后数组为”For i = 0 To 10Print a(i);NextPrintEnd Sub14、使用InputBox函数输入圆半径r,使用文本框分别输出圆球表面积和圆球体积。
提示:圆球表面积公式为4*3・14*r;圆球体积公式为(3/4)*3・14*r3Private Sub Form_Click()r = Val(InputBox(" 圆半径:"))Text1.Text =" 半径为"+ Str(r) + " 的圆球表面积是” + Str(4 * 3.14 * r) Text2.Text =" 半径为"+ Str(r) + " 的圆球体积是"+ Str((3 / 4) * 3.14* r 八3)End Sub15、编写程序,在窗体上输出由1、2、3、4、5这五个数字组成的所有可能的两位数,并统计它们的个数。
精彩文档Private Sub Form_Click()CisFor i = 1 To 5Forj = 1 To 5gs = gs + 1Print i * 10 + j;If gs Mod 5 = 0 Then PrintNextNextEnd Sub16、在窗体上输出下三角的九九乘法表。
Private Sub Form_Click()CisFor i = 1 To 9For J = 1 To iPrint i; "*"; J; "="; Format(Str(i * J), "!@@");NextPrintNextEnd Sub17、编写程序,实现如下功能:使用InputBox函数输入一个数,单击窗体时,如果该数大于等于0,将其平方根输出到标签Lablel上,否则输出“数据不能为负数”的提示信息。
Private Sub Form_Ciick()x = Val(lnputBox(" 接收一个数"))If x >= 0 The nLabel1.Caption = Sqr(x)ElseMsgBox "数据不能为负数"End IfEnd Sub18、求s=a+aa+aaa+…+aaa…aaa(n个a),其中a和n的值由用户自己输入。
例如,当a=3,n=4 时,S=3+33+333+333£佃、在窗体的单击事件中编写程序,要求:由文本框TEXT1输入一个0到6的数字,单击窗体时,在标签控件LABEL1上显示汉英对照星期信息,如:输入0,则显示星期日(SUNDAY)、输入1,则显示星期一(MONDAY ),以此类推。
如果输入0--6以外的数据,用MsgBox信息框显示“输入数据错误”的提示信息。
Private Sub Form_Click() Dim d As In teger d = Val(Text1.Text) Select Case dCase 0Label1.Capti on = "Su nday"Case 1Label1.Captio n = "Mon day"Case 2Labell.Captio n = "Tuesday"Case 3Labell.Capti on 二"Wed nesday"Case 4Labell.Capti on = "Thursday"Case 5Labell.Captio n = "Friday"Case 6Labell.Captio n = "Saturday"Case ElseMsgBox "输入数据错误"End SelectEnd Sub20、从键盘输入一个半径,输出圆的面积和周长,输出要求有文字说明,保留两位小数。