VB实验所有实验题目

合集下载

《程序设计基础—VB程序实验》

《程序设计基础—VB程序实验》说明：实验1和实验2均为电子实验报告，后面8个实验是纸制实验报告。

实验1 计算机基本操作实验目的⑴熟悉计算机，能够正确进行开、关机操作。

⑵熟悉键盘，掌握键盘上所有字符的输入，掌握正确的指法，能够进行中、英文切换。

⑶理解操作系统概念，掌握Windows XP的基本操作，能够利用“控制面板”进行一些参数的设置。

⑷知道“回收站”的功能，学会有关文件、文件夹的基本操作。

⑸学会在计算机上搜索或查找相关的文件或文件夹，掌握通配符的使用。

实验内容⑴熟悉上机实验的计算机，熟悉键盘，学会中、英文输入方式的转换。

⑵学会用正确的指法进行输入，知道键盘上所有字符的输入。

⑶利用“控制面板”修改系统时间、桌面背景、鼠标属性。

⑷在桌面上新建一个文件夹，该文件夹以学生自己的名字+班级+学号的后3位命名。

⑸用文本方式或Word文档，写一段字数不少于300字的自我介绍，以1.doc命名并保存到上述文件夹中。

⑹将上述文件夹复制到ftp://10.10.9.222上。

实验2 常用软件的基本操作实验目的⑴了解Word功能，掌握Word的基本操作，包括页眉/页脚的设置、分栏、页面设置、添加底纹等。

⑵学会文件的保存与打开、打印预览、段落的间隔、首字符位置改变等，能够在Word中插入图片、表格、艺术字、特殊符号等。

⑶了解Excel的功能，掌握Excel的基本操作，包括单元格属性的设置、数字的几种填充形式、单元格的合并与恢复、边框的设置等。

⑷掌握Excel的基本公式的使用，能够用公式进行基本计算。

掌握Excel中的图形制作方法，能够根据表格做出图形。

实验内容⑴将ftp上自己文件夹中的1.doc文件复制到桌面上，然后做如下处理：①将标题“自我介绍”居中；②将文章中第二段的内容进行分栏，要求中间有分割线；③插入一个4行4列的表格，内容为学号、姓名、某门课的成绩；④任意插入一张图片；⑤在文章中的任意位置加底纹。

将做好的文档以2.doc命名并保存。

VB经典的程序设计题

累加求和1到100Private Sub Command1_Click()Dim i As Integer, sum As Integersum = 0For i = 1 To 100sum = sum + iNextText1.Text = sumEnd SubPrivate Sub Command2_Click()EndEnd Sub1到100的奇数和Private Sub Command1_Click()Dim i As Integer, sum As Integersum = 0For i = 1 To 100 step 2sum = sum + iNextText1.Text = sumEnd SubPrivate Sub Command2_Click()End求n!Private Sub Command1_Click()Dim fact As Double, n As Integer, i As Integer n = Val(Text1.Text)fact = 1For i = 1 To nfact = fact * iNextText2.Text = factEnd Sub累加求和1到100（Do while）Private Sub Command1_Click()Dim i As Integer, sum As Integersum = 0i = 1Do While i <= 100sum = sum + ii = i + 1LoopText1.Text = sumEnd SubPrivate Sub Command2_Click()EndEnd Sub（Do Until）Private Sub Command1_Click()Dim i As Integer, sum As Integersum = 0i = 1Do until i >100sum = sum + ii = i + 1LoopText1.Text = sumEnd SubPrivate Sub Command2_Click()EndEnd Sub求平均成绩Private Sub Command1_Click()Dim a As Single, b As Single, c As Single, d As Single Dim pj As Singlea = 60:b = 70:c = 80:d = 90pj = (a + b + c + d) / 4Text1.Text = Str(pj)End Sub求圆的周长Private Sub Command1_Click()Dim r As DoubleConst pi = 3.1415926r = Val(InputBox("请输入圆的半径"))Print "圆的周长为:", 2 * pi * rEnd Sub输入两个整数m n，使得m>=n,并输出m nPrivate Sub Command1_Click()Dim m As Integer, n As Integer, a As Integerm = Val(InputBox("请输入m:", 输入, "m"))n = Val(InputBox("请输入n:", 输入, "n"))If n > m Thena = mm = nn = aEnd IfPrint "m=", mPrint "n=", nEnd Sub计算sum=1/1!+1/2!......+1/10!Private Sub Command1_Click()Dim m As Integer, n As Long, s As Doublen = 1s = 0For m = 1 To 10n = n * ms = s + 1 / nNextPrint sEnd Sub定义一个下标上界为10的整型数组，并随机函数为其赋值（值处于【0,100】之间，计算数组中所有偶数的和Private Sub Command1_Click()RandomizeDim a%(10)Dim i%, s%For i = 0 To 10a(i) = 101 * Rnd()NextFor i = 0 To 10If a(i) Mod 2 = 0 Thens = s + a(i)End IfNextPrint "所有偶数的和为:", sEnd Sub输入一个四位数，分别输出它的个位数字、十位数字、百位数字、和千位数字。

答案：计算并输出圆的周长和面积。在窗体上显示和及平均值。利用InputBox函数将字符串进行相加和联接

VB实验报告书(实验四)
班级：管08A-5学号：10901060201姓名：张跃洋
实验题目
顺序结构
实验目的
1.掌握赋值语句的使用方法
2.掌握数据输入、输出函数和语句，尤其是InputBox函数
实验内容
程序1：编程输入圆的半径，计算并输出圆的周长和面积。
方法一：用Inputbox函数实现圆半径的输入，用Print方法输出周长和面积。
c = "请输入第三个数""输入并计算"
d = "请输入第个数""输入并计算"
yi = InputBox(a, "输入成绩")
er = InputBox(b, "输入成绩")
san = InputBox(c, "输入成绩")
si = InputBox(d, "输入成绩")
qh = Val(yi) + Val(er) + Val(san) + Val(si)
方法二：用文本框控件实现半径的输入，用标签控件实际周长和面积的输出。
程序2：从键盘上输入4个数，编写程序，计算并输出这4个数的和及平均值。通过InputBox函数输入数据，在窗体上显示和及平均值。
Private Sub Command1_Click()
a = "请输入第一个数""输入并计算"
b = "请输入第二个数""输入并计算"
Text2.Text = Val(a) + Val(b)
End Sub
编译、运行过程中出现的主要问题及解决方法
&和+的区别：两个数值运算时

VB课程设计-文本编辑器

VB课程设计报告——文本编辑器学院名称：学生姓名：专业名称：班级：一、课程设计题目用Visual Basic程序设计语言编写一个简易的文本编辑器要求：有最基本的文本编辑功能，包括复制、剪切、粘贴、字体设置、背景颜色设置、字体颜色设置；同时拥有文本管理功能，包括打开文件、保存文件；以及完整的系统运行退出等功能，所有的操作可选择设定的快捷键。

二、课程设计目的虽然本学期的Visual Basic课程是自学的，相对于课堂学习有些不足，但通过平时的上机实验，初步掌握了VB程序设计的各种方法，学会了编写最基本的VB程序；对于完整的VB程序设计来讲是很不足的，平时掌握的只是单独的窗体(Form)程序编写，以及各种简单控件的使用，没有做到很好连贯性，所以有必要做一次完整的VB程序设计，结合所学的基本知识，使用多个窗体自成一套系统，加上各种控件的综合运用，初步设计一个合格的VB 应用程序；这样在巩固VB所学的同时，更好地学会程序设计的一些思想和方法，对于以后的编程学习或是工作有重要的实践意义。

三、课程设计说明题目为文本编辑器，即是最基本的文本编辑程序，首先必须做好文本编辑器本身的功能，然后对其完善，做成一个完整的小程序功能设计说明：功能是这个文本编辑器的核心内容，也就是程序的作用，它是用来做什么的；本程序就是用来编写文本的，编写过程中要利用到窗体（Form）一个，控件包括：RichTextBox1（超文本框）、CommonDialog（通用对话框），以及InputBox（消息框）、菜单编辑器等，。

要做的工作就是编写代码把这些控件和窗体等结合为一体，使得程序能够成为一体，顺畅运行。

本次设计在按照题目要求的前提下，为了完整地展示一个应用程序，在最初就设计为最基本的文本的编辑器，所以取名为“易记本”，就是简易记事本的简称，然后加入图标，在程序完成之后还进行了大包操作，得到应用程序的安装文件，最后安装在电脑上运行使用。

四．源代码Private Sub Command1_Click()Dim i As IntegerIf Text2.Text <> "123456" Theni = MsgBox("密码错误", 5 + vbExclamation, "警告")If i <> 6 ThenEndElseText2.Text = ""Text2.SetFocusEnd IfEnd IfForm1.HideForm2.ShowEnd SubPrivate Sub Form_Load()Text1.Text = ""Text1.MaxLength = 6Text2.Text = ""Text2.MaxLength = 6Text2.PasswordChar = "*"End SubPrivate Sub Text1_LostFocus()If Not IsNumeric(Text1.Text) Then MsgBox "帐号必须为数字", , "警告" Text1.Text = ""Text1.SetFocusEnd IfEnd SubPrivate Sub Command1_Click()Form2.HideForm3.ShowEnd SubPrivate Sub Command2_Click()Form2.HideForm4.ShowEnd SubPrivate Sub Command3_Click()Form2.HideForm5.ShowEnd SubPrivate Sub Color_Click() CommonDialog1.Action = 3Text1.ForeColor = CommonDialog1.Color End SubPrivate Sub Command1_Click()Form3.HideForm2.ShowEnd SubPrivate Sub Copy_Click()Dim st As Stringst = Text1.SelTextEnd SubPrivate Sub Cut_Click()Dim st As Stringst = Text1.SelTextText1.SelText = ""End SubPrivate Sub Exit_Click()EndEnd SubPrivate Sub Font_Click()CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects CommonDialog1.Action = 4Text1.FontName = CommonDialog1.FileNameText1.FontSize = CommonDialog1.FontSizeText1.FontBold = CommonDialog1.FontBoldText1.FontItalic = CommonDialog1.FontItalicText1.FontStrikethru = CommonDialog1.FontStrikethru Text1.FontUnderline = CommonDialog1.FontUnderline Text1.ForeColor = CommonDialog1.ColorEnd SubSub New_Click()Text1.Text = ""Me.Caption = FileEnd SubSub Open_Click()CommonDialog1.Action = 1Text1.Text = ""Open CommonDialog1.FileName For Input As #1Do While Not EOF(1)Line Input #1, inputdataText1.Text = Text1.Text + inputdata + vbCrLfLoopClose #1End SubPrivate Sub Paste_Click()Text1.SelText = stEnd SubPrivate Sub Print_Click()CommonDialog1.Action = 5For i = 1 To CommonDialog1.CopiesPrinter.Print Text1.TextNext iPrinter.EndDocEnd SubPrivate Sub SaveAs_Click()CommonDialog1.FileName = "vb课设用.txt" CommonDialog1.DefaultExt = "txt"CommonDialog1.Action = 2Open CommonDialog1.FileName For Output As #1 Print #1, Text1.TextEnd SubDim arr As Long, sum As Long, a As IntegerPrivate Sub Command1_Click()a = HScroll1.ValueText1.Text = plus(a)Call isprime(a)End SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub HScroll1_Change()Label2.Caption = HScroll1.ValueEnd SubSub isprime(max As Integer)Dim x As Integer, i As Integer, j As IntegerFor i = 2 To maxx = 0For j = 2 To i - 1If i Mod j = 0 Then x = 1Next jIf x = 0 Then Label2.Caption = Label2.Caption & i & " " Next iEnd SubFunction plus(a As Integer) As LongFor i = 1 To asum = sum + iNext iplus = sumEnd FunctionDim x1 As IntegerDim y1 As IntegerDim x2 As IntegerDim y2 As IntegerDim flag As BooleanPrivate Sub Command1_Click()On Error Resume NextCommonDialog1.CancelError = True CommonDialog1.DialogTitle = "颜色" CommonDialog1.ShowColorIf Err <> 32755 Then Picture1.ForeColor = CommonDialog1.Color End IfEnd SubPrivate Sub Command2_Click()Picture1.ClsEnd SubPrivate Sub Command3_Click()Form5.HideForm6.ShowEnd SubPrivate Sub Option1_Click()Picture1.DrawWidth = 1End SubPrivate Sub Option2_Click()Picture1.DrawWidth = 2End SubPrivate Sub Option3_Click()Picture1.DrawWidth = 4End SubPrivate Sub Option4_Click()Picture1.DrawWidth = 8End SubPrivate Sub Form_Load()Picture1.Scale (0, 0)-(400, 400)flag = FalseEnd SubPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) flag = Truex1 = Xy1 = YEnd SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If flag = False ThenExit SubEnd IfIf flag = True Thenx2 = Xy2 = YPicture1.Line (x1, y1)-(x2, y2)x1 = x2y1 = y2End IfEnd SubPrivate Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) flag = FalseEnd SubDim ctP As Single, ctDu() As Single, ctDuS As LongPrivate Sub Command1_Click()Picture1.AutoRedraw = True: ctP = 3.1415926Timer1.Interval = 20: Timer1.Enabled = Not Timer1.EnabledEnd SubPrivate Sub Command2_Click()Form7.HideForm6.ShowEnd SubPrivate Sub Form_Load()Me.Caption = "旋转的椭圆": Command1.Caption = "转/停"Text1.Text = "9 个": Timer1.Enabled = FalseEnd SubPrivate Sub Text1_Change()ctDuS = Val(Text1.Text)If ctDuS > 200 Then Text1.Text = "200"If ctDuS < 1 Then ctDuS = 1ReDim ctDu(0 To ctDuS)End SubPrivate Sub Timer1_Timer()Dim I As LongPicture1.DrawWidth = 3Picture1.ClsFor I = 0 To ctDuSctDu(I) = ctDu(I) + ctP * 0.01 * I / 9If ctDu(I) > ctP * 2 Then ctDu(I) = ctDu(I) - ctP * 2Show1 ctDu(I), &HFFFFFF / (ctDuS + 1) * I * 0.6NextDim x As Single, y As SingleStatic J As SinglePicture1.DrawWidth = 15x0 = Picture1.ScaleWidth * 0.5: y0 = Picture1.ScaleHeight * 0.5 Picture1.PSet (x0, y0), 255x = 1200: y = 0: J = J - 0.05If J < -ctP * 2 Then J = J + ctP * 2Zhuan J, x, yPicture1.PSet (x0 + x, y0 + y), RGB(0, 0, 255)End SubPrivate Sub Show1(ToJ As Single, Se As Long)Dim I As Single, x As Single, y As Single, x0 As Single, y0 As Single Dim a As Single, b As Single, x1 As Single, y1 As SingleIf Picture1.ScaleWidth < Picture1.ScaleHeight Thena = Picture1.ScaleWidth * 0.45Elsea = Picture1.ScaleHeight * 0.45End Ifb = a * 0.25x0 = Picture1.ScaleWidth * 0.5: y0 = Picture1.ScaleHeight * 0.5x = -a: y = 0: Zhuan ToJ, x, yx1 = a: y1 = 0: Zhuan ToJ, x1, y1Picture1.Line (x0 + x, y0 + y)-(x0 + x1, y0 + y1), Sex = 0: y = -b: Zhuan ToJ, x, yx1 = 0: y1 = b: Zhuan ToJ, x1, y1Picture1.Line (x0 + x, y0 + y)-(x0 + x1, y0 + y1), SeFor I = 0 To ctP * 2 Step 0.1x = a * Sin(I): y = b * Cos(I)Zhuan ToJ, x, yPicture1.Line -(x0 + x, y0 + y), SeNextx = a * Sin(I): y = b * Cos(I)Zhuan ToJ, x, yPicture1.Line -(x0 + x, y0 + y), SeEnd SubPrivate Sub Zhuan(ToJ As Single, x As Single, y As Single) Dim S As Single, J As SingleS = Sqr(x ^ 2 + y ^ 2)If S = 0 Then J = 0 Else J = y / SIf Abs(J) >= 1 ThenIf J > 0 Then J = ctP * 0.5 Else J = -ctP * 0.5ElseJ = Atn(J / Sqr(-J * J + 1))End IfIf x < 0 Then J = -ctP - Jx = S * Cos(J + ToJ): y = S * Sin(J + ToJ) End Sub Private Sub Command1_Click()EndEnd Sub五、运行结果六．心得体会通过本次课程设计，使我对VB的认识更加深入了一层，VB主要由两部分组成，一个是Visual 可视化界面设计，另一个是Basic程序设计。

VB实验--------所有实验题目

实验题目总体要求：本学期的所有的实验题目，希望同学们按如下步骤认真做，（1）先画出处理界面（窗体）；（2）再给出处理步骤，（3）写出程序代码：可参考下面的例题：例如：设计程序，求1+2+3+...+N 的和值。

其处理过程是：（一）设计界面（在纸上画出界面，并注明各控件的名称）：（二）处理步骤：单击命令按钮，按以下步骤处理（1）定义3个变量：N ，s ，x ，分别用于存放：输入的数值，和值，控制循环（2）将文本框1的值，提供给变量N ；（3）s=0（累加前，将变量s 初始化为0）；（4）X=1（设置循环的开始值）（5）当X<=N 时重复执行S=s+xX=X+1（5）在文本框2中显示和值S（三）编写有关的代码：Private Sub Command1_Click()Dim n%，s%，x%N=val(text1.text)S=0X=1Do while x<=nS=s+xX=x+1LoopText2=sEnd Sub文本框1：TEXT1 文本框2：TEXT21：Command1标签1：Label1 标签2：实验一：用语言或流程图描述处理步骤(1次)1.判定一个数X是否是偶数的处理步骤;2.写出求5的阶乘的计算步骤;3.写出求1+2+3+...... +100的计算过程;4.写出计算1!+2！+3！+4！+......+20!的计算步骤;5.写出求一元二次方程解的处理步骤;6.给出将三个整数A,B,C按从小到大的顺序排列的处理步骤;实验二：表达式及其运算的实现(1次)1.设计一个程序，完成利用文本框输入任意两个数的乘法运算，并显示计算结果。

2.进一步完善程序，完成利用文本框输入任意两个数的加法、减法、乘法、除法运算，并显示计算结果，3.再进一步，改进，完成，利用随机函数，产生任意两个100到200之间的整数，并完成两个数的加法、减法、乘法、除法运算，并显示计算结果。

4．求方程AX+B=0的解。

VB课后题

※<习题一>1．计算机硬件系统和软件系统各由哪些部分组成？分别说明其功能与作用。

2．信息在计算机内如何表示，存储容量如何计算？3．Windows系统中有哪些常见的操作对象？4．操作系统的功能、作用与地位如何？5．Windows系统中文件是如何进行管理的？6．如何获取和运行应用程序？5※<习题二>1．叙述建立一个完整的VB应用程序的过程。

2．当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。

问该工程涉及到多少文件要保存？3．解释什么是类、对象、对象属性、事件与事件过程、方法。

4．VB开发环境中有哪些窗体，各有哪些用途？5．使用VB开发环境牵涉到哪几种模式，并描述各自的作用？6．VB中的错误种类有哪些？如何调试程序？如何使用帮助系统？5※<习题三>习题（一）判断题：1、VB的Byte类型数据的数值范围，在-255到255之间。

(F)2、VB的Double类型数据，可以精确表示其数值范围内的所有实数。

(F)3、Variant是一种特殊的数据类型，该类型变量可以存储除了定长字符串数据及自定义类型外的所有系统定义类型的数据。

Variant类型变量还具有Empty、Error和Null等特殊值。

（T）4、函数MsgBox的前三个参数，分别为图标样式、按钮样式以及默认按钮。

（F）5、在自定义函数过程中，函数名必须被赋值。

（F）6、在Open语句中用Append方式所打开的文件若不存在，则创建该文件。

（T）7、在Open语句中用Input方式所打开的文件必须已经存在，否则会运行错误。

（T）8、“A=B=C”是一个合法的Visual Basic语句。

（T）9、在窗体或模块文件中声明为Private的过程，只能被本窗体或模块中的过程所调用。

（T）10、静态变量是局部变量，当过程再次被执行时，静态变量的初值是上一次过程调用后的值。

（T）11、在VB中，用Dim定义数组时数组元素也自动赋初值0。

VB课程设计-计算器程序设计

课程设计报告VB课程设计课程设计题目：计算器程序设计姓名：学号：*专业: 电子信息工程班级: :指导教师:摘要VisualBasic 6.0 是一款可视化的，面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发windows 环境下的种类应用程序。

它简单易学，效率高，且功能强大，可以与Windows专业开发工具相媲美。

在VisualBasic环境下，利用事出有因件驱动的编程机制，新颖易用的可视化工具，使用Windows内部的广泛应用程序接口(API)函数，运用动态链接库（DLL），对象的链接与嵌入（OLE）,开放式数据连接（ODBC）等技术，可以高效，可以快速地开发Windows环境不功能强大，图形界面丰富的程序。

为了适应信息化时代的需求，各高校对大多数专业都开设了一定的计算机语言课程，有的讲授VisualBasic语言。

VisualBasic以其语法简单，可视化设计，功能强大，为许多学校计算机语言课程的首选语言。

目前国内各出版了大量的VisualBasic语言教程，它们都具有同样的特点：介绍语言的语法等基本知识，再辅助一些简单的示例。

学生通过学习，可能能够考一个不错的成绩，但所掌握的仍然是一些支离破碎的知识，不能将所有的知识融会贯通，遇到具体的程序设计，还是无从下手。

这次我要做的是计算器，通过这样程序设计，我们可以学到好多关于VB语言的使方法，熟悉VisualBasic 6.0的运行环境，快速掌握VB语言！小小的计算器是我们学VB初级语言的最好课程。

目录一功能描述 (4)1．功能 (4)2. 实验目的 (4)二概要设计 (6)1.界面设计 (6)2.代码编辑 (8)三详细设计 (14)四心得体会 (16)五参考文献 (18)一功能描述1．功能可以简单计算加减乘除四则运算，可以简单计算三角函数运算的简易计算器。

2.实验目的这次我要做的是计算器，通过这样程序设计，我们可以学到好多关于VB语言的使方法，熟悉VisualBasic 6.0的运行环境，快速掌握VB语言！小小的计算器是我们学VB初级语言的最好课程。

vb用户界面设计实验报告（共9篇）

vb用户界面设计实验报告(共9篇) VB第7章用户界面设计一、选择题1、下列控件中，没有Caption属性的是( )。

A. 框架B. 列表框C. 复选框D. 单选按钮2、复选框的Value属性为1时，表示( )。

A. 复选框未被选中B. 复选框被选中C. 复选框内有灰色的勾D. 复选框操作有错误3、用来设置粗体字的属性是( )。

A. FontItalicB. FontNameC. FontBoldD. FontSizeE. FontUnderline4、假定定时器的Interval属性为1000，Enabled属性为Ture，调用下面的事件过程，程序运行结束后变量x的值为( )。

Dim x As IntegerSub Timer1_Timer( )For i = 1 To 10x = x + 1Next iEnd SubA. 1000B. 10000C. 10D. 以上都不对5、在下列说法中，正确的是( )。

A. 通过适当的设置，可以在程序运行期间让定时器显示在窗体上B. 在列表框中不能进行多项选择C. 在列表框中能够将项目按字母顺序从大到小排列D. 框架也有Click和DblClick事件6、在用菜单编辑器设计菜单时，必须输入的项有( )。

A. 快捷键B. 标题C. 索引D. 名称7、在下列关于菜单的说法中，错误的是( )。

A. 每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件B. 除了Click事件之外，菜单项还能响应其他的，如DblClick等事件C. 菜单项的捷径键不能任意设置D. 在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择8、在下列关于通用对话框的叙述中，错误的是( )。

A. CommandDialog1.ShowFont显示“字体”对话框B. 在“打开”或“另存为”对话框中，用户选择的文件名可以经FileTitle属性返回C. 在“打开”或“另存为”对话框中，用户选择的文件名及其路径可以经FileName属性返回D. 通用对话框可以用来制作和显示“帮助”对话框二、填空题1、复选框( )属性设置为2——Grayed时，变成灰色，禁止用户选择。

VB大题代码

1.题目：编写窗体单击事件，求解"百鸡问题"：' 已知公鸡每只3元，母鸡每只5元，每只小鸡0.5元。

' 用100元钱买100只鸡，问一共有多少种方案。

程序中' 定义的变量 x，y，z分别代表公鸡、母鸡、和小鸡的' 数量，count代表组合方案的数量For x = 0 To 33For y = 0 To 20For z = 0 To 100If 3 * x + 5 * y + 0.5 * z = 100 And x + y + z = 100 Thencount = count + 1End IfNext zNext yNext x2.题目：请按照题目要求设计指定的窗体。

建立如图1所示界面：（1）窗体的标题为“健康称”，窗体的左边有两个标签，Label1的标题为“身高”、Label2的标题为“体重”；它们的旁边分别有两个文本框，Text1用于输入身高、Text2用于输入体重，将两个文本框文字对齐方式均设置为右对齐；在文本框的右边有两个标签，Label3的标题为“cm”，Label4的标题为“kg”。

（2）单击标题为“健康状况”按钮(Command1)，根据计算公式将相应的提示信息显示在标签Label5中。

计算公式为：标准体重=身高-105；体重高于标准体重*1.1为偏胖，提示“偏胖，注意节食”；体重低于标准体重*0.9为偏瘦，提示“偏瘦，增加营养”；其他为正常，提示“正常，继续保持”。

Private Sub Command1_Click()Dim SWeight, RWeightSWeight = Val(Text1) - 105RWeight = Val(Text2)If RWeight >= SWeight * 1.1 ThenLabel5 = "偏胖，注意节食"ElseIf RWeight <= SWeight * 0.9 ThenLabel5 = "偏瘦，增加营养"ElseLabel5 = "正常，继续保持"End IfEnd Sub3.题目：请按照题目要求设计指定的窗体。

VB试题(选择、填空)

一，选择题1、如果VB环境中缺少某个窗口，一般应从主菜单__C____的下拉菜单中找到相应的激活命令。

（1分）A、编辑B、文件C、视图D、调试2、启动Visual Basic后，VB为用户建立的第一个窗体是__B____。

（1分）A、FormB、Form1C、窗体1D、窗体3、不属于一个工程文件（*.vbp）里的文件是____A__。

（1分）A、*.txt文件B、*.bas文件C、*.cls文件D、*.frm文件4、与传统的程序设计语言相比较，Visual Basic最突出的特点是__C____。

（1分）A、结构化的程序设计B、数据处理C、面向对象的可视化编程D、中文支持5、文本框中的ScrollBars属性已设置为3-Both，但却没有水平和垂直滚动条的效果，原因可能是___B___。

（1分）A、文本框中没有内容B、文本框的MultiLine属性为FalseC、文本框的MaxLength属性为0D、文本框的Locked属性是True6、能够盛放其他控件，而且是最基本的对象是___A___。

（1分）A、窗体B、图像C、标签D、文本7、任何控件都具有的属性是____C__。

（1分）A、PictureB、CaptionC、NameD、AutoSize8、窗体上有一个标签Label1和一个命名按钮Command1，当程序运行时每单击一次命令按钮，标签就向右移动一定距离。

在Command1_Click()中能完成这个功能的命令为___D___。

（1分）A、Label1.Left = 100B、Label1.Left = Label1.Left - 100C、Label1.Move 100D、Label1.Move Label1.Left + 1009、要把一个Image控件对象设置成隐藏，应设置的属性是___A___。

（1分）A、VisibleB、EnabledC、DefaultD、Cancel10、以下___B___是正确的For …Next结构。

vb课程设计题目答案

vb课程设计题目答案一、教学目标本节课的教学目标是让学生掌握VB编程语言的基本语法和编程思想，能够运用VB编写简单的程序。

具体包括以下三个方面：1.知识目标：学生需要掌握VB的基本数据类型、变量、常量、运算符、控制结构等编程基础知识和技能。

2.技能目标：学生能够运用VB编写简单的控制台应用程序，熟练使用VB的集成开发环境（IDE），进行程序的调试和运行。

3.情感态度价值观目标：培养学生对编程语言的兴趣，增强学生的自主学习能力，培养学生的团队协作精神和创新思维。

二、教学内容本节课的教学内容主要包括以下几个部分：1.VB的基本数据类型和变量：整型、浮点型、布尔型等数据类型，以及变量的声明和使用。

2.常量和运算符：常量的定义和使用，算术运算符、关系运算符、逻辑运算符等。

3.控制结构：顺序结构、选择结构（if-else）、循环结构（for、while）等。

4.输入输出语句：Console.WriteLine、Console.ReadLine等。

5.函数：系统函数和用户自定义函数。

三、教学方法为了提高教学效果，本节课将采用以下教学方法：1.讲授法：教师通过讲解VB的基本语法和编程思想，让学生掌握编程的基础知识。

2.案例分析法：教师通过分析典型程序案例，引导学生理解和运用编程语言。

3.实验法：学生通过动手编写程序，巩固所学知识，提高编程能力。

4.小组讨论法：学生分组进行讨论，分享编程心得，培养团队协作精神。

四、教学资源为了支持教学内容的实施，我们将准备以下教学资源：1.教材：《VB编程语言》。

2.参考书：提供一些VB编程相关的参考书籍，供学生课后自主学习。

3.多媒体资料：制作精美的PPT，生动展示VB编程的相关知识点。

4.实验设备：为学生提供电脑、编程环境等实验设备，方便学生进行编程实践。

五、教学评估本节课的教学评估将采用多元化的评价方式，全面客观地评价学生的学习成果。

评估方式包括：1.平时表现：评价学生在课堂上的参与度、提问回答、小组讨论等，以了解学生的学习态度和积极性。

vb实验指导后题目-参考答案

期末自测题（A卷）文件部分的选择题要做，其它类型的题目不用做，不作考察选择题其它部分还没有时间做一、单选题（每题1分，共25分）1、211.66.160.1 是Internet上的( )。

(A) IP地址 (B)域名 (C)密码 (D)软件编号2、在以下四个www网址中，（）网址不符合www网址书写规则。

(A) (B) (C) (D) 3、下列字符中，其ASCII码值最小的一个是（）。

(A) A (B) a (C) Z (D) X4、下列软件中属于浏览器的是（）。

(A) Excel (B) Internet Explorer (C) QQ (D) Visual Basic5、电子邮件(E-mail)地址的正确形式是（）。

(A)用户名@域名 (B)用户名#域名 (C)用户名/域名 (D)用户名.域名6、下面变量名不合法的是（）。

(A) a2 (B) abcd (C) a$x (D) Cd_E7、下列表达式中，正确的Visual Basic表达式是（）。

(A) 2sin45° (B) ∏*R2 (C) x÷y×5 (D) （x+1）/（x^2+1）/28、下面逻辑表达式的值为真的是（）。

(A) "A"> "a" (B) "abc"> "bc"(C) "That"> "Thank" (D) 12> 12.19、下列过程定义语句说明不合法的是（）。

(A) Sub f1(ByRef n() As Integer) (B) Sub f1(ByRef n As Integer)(C) Sub f1(ByVal n() As Integer) (D) Sub f1(ByVal n As Integer)10、执行下面的4个打印语句，将出错的是（）。

VB练习题(上机)含答案

VB练习题(上机)含答案VB练习题(上机)含答案第一部分1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。

程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)Private Sub Cmd1_Click()Dim a%(19), i%, sum!, aver!RandomizeFor i = 0 To 19a(i) = Int(Rnd * 1001)sum = sum + a(i)Next iaver = sum / 20Print averEnd Sub2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。

在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。

Private Sub C1_Click()Dim ch As String, ch1 As String, i%ch = Text1For i = 1 To Len(ch)If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Thench1 = ch1 + LCase(Mid(ch, i, 1)) Elsech1 = ch1 + UCase(Mid(ch, i, 1)) End IfNext iText1 = Text1 + vbCrLfText1 = Text1 + ch1End Sub3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。

程序运行后，单击命令按钮完成以下工作：①随机产生30个0～1000的整数，将其放入一个一维数组中②求出其中的最大值，并显示在窗体上。

VB实验及答案

对象名称
属性名称
Form1
Caption
Command1 Caption
Label1
Caption
Label2
Caption
Label3
Caption
Text1、Text2 Text
属性值象限判断判断 X= Y=
（3）编写事件代码： Private Sub Command1_Click() Dim x!, y!
Private Sub Command2_Click() Dim f!, c! c = Val(Text2.Text) f = 9 / 5 * c + 32 Text1 = Str(f)
End Sub
（4）程序的运行及保存。 4 求圆的面积及圆柱体的体积，界面如图 2-3 所示。
【步骤】（1）设计应用程序的界面：在窗体上创建两个命令按钮 Command1 和 Command2，四个标签 Label1、Label2、Label3 和 Label4，四个文本框 Text1、Text2、Text3 和 Text4。（2）设置对象的属性
【步骤】
（ 1 ）在窗体中创建一个标签 Label1 、一个命令按钮 Command1。
（2）在属性窗口中设置对象的属性：
对象名称
属性名称
属性值
Form1
Caption
设计界面
Label1
Caption
请留意此处
Command1
Caption
单击此处
（3）在 Command1 的 Click 事件中编写程序代码：
x = Val(Text1) y = Val(Text2) If x > 0 Then

VB实验报告1-9

实验一：设计简单的VB 应用程序一、实验目的1．掌握Visual Basic 启动和退出的方法。

2．熟悉Visual Basic 的集成开发环境。

3．掌握Visual Basic 程序设计的基本步骤，了解VB 程序的编写、保存和编译的方法过程。

4．初步了解几个常用基本控件控件（标签、命令按钮和文本框）的使用方法。

二、实验类型综合三、实验时间：2013-3-8四、实验任务1、启动Visual Basic ，然后创建一个“标准 EXE ”工程（保存在D 盘以自己学号命名的文件夹中，文件名和窗体名均为SJT ），并了解Visual Basic 集成开发环境下各组成部分及其作用。

2、编一程序，计算任意输入的正整数的平方根。

3、编写一个应用程序，界面如图1-1所示。

窗体中文字“VB 应用程序！”为一标签控件，单击标题为“放大”的命令按钮，则“VB 应用程序！”的字号放大一号，单击“缩小”按钮则反之；同时，窗体中还有4个含某种指向图案的按钮，若单击某个按钮，则使“VB 应用程序！”向该按钮所指向的方向移动50Twip 。

（提示：四种指向的图案可以在Visual Basic 安装目录中的“…graphics\icon\Arrows ”子目录中找到，名称分别为arw07dn.ico 、arw07lt.ico 、arw07rt.ico 和arw07up.ico ）五、实验要求写出实验报告，内容是：1、第1小题的操作步骤2、第2、3题1).程序的界面设计。

2).程序主要代码。

3).运行结果（输入与输出）。

4).实验总结。

(写上你自己的总结。

可以从以下几个方面来总结：你在编程过程中花时多少？时间是怎么分配的？多少时间在思考问题？遇到了哪些难题？你是怎么克服的？你对你的程序的评价？你的收获有哪些？)图1-1 实验1-2程序运行实验二：数据的输入和输出一、实验目的1．掌握常量和变量、表达式的基本概念和正确书写格式。

2．掌握基本语句（Print语句、赋值语句、Dim语句等）的使用；3、掌握常用函数的正确使用方法；4、掌握数据的动态输入InputBox和信息提示MsgBox的基本使用方法。

VB制作QQ登录界面

V B制作Q Q登录界面Document serial number【NL89WT-NY98YT-NC8CB-NNUUT-NUT108】西南财经大学天府学院VB实验报告实验名称：第二个VB程序姓名：刘星学号： 41402803 班级： 14级工商23班实验时间： 2015/9/19一、实验目的VB程序制作实现QQ登录二、实验内容及步骤题目一：QQ登录程序设计实验步骤：1.打开VB，修改文本字体、大小（font）；2.点击label, ,画出label1、label2、label3,分别修改caption为“账号：”“密码：”“状态：”；3.点击combobox，在账号和状态后面画出combo1，combo2；4.在combo1账号的text中设置账号默认值“41402803”，combo2状态的text中设置默认值“在线”5.点击textbox，在label密码后面画出text1，删除文本text6.点击checkbox，在适当位置画出check1和check2，分别修改caption为“记住密码”，“自动登录”7.点击commandbutton，修改caption中“command1”为“登录”；8.双击commandbutton，弹出代码编辑器，编辑如图；9运行程序，单击运行→启动，单击显示,检验，单击结束；10.点击文件→保存工程，新建文件夹，命名保存窗口文件和工程文件题目二：在第一个VB程序的基础上实现如下功能：单击“显示”按钮，在文本框中显示“欢迎使用VB6.0，你真棒！”，再次单击“显示”按钮，文本框里面不再显示任何内容。

实验步骤：1.打开VB，修改文本字体、大小（font）；2.点击TextBox ,画出文本框；3.点击commandbutton，画出命令框；4.选中命令框，修改caption中“command1”为“显示”；5.选中文本框，将Text中“text1”删除，并改为“欢迎使用VB6.0，你真棒！”；6.若文字未自动换行，再选中“MultiLline”,将 false 改为 true;7.双击命令按钮，弹出代码编辑器，编辑如图；8.运行程序，单击运行→启动，单击显示,检验，单击结束；9.点击文件→保存工程，新建文件夹，命名保存窗口文件和工程文件三、实验思考题1.组合框combo中的list输入账号，shift+enter键账号换行。

vb100例(上)

VB 基础程序设计100例（上）注意：1. 除非题目要求，不要使用控件（如按钮，文本框等），也不添加其他窗体和标准模块。

一律在Form_Click()过程中编写代码，用inputbox 函数输入数据，在窗体上输出结果。

2. 每个程序只保存一个窗体文件（例如第1题为t001.frm ）,不保存.vbp 工程文件。

3. 只有在使用外部过程（Sub 子过程、Function 函数过程）可以提高效率，或题目要求使用外部过程的情况下，才使用外部过程。

4. 所有代码都应按缩进的格式书写。

待有了一定的程序设计经验之后，在学习第5章时，再根据需要进行应用程序界面设计，即进入VB 编程的第二阶段。

有了第一阶段的基础，第二阶段困难不大。

第一部分该部分习题不使用数组1.用Inputbox 函数输入一个整数，判断其能否被2，3，和5整除，若能则输出该数及它的平方值2.输入一个年份，判断是否闰年。

闰年的条件是该数能被4整除且不能被100整除，或该数能被400整除3．交换两个变量的值，在程序中只允许出现这两个变量4.依次输入一元二次多项式的二次项、一次项和常数项系数，输出它的两个根，例如 x1=2 x2=-3.5 或 x1=3+2*i x2=3-2*i 这里 i 是虚数单位5.计算 s=1+2+3+…+n 和c=1*2*3*…*n6.计算下式之和首次大于10000时的n 的值：s=1+2+22+…+2n +…7.计算下式之和不超过10000时的n 的最大值：s=12+22+…+n 2+…8.计算 s=1*21 (51)311-++++n9.计算 s=n n 1)1( (31)211--+-+-10.计算 t=1+(1+2)+(1+2+3)+…+(1+2+…+n)11.计算 t=1!+2!+…+n!12.计算 t=!1...!31!211n ++++13.计算 s=)!1(...!32!2++++n nx x x14.同上题，要求用Sub 过程计算每项的分子，用Function 过程计算每项的分母15.编写Function 过程计算n!,调用该过程计算组合数16.编写Sub 过程计算n!,调用该过程计算组合数17.编写程序，打印斐波那契(Fibonacci)数列的前30项。

VB编程题目及答案

1.输入3个数,输出最大的数2.有一元二次方程：aX2+bX+c=0,依次输入a,b,c,判断此方程是否有实根3.输入一个百分制的成绩,若大于等于60,则用消息框弹出,显示“恭喜成绩通过”,若小于60,则弹出消息框,显示“抱歉成绩没有通过”4.输入一年份,判断它是否为闰年,并显示有关信息;判断闰年的条件是：年份能被4整除但不能被100整除,或者能被400整除5.输入学生的百分制成绩,转换输出为五级制成绩,90～100分转换为优秀,80～89转换为良好,70～79转换为中等,60～69转换为及格,0～60转换为不及格;6.随机产生一个三位正整数,然后逆序输出,产生的数与逆序数同时显示;例如,产生246,输出是642;7.输入两个整数,求它们的最大公约数;8.编程求200--400范围内5的倍数或7的倍数之和;一个数如果同时是7和5的倍数,则只能加一次;;9.计算100~300之间所有能被3和7整除的数之和10.分别统计1-100中,满足3的倍数、7的倍数的数各有多少;11.某次歌曲大奖赛,有7个评委;如果分别输入7个评委对某个参赛者的打分数,按照去掉一个最高分和一个最低分的计算办法,求出该参赛者的平均得分;12.输入一串字符,统计其中字母A不区分大小写出现的次数;13.我国目前有13亿人口,按人口年增长率%计算,多少年后我国人口将超过26亿;14.小猴有桃若干,第一天吃掉一半多一个；第二天吃剩下桃子的一半多一个；以后每天都吃尚存桃子的一半多一个,到第7天只剩一个,问小猴原有桃多少15.16.求100以内的素数17.百元买百鸡问题;假定小鸡每只5角,公鸡每只2元,母鸡每只3元,编程求解购鸡方案;18.编程求斐波那契数列前11项;斐波那契数列：F0=f1=1, Fn=Fn-1+Fn-2 n>=219.将输入的字符串以反序显示;例如：输入“ASDFGT”,显示“TGFDSA”20.随机产生10个30,100内的整数,求最大值及所对应的下标21.随机产生10个30,100内的整数,求最大值、最小值和平均值;22.随机产生10个30,100内的整数,求最小值及所对应的下标;23.随机生成一个整型的二维数组,范围在10,20之间,以下三角形式输出该数组;24.随机产生10个1~100的正整数放入数组,显示产生的数,求最大值、最小值、平均值;25.利用随机函数生成一个4×4的矩阵即二维矩阵,范围是20,50内的整数,输出该矩阵所有数据之和26.已知有序数组a,编程插入xx的值为14;数组a中的元素分别为{12,6,4,89,75,63,100,20,31};27.编写一函数,计算Double类型一维数组所有元素的平均值;28.用函数过程求表达式1+1/2+1/3+1/4+…+1/n的和.29.编一子过程ProcMin,求一维数组a中的最小值,子过程的形参自己确定;30.编一个函数,求一维数组a中的最大值,函数的形参自己确定;31.编写一个过程计算并输出区间100,1000内所有素数的和要求判断素数使用过程函数或子过程来实现;调用该过程;提示：只能被1和自身整除的自然数称为素数;注：本答案第一行代码应在题目之后,自行调整Private Sub Command11_Click'1. 输入3个数,输出最大的数Dim max%X1 = ValInputBox"input"X2 = ValInputBox"input"x3 = ValInputBox"input"max = X1If max <= X2 Thenmax = X2End IfIf max <= x3 Thenmax = x3End IfMsgBox "3个数之中的最大数max=" & maxEnd SubPrivate Sub Command12_Click'2. '有一元二次方程：aX2+bX+c=0,依次输入a,b,c,判断此方程是否有实根a = ValInputBox"input"B = ValInputBox"input"c = ValInputBox"input"s = B ^ 2 - 4 a cIf a <> 0 ThenIf s = 0 ThenMsgBox "两个相等实根"ElseIf s > 0 ThenMsgBox "两个不相等实根"ElseIf s < 0 ThenMsgBox "两个不相等虚根"End IfElseMsgBox " 无解"End IfEnd SubPrivate Sub Command13_Click'3. 输入一个百分制的成绩,若大于等于60,则用消息框弹出,显示"恭喜成绩通过",若小于60,则弹出消息框,显示"抱歉成绩没有通过"X = ValInputBox"input"If X >= 60 ThenMsgBox "恭喜成绩通过"ElseMsgBox "抱歉成绩没有通过"End IfEnd SubPrivate Sub Command14_Click'4. 输入一年份,判断它是否为闰年,并显示有关信息;判断闰年的条件是：年份能被4整除但不能被100整除,或者能被400整除yes = ValInputBox"year"If yes Mod 4 = 0 And yes Mod 100 <> 0 Or yes Mod 400 = 0 ThenMsgBox yes & "是闰年"ElseMsgBox yes & "不是闰年"End IfEnd SubPrivate Sub Command15_Click'5. 输入学生的百分制成绩,转换输出为五级制成绩,90～100分转换为优秀,80～89转换为良好,70～79转换为中等,60～69转换为及格,0～60转换为不及格;score = ValInputBox"input"Select Case scoreCase Is >= 90MsgBox "优秀"Case Is >= 80MsgBox "良好"Case Is >= 70MsgBox "中"Case Is >= 60MsgBox "及格"Case ElseMsgBox "不及格"End SelectEnd SubPrivate Sub Command16_Click'6. 随机产生一个三位正整数,然后逆序输出,产生的数与逆序数同时显示;例如,产生246,输出是642;a = "645"n = LenaFor i = 1 To Intn / 2c = Mida, i, 1Mida, i, 1 = Mida, n - i + 1, 1Mida, n - i + 1, 1 = cNext iMsgBox aEnd SubPrivate Sub Command1_Click'7. 输入两个整数,求它们的最大公约数m = ValInputBox"input m值"n = ValInputBox"input n值"If n > m Thent = nn = mm = tEnd Ifr = m Mod nDo While r <> 0m = nn = rr = m Mod nLoopMsgBox "最大公约数=" & nEnd SubPrivate Sub Command2_Click'8. 编程求200--400范围内5的倍数或7的倍数之和;一个数如果同时是7和5的倍数,则只能加一次; Dim sum1%, sum2%sum1 = 0: sum2 = 0For i = 200 To 400If i Mod 5 = 0 Thensum1 = sum1 + iElseIf i Mod 7 = 0 Thensum2 = sun2 + iEnd Ifi, sum1, sum2Next iMsgBox "5 的倍数之和sum=" & sum1MsgBox "7 的倍数之和sum=" & sum2End SubPrivate Sub Command3_Click'9. 计算100~300之间所有能被3和7整除的数之和Dim sum%sum = 0For i = 100 To 300If i Mod 3 = 0 And i Mod 7 = 0 Thensum = sum + iEnd IfNext iMsgBox "sum=" & sumEnd SubPrivate Sub Command4_Click'10. 分别统计1-100中,满足3的倍数、7的倍数的数各有多少m = 0: n = 0For i = 1 To 100If i Mod 3 = 0 Thenn = n + 1ElseIf i Mod 7 = 0 Thenm = m + 1End IfNext iMsgBox "3的倍数个数=" & nMsgBox "7的倍数个数=" & mEnd SubPrivate Sub Command5_Click'11. 某次歌曲大奖赛,有7个评委;如果分别输入7个评委对某个参赛者的打分数,按照去掉一个最高分和一个最低分的计算办法,求出该参赛者的平均得分Dim sum%, max%, min%sum = 0: max = 0: min = 999For i = 1 To 7X = ValInputBox"input"If max <= X Thenmax = XEnd IfIf min >= X Thenmin = XEnd Ifsum = sum + XNext iAvg = sum - max - min / 5MsgBox "最高分=" & maxMsgBox "最低分= " & minMsgBox "总和=" & sumMsgBox "平均分=" & AvgEnd SubPrivate Sub Command10_Click'12. 输入一串字符,统计其中字母A不区分大小写出现的次数;Dim ch As Stringch = "ASDEAS"n = 0For i = 1 To Lenchst = Midch, i, 1If UCasest = "A" Thenn = n + 1End IfNext iMsgBox "字符串中出现A字符的系数" & nEnd SubPrivate Sub Command6_Click'13. 我国目前有13亿人口,按人口年增长率%计算,多少年后我国人口将超过26亿;n = 0X = 13Do While X <= 26X = Xn = n + 1LoopMsgBox nEnd SubPrivate Sub Command7_Click'14. 小猴有桃若干,第一天吃掉一半多一个；第二天吃剩下桃子的一半多一个；以后每天都吃尚存桃子的一半多一个,到第7天只剩一个,问小猴原有桃多少X = 1For i = 6 To 1 Step -1X = X + 1 2Next iMsgBox XEnd SubPrivate Sub Command8_Click'15. 求100以内的素数For i = 1 To 100flag = 1For j = 2 To i - 1If i Mod j = 0 Thenflag = 0End IfNext jIf flag = 1 ThenMsgBox i & "是素数"End IfNext iEnd SubPrivate Sub Command9_Click'16. 百元买百鸡问题;假定小鸡每只5角,公鸡每只2元,母鸡每只3元,编程求解购鸡方案; n = 0For X = 0 To 33For y = 0 To 50z = 100 - X - yIf 3 X + 2 y + z = 100 ThenPrint X, y, zEnd IfNext yNext XEnd SubPrivate Sub Command20_Click'17. 编程求斐波那契数列前11项;斐波那契数列：F0=f1=1, Fn=Fn-1+Fn-2 n>=2Dim f11 As Integerf0 = 1f1 = 1For i = 2 To 10fi = fi - 1 + fi - 2Next iFor i = 0 To 10Print fi;Next iEnd SubPrivate Sub Command21_Click'18. 将输入的字符串以反序显示;例如：输入"ASDFGT",显示"TGFDSA" Dim s10 As StringFor i = 0 To 9si = InputBox"input"Next iFor i = 9 To 0 Step -1Print siNext iEnd SubPrivate Sub Command22_Click'19. 随机产生10个30,100内的整数,求最大值及所对应的下标Dim a10 As Integer, max%For i = 0 To 9ai = IntRnd 71 + 30Next imax = a0maxi = 0For i = 1 To 9If ai >= max Thenmax = aimaxi = iEnd IfNext iMsgBox "max=" & maxMsgBox "maxi=" & maxiEnd SubPrivate Sub Command23_Click'20. 随机产生10个30,100内的整数,求最大值、最小值和平均值;Dim a10 As Integer, max%, min%For i = 0 To 9ai = IntRnd 71 + 30Next imax = a0min = a0For i = 1 To 9If ai >= max Thenmax = aiElsemin = aiEnd Ifsum = sum + aiNext iMsgBox "max=" & maxMsgBox "min=" & minMsgBox "avg=" & sum / 10End SubPrivate Sub Command17_Click'21. 随机产生10个30,100内的整数,求最小值及所对应的下标;Dim a10 As IntegerFor i = 0 To 9ai = IntRnd 71 + 30Next imin = a0Mini = 0For i = 1 To 9If ai <= min Thenmin = aiMini = iEnd IfNext iMsgBox "min=" & minMsgBox "mini=" & MiniEnd SubPrivate Sub Command18_Click'22. 随机生成一个整型的二维数组,范围在10,20之间,以下三角形式输出该数组;Dim a10, 10 As IntegerFor i = 0 To 9For j = 0 To 9ai, j = IntRnd 11 + 10Next jNext iFor i = 0 To 9For j = 0 To iPrint ai, j,Next jPrintNext iEnd SubPrivate Sub Command19_Click'23. 随机产生10个1~100的正整数放入数组,显示产生的数,求最大值、最小值、平均值;Dim a10 As Integer, max%, min%For i = 0 To 9ai = IntRnd 100 + 1Print aiNext imax = a0min = a0For i = 1 To 9If ai >= max Thenmax = aiElsemin = aiEnd Ifsum = sum + aiNext iMsgBox "max=" & maxMsgBox "min=" & minMsgBox "avg=" & sum / 10End SubPrivate Sub Command24_Click'24. 利用随机函数生成一个4×4的矩阵即二维矩阵,范围是20,50内的整数,输出该矩阵所有数据之和Dim a4, 4 As IntegerDim sum%, i%, j%For i = 0 To 3For j = 0 To 3ai, j = IntRnd 31 + 20sum = sum + ai, jNext jNext iFor i = 0 To 3For j = 0 To 3Print ai, j,Next jPrintNext iMsgBox "sum=" & sumEnd SubPrivate Sub Command25_Click'25. 已知有序数组a,编程插入xx的值为14;数组a中的元素分别为{12,6,4,89,75,63,100,20,31};Dim a, iMin%, n%, i%, j%, t%a = Array2, 6, 4, 89, 75, 63, 100, 20, 31X = 14n = UBounda ' 获得数组的下标上界For i = 0 To n - 1 ' 进行n-1轮比较iMin = i ' 对第i轮比较时,初始假定第i个元素最小For j = i + 1 To n ' 在数组i+1～n个元素中选最小元素的下标If aj < aiMin Then iMin = jNext jt = ai ' i+1～n个元素中选出的最小元素与第i个元素交换ai = aiMinaiMin = tNext iFor k = 0 To n ' 查找欲插入数x在数组中的位置If X < ak Then Exit ForNext kReDim Preserve an + 1 ' 数组增加一个元素For i = n To k Step -1 ' 数组元素后移一位,腾出位置ai + 1 = aiNext iak = XFor i = 0 To n + 1Print ai;NextEnd SubPrivate Sub Command26_Click'26. 编写一函数,计算Double类型一维数组所有元素的平均值;Dim a, n%, sa = Array1, 4, 7, 9, 12, 23, 56n = UBoundas = sum1aMsgBox "sum=" & sMsgBox "avg=" & s / nEnd SubPrivate Sub Command27_Click'27. 用函数过程求表达式1+1/2+1/3+1/4+…+1/n的和.n = InputBox"INPUT"s = sum2nMsgBox "SUM2=" & sEnd SubPrivate Sub Command28_Click'28. 编一子过程ProcMin,求一维数组a中的最小值,子过程的形参自己确定Dim a, n%, min%a = Array1, 4, 7, 9, 12, -23, 56n = UBoundaCall procmina, minMsgBox "min=" & minEnd Sub'28. 编一子过程ProcMin,求一维数组a中的最小值,子过程的形参自己确定Private Sub Command1_ClickDim a, n%, min%a = Array1, 4, 7, 9, 12, -23, 56n = UBoundaCall procmina, minMsgBox "min=" & minEnd SubPrivate Sub Command29_Click'29. 编一个函数,求一维数组a中的最大值,函数的形参自己确定;Dim a, n%, sa = Array1, 4, 7, 9, 12, 23, 56n = UBoundas = maxaMsgBox "max=" & sEnd SubPrivate Sub Command30_Click'30. 编写一个过程计算并输出区间100,1000内所有素数的和要求判断素数使用过程函数或子过程来实现;调用该过程;提示：只能被1和自身整除的自然数称为素数;Dim i%, sum, f%sum = 0For i = 100 To 1000Call procsi, fIf f = 1 Thensum = sum + iEnd IfNext iMsgBox "sum=" & sumEnd Sub。