山东建筑大学VB考试程序汇总
- 格式:doc
- 大小:649.00 KB
- 文档页数:9
专升本vb程序设计试题及答案一、选择题(每题2分,共20分)1. 在VB中,以下哪个关键字用于声明类模块中的方法?A. FunctionB. SubC. PropertyD. Class答案:B2. VB中的单精度浮点数类型是什么?A. IntegerB. SingleC. DoubleD. Long答案:B3. 如果想要在VB中实现多态,可以使用哪种机制?A. 继承B. 接口C. 重载D. 封装答案:B4. 在VB中,以下哪个控件可以用于显示图像?A. LabelB. PictureBoxC. TextBoxD. ComboBox答案:B5. VB中的“Option Explicit”语句的作用是什么?A. 声明变量类型B. 强制变量声明C. 定义常量D. 创建对象实例答案:B6. 在VB中,如何实现一个事件处理程序?A. 使用Sub过程B. 使用Function过程C. 使用Property过程D. 使用Handles关键字答案:D7. 如果要使一个变量在多个窗体之间共享,应该使用哪种变量作用域?A. PublicB. PrivateC. FriendD. Protected答案:A8. 在VB中,以下哪个不是标准的控件属性?A. NameB. TextC. VisibleD. Color答案:D9. VB中的“With”语句用于什么目的?A. 初始化对象B. 创建对象实例C. 链式调用同一对象的多个属性或方法D. 定义对象的生命周期答案:C10. 在VB中,以下哪个不是Visual Basic Power Packs控件?A. LineB. OvalC. ShapeD. DataGrid答案:D二、填空题(每空2分,共20分)11. VB中的“_____”关键字用于定义一个类。
答案:Class12. 当需要在VB中捕获并处理异常时,可以使用“_____”语句。
答案:Try...Catch13. 在VB中,一个窗体的标题可以通过“_____”属性来设置。
专升本vb程序设计试题及答案一、选择题(每题2分,共20分)1. 在Visual Basic中,以下哪个关键字用于声明变量?A. DimB. SubC. FunctionD. Const答案:A2. 下列哪个选项是Visual Basic中的单行注释符号?A. //B. /* */C. 'D. ' '答案:C3. 在Visual Basic中,下列哪个函数用于计算数组中元素的个数?A. UBoundB. LBoundC. CountD. Len答案:A4. 如果要创建一个名为“Form1”的窗体,应该使用哪个关键字?A. FormB. SubC. FunctionD. Class5. 在Visual Basic中,下列哪个选项是正确的事件处理程序的声明方式?A. Sub Form1_Click()B. Sub Form1_Click(ByVal sender As Object, ByVal e As EventArgs)C. Function Form1_Click()D. Function Form1_Click(ByVal sender As Object, ByVal e As EventArgs)答案:B6. 下列哪个选项是Visual Basic中的逻辑运算符?A. AndB. OrC. NotD. All of the above答案:D7. 在Visual Basic中,哪个关键字用于退出当前的Sub过程?A. ExitB. EndC. ReturnD. Stop答案:A8. 在Visual Basic中,下列哪个选项是正确的条件语句?A. If...ThenB. Do...LoopC. For...NextD. Switch...Case9. 在Visual Basic中,下列哪个选项用于创建一个标签控件?A. LabelB. TextBoxC. ButtonD. ComboBox答案:A10. 在Visual Basic中,下列哪个选项用于创建一个文本框控件?A. LabelB. TextBoxC. ButtonD. ComboBox答案:B二、填空题(每题2分,共20分)1. 在Visual Basic中,使用________关键字可以声明一个常量。
大学vb考试题及答案一、单项选择题(每题2分,共20分)1. VB中,用于声明变量的关键字是:A. DimB. ConstC. StaticD. Public答案:A2. 在VB中,以下哪个是正确的字符串连接运算符?A. +B. &C. *D. /答案:B3. VB中,以下哪个函数用于将字符串转换为数值?A. ValB. StrC. CIntD. CStr答案:A4. 以下哪个控件用于在VB中显示文本?A. LabelB. TextBoxC. ComboBoxD. CheckBox答案:A5. 在VB中,以下哪个事件是当窗体加载时触发的?A. ClickB. LoadC. MouseDownD. KeyPress答案:B6. VB中,以下哪个关键字用于定义子程序?A. FunctionB. SubC. ClassD. Module答案:B7. 在VB中,以下哪个控件允许用户选择一个选项?A. OptionButtonB. CheckBoxC. RadioButtonD. ListBox答案:C8. VB中,以下哪个函数用于获取当前日期?A. NowB. DateC. TimeD. Day答案:B9. 在VB中,以下哪个属性用于设置控件的可见性?A. VisibleB. EnabledC. CaptionD. Text答案:A10. VB中,以下哪个循环结构用于重复执行代码块直到满足特定条件?A. ForB. Do WhileC. WhileD. For Each答案:B二、填空题(每空2分,共20分)1. VB中,使用________关键字可以声明一个数组。
答案:Dim2. 如果需要在VB中捕获并处理异常,可以使用________语句。
答案:Try...Catch3. VB中,使用________函数可以返回一个随机数。
答案:Rnd4. 在VB中,使用________方法可以清除文本框中的内容。
全国计算机等级考试辅导材料Visual Basic程序设计基础冲刺阶段要点(必考知识点梳理与总结)Visual Basic程序设计基础知识要点(概念分析篇)知识点1:(1)在工程资源管理器窗口中可以包括:工程文献、窗体模块文献、原则模块文献和类模块文献(其中可以包括许多多种文献类型)。
(2)Visual Basic应用程序可以以解释方式执行和编译方式执行。
例题:(1)如下论述中错误旳是 AA.在工程资源管理器窗口中只能包括一种工程文献及属于该工程旳其他文献。
B.以.bas为扩展名旳文献是原则模块文献。
C.窗体文献包括该窗体及其控件旳属性。
D.一种工程中可以有多种原则模块文献。
(2)如下论述中错误旳是 CA.打开一种工程文献时,系统自动装入与该工程有关旳窗体、原则模块等文献。
B.保留Visual Basic程序时,应分别保留窗体文献及工程文献。
C.Visual Basic应用程序只能以解释方式执行。
D.事件可以由顾客引起,也可以由系统引起。
知识点2:(1)窗体和多种控件旳名称(Name)是唯一旳,用来标识一种窗体或控件旳。
而窗体和控件旳标题是用来阐明旳,是可有可无旳。
(2)多种控件之间有部分相似旳属性,并不是拥有所有属性。
控件有些属性只能在属性窗口中设置,但也有少数属性只能在代码状态设置。
(3)Form1.Hide措施和Unload Form1措施旳区别:第一种措施窗体消失但仍存在于内存中;第二个措施窗体消失并不存在于内存中。
例题:(1)如下论述中对旳旳是 AA.窗体旳Name属性指定窗体旳名称,用来标识一种窗体。
B.窗体旳Name属性旳值是显示在窗体标题栏中旳文本。
C.可以在运行期间变化对象旳Name属性旳值。
D.对象旳Name属性值可认为空。
(2)如下论述中错误旳是 CA.Visual Basic是事件驱动型可视化编辑工具。
B.Visual Basic应用程序不具有明显旳开始和结束语句。
C.Visual Basic工具箱中旳所有控件都具有Width和Height属性。
vb会考考试题库及答案1. 以下哪个选项是Visual Basic(VB)中声明变量的正确方式?A. Dim myVarB. Dim myVar As IntegerC. Dim myVar As StringD. All of the above答案:D2. 在VB中,如何将字符串"Hello"和"World"连接起来?A. "Hello" + "World"B. "Hello" & "World"C. Concat("Hello", "World")D. Join("Hello", "World")答案:B3. VB中哪个关键字用于定义一个子程序?A. FunctionB. SubC. ClassD. Module答案:B4. 在VB中,以下哪个选项不是控制结构?A. If...Then...ElseB. For...NextC. While...WendD. Print答案:D5. VB中如何声明一个整型数组?A. Dim myArray() As IntegerB. Dim myArray(10) As IntegerC. Dim myArray As Integer()D. Dim myArray(0 To 10) As Integer答案:A6. 在VB中,哪个函数用于将字符串转换为整数?A. StrConvB. CIntC. ValD. Convert.ToInt32答案:B7. VB中如何使用For循环遍历数组?A. For i = 0 To UBound(myArray) - 1' Code hereNext iB. For i = 0 To myArray.Length - 1' Code hereNext iC. For Each i In myArray' Code hereNextD. For i = 1 To myArray.Length' Code hereNext i答案:A8. 在VB中,如何声明一个具有默认参数值的函数?A. Function myFunction(Optional ByVal myParam As Integer = 10) As IntegerReturn myParamEnd FunctionB. Function myFunction(ByVal myParam As Integer = 10) As IntegerReturn myParamEnd FunctionC. Function myFunction(myParam As Integer = 10) As IntegerReturn myParamEnd FunctionD. Function myFunction(myParam As Integer, Optional ByVal myParam2 As Integer = 10) As IntegerReturn myParam + myParam2End Function答案:A9. VB中哪个关键字用于创建一个类的实例?A. NewB. InstanceC. CreateD. Class答案:A10. 在VB中,如何使用事件处理程序?A. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click' Code hereEnd SubB. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)' Code hereEnd SubC. Private Sub Button1_Click()' Code hereEnd SubD. Private Sub Button1_Click(ByVal sender As System.EventArgs) Handles Button1.Click' Code hereEnd Sub答案:A。
vb考试题及答案随着计算机技术的发展,程序设计语言在软件开发中扮演着重要的角色。
Visual Basic(简称VB)是一种面向对象的高级编程语言,被广泛应用于Windows平台下的软件开发。
为了帮助大家更好地掌握VB 编程知识,本文将提供一些VB考试题及答案,希望对大家的学习和复习有所帮助。
1. VB中,如何声明一个整型变量?答案:使用关键字Dim来声明变量,例如:Dim num As Integer2. VB中,如何进行条件判断?答案:可以使用关键字If...Then...Else来进行条件判断,例如:If condition Then' 条件为真时执行的代码Else' 条件为假时执行的代码End If3. VB中,如何使用循环结构?答案:可以使用关键字For、While或者Do...Loop来实现循环,例如:For i As Integer = 1 To 10' 循环体,执行10次Next4. VB中,如何定义一个函数?答案:使用关键字Function来定义函数,例如:Function AddNumbers(ByVal num1 As Integer, ByVal num2 As Integer) As IntegerReturn num1 + num2End Function5. VB中,如何处理异常?答案:可以使用关键字Try...Catch...Finally来处理异常,例如:Try' 可能会引发异常的代码块Catch ex As Exception' 处理异常的代码块Finally' 无论是否发生异常,都会执行的代码块End Try6. VB中,如何创建一个类?答案:使用关键字Class来创建一个类,例如:Public Class MyClass' 类的成员和方法End Class7. VB中,如何使用MessageBox显示消息框?答案:可以使用MessageBox.Show方法来显示消息框,例如:MessageBox.Show("Hello World!")8. VB中,如何读取和写入文件?答案:可以使用System.IO命名空间下的File类来读取和写入文件,例如:Dim content As String = File.ReadAllText("C:\example.txt")File.WriteAllText("C:\example.txt", "Hello World!")9. VB中,如何使用数据库连接?答案:可以使用System.Data命名空间下的SqlConnection和SqlCommand等类来进行数据库连接和操作,例如:Dim connectionString As String = "DataSource=myServerAddress;Initial Catalog=myDataBase;UserId=myUsername;Password=myPassword;"Using connection As New SqlConnection(connectionString)connection.Open()' 执行数据库操作End Using10. VB中,如何创建和使用数组?答案:可以使用Dim语句来创建数组,例如:Dim numbers(9) As Integer' 对数组进行赋值numbers(0) = 1...numbers(9) = 10以上是一些VB考试题及答案的示例,希望能够帮助大家更好地理解和掌握VB编程知识。
计算机二级《VB》考试基础知识:程序
2015年计算机二级《VB》考试基础知识:程序
一、程序的保存和装入
(一)保存程序
Visual Basic应用程序可以用4种类型的文件保存。
一类是单独的窗体文件,扩展名为
.frm;一类是公用的标准模块文件,扩展名为.bas;第三类是类模块文件,扩展名为.cls(本书不涉及类模块文件);第四类是工程文件,这种文件由若干个窗体和模块组成,扩展名为.vbp。
(二)程序的装入
一个应用程序包括4类文件,即窗体文件、标准模块文件、类模块文件和工程文件,这4类文件都有自己的文件名。
但只要装入工程文件,就可以自动把与该工程有关的其他3类文件装入内存。
二、程序的运行
(一)运行模式
Visual Basic应用程序可以在两种模式下运行,一种是解释运行模式,一种是编译运行模式。
(二)运行程序
1.解释运行
2.生成可执行文件
三、Visual Basic应用程序的结构与工作方式
(一)Visual Basic应用程序的'构成
Visual Basic应用程序通常由3类模块组成,即窗体模块、标准模块和类模块。
(二)事件驱动
事件是可以由窗体或控件识别的操作。
事件驱动应用程序的典型操作序列为:
(1)启动应用程序,加载和显示窗体;
(2)窗体或窗体上的控件接收事件。
事件可以由用户引发(例如键盘
操作),可以由系统引发(例如定时器事件),也可以由代码间接引发(例如,当代码加载窗体时的Load事件);
(3)如果相应的事件过程中存在代码,则执行该代码;
(4)应用程序等待下一次事件。
《VB程序设计》计算机⽔平等级考试样题及参考答案全国⾼等学校计算机⽔平考试《Visual Basic程序设计》考试样题(⼀)、理论题(20分,每⼩题1分)1.在正常安装Visual Basic6.0后,可以通过多种⽅式启动Visual Basic。
以下⽅式中不能启动Visual Basic的是:____D____A)通过“开始”菜单中的“程序”命令B)通过“我的电脑”找到vb6.exe,双击该⽂件名C)通过“开始”菜单中的“运⾏”命令D)进⼊DOS⽅式,执⾏vb6.exe⽂件2.每当窗体失去焦点时会触发的事件是___C____A)ActiveB)DeactiveC)LostFocusD)Initialize3.为了同时改变⼀个活动控件的⾼度和宽度,正确的操作是:___B_____A) 拖拉控件4个⾓上的某个⼩⽅块B) 只能拖拉位于控件右下⾓的⼩⽅块C) 只能拖拉位于控件左下⾓的⼩⽅块D) 不能同时改变控件的⾼度和宽度4. 假定窗体的名称为Form1,对该窗体编写如下代码:Private Sub Form_Load()Form1.Caption=”AAAAA”Me.Caption=”BBBBB”Capt ion=”CCCCC”End Sub程序运⾏后,窗体的标题是__C___A)AAAAAB)BBBBBC)CCCCCD)显⽰出错信息5.__A___属性设置窗体中⽂本和图形的背景颜⾊A)BackColorB)ColorC)TextD)ForeColor6.为了防⽌⽤户随意将光标置于控件上,应该__D__A) 将控件的TabIndex属性设置 0B) 将控件的TabStop属性设置为0C) 将控件的TabStop属性设置为FalseD) 将控件的Enabled属性设置为False7.语句Z=y+1代表___A______A)变量Z取得y+1的值B)变量Z取得变量y的值,然后再加上1的⼀个表达式C)将变量Z存⼊变量y中,再加上1的表达式D)将变量Z存⼊变量y+1中8.下列程序的运⾏结果是_____A____A=5B=-5C=NOT A=BPRINT CA)TrueB)-5C)0D)⽆法输出9.在窗体上画⼀个命令按钮(名称为Command1)编写如下事件过程:Private Sub Commmand1_Click()b=1c=3print a=b+cEnd Sub程序运⾏后,单击命令按钮,输出的结果是_D___A)a=3B)a=b+cC)3D)False10.设有如下的程序段:a$=”BeijingShanghai”b$=Mid(a$,instr(a$,”g”)+1)执⾏上⾯的程序段后,变量b$的值为__B____A)BeijingB)S hanghaiC)B eijingShanghaiD)显⽰出错信息11.下列语句的输出结果是_C___a=sqr(3.61)Print Format(a,”000.000”)A)1.900B)1.9C)001.900D)001.912.执⾏下⾯的代码,在图⽚框中显⽰的是___B___ Private Sub Command_Click()Picture1.print “Bbb”End SubA)名为”Bbb”的图形⽂件B)⽂本”Bbb”C)不显⽰任何信息D)出错13. 在VB中,下列_C__控件属于容器控件A)GridB)TextBoxC)FrameD)CheckBox14. 下列程序的输出结果是__C___Private Sub Command1_Click()For I=1 to 3Print chr(Asc(“a”)+I-1)NextEnd subA)ABCB)97 98 99C)abcD)bcd15. 设 a=10,则执⾏x=iif(a>7,-1,0)后,x的值是_D_A)7B)10C)0D)-116. 阅读程序:Function func(n As Integer) As IntegerSum=0For I=1 to nSum=Sum+(I+1)*INext IFunc=SumEnd FunctionPrivate Sub Command1_Click()Dim a As Integera=3s=func(a)print sEnd Sub程序运⾏后,单击命令按纽,输出结果为:_B___A)15B)20C)8D)3017.假设在窗体上已经添加了通⽤对话框CommonDialog控件并设置好属性,其名称是CommonDialog1,在程序中要显⽰“打开”对话框,使⽤语句是:_A___A)CommonDialog1.Action=1B)CommonDialog1.Action=2C)CommonDialog1.Action=3D)CommonDialog1.Action=418.在窗体上画两个标签和⼀个命令按钮,其名称分别为Label1、Label2和Command1,然后编写如下程序:Private Sub func(L as label,ByVal a As integer)L.Caption=”1234”a=a*aEnd SubPrivate Sub Form_Load()Label1.Caption=”ABCD”Label2.Caption=10End SubPrivate Sub Command1_Click()a=val(Label2.Caption)call func(label1,a)label2.caption=aEnd Sub程序运⾏后,单击命令按纽,在两个标签Label1和Label2中显⽰的内容分别是_D_A) ABCD和10B) 1234和100C) ABCD和100D) 1234和1019. 要判断在⽂本框内是否按下了回车键,可以在⽂本框的_C__事件过程中进⾏判断A) ChangeB) ClickC) KeyPressD) GotFocus20. 下列控件可以⽤来显⽰⽂件的是__B_A)DirListBoxB)F ileListBoxC)D riveListBoxD)ListBox(⼆)操作题1.简单操作(35分)(1)在Form1的窗体上画⼀个命令按钮,名称为Command1,标题为“未按下”。
《vb程序设计》期末复习题及答案一、填空题1.创建一个VB应用程序三个主要的步骤是__________________、________________和_____________________。
2.当程序运行时,要求窗体中的文本框呈现空白,则在设计时,应当在此文本框的__________窗口中,把此文本框的_____________属性设置成空白。
3.Label和TextBox控件用来显示和输入文本,如果仅需要让应用程序在窗体中显示文本信息,可使用___________控件;若允许用户输入文本,则应使用_____________控件。
4.窗体的常用方法有__________、___________、___________和___________。
5.要想在代码中给名为txtshow的文本框赋予文本:GOOD WORK ,应当编写的语句是____________________________________。
6.若命令按钮的名称为Cmdopen,程序要求单击该命令按钮时,打开一个窗口frm1,请对以下事件过程填空。
Private Sub Cmdopen_ ________________________________End Sub7.Visual Basic 6种类型的表达式是______________、______________、______________、________________、_________________、____________________。
Visual Basic根据表达式的___________来确定表达式的类型。
8.表达式93 \ 7 Mod 2 ^ 2 的值是___________。
9.已知a=3,b=4,c=5,表达式a>b and Not c>a Or c>b And c<a+b的值是_________。
表达式c>a And Not b<c的值是___________。
全国计算机vb考试试题及答案VB(Visual Basic)是一种基于事件驱动的编程语言,广泛应用于软件开发领域。
全国计算机VB考试试题及答案是针对VB编程技能进行考核的一套完整题目和对应的答案。
本文将提供一些典型的VB考试试题及其答案,以供学习和参考使用。
一、选择题1. 下列哪个不是VB中的数据类型?A. IntegerB. StringC. BooleanD. Point答案:D2. VB中定义变量需要使用关键字:A. DimB. PrivateC. VarD. Let答案:A3. 下列哪个事件是Windows窗体的加载事件?A. ClickB. LoadC. MouseMoveD. KeyDown答案:B4. 在VB中,使用MsgBox函数可以弹出:A. 消息对话框B. 输入对话框C. 选择对话框D. 文件对话框答案:A5. 下列哪个方法可以用于将一组数据绑定到ListBox控件上?A. AddItemB. RemoveItemC. ClearD. DataSource答案:D二、填空题1. VB中通过使用____来表示一行注释。
答案:'(单引号)2. 在VB中,可以使用____控件来显示表格数据。
答案:DataGridView3. 在VB中,使用____关键字可以实现条件判断。
答案:If4. 在VB中,____是一种常用的循环结构。
答案:For5. MsgBox函数中,使用____参数可以指定消息框的按钮。
答案:Buttons三、编程题请编写一个VB程序,实现以下功能:1. 创建一个Windows窗体,窗体标题为“学生成绩管理系统”。
2. 在窗体中添加一个Label控件,显示文本为“请输入学生姓名:”。
3. 添加一个TextBox控件,用于接收用户输入的学生姓名。
4. 添加一个Button控件,显示文本为“查询”。
5. 当用户点击“查询”按钮时,弹出消息框,显示用户输入的学生姓名。
学生成绩(原版)饭店点菜学生成绩(依次输入)滚动字幕字母统计(原版)字母统计(学生)试题图形(1)图形(2)鸡兔同笼(原版)鸡兔同笼(完美版)百元买百鸡-穷举法优化下料(完善版程序)猴子吃桃——递推法(完善版)100以内的素数57倍数的和-累加(最终结果为1680)Move(方法1)Move(方法2)方案一form-click(不到一分钟按一分钟)方案二time-mid 方案三time-hour方法一:三重循环方法二:单循环取整函数分离三位数方法三:取模整除函数实验二:1、温度转换Private Sub Command1_Click()f = Val(Text1.Text)c = (f - 32) * 5 / 9Text2.Text = Str(c)End SubPrivate Sub Command2_Click()c = Val(Text2.Text)f = 9 * c / 5 + 32Text1.Text = Str(f)End Sub3、Print方法练习Private Sub Form_Click()For i = 1 To 5Print Tab(i); String(6 - i, "*"); Spc(6); String(i, "*") Next iEnd Sub4、圆周长面积Private Sub Command1_Click()Dim r!, m!, z!Const p = 3.14r = InputBox("请输入半径")m = p * r * r / 4z = 2 * p * rPrint "圆的面积为:", mPrint "圆的周长为:", zEnd Sub5、鸡兔同笼Private Sub Form_Click()Dim m%, n%m = InputBox("请输入总头数")n = InputBox("请输入总脚数")If n Mod 2 = 0 And n >= 2 * m And n <= 4 * m Theny = n / 2 - mx = m - yElseMsgBox "参数错误,请重新输入!"End IfPrint "已知,总头数m为:"; m, "总脚数n为:"; n Print "求得,鸡数x为:"; x, "兔数y 为:"; y End Sub实验三:2、计算电话费Private Sub Command1_Click()Dim st!, hours!, Money!'Dim date1 As Data, date2 As Datadate1 = CDate(Text1.Text)date2 = CDate(Text2.Text)st = DateDiff("s", date1, date2) / 60 '求两时间相差的分钟数Text3.Text = Format(st, "0.00") + " 分钟"If st <= 3 Then '计算通话费Money = 0.5ElseMoney = 0.5 + (st - 3) * 0.15End Ifhours = Val(Mid(Text1, 1, 2))If hours < 7 Or hours > 19 Then '是否在优惠的时间段内Money = Money * 0.5End IfText4.Text = Format(Str(Money), "¥0.00") + " 元"End Sub实验四:1、水仙花数Private Sub Form_Click()Dim i%, a%, b%, c%For a = 1 To 9For b = 0 To 9For c = 0 To 9If a * 100 + b * 10 + c = a * a * a + b * b * b + c * c * c ThenPrint a * 100 + b * 10 + cEnd IfNext cNext bNext aEnd Sub2、猴子吃桃Private Sub Command1_Click()Dim n%, i%x = 1Print "第七天桃子数为:"; x; "只"For i = 6 To 1 Step -1x = (x + 1) * 2Print "第"; i; "天的桃子数为:"; x; "只"Next iEnd Sub3、钢管下料Private Sub Command1_Click()Dim r%, a%, b%r = 321For b = 1 To 321 \ 27For a = 1 To 321 \ 17 - bt = 321 - b * 27 - a * 17If t >= 0 And t < r Thenr = tia = aib = bEnd IfNext aNext bPrint Tab(20); "17m长料下"; ia; "段"Print Tab(20); "27m长料下"; ib; "段"Print Tab(20); "余料="; r; "最少"End Sub实验五:1、字符串统计Private Sub Command1_Click()Dim a(1 To 26) As Integer, c As String * 1le = Len(Text1) '求字符串的长度For I = 1 To lec = UCase(Mid(Text1, I, 1)) '取一个字符,转换成大写If c >= "A" And c <= "Z" Thenj = Asc(c) - 65 + 1 '将A~Z大写字母转换成1~26的下标a(j) = a(j) + 1 '对应数组元素加1End IfNext IFor j = 1 To 26 '输出字母及其出现的次数If a(j) > 0 Then Picture1.Print " "; Chr(j + 64); "="; a(j);Next jEnd Sub2、统计成绩Private Sub Command1_Click()Dim mark(1 To 100) As Integer, aver!, n%, i%aver = 0For i = 1 To 100mark(i) = Int(Rnd * 101)aver = aver + mark(i)Next iaver = aver / 100n = 0For i = 1 To 100If mark(i) > aver Then n = n + 1Next iPrint aver, nEnd Sub实验六:1、点菜Private Sub Form_Load()List1.AddItem "宫爆鸡丁10元"List1.AddItem "鱼香肉丝8元"List1.AddItem "青菜蘑菇6元"List1.AddItem "清蒸鲈鱼20元"List1.AddItem "红烧牛肉15元"End SubPrivate Sub Command1_Click()Dim i As Integer, money As SingleList2.ClearFor i = 0 To List1.ListCount - 1If List1.Selected(i) ThenList2.AddItem List1.List(i)End IfNextEnd Sub2、滚动字幕Private Sub Form_Load()Timer1.Interval = 100HScroll1.Min = 1HScroll1.Max = 10HScroll1.Value = 5HScroll1.SmallChange = 1rgeChange = 2Label1.Top = Int(Rnd * ScaleHeight)Label1.FontSize = Int(1 + Rnd * 30)Label1.Left = Form1.WidthEnd SubPrivate Sub Timer1_Timer()Label1.Move Label1.Left - HScroll1.Value * 100 If Label1.Left < 0 ThenLabel1.Left = Form1.WidthLabel1.Top = Int(Rnd * ScaleHeight)Label1.FontSize = Int(1 + Rnd * 30)End IfEnd Sub。