vb程序设计教程(第四版)实验报告4

VB程序设计的实验报告VB程序设计的实验报告引言：VB（Visual Basic）是一种广泛应用于Windows操作系统的编程语言，它具有简单易学、功能强大的特点，被广泛用于开发各种桌面应用程序。

本文将介绍我在VB程序设计实验中的学习和实践经验。

一、实验目的本次实验的主要目的是让我们学习并掌握VB程序设计的基本知识和技巧，通过实践编写简单的应用程序，提升我们的编程能力和解决问题的能力。

二、实验环境在实验中，我们使用了Visual Studio作为开发工具。

Visual Studio是一款功能强大的集成开发环境，它提供了丰富的开发工具和调试功能，极大地方便了我们的开发工作。

三、实验内容在实验中，我们主要完成了以下几个实验任务：1. 界面设计：首先，我们需要设计程序的界面，包括窗体、按钮、文本框等控件的布局和样式。

通过拖拽控件、设置属性等操作，我们可以快速创建出一个漂亮的界面。

2. 事件处理：接下来，我们需要为各个控件添加事件处理程序。

当用户点击按钮或输入文本时，我们的程序需要做出相应的反应。

通过编写事件处理程序，我们可以实现各种功能，如计算、数据处理等。

3. 数据存储：在实验中，我们还学习了如何使用VB提供的数据库连接工具，将数据存储到数据库中。

通过编写SQL语句，我们可以实现数据的增删改查等操作，方便我们对数据进行管理和分析。

四、实验心得通过本次实验，我对VB程序设计有了更深入的了解和掌握。

在实验中，我遇到了一些困难和问题，但通过不断尝试和学习，我最终成功完成了实验任务。

首先，我学会了如何使用VB的开发工具和调试功能。

Visual Studio提供了许多方便的功能，如自动补全、调试器等，它们大大提高了我们的开发效率和代码质量。

其次，我学会了如何设计程序的界面。

一个好的界面设计可以使用户更加方便地使用我们的程序，并提升用户体验。

通过实验，我学会了如何合理布局控件、设置属性，使界面更加美观和易用。

最重要的是，我学会了如何编写事件处理程序。

VB实验四循环结构
【实验目的】
1.For—NEXT循环结构
2.DO—LOOP循环结构
【复习】
For循环语句 (一般用于循环次数已知)：
For 循环变量＝初值to 终值[Step 步长]
语句块
[Exit For]
语句块
Next [循环变量]
DO WHILE—LOOP循环语句(一般用于循环次数未知)：
Do While <条件表达式>
语句块
[Exit Do]
语句块
Loop
【实验内容】
1.求表达式1！+2!+…+10！的值。

2.设一张纸厚0.5mm，面积足够大，将这张纸对折多少次后，其厚度可达到（珠穆朗玛峰）8848m，编程计算对折次数。

3．求所有三位数的水仙花数，所谓水仙花数，是指一个3位数，其各位数字立方和等于该数字本身。

例如，153是水仙花数，因为153=13+53+33。

可以用三重循环或者一重循环实现。

可参考例3.12。

4.计算不定方程
22
x y10000
x y
⎧+=
⎨
⎩≤共有多少组自然数解（注意自然数包含0）
5 求两自然数m、n的最大公约数和最小公倍数。

vb程序实验报告VB 程序实验报告一、实验目的通过本次实验，深入了解和掌握 Visual Basic（VB）程序设计的基本概念、语法和编程技巧，提高解决实际问题的能力，培养逻辑思维和创新能力。

二、实验环境操作系统：Windows 10开发工具：Microsoft Visual Basic 60三、实验内容本次实验主要包括以下几个方面的内容：1、界面设计使用 VB 的窗体设计器，创建一个简单的用户界面，包含文本框、按钮、标签等控件，并设置其属性，如字体、颜色、大小等，以实现美观和友好的用户交互。

2、变量与数据类型在程序中声明不同类型的变量，如整数型（Integer）、字符串型（String）、布尔型（Boolean）等，并进行赋值和运算操作，理解不同数据类型的特点和适用场景。

3、控制结构运用顺序结构、选择结构（IfThenElse、Select Case）和循环结构（ForNext、WhileWend）编写程序，实现条件判断和重复执行的功能，例如计算阶乘、判断素数、打印九九乘法表等。

4、数组与过程定义数组来存储和处理大量的数据，掌握数组的声明、初始化和遍历操作。

同时，学习使用过程（Sub 过程和 Function 过程）来封装可重复使用的代码块，提高程序的可读性和可维护性。

5、文件操作实现对文本文件的读写操作，包括创建文件、写入数据、读取数据和关闭文件，了解文件处理在实际应用中的重要性。

四、实验步骤1、界面设计（1）打开 Microsoft Visual Basic 60，新建一个标准 EXE 工程。

（2）在窗体上添加所需的控件，如文本框 Text1、Text2，命令按钮 Command1、Command2，标签 Label1 等。

（3）通过属性窗口设置各个控件的属性，如 Text1 的 Text 属性为空，Command1 的 Caption 属性为“计算”，Label1 的 Caption 属性为“结果：”等。

湖北轻工职业技术学院《VB程序设计》实验报告实验四：常用控件班级： ________09计管____________________ 姓名： ________刘伟____________________ 学号： _________0903011124_______________ 日期： ________2011-3-30__________________一、实验目的和要求1．掌握选择框的属性、事件和方法。

2．掌握单选钮的属性、事件和方法。

3．理解框架的作用并掌握框架的使用方法4．掌握列表框的属性、事件和方法。

5．掌握组合框的属性、事件和方法。

6．掌握列表框和组合框的使用请先看书熟悉各控件的常用属性，事件和方法二、实验主要仪器和设备计算机一台，Windows XP操作系统，Visual Basic环境。

三、实验内容实验1 在窗体有三个复选框，名称分别为Ch1、Ch2和Ch3，标题依次为"体育"、"音乐"、"美术"，还有一个命令按钮，名称为C1，标题为"显示"。

要求程序运行后，如果选中某个复选框，则当单击"显示"命令按钮时，则显示相应的信息。

例如，如果选取中"体育"和"音乐"复选框，则单击"显示" 命令按钮后，在窗体上显示"我的爱好是体育音乐"（如图所示）；而如果选中"体育"、"音乐"和"美术"复选框，则单击"显示"按钮后，在窗体上显示"我的爱好是体育音乐美术"。

实验2 在名为Form1的窗体上绘制两个框架（如下图所示），其名称分别为Frame1和Frame2，标题分别为“交通工具”和“到达目的”。

在Frame1中绘制两个单选按钮，名称分别为Opt1和Opt2，标题分别为“飞机”和“火车”。

实验报告课程名称VB程序设计实验项目实验4 VB基本控制结构一、实验目的1.掌握Visual Basic语言中数据输入方法。

2.掌握Visual Basic语言中数据输出方法。

3.正确使用Visual Basic赋值语句。

4.学会设计简单的顺序结构程序。

二、实验要求1.编程序求圆面积，圆面积公式：s=πr²，窗体界面如图4-1所示。

在文本框text1中输入半径的值，单击“计算圆面积”命令按钮后，在文本框text2中以只读方式显示出计算结果。

2.编程实现：从文本框text1中输入以秒为单位所表示的时间，然后将其换算成几天几小时几分钟几秒，单击窗体，在标签Label2中显示出总秒数和换算后的结果。

三、实验内容1. 解题分析：思路：程序启动运行后，在Text1中输入半径值，单击按钮，面积值显示于Text2中；单击退出按钮，程序结束。

设计界面，标签、文本框、按钮代码：Private sub command1_click()Dim r as integer, area as singler=text1.textArea=3.14159*r^2Text2.text=format(area)End subPrivate sub command2_clickEndEnd sub运行程序2.解题分析：思路：程序启动后，在文本框内输入时间，以秒为单位；单击窗体，显示总秒数，同时换算天、小时、分钟和秒，输出于标签设计界面，标签、文本框设计效果如下：代码编写效果如下：Private sub form_click()A=val(text1)mod 60B=val(text1)\60C=b mod 60D=b\60E=d mo 24F=d\24Label2.caption=text1 & "秒=" & f & "天" & e & "小时" & c & "分" & a & "秒" End sub四、实验总结。

浙江大学城市学院实验报告课程名称VB程序设计基础与实验实验项目名称实验四、分支结构程序设计学生姓名专业班级学号实验成绩指导老师（签名）日期一. 实验目的和要求1.掌握单分支与双分支条件语句IF的使用。

2.掌握多分支条件语句的使用。

3.掌握情况语句Select Case的使用及其与多分支条件语句的区别。

二. 实验内容和原理【练习4-1】研究下面的代码段，画程序流程图，当输入93，81，74，65，42时，写出窗体中显示的结果。

Private Sub Form_Click()score = Val(InputBox("输入成绩"))If score < 60 Then Print "不合格"If score >= 60 and score<85 Then Print "合格"If score >= 85 Then Print "优秀"End sub引伸1若把程序代码写成如下形式，画出它的流程图。

问当输入成绩为90分时，显示什么结果？为什么？用嵌套块If语句应如何写？Private Sub Form_Click()score = Val(InputBox("输入成绩"))If score >= 85 Then st= "优秀"If score < 60 Thenst=”不合格”Elsest="合格"End IfPrint stEnd Sub引伸2若把程序写成如下形式，当输入成绩为90、80、50时，显示什么结果？画出流程图。

Private Sub Form_Click()score = Val(InputBox("输入成绩"))If score >= 85 ThenPrint "优秀"ElseIf score >= 60 ThenPrint "合格"ElsePrint "不合格"End IfEnd Sub调试运行以上程序，采用单步跟踪的方法（按F8）查看程序执行流程，进一步加深对分支结构的理解。

福建农林大学计算机与信息学院（程序设计类课程）实验报告课程名称：Visual Basic程序设计教程姓名：系：计算机与信息学院专业：计算机应用技术年级：05级学号：指导教师：职称：讲师2007年6月 2 日实验项目列表系：计算机与信息学院专业：计算机应用技术年级： 05级姓名：学号： 0 计算机号 67实验时间： 2007、3、28 实验地点：综南附307 指导教师签字：实验一Visual Basic环境和程序设计初步一、实验目的和要求1、了解Visual Basic系统对计算机软件、硬件的要求。

2、掌握启动与退出Visual Basic的方法。

3、熟悉Visual Basic的集成开发环境（IDE）。

4、掌握在窗体上添加控件的各种方法。

5、掌握建立、编辑、运行和保存一个简单的Visual Basic应用程序的全过程。

二、实验内容和原理1、熟悉工具箱上的标准控件以及窗体设计器和工程管理器窗口、属性窗口、代码窗口的功能、组成以及它们各种不同的打开方法。

2、在窗体上画一文本框个一个命令按钮，在文本框中显示“VB程序设计”，然后执行如下操作：（1）编写适当事件过程，当单击命令按钮时，文本框内容消失。

（2）单击“文件”—“生成工程”并退出。

在windows环境下运行该工程。

用户界面：实验代码：Private Sub Command1_Click()Text1.Text = ""End Sub3、创建一个“标准EXE”类型的应用程序。

要求：程序运行时在屏幕上显示“欢迎您的到来！”，并输入您的名字，当按回车键时弹出如下对话框：用户界面：代码：Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenMsgBox "欢迎" + Text1.Text + "的到来"End IfEnd Sub4、创建如图所示的应用程序，要求：单击“确定”按钮后，第一个文本框显示系统日期，第二个文本框显示星期。

vb程序设计实验报告VB程序设计实验报告一、引言在计算机科学与技术领域中，程序设计是一项至关重要的技能。

Visual Basic （VB）作为一种强大的编程语言，被广泛应用于软件开发领域。

本实验报告旨在总结和分析我在VB程序设计实验中的学习和实践经验。

二、实验目的本次实验的主要目的是通过设计和实现一个简单的VB程序，加深对VB语言的理解和掌握。

通过这个实验，我将学习如何使用VB语言进行界面设计、事件处理和数据处理。

三、实验过程1. 界面设计在实验开始时，我首先进行了界面设计。

通过VB的可视化设计环境，我选择了合适的控件，布局了用户界面。

我使用了文本框、标签、按钮等控件，使用户能够输入数据并进行相应的操作。

2. 事件处理在界面设计完成后，我开始编写事件处理程序。

我为按钮添加了点击事件，当用户点击按钮时，程序会执行相应的操作。

例如，当用户点击“计算”按钮时，程序会读取用户输入的数据，并进行计算操作。

通过编写事件处理程序，我学会了如何响应用户的操作，并进行相应的逻辑处理。

3. 数据处理在实验中，我还学习了如何进行数据处理。

我使用了VB的变量和运算符，对用户输入的数据进行计算和处理。

通过编写算法和逻辑，我实现了对用户输入数据的验证和处理，确保程序能够正确运行。

四、实验结果经过一段时间的设计和调试，我成功完成了VB程序的实现。

我的程序可以根据用户输入的数据进行相应的计算，并将结果显示在界面上。

通过这个实验，我不仅巩固了VB语言的基础知识，还提高了自己的编程能力。

五、实验总结通过这次VB程序设计实验，我收获了很多。

首先，我学会了如何使用VB语言进行界面设计，掌握了一些常用的控件和布局方法。

其次，我学习了如何编写事件处理程序，响应用户的操作，并进行相应的逻辑处理。

最后，我还学习了如何进行数据处理，使用变量和运算符对数据进行计算和处理。

在实验过程中，我遇到了一些问题和挑战。

例如，我曾经遇到过界面布局不合理导致用户体验不佳的情况，但通过不断的调整和改进，最终解决了这个问题。

VB实验报告教案（4-7）第一篇：VB实验报告教案(4-7)实验四：题目：Visual Basic常用控件目的：1、掌握命令按钮、单选钮、检查框、框架常用属性与事件2、掌握滚动条、列表框、组合框、时钟的常用属性与事件日期：1班为10月18日，2班为10月14日,3班为10月16日内容：要求界面用铅笔画出来。

Private Sub Command1_Click()List1.AddItem Text1If Option1 ThenList1.AddItem “男”ElseList1.AddItem “女”End IfList1.AddItem Text2List1.AddItem Combo1List1.AddItem Combo2List1.AddItem “爱好：”If Check1 ThenList1.AddItem “上网”End IfIf Check2 ThenList1.AddItem “篮球”End IfIf Check3 ThenList1.AddItem “音乐”End IfIf Check4 ThenList1.AddItem “交友”End If End Sub Private Sub Command2_Click() List1.Clear End SubPrivate Sub Command3_Click()End End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 ThenText2.SetFocusEnd If End SubPrivate Sub Form_Load()Form1.Caption = “电子钟”Form1.BorderStyle = 3Timer1.Enabled = TrueTimer2.Enabled = FalseTimer1.Interval = 1000Timer2.Interval = 1000Label1.Caption = Time()'显示系统时间Label1.Alignment = 2Label1.BorderStyle = 1Label2.Caption = “闹钟时间:”Text1.Text = “" End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) '按下回车开始闹钟If KeyAscii = 13 ThenTimer2.Enabled = TrueText1.Enabled = FalseEnd If End SubPrivate Sub Timer1_Timer()Label1.Caption = Time()'显示系统时间 End SubPrivate Sub Timer2_Timer()Static i As Int gerIf Label1.Caption >= Text1.Text Then'利用静态变量产生背景交替效果If i = 0 ThenLabel1.BackColor = vbRedi = 1ElseLabel1.BackColor = vbWhitei = 0End IfEnd If End Sub 实验五：题目：对话框、菜单、工具栏和图形程序设计目的：1、掌握菜单的设计方法；学会应用通用对话框控件2、掌握在Visual Basic环境中的绘图方法，显示图片3、对话框、菜单、工具栏和图形程序设计的综合应用日期：1班为11月3日，2班为11月4日，2班为11月6日内容：要求界面用铅笔画出来。

vb程序设计实验报告VB程序设计实验报告实验目的：通过VB程序设计，掌握基本的程序设计方法和技巧，提高编程能力。

实验内容：本次实验主要是通过VB程序设计，实现一个简单的学生成绩管理系统。

该系统可以实现学生信息的录入、查询、修改和删除功能，同时还能够计算学生的平均成绩并进行排名。

实验步骤：1. 设计界面：首先，我们需要设计一个简洁易用的界面，包括学生信息的录入、查询、修改和删除功能。

通过VB的窗体设计工具，我们可以轻松地实现界面的布局和美化。

2. 编写代码：接下来，我们需要编写VB程序代码，实现学生成绩管理系统的各项功能。

通过VB的编程语言，我们可以实现学生信息的录入、查询、修改和删除功能，以及成绩的计算和排名功能。

3. 调试程序：完成代码编写后，我们需要对程序进行调试，确保程序的各项功能能够正常运行。

通过调试，我们可以及时发现和解决程序中的bug，提高程序的稳定性和可靠性。

4. 测试程序：最后，我们需要对程序进行测试，验证程序的各项功能是否能够满足实际需求。

通过测试，我们可以发现程序中可能存在的问题，并及时进行修复和优化。

实验结果：经过一段时间的努力，我们成功地实现了一个简单的学生成绩管理系统。

该系统能够实现学生信息的录入、查询、修改和删除功能，同时还能够计算学生的平均成绩并进行排名。

通过本次实验，我们不仅掌握了基本的程序设计方法和技巧，还提高了自己的编程能力。

结论：通过本次实验，我们深刻认识到了程序设计的重要性，以及通过VB程序设计可以实现复杂功能的能力。

同时，我们也意识到了编程过程中需要细心和耐心，以及对程序进行不断地调试和测试，才能确保程序的质量和稳定性。

希望通过不断地实践和学习，我们能够不断提高自己的编程能力，为实现更多复杂功能的程序做好准备。

实验报告
课程名称：VB程序设计
实验项目：过程和界面设计实验仪器：装有VB的电脑
学院：
专业：
班级姓名：
学号：
日期：
指导教师：
同组成员：
一. 实验目的：1.界面设计。

2.过程的应用。

二. 实验内容：设计并实现学生管理系统，系统主要包括但
不限于成绩录入、成绩计算与评价功能。

三. 实验过程：
1.1.界面设计：
四. 实验总结：这次实验让我们更加深刻了理解了数组这个
概念，也掌握了数组在VB中的一些应用，还有过程的应用，全局变量的应用等。

这个实验结果还有很多不足，老师也给了我们很多建议，我们也做出了很多改动，总之这次实验我们获益匪浅。

华北科技学院计算机学院综合性实验
实验报告
课程名称程序设计语言（VB）
实验学期 2011 至 2012 学年第 2 学期学生所在系部
年级专业班级
学生姓名学号
任课教师李芙玲
实验成绩
计算机学院制
实验报告须知
1、学生上交实验报告时，必须为打印稿（A4纸）。

页面空间不够，可以顺延。

2、学生应该填写的内容包括：封面相关栏目、实验地点、时间、目的、设备环境、
内容、结果及分析等。

3、教师应该填写的内容包括：实验成绩、教师评价等。

4、教师根据本课程的《综合性实验指导单》中实验内容的要求，评定学生的综合
性实验成绩；要求在该课程期末考试前将实验报告交给任课教师。

综合性实验中，所涉及的程序，文档等在交实验报告前，拷贝给任课教师。

任课教师统一刻录成光盘，与该课程的期末考试成绩一同上交到系里存档。

5、未尽事宜，请参考该课程的实验大纲和教学大纲。

《程序设计语言（VB）》课程综合性实验报告。

台州学院《VB程序设计》实验报告实验1.1设计一个程序，程序运行的初始界面如图1-1所示。

当单击“显示”按钮时，在文本框中显示“欢迎使用VB！”（图1-1）；当单击“清除”按钮时，清除文本框内的文本；当单击“退出”按钮时，结束程序运行。

Private Sub Command1_Click() Text1.Text = "欢迎使用VB！"End SubPrivate Sub Command2_Click() Text1.Text = ""End SubPrivate Sub Command3_Click() EndEnd Sub实验1.2 设计一个程序，程序运行的初始界面如图1-3所示，其中“显示”按钮为不可用。

同时要求：（1）当单击“改变文字”按钮时，在左边标签文字内容改为“你好，张三！”，同时“改变文字”按钮变为不可用（图1-4）；（2）当单击“隐藏”按钮时，将左边标签设为不可见，同时“隐藏”按钮变为不可用，“显示”按钮变为可用（图1-5）；（3）当单击“显示”按钮时，重新显示左边标签，同时“隐藏”按钮变为可用，“显示”Private Sub Command1_Click() Label1.Caption = "你好，张三！"Command1.Enabled = False End SubPrivate Sub Command2_Click()Label1.Visible = FalseCommand3.Enabled = TrueCommand2.Enabled = False End SubPrivate Sub Command3_Click() Label1.Visible = TrueCommand2.Enabled = TrueCommand3.Enabled = False End Sub实验2.1 设计一个程序，运行时界面如图2-1所示。

软件技术实验报告班级01021101 学号2011300341 姓名闫昊第四次实验：实验要求：设计一个具有实际应用价值的动态倒计时牌。

要求目标时间（即倒计时截至时间）的年、月、日、时、分、秒和倒计时主题可以根据不同主题由用户动态设定，并且在此设定基础上在屏幕上显示距离相关主题（如新年）到达之时还有n年、n天和n秒（其中的三个n 各不相同，且随着程序运行动态变化），以北京时间作为主要显示板块。

程序中除了刚运行时给出一次当前标准时间值（或读出系统当前时间）外，在程序运行期间应在自己独立的用户时钟控制下，而不受外界输入影响和系统时间的束缚。

实验步骤：1）根据实验设计需要在窗体上放上若干所需的标签控件、文本框控件、时钟控件、框架控件、组合框控件、命令按钮控件等，并设置各控件的必要属性值。

2） 2）在程序中用时钟控件不断触发系统时间与预设定时间时间截止点的时间差：分别计算当前时间和预设定时间截止点之间相差的整年数、当前时间到时间截止点还差的不足一年的天数和当前时间到时间截止点之间相差的不足一天的秒数并分别显示之。

3）程序中调用系统时间综合使用了“Now”函数和“Format”函数，其完整形式为： Format （Now, “hh:mm:ss”） Format（Now，“mm/dd/yy”）前者可以按照“小时：分钟：秒”的形式返回当前时间；后者可以按照“月/日/年”的形式返回。

4）为保证应用程序的灵活性，应在倒计时牌上设有暂停、继续、时间校正和结束运行等特殊要求的激发点。

5）按照需要构筑程序框架并编写应用程序。

创新亮点：（如果没有可以空缺）采用了众多颜色，一概源程序灰色的基调，活泼生动而又不张扬。

完成情况和存在问题：程序全部完成。

收获与体会：经过一晚上的上机实验，平时在课堂上很多不会的地方得到了很清楚的解决。

老师也很有耐心地教我解决一些意外发生的问题。

我懂得了实践出真知的道理。

备注：。

本科实验报告课程名称：人机界面程序设计基础实验项目：四、过程实验地点：多学科综合楼专业班级：自动化0905 学号：2009001221 学生姓名：闫海涛指导教师：李何2012年12 月12 日一、实验目的和要求1、掌握自定义函数过程和子过程的定义和调用方法。

2、掌握形参和实参之间的对应关系。

3、掌握值传递和地址传递的传递方式。

4、掌握变量、函数和过程的作用域。

5、掌握递归的概念和使用方法。

二、实验内容和原理1、编一求两数m、n最大公约数的函数过程f（m，n）。

2、如果一个整数的所有因子（包括1，但不包括本身）之和与该数相等，则称这个数为完数。

例如6=1+2+3。

编写一个函数IsWs（m）判断m是否为完数，函数的返回值是逻辑型。

提示：判断一个数是否为完数，算法思想是：将m依次除以1~m/2，如果能整除，就是m 的一个因子，进行累加；循环结束，若m与累加因子之和相等，m就是完数。

3、编写一个子过程deleStr(s1，s2) ，将字符串s1中出现的s2字符串删去，结果存放在s1中。

提示：首先利用InStr函数查找子串，若找到则通过Left、Mid(或Right) 函数实现字符串的删除；同时要利用循环考虑到删除多个字符串的情况。

三、主要仪器设备计算机四、实验结果与分析界面：1、程序：Private Sub Command1_Click()Dim m As Long, n As Long, X As Long, Y As Longm = V al(InputBox("请输入第一个数m""输入", "输入", 0)) n = V al(InputBox("输入第二个数n", "请输入", 0))X = mY = nIf m * n = 0 ThenMsgBox "两数不能为0!"ElseMsgBox X & "," & Y & "最大公约数为" & f(m, n)End IfEnd SubPrivate Function f(m As Long, n As Long) As LongDim r As LongDor = m Mod nm = n: n = rLoop While r <> 0f = mEnd Function运行结果:2.程序：Private Sub Command2_Click()Dim a As Longa = V al(InputBox("请输入一个数""输入", "输入", 0)) MsgBox a & "为完数是" & IsWs(a)End SubFunction IsWs(m) As BooleanDim s%s = 0For i = 1 To m \ 2If m Mod i = 0 Thens = s + iEnd IfNext iIf m = s Then IsWs = TrueEnd Function运行结果：A.B.3.程序：Private Sub DeleStr(s1 As String, ByV al s2 As String)Dim i%ls2 = Len(s2)i = InStr(s1, s2)Do While i > 0s1 = Left(s1, i - 1) + Mid(s1, i + ls2) ' 在s1中去除s2子串i = InStr(s1, s2)LoopEnd SubPrivate Sub Command3_Click() ' 调用DeleStr子过程Dim ss1 As String, ss2 As Stringss1 = InputBox("请输入字符串s1""输入", "输入", 0)ss2 = InputBox("请输入字符串s2""输入", "输入", 0)Call DeleStr(ss1, ss2)Text1 = ss1End Sub运行结果：。