《VB程序设计》实验单元一

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）：一种面向对象的事件驱动编程语言。

实验教材实验-1:单项选择题：AACCC DCBBC2：填空题：(1).bas(2).vbp, ,frm(3)视图工具箱(4)对象(5)属性对象事件方法(6)Windows(7)事件行为(8)窗体模块实验二1：单项选择题：ADCCA BAB DC BBCBC BAB DC 2：基本运算题：(1)27(2) 3.33333333333333(3) 3(4)0(5)-3(6) 2(7)ab33(8)类型不匹配(9) 3(10)AB3实验三1：单项选择题：BCBDC2：填空题：(1)300(2)321456(3)Shanghai(4) 6 7 6(5)True(6)2+3=5(7)”area=” 12.56(8)VISUAL实验四1：单项选择题：CAACA2：填空题：(1)7(2) 3 5(3)输入的数小于0(4) 3(5)False(6)2010 is not leap year.试验五1：单项选择题：ACCAB ACCCB2：填空题：(1)9(2)@n ② 1(3)®Len(a)②n\2 ③Mid(a,(n-i+l),l)④Mid(a,(n-i+l),l)(4)@n Mod 3=1 And n Mod 5=1 And n Mod 7=1 ©While CountN<5(5)Mid(cl,l,i)实验六1：单项选择题：DB DCD ACADD2：填空题:(1)30(2) 3(3)①a(2)②a(3)③a(l)(4)①1 ②2 ③a(i)=a(6-i)(5)①i+j ②0 ③a(i,j)(6)©Print ②k ③a(k,j)=a(j,k)④a(k,j);实验七1：单项选择题：ABBACB2：填空题：(1)15(2)①Preserve a(n+l) ②a(i+l)=a(i) ③Exit For ④a(i+l)=m⑤0 to n+1 (或LBound(a) to UBound(a))(3)d,c,b,a实验八1：单项选择题：CADBD CACB2：填空题：(1)a=9 b=4(2)362516941(2)①a (2)UBound(b)③实验九1:单项选择题：DDDBB CAB CAD2：填空题：(1)①p=p*n ②Fac(n) ③ 10人-6(2)①Max=x ②Max=y ③p ④Max(x,a(n))(3)①number(i) ②n as integer (3)number=number+7* 10A(i-1)实验十1：单项选择题：DC BAB C实验十一1：单项选择题：DADBBB BDD实验十二1：单项选择题：CBCBC CBDAD DBC2：填空题：(1)①Label 1. FondName=Combo 1 .TextCombo2.Text ③ Label 1 .FontBold=True ④ Label 1 .FondItalic=True⑤ Label 1 .FondSize=Combo3.Text(2)①Listl.Text ©List 1 .RemoveitemListl.ListindexListl .Additem List2.Text ④ List2.RemoveItem实验十三实验十四1：单项选择题：DACDAABC2：填空题：(1)ShowFont(2)打开另存为颜色字体打印机帮助(3)工程部件Microsoft Common Dialog Control 6.0(4 ) ShowColor Action=3实验十五1：单项选择题：CB BCB B BAD2：填空题：(1)内建菜单弹出菜单(2)Click(3)工具(4)代码窗口Click(5)相同不同实验十六1：单项选择题：B CAAC ACDDB DCC2：填空题：(1)①Open "c:\studl.txt” For Output As #1Textl.Text=”End”White #l,Textl.Text(2)①For Input ②For Output As #2 ③Not Eof(l)Input #l,strl ⑤ Close #1,#2 ⑥Kill(“c:\old.txt”(3)①For Output ②For Input As #2。

《启动VB》教学设计方案（第一课时）一、教学目标1. 知识与技能：学生能够理解VB的基本观点和界面，掌握VB的启动方法。

2. 过程与方法：通过实践操作，学生能够掌握VB的基本操作流程。

3. 情感态度与价值观：激发学生对编程的兴趣，培养他们的创新认识和实践能力。

二、教学重难点1. 教学重点：熟悉VB的界面，掌握VB的启动方法，能够进行简单的操作。

2. 教学难点：如何引导学生理解VB的基本观点，培养他们的编程思维。

三、教学准备1. 准备VB的安装光盘或者网络下载安装包，确保设备配置符合教学要求。

2. 准备教学PPT，包括VB的启动操作、界面展示、基本操作流程等内容。

3. 准备相关练习题和案例，供学生实践操作。

4. 安排合适的上机操作时间，确保学生有足够的时间进行实践。

四、教学过程：（一）情景导入1. 展示一些用VB制作的小游戏、小动画，让学生感受VB 的奇奥，激发学生对VB的兴趣。

2. 介绍VB的用途、特点以及简单的操作界面，让学生对VB 有一个初步的了解。

（二）新课教学1. 讲解VB的启动方法，并演示如何新建一个VB应用程序。

2. 介绍VB中的常用工具栏和菜单栏，让学生熟悉VB的基本操作。

3. 讲解VB编程的基本语法和常用语句，例如：声明变量、应用注释、输出语句、条件语句等。

4. 通过一些简单的示例程序，让学生动手实践，熟悉VB编程的基本操作。

5. 讲解VB中的控件，例如：标签、文本框、按钮、图片框等，并演示如何应用它们来制作简单的界面。

6. 讲解如何应用事件驱动机制来处理控件的事件，例如：单击事件、双击事件等。

7. 通过一些综合性的示例程序，让学生进一步熟悉VB编程，并提高学生的实践能力。

（三）教室练习1. 给学生安置一些简单的教室练习，例如：制作一个简单的“猜数字”游戏，让学生动手实践，稳固所学知识。

2. 要求学生分组合作，共同完成一个相对复杂的项目，培养学生的团队协作能力和创新能力。

（四）小结作业1. 总结本节课的主要内容，强调VB编程的基本思路和方法。

第一章 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包括三种版本，分别为学习版、专业版和企业版。

三种版本适于不同层次的用户。

（１）学习版是VB的基础版本，该版本包含了所有VB的标准控件及网格控件、数据绑定控件和Tab对象。

适合初学者用来学习开发Windows应用程序。

（２）专业版为专业编程者提供了一整套功能完备的开发工具，包括了学习版中的全部功能，同时加入了ActiveX 控件、Internet控件和报表控件等。

（３）企业版该版本包含了专业版的全部功能，增加了自动化管理器、部件管理器、数据库管理工具、Microsoft Visual Source Safe面向工程版的控制系统等。

如无特别说明，本书中内容均基于VB６.０企业版作介绍，所有程序在VB６.０企业版下运行通过，大多数程序可以在专业版和学习版中运行。

《认识VB工作环境》教学设计方案（第一课时）一、教学目标1. 知识与技能：了解VB（Visual Basic）工作环境的基本组成和功能，掌握窗口、菜单、工具等观点。

2. 过程与方法：通过实践操作，熟悉VB工作环境的操作，培养自主探究和合作学习能力。

3. 情感态度与价值观：激发对编程的兴趣，培养信息素养和科学精神。

二、教学重难点1. 教学重点：熟悉VB工作环境的基本组成和功能，掌握窗口、菜单、工具等操作。

2. 教学难点：通过实践操作，理解VB工作环境的交互性和灵活性，解决实际问题的能力。

三、教学准备1. 准备教学用具：计算机、VB编程软件、相关教材和教案。

2. 安排教学内容：制定详细的教学计划，确保学生们可以按部就班地学习VB编程的基础知识和技能。

计划将包括基础语法、数据类型、循环结构、条件语句、数组和函数等章节，并通过实际案例来加强学生的理解和应用能力。

3. 教学方法：将采用理论讲解和实践操作相结合的方式，确保学生能够及时消化和理解所学知识。

将应用多媒体课件、案例分析、互动讨论等多种形式来激发学生的学习兴趣和积极性。

4. 评估方式：将通过学生的作业、教室表现和实践项目来评估学生的学习效果。

定期进行反馈和指导，帮助学生改进和提高。

5. 准备教学资源：根据教学内容和教学方法，将准备相关教材、教案和教学视频等资源，确保教学过程的顺利进行。

总之，我将以周密的教学态度和丰富的教学经验，为学生提供一个充实、有趣、有效的VB编程学习环境。

等候与学生们共同探索编程世界，激发他们的创新精神和解决问题的能力。

四、教学过程：（一）复习引入复习：之前学过哪些计算机语言？引入：今天我们来学习一门新的计算机语言——Visual Basic （简称VB）。

（二）新授内容1. 认识VB工作环境（1）启动和关闭VB教师演示，学生观察。

提问：启动VB的方法是什么？关闭VB的方法是什么？（2）主窗口的组成教师逐一介绍窗口各区域的作用，并演示。

Visual Basic 程序设计实训大纲目录：第一章 VB开发环境 (1)第二章编程基础 (5)第三章常量和变量 (7)第四章表达式 (12)第七章控制结构 (17)第八章窗体 (19)第九章控件 (20)第一章 VB开发环境实训一实训任务任务一：了解VB的功能、版本任务二：启动VB，用三种方法退出VB任务三：新建一个工程和两个窗体，并保存在D盘的某文件夹中（工程名为：project1，窗体名分别form1和form2—可观察工程资源管理器）反馈习题填空题Visual 的中文含义是 •,指的是开发的方法。

Visual Basic有、、三种版各自满足不同的开发需要。

退出Visual Basic可单击，也可选择菜单中的命令，或按 + 键。

简答题如何启动Visual Basic？写出新建一个工程并保存的步骤。

简述Visual Basic的安装过程。

（附加题）怎样使用VB的帮助系统？（附加题）实训二实训任务任务一：了解VB主界面窗口的组成（如：标题栏、菜单栏、工具条、工具箱、窗体等）任务二：了解各个常用菜单的功能（如：文件、编辑、工程、运行等）任务三：新建一个工程和一个窗体，窗体的名称属性为“frmTest”，Caption属性为“测试窗口”,在窗体中建立一个标签，设置名称属性为“lblTest”，Caption 属性为“显示内容”，ForeColor属性为红色，BorderStyle属性为1，并保存。

任务四：利用菜单、工具栏和右键三种方法来打开属性窗口。

反馈习题填空题Visual Basic的主菜单栏主要包括、、、、、、、、、、、、和等菜单项。

Visual Basic开发环境的中心部分称为。

Visual Basic提供的以树形图的方式对其资源进行管理。

简答题Visual Basic主界面窗口主要由哪几部分组成？简述Visual Basic打开“属性”窗口的三种方法。

设置对象属性的基本步骤是什么？实训三实训任务任务一：打开上次保存的工程，在窗体上创建两个按钮cmdTest和cmdEnd，Caption 属性分别为“测试按钮”和“结束按钮“；打开代码编缉器，在对象列表框中选中cmdTest，在过程列表框中选中click事件，之后在光标处输入print“测试成功！”；同理，在“结束按钮”的click事件中输入“End”,然后运行。

VB程序设计实验报告实验三选择结构程序设计一、实验目的1. 掌握逻辑表达式的正确书写形式。

2. 掌握单分支与双分支条件语句的使用。

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

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

二﹑实验内容4. 编制程序，计算某个学生奖学金的等级（假定只考虑一等奖），以三门功课成绩m1，m2，m3为评奖依据。

奖学金一等奖评定标准如下：(1) 平均分大于95分者。

(2) 有两门成绩是100分，且第三门功课成绩不低于80分者。

5. 编一模拟袖珍计算器的完整程序，界面如图2.3.1所示。

要求：输入两个操作数和一个操作符，根据操作符决定所做的运算。

6．输入一个数字（1～7），用英文显示对应的星期一～星期日。

提示：用Select语句来实现。

三﹑实验步骤4，打开VB后，建立一个命令按钮，输入"奖学金评定"，编辑代码如下:Private Sub command1_Click()Dim m1!, m2!, m3!m1 = InputBox("输入m1 的值")m2 = InputBox("输入m2 的值")m3 = InputBox("输入m3 的值")If (m1 + m2 + m3) / 3 > 95 Or _(m1 = 100 And m2 = 100 And m3 >= 85 Or _m1 = 100 And m3 = 100 And m2 >= 85 Or _m3 = 100 And m2 = 100 And m1 >= 85) ThenMsgBox "一等奖学金"ElseMsgBox "不是一等奖学金"End IfEnd Sub5，打开VB后，建立4个Lebel标签，4个Text文本框，2个Command按钮，如上图。

编辑代码如下：Private Sub Command1_Click()Select Case Trim(Text3)Case "+"Text4.Text = Val(Text1.Text) + Val(Text2.Text)Case "-"Text4.Text = Val(Text1.Text) - Val(Text2.Text)Case "*"Text4.Text = Val(Text1.Text) * Val(Text2.Text)Case "/"Text4.Text = Val(Text1.Text) / Val(Text2.Text)End SelectEnd SubPrivate Sub Command2_Click()EndEnd Sub6, 打开VB后，建立1个Text文本框，1个Command按钮。

实验报告课程名称_程序设计基础Visual Basic_ 班级______ _____＿姓名_____ ____实验一 VB环境和创建一个简单的VB程序一．实验目的：1.了解VB系统对计算机软件、硬件的要求。

2.掌握启动和退出VB的方法。

3.了解和使用VB集成开发环境各窗口、菜单的一般功能。

4.熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。

5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。

二．实验内容：1．设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为”显示”和”清除”。

程序运行后，单击”显示”按钮，在文本框中输出一行信息；单击”清除”按钮，则清除文本框中的内容，运行界面如图1.1所示。

图1.1 实验1-1 运行界面三．实验结果：对象属性设置对象属性属性值说明caption 我的第一个vb程序窗体Form1caption 请输入姓名标签Label1text ““文本框Text1caption 显示命令按钮Command1caption 清除命令按钮Command2四．实验思考：1.标签label控件设置的属性代码有哪些？Label1.Caption=“请输入姓名”Label1.fontsize=24Label1.fontbold=True2.两个按钮所使用的是什么事件？代码分别是什么？Private Sub Command1_Click()Text1.text=“姓名”实验二简单程序设计数据类型及常用内部函数的简单应用一．实验目的：1．掌握Visual Basic数据类型的基本概念。

2．掌握用Visual Basic的各种运算符及表达式。

3．学习使用Visual Basic内部函数和数据输入、输出方法。

4．掌握命令按钮、文本框和标签。

5．设计顺序程序。

二．实验内容：1．编写一个华氏温度和摄氏温度之间的转换程序，如图2-2所示,要求用inputbox函数输入华氏温度，用msgbox输出转换后的摄氏温度。

Visual Basic 程序设计学习与实验指导答案上篇学习指导第1章Visual Basic 概述1.事件2.查看对象3.工程4.视图属性窗口5.窗体编辑器第2章面向对象程序设计初步1.控件2.事件3.类属性4.属性5.略第3章Visual Basic 语言基础1.(a*sin(30/180*3.14)+c*(log(b)/log(10)))/((Abs(d)+1)*(e+f))+12.mod3.X=Int(X) And Y=Int(Y) And X*Y>04. 4.Y Mod 4=0 And Y Mod 100<>0 Or Y Mod 400=05.x=Int((99-10+1)*Rnd+10)6.0 “”7.空格8.6，845.309.（1）8（2）1（3）abcd（4）出错，类型不匹配（5）False（6）2008-6-29（7）I likeVB（8）4（9）4 4（10）3 4（11）10 -10（12）-1（13）aa（14）3（15）0（16）1（17）C（18）5（19）8（20）34.54（21）中国（22）上海（23）VISUAL BASIC（24）visual basic10.（1）x<-100 or x>100（2）a=Int(a) And b =Int(b) Or a<0 And b<0（3）x<=y or x>=z（4）a>0 And a<>Int(a)（5）a=0 xor b=0（6）Len(S)<10（7）UCase(S)=S（8）Left(S,1)=”a” And Right(S,1)=”a”（9）Instr(S,”@”)<>0（10）Trim(S)=S（11）Date=#8/8/2008#（12）Weekday(Date)=2第4章程序控制结构与算法基础一.简单填空1.Randomize2.N=Int((99-10+1)*Rnd+10)3.M=(Int((100-10+1)*Rnd+10))/104.Exit For5.Exit Do二．读程序写结果1.150 122.22 23 -13. 5 3 04.20 40 60三．程序填空1.Len(s)Mid(s,i,1)c>=”A” And c<=”Z”c>=”a” And c<=”z”c>=”0” And c<=”9”n3=n3+12.01 n-1n Mod i=0sum+isum=n3.1000CStr(n)CStr(n*n)Right(s2,Len(s1))=s14.100 2002 N-1Exit Forcount+1count Mod 5=0 Print5.sum=1a*x^2/((2*n-1)*(2*n))sum+aAbs(a)<=0.0000001第5章数组的应用1.120 362.10 31 73.26 14 26三．程序填空1.A(i,j);Picture1.PrintA(i.1)1A(i,j)j“第” & i & “行最大数是” & Max Data & “，第” & Maxj & “列”2.Text1.Text & A(i);kpreserve B(k)B(k)=A(i)3.Sqr(n - m) = Int(Sqr(n - m))ReDim Preserve B(k)nA(m) & "和" & B(m)4.Int((100-50+1)*Rnd+50)1B(i)+1第6章过程四．读程序写结果1.x=2,y=2 m=22.9 4,5,9 273.50 264. 5 64,55.7,14 11,22 15,306.29 29 37.12 25下篇实验教程实验2 Visual Basic 变量、函数与表达式的使用实验2-1 算术运算符的使用13178332262-2-22007-10-153 2.857143 2.85714285714286实验2-2 字符运算符的使用20071020071020172007-10-10102007-10-20出错，类型不匹配实验2-3 关系运算符的使用FalseFalseFalseFalseFalseFalseFalseTrueFalseTrue实验2-4 逻辑运算符的使用TrueTrueFalseTrueFalseFalseTrueTrueFalse5-59实验2-5 常用函数的使用3.14 3.147.389056098930651 -1 .999999998205103 4-1 1 0.70554755825 251250 0A a65 9748 688 -98 -89 -9aaa 4.5 aaa4.516 5Visua 6.0sua Basic Basic 6.0abcde EFGBasic Basic BasicVisual Basic 6.0 Basic8 8aaa dd2011-3-152011-3-15 14:35:5215320113001.731.731.7317.32E-010173%实验3 算法基础及程序控制结构实验3-1 三个数的交换A=CC=BB=TBC实验3-2 求周长和面积Const PI=3.14159262*PI*RPI*R*RPicture1.ClsFormat(L, ".00")Format(M, ".00")实验3-3 求分段函数的值x=Val(Text1.Text)y=1+Sin(x)y=Log(x)Text1.Text = ""Text2.Text = ""实验3-4 求一元二次方程的根Val(Text2.Text)Val(Text3.Text)b ^ 2 - 4 * a * c"x1=" & (-b + Sqr(delt)) / (2 * a)"x2=" & (-b - Sqr(delt)) / (2 * a)Text2.Text = ""Text3.Text = ""End实验3-5 判断素数N Mod k = 0k=NN Mod i=0k=2实验3-6 求最大公约数和最小公倍数M<NL=ML=NM Mod k = 0 And N Mod k = 0Text3.Text = kExit ForM>NL=ML=Nk Mod M = 0 And k Mod N = 0Text4.Text = kExit For实验3-7 判断升序数、降序数CStr(N)Len(S) – 1Mid(S, k, 1) >= Mid(S, k + 1, 1)k = Len(S)N = Val(Text1.Text)S = CStr(N)For k = 1 To Len(S) - 1If Mid(S, k, 1) <= Mid(S, k + 1, 1) Then Exit For Next kk = Len(S)实验3-8 判断回文数1Len(s)\2-1Mid(S, k, 1) <> Mid(S, Len(S) - k + 1, 1)k = Len(S) \ 2Mid(S, k, 1) + S1S = S1实验3-9 求级数的值Val(Text1.Text)1x ^ ns * nt / s <= 10 ^ -6Text2.Text = y实验3-10 查找数字串并求和Text1.Text = ""Text2.Text = ""List1.ClearText1.TextFalseWhile Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" Flag = Truek = k * 10 + Mid(s, i, 1)i = i + 1Flag = Truesum + kText2.Text = sum实验3-11 随机产生20个奇数Int((99 - 10 + 1) * Rnd) + 10a Mod 2 = 1n Mod 5 = 0Picture1.Cls实验3-12 加密解密Chr(Asc("a") + (Asc(c) - Asc("a") + 3) Mod 26)c = Chr(Asc("A") + (Asc(c) - Asc("A") + 3) Mod 26) c & s2Text2.TextLen(s2)Mid(s2, i, 1)c = Chr(Asc("a") + (Asc(c) - Asc("a") + 23) Mod 26) c = Chr(Asc("A") + (Asc(c) - Asc("A") + 23) Mod 26) c & s1s1Text1.Text = ""Text2.Text = ""实验3-13 统计单词个数Text1.TextMid(s, i, 1) <> " " And i <= Len(s)i = i + 1Mid(s, start, i - start)nText1.Text = ""List1.Clear实验4 数组的使用实验4-1 一维数组的产生及输出i = 1 To 20Int((9 - 0 + 1) * Rnd + 0)i = 1 To 20Print a(i);Printi = 1 To 20Picture1.Print a(i);If i Mod 5 = 0 Then Picture1.Printi = 1 To 20Text1.Text & Space(2) & a(i)If i Mod 5 = 0 Then Text1.Text = Text1.Text & vbCrLf v In aIf i Mod 5 = 0 Then Picture2.Print实验4-2 选手得分Int((50 - 10 + 1) * Rnd + 10) / 10i = 1 To 6sum = sum + score(i)max = score(1)min = score(1)score(i) > max Then max = score(i)score(i) < min Then min = score(i)(sum - max - min) / 4实验4-3 产生10个互不相同的整数Int((999 - 10 + 1) * Rnd + 10)t Mod 10 = 5Then Exit Forn= n + 1a(i) = tFor i = 1 To 10Print a(i);If i Mod 5 = 0 Then PrintNext i实验4-4 统计数字出现的次数IsNumeric(S) = FalseExit SubLen(S)c >= "0" And c <= "9"A(c) = A(c) + 1A(k) <> 0m = m + 1实验4-5 排序1 To 10Int((99 - 10 + 1) * Rnd + 10)Text1.Text & A(n) & " "1 To 9i + 1 To 10A(i) > A(j)T = A(j)A(j) = A(i)A(i) = T1 To 910 - iA(j) > A(j + 1)T = A(j + 1)A(j + 1) = A(j)A(j) = T1 To 10Text3.Text = Text3.Text & A(i) & " "10T = A(i)ji - 1k + 11 To 10Text4.Text = Text4.Text & A(i) & " "实验4-6 二维数组的产生及输出1 To 41 To 5Int((9 - 0 + 1) * Rnd + 0)1 To 41 To 5Print A(i, j);Print1 To 41 To 5Picture1.Print A(i, j);Picture1.Print1 To 41 To 5Text1.Text = Text1.Text & A(i, j) & " "Text1.Text = Text1.Text & vbCrLf实验4-6 查找最大和最小元素及其位置1 To 31 To 4A(i, j) = Int((99 - 10 + 1) * Rnd + 10)Picture1.Print A(i, j);Picture1.PrintA(1, 1)， 1， 1A(1, 1)， 1， 1A(i, j)ijA(i, j) < minA(i, j)ij"最大元素" & "A(" & maxi & "," & maxj & ")=" & max "最小元素" & "A(" & mini & "," & minj & ")=" & min实验4-7 矩阵转置Dim A() As Integer"请输入N的值"ReDim A(N, N) As IntegerFor i = 1 To NFor j = 1 To NA(i, j) = Int((99 - 10 + 1) * Rnd + 10)Text1.Text = Text1.Text & A(i, j) & " "Next jText1.Text = Text1.Text & vbCrLfNext it = A(i, j)A(i, j) = A(j, i)A(j, i) = tFor i = 1 To NFor j = 1 To NText2.Text = Text2.Text & A(i, j) & " "Next jText2.Text = Text2.Text & vbCrLfNext i实验5 过程实验5-1 孪生素数和降序素数Dim i As IntegerFor i = 2 To N - 1If N Mod i = 0 Then Exit FunctionNext iPrime = TrueDim a As IntegerDim b As Integera = N \ 10b = N Mod 10If a > b ThenDecNumber = TrueElseDecNumber = FalseEnd If10 To 100Prime(i) = True And Prime(i + 2) = TrueList2.AddItem i & "和" & i + 2DecNumber(i) = True And Prime(i) = TrueList3.AddItem i实验5-2 求多项式和k = 1a = f(x, k)S + ak = k + 1Single As SingleDim i As Integer, a As Singlea = (x + 1) / xFor i = 2 To ka = a * (x + i) / ((2 * i - 1) * x)Next ia实验5-3 进制转换Asc(C) - Asc("A") + 10Left(S, k - 1)Mid(S, k + 1)Change(Mid(S2, i, 1)) * N ^ (0 - i)T1 + T2Tran(8, S)Tran(16, S)Not (C >= "0" And C <= "7" Or C >= "A" And C <= "F" Or C = ".")实验5-4 Armstrong数i As Long, a As Long, b As LongCombo1.Text实验5-5Option Base 1Dim a(5) As IntegerDim b(5) As Integerb(i) = i * i + 1Text2.Text = Text2.Text & b(i) & " "1 To 51 To 5Gcd(a(i), b(j)) = 1Gcd = KExit For实验5-6Create(a)Output(a)Sort(a)Output(a)GetMaxMin(a, MaxData, MinData)MaxDataMinDataAverage(a)Int((99 - 10 + 1) * Rnd + 10)1 To UBound(a)a(i);a(i) > a(j)t = a(j)a(j) = a(i)a(i) = t2 To UBound(a)a(i) > MM = a(i)a(i) < NN = a(i)s = s + a(i)Average = s / UBound(a)实验6 界面设计实验6-1 用户登陆MsgBox "请登录！"PassWordInput=TxtPassW.TextUserIdInput=UserId And PassWordInput=PassWordCmdReset_Click实验6-2 学籍登记OptXb(0).Value = TrueList1.AddItem Space(4) & xh & Space(6) & xm & Space(6) & xb & Space(12) & xy & Space(16) & zy & Space(4)List1.RemoveItem List1.ListIndex实验6-3 字体格式设置Select Case OpFontCheck2.Value = 1OpColor = IndexOpFont = Index实验6-4 兴趣调查List1.AddItem ItemEndSelect Case IndexItem = Text1.Text实验6-5 调色板。