下载文档原格式
VB程序设计实例1.银行存款计算器编写一个程序，可以计算并显示一个银行账户的存款利息。
用户可以输入初始存款金额、年利率以及存款年限。
程序将根据用户的输入计算出最终存款金额，并显示在屏幕上。
```vbModule BankDepositCalculatorSub Main'用户输入初始存款金额、年利率和存款年限Console.WriteLine("请输入初始存款金额：")Dim principal As Decimal = Console.ReadLineConsole.WriteLine("请输入年利率：")Dim interestRate As Decimal = Console.ReadLineConsole.WriteLine("请输入存款年限：")Dim years As Integer = Console.ReadLine'计算最终存款金额Dim finalAmount As Decimal = principal * (1 + interestRate) ^ years'显示最终存款金额Console.WriteLine("最终存款金额为：" & finalAmount)Console.ReadLineEnd SubEnd Module```2.温度转换器编写一个程序，可以将摄氏温度转换为华氏温度或将华氏温度转换为摄氏温度。
用户可以选择要进行的转换类型并输入相应的温度值。
程序将根据用户的选择进行温度转换，并显示转换结果。
```vbModule TemperatureConverterSub Main'用户输入转换类型和温度值Console.WriteLine("请选择转换类型（1-摄氏转华氏，2-华氏转摄氏）：")Dim conversionType As Integer = Console.ReadLineConsole.WriteLine("请输入温度值：")Dim temperature As Decimal = Console.ReadLine'进行温度转换Select Case conversionTypeDim fahrenheit As Decimal = temperature * 9 / 5 + 32Console.WriteLine("转换结果为：" & fahrenheit & "华氏度")Case 2Dim celsius As Decimal = (temperature - 32) * 5 / 9Console.WriteLine("转换结果为：" & celsius & "摄氏度")Case ElseConsole.WriteLine("无效的转换类型")End SelectConsole.ReadLineEnd SubEnd Module```3.数字猜猜猜游戏编写一个程序，模拟一个数字猜猜猜游戏。
vb程序设计试题及答案一、选择题（每题2分，共20分）1. 在VB中，下列哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. VB中用于声明变量的关键字是？A. DimB. DeclareC. SetD. All of the above答案：A3. 在VB中，下列哪个选项是正确的循环语句？A. ForB. DoC. WhileD. All of the above答案：D4. VB中用于打开文件的函数是？A. OpenB. CloseC. WriteD. Read答案：A5. 在VB中，下列哪个选项是正确的条件语句？A. If...ThenB. Select CaseC. Do WhileD. All of the above答案：A6. VB中用于创建新窗体的语句是？A. Form.ShowB. Form.NewC. Form.CreateD. Form.Open答案：A7. VB中用于声明常量的关键字是？A. ConstB. DimC. StaticD. Option答案：A8. 在VB中，下列哪个选项是正确的数组声明？A. Dim arr(5) As IntegerB. Dim arr() As IntegerC. Dim arr As IntegerD. Dim arr(5) As String答案：A9. VB中用于结束程序的语句是？A. EndB. ExitC. CloseD. All of the above答案：B10. VB中用于捕获异常的语句是？A. Try...CatchB. On ErrorC. CatchD. All of the above答案：B二、填空题（每题2分，共20分）1. 在VB中，声明一个名为myVar的变量，其类型为字符串，应该使用语句________。
答案：Dim myVar As String2. VB中，用于定义一个名为myFunction的函数，返回值为整数，应该使用语句________。
VB小程序设计实例引言VB（Visual Basic）是一种广泛应用于Windows平台的编程语言，它具有简单易学的特点，因此非常适合初学者入门。
本文将以一个实际的VB小程序设计实例为例，介绍如何使用VB语言进行简单的程序开发。
项目背景我们的目标是创建一个简单的VB小程序，用于管理学生信息。
该程序将允许用户添加、删除和修改学生的基本信息，例如姓名、年龄和班级。
此外，用户还可以根据特定条件检索学生信息，并显示学生列表。
设计步骤1. 创建VB项目首先，打开Visual Studio并选择“创建新项目”，然后选择“Visual Basic”作为项目类型。
接下来，选择“Windows Forms应用程序”作为模板，并给项目命名。
点击“确定”按钮以创建新的VB项目。
2. 设计用户界面在VB中，用户界面是通过拖放控件来创建的。
在“工具箱”中选择所需的控件，例如按钮、文本框和标签，并将它们放置在窗体上。
使用控件的属性面板可以更改它们的外观和行为。
3. 编写代码现在，我们需要为各个控件添加相应的事件处理程序。
例如，当用户点击一个按钮时，我们需要执行特定的操作。
首先，选择要添加事件处理程序的控件，然后在属性面板中找到“事件”部分。
在相应的事件上双击以创建并打开处理程序。
4. 实现学生信息管理功能在代码中，我们需要定义学生类和学生信息管理类。
学生类包含学生的属性，例如姓名、年龄和班级。
学生信息管理类包含对学生信息进行增删改查的方法。
我们可以使用集合类来存储学生对象，并使用LINQ进行查询操作。
在事件处理程序中调用适当的方法以实现相应的功能。
5. 运行和测试程序在完成代码的编写之后，我们可以点击“运行”按钮来启动程序。
通过与程序交互，测试各个功能是否按预期工作。
如果发现问题，可以调试程序并对代码进行调整。
6. 部署和发布程序一旦我们满意了程序的功能和性能，我们可以将程序部署和发布给其他人使用。
在Visual Studio中，选择“生成”菜单并点击“发布”选项。
引言概述VB程序设计是一种广泛应用于Windows操作系统的编程语言。
VB程序设计具有简单易学、高效便捷的特点，适用于各种规模的软件开发项目。
本文将详细介绍VB程序设计的技术特点以及其应用领域。
正文内容1.开发环境搭建1.1安装VB开发环境1.2配置开发环境1.3编写第一个VB程序2.VB语言基础2.1数据类型与变量2.2运算符和表达式2.3控制结构2.3.1循环结构2.3.2条件结构2.3.3选择结构2.4函数和过程2.4.1函数的定义和调用2.4.2过程的定义和调用2.4.3函数和过程的参数传递2.5对象与类2.5.1创建对象2.5.2对象属性和方法的调用2.5.3类的继承和封装3.VB程序开发技巧3.1异常处理与错误处理3.2调试技巧与工具3.3优化和提升程序性能3.4用户界面设计3.4.1控件选择与布局3.4.2事件处理与交互3.4.3界面美化与用户体验3.5数据库操作与数据存储3.5.1连接数据库3.5.2数据库查询与更新3.5.3数据存储与备份4.VB程序的应用领域4.1办公自动化4.1.1数据处理与报表4.1.2资源调度与协同办公4.1.3文件管理与批量处理4.2游戏开发4.2.1游戏界面设计与交互4.2.2游戏逻辑与算法实现4.2.3游戏测试与发布4.3网络编程4.3.1客户端与服务器通信4.3.2网络协议与数据传输4.3.3网络安全与加密4.4图形图像处理4.4.1图像显示与处理4.4.2图形绘制与变换4.4.3图形识别与分析5.VB程序设计的发展趋势5.1跨平台开发5.2与机器学习5.3大数据处理与分析5.4云计算与边缘计算5.5面向物联网的应用总结本文详细介绍了VB程序设计的技术特点以及其应用领域。
通过搭建开发环境，学习VB语言基础，掌握VB程序开发技巧，并结合各个行业的实际应用场景，可以编写出高效、稳定的VB程序。
随着技术的发展，VB程序设计正朝着跨平台、、大数据处理等方向迅猛发展，未来将在更多领域发挥作用。
vb程序设计的名词解释VB（Visual Basic）程序设计是一种基于事件驱动的编程语言，广泛用于开发Windows平台的应用程序。
本文将对VB程序设计过程中常用的一些术语进行解释，以帮助读者更好地理解和运用这门编程语言。
1. 变量（Variable）变量是在程序中用于存储和代表数据的内存位置。
在VB程序设计中，变量可以是不同的数据类型，如整数（Integer）、浮点数（Single）、字符串（String）等等。
通过定义合适的变量，程序能够在执行中动态地储存和处理数据。
2. 函数（Function）函数是一段具有特定功能的可重用代码块。
在VB程序设计中，函数可以接受输入参数并返回一个具体的结果。
例如，VB内置了许多常用的函数，如Len函数用于返回一个字符串的长度，MsgBox函数用于显示一个消息框等等。
开发者也可以自定义函数以满足特定的需求。
3. 过程（Procedure）过程是一组一起执行的指令，它可以是子过程（Subroutine）或函数。
与函数不同的是，过程通常不返回特定的结果。
在VB程序设计中，过程可以完成一系列任务，如初始化变量、执行特定的操作等。
4. 对象（Object）对象是现实世界中具有属性和行为的实体的抽象。
在VB程序设计中，对象是编程的基本概念之一。
VB以面向对象的方式工作，开发者可以使用预定义的对象，如窗体（Form）和按钮（Button），也可以创建自己的对象来实现特定的功能。
5. 属性（Property）属性是对象的特性，描述了对象的状态。
在VB程序设计中，对象的属性可以是文本、颜色、位置等。
通过设置或获取属性值，可以修改对象的外观或行为。
6. 事件（Event）事件是指用户操作或系统运行引发的一些特定动作。
在VB程序设计中，事件驱动是一种常见的编程范式。
通过响应特定的事件，开发者可以为对象添加交互功能。
例如，当用户点击按钮时，会触发相应的按钮点击事件（Click Event），可以在该事件中编写相应的代码。
VB循环结构程序设计VB循环结构程序设计VB语言中的循环结构可以帮助我们重复执行一段代码，从而实现特定的逻辑功能。
VB提供了多种循环结构，包括For循环、While循环和Do-While循环。
For循环For循环是VB中最常用的循环结构之一。
它可以让我们在已知次数的情况下重复执行一段代码。
For循环的语法如下：vbFor [变量] = [初始值] To [结束值] [Step [步长]]' 执行的代码Next [变量]其中，`变量`用于表示循环变量，`初始值`表示循环变量的起始值，`结束值`表示循环变量的结束值，`步长`表示每次循环变量的增加或减少量（默认为1）。
以下是一个使用For循环输出1到10的代码示例：vbFor i = 1 To 10Console.WriteLine(i)Next iWhile循环While循环是另一种常用的循环结构，它能够根据条件判断重复执行一段代码，直到条件不满足为止。
While循环的语法如下：vbWhile [条件]' 执行的代码[递增或递减循环变量]End While其中，`条件`是一个逻辑表达式，只有在条件为真时才会执行循环中的代码。
以下是一个使用While循环计算1到5的总和的代码示例：vbDim i As Integer = 1Dim sum As Integer = 0While i <= 5sum += ii += 1End WhileConsole.WriteLine(sum)Do-While循环Do-While循环与While循环相似，不同之处在于它在执行循环之前先判断条件，所以至少会执行一次循环。
Do-While循环的语法如下：vbDo' 执行的代码[递增或递减循环变量]Loop While [条件]以下是一个使用Do-While循环输出1到5的代码示例：vbDim i As Integer = 1DoConsole.WriteLine(i)i += 1Loop While i <= 5循环控制语句在循环中，我们还可以使用循环控制语句来控制循环的流程。
VB程序设计案例教程VB（Visual Basic）是一种基于事件驱动的编程语言，常用于开发Windows平台下的应用程序。
本文将介绍一个VB程序设计案例教程，帮助读者快速入门并了解VB的基本编程概念和技巧。
这个案例教程将演示如何创建一个简单的学生成绩管理系统。
该系统具有以下功能：添加学生信息、查询学生信息、修改学生成绩和删除学生信息。
首先，我们需要创建一个新的VB项目。
打开VB IDE（集成开发环境），点击"新建项目"，选择"Windows应用程序"，并命名为"学生成绩管理系统"。
接下来，我们将设计系统界面。
在窗体上添加一些控件，例如标签（Label）、文本框（TextBox）、按钮（Button）和列表框（ListBox），用于显示学生信息和操作按钮。
我们可以使用窗体设计器工具在窗体上拖拽这些控件并设置它们的名称、位置和大小。
然后，我们需要为按钮的点击事件编写相应的代码。
例如，在"添加学生"按钮的Click事件中，我们可以通过获取文本框中的学生信息，将其添加到列表框中。
这需要使用VB的语法和内置的函数、属性和方法来实现。
在查询学生信息的功能中，我们可以通过遍历列表框中的学生信息，根据用户输入的关键字查询匹配的学生并显示在一个新的窗体上。
在修改学生成绩的功能中，我们可以通过选择列表框中的学生，然后弹出一个对话框，让用户输入新的成绩，并更新列表框中学生的成绩。
最后，在删除学生信息的功能中，我们可以通过选择列表框中的学生，然后通过调用删除函数，将选定的学生从列表框中删除。
完成以上功能后，我们可以运行程序，并使用这个简单的学生成绩管理系统来添加、查询、修改和删除学生信息。
通过这个案例教程，读者可以掌握VB程序设计的基本步骤和技巧，了解VB的基本语法和常用控件的使用。
读者还可以进一步扩展和改进这个学生成绩管理系统，增加更多的功能和界面设计，提升学习和应用VB的能力。
VB循环结构程序设计1. 循环结构概述在VB程序设计中，循环结构用于重复执行一段代码块，以实现对特定任务的重复操作。
循环结构可以帮助提高程序的效率和灵活性，在处理一些需要重复操作的情况下非常有用。
2. VB中的循环结构2.1 DoLoop循环DoLoop循环是VB中最基本的循环结构，它可以根据指定的条件重复执行一段代码块，直到满足退出条件为止。
2.1.1 Do While循环Do While循环适用于在循环开始之前就已知循环条件的情况。
在每次循环开始前，会先判断循环条件是否为真，如果为真，则执行循环体中的代码块，然后判断循环条件，直到循环条件为假时退出循环。
vbDo While condition' 循环体代码Loop2.1.2 Do Until循环Do Until循环与Do While循环相反，它适用于在循环开始之前并不知道循环条件的情况。
在每次循环开始前，会先判断循环条件是否为假，如果为假，则执行循环体中的代码块，然后判断循环条件，直到循环条件为真时退出循环。
vbDo Until condition' 循环体代码Loop2.2 For循环For循环是一种比较常用的循环结构，适用于循环次数已知的情况。
它通过指定循环变量的初始值、终止值和步长来控制循环的次数。
vbFor counter = start To end [Step step]' 循环体代码Next [counter]2.3 While循环While循环适用于在循环开始之前就已知循环条件的情况。
在每次循环开始前，会先判断循环条件是否为真，如果为真，则执行循环体中的代码块，然后判断循环条件，直到循环条件为假时退出循环。
vbWhile condition' 循环体代码Wend3. 循环结构应用实例以下是一个简单的应用实例，演示了如何使用循环结构来实现对一组数字进行求和的功能。
vbDim sum As IntegerDim num As IntegerDo While num <> 0Console.Write(\。
VB程序界面设计在VB程序界面设计过程中，以下是一些关键因素需要考虑的：1.界面布局：合理的布局能够使用户能够快速找到所需功能和信息，常见的布局方式包括居中对齐、流式布局等。
同时，还需要考虑窗口的大小和比例，以适应不同的屏幕分辨率和显示设备。
2.控件选择：VB提供了丰富的控件库，包括文本框、按钮、列表框等。
在设计时，需要选择合适的控件来展示和输入数据，以及实现程序功能。
同时，还可以通过自定义控件的方式，使界面更加独特和专业。
3.颜色和图标：合适的颜色和图标能够提升界面的美观度和易用性。
可以选择符合应用主题和风格的配色方案，并使用统一的图标和按钮样式，使用户更容易理解和识别功能。
4.文字和字体：程序中的文字需要清晰、易读，并且与界面风格统一、合适的字体和字号能够提高用户的阅读体验，同时需要注意文字的布局和对齐，以及特殊符号的使用。
5.状态提示：通过合适的状态提示能够提高用户交互的响应性和准确性。
例如，在长时间操作时，通过进度条或提示窗口显示操作进度，提醒用户等待。
另外，对于错误信息和警告信息，需要使用可视化的方式提示用户，并提供相关的解决方案。
6.功能导航：对于复杂的程序，需要提供易用的导航方式，以帮助用户快速切换功能。
可以设计菜单栏、工具栏或侧边栏等方式，同时可以使用快捷键和功能提高用户的操作效率。
7.帮助文档：在程序界面中提供帮助功能，帮助用户理解和使用程序。
可以编写用户手册、FAQ等文档，并提供功能。
另外，还可以在界面中添加工具提示等方式，对控件的功能和用法进行说明。
8.响应式设计：随着移动设备的普及，响应式设计是不可忽视的重要方面。
可以通过自适应布局和媒体查询等技术，实现在不同终端和屏幕尺寸下的自动适应。
总之，在VB程序界面设计过程中，需要从用户的角度出发，关注用户需求，并结合开发技术和界面设计原则，创造出易用、美观和功能强大的用户界面。
通过合理的布局、控件选择、颜色和图标等设计手段，提升用户的操作体验和工作效率，从而提高程序的易用性和用户满意度。
1．在代码中引用一个控件时，应使用控件的（ b ）属性。
A．Caption B．Name C．Text D．Index2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（ a ）的值为“假”。
A．x+a <= b-y B． x > 0 AND y < 0C．a = b OR x>y D． x+y > a+b AND NOT (y < b)3．表达式Int(Rnd*71)+10产生的随机整数范围是（ c ）。
A．（10，80） B．（10，81） C．[10，80] D．[10，81]4．函数Sgn(3.1416)的返回值是（ c ）。
A．-1 B．0 C．1 D．以上都不对5．67890属于（ d ）类型数据。
A．整型 B．单精度浮点数 C．货币型 D．长整型6．下列变量名中正确的是（ d ）。
A．3S B．Print C．Select My Name D．Select_17．下列赋值语句（ a ）是有效的。
A．sum = sum -sum B．x+2 = x + 2 C．x + y = sum D．last = y / 08．以下的控件或方法具有输入和输出双重功能的为（ b ）。
A．Print B．Textbox C．Optionbutton D．Checkbox9．若要获得列表框中被选中的列表项的内容，可以通过访问（ d ）属性来实现。
A．Name B．ListIndex C．ListCount D．Text10．下列代码的运行结果为（ b ）。
Private Sub command1_click()Dim m(10)For k = 1 To 10m(k) = 11 - kNext kx = 5Print m(2 + m(x))End SubA．2 B．3 C．4 D．5二、填空题（10分）1．写出整数n能同时被13和17整除的Basic表达式 n Mod 13=0 And n Mod 17=0 。
2．代码窗口中有两个下拉列表框：左侧是列表框，右侧是过程列表框。
3．写出在字符串”Visual Basic 6.0” 中截取”Visual” 的Basic表达式。
4．函数Len(“abcdef”)的返回值是。
5．设a = 2，b = 5，c = -2，d = 100，则a > b >= c AND a < b >= d的值为。
6．要使标签的大小自动与所显示的文本相适应，可以通过设置属性为True来实现。
7．若要在一行书写多条语句，则各语句间应加分隔符，Visual Basic的语句分隔符为。
8．要强制显式声明变量，使用__________语句完成。
9．在VB中，用户定义常量使用语句，声明变量使用语句。
三、将下列数学表达式转换为VB表达式。
（6分）1．a2+2ab+b2 __________________________2． __________________________3．8exln10 __________________________4．2sin(450)cos(450) _______________________________5． ___________________________________________6． ___________________________________________四、判断题，正确打“√”，错误打“×”（10分）1．在VB中，控件的事件只能通过用户的操作触发。
（）2．字符型数据以双引号作为定界符，输出时双引号本身不会显示在屏幕上。
（）3．保存工程时，窗体文件和工程文件的文件名不能相同。
（）4．改变控件的大小，可以使用鼠标和键盘，还可以通过修改代码。
（）5．同一过程中，数组和简单变量可以同名。
（）6．VB函数中的参数可以是常量、变量、表达式，还可以是另一个函数。
（）7．代码Const Number1=15：Number1=10合法。
（）8．允许将块If-Then语句结构中的所有语句都写在一行上（）9．定义数组语句Dim a(b) As Integer 是正确的（）10．在过程调用中，“实参表”和“形参表”中对应的变量名不必相同，但是变量的个数必须相等，而且实际参数的类型必须与相应形式参数的类型相符。
（）五、根据题意，将下列程序补充完整。
（16分）1．产生20个[10，100] 之间的随机整数，每行输出10个数据。
Private Sub command1_click()Dim a(1 To 20) As IntegerRandomizei = 0Do While i < 20i = i + 1a(i) = ( ) If （）ThenPrint a(i);End IfIf i = 10 Then Print a(i)If i > 10 Then Print a(i);LoopEnd Sub2．打印九九乘法表Private Sub command1_click()For i = 1 To 9For j = 1 To 9Print （）Next jPrint（）End Sub3．判断一个数是否素数Private Sub command1_click()x = InputBox("请输入一个整数")flag = 1For i = 2 To （ )If x Mod i = 0 Thenflag = 0End IfNext iIf （）Then Print x; "是素数" Else Print x; "不是素数"End Sub4．利用数组输出Fibonacci数列的前15项。
该数列的第1项和第2项为1，其余各项均为其前两项之和。
Private Sub Command1_Click()（）f(1) = 1 : f(2) = 1List1.AddItem f(1) : List1.AddItem f(2)For i = 3 To 15f(i) = （ )List1.AddItem f(i)Next iEnd Sub六、写出下面程序的输出结果。
（每题3分，共18分）1． Private Sub command1_click()x = InputBox("enter x") ' x 的输入值为-8Select Case Sgn(x) + 2Case 1Print "y="; x ^ 2 + 1Case 2Print "y="; x - 4Case 3Print "y="; x ^ 3 + 100End SelectEnd Sub2． Private Sub command1_click()Dim a, b, c, d, e As Stringa = "Zheng Zhou"b = "Zhong Yuan Gong Xue Yuan"c = a + " " + bd = Left(a, 1) + Mid(a, 7, 1)e = Left(b, 1) + Mid(b, 12, 1)Print cPrint d; eEnd Sub3．设有Sub过程：Private Sub p1(x As Integer, ByVal y As Integer) x = 4 ：y = 5 ：z = 6End Sub则如下程序段的运行结果是:Private Sub Command1_Click()Dim x As Integer, y As Integer x = 1: y = 2: z = 3Print x, y, zCall p1(x, y)Print x, y, zEnd Sub4． Private Sub command1_click() k = 0For i = 1 To 3k = k + 1a = i * i * kPrint a;Next iEnd Sub5． Private Sub command1_click() Dim a(5, 5) As IntegerFor i = 1 To 5For j = 1 To 5a(i, j) = i * 2 + jPrint a(i, j);Next jPrintNext iEnd Sub6．设有Function过程:Private Function f1(b, a)a = a * a:b = b * bf1 = a - bEnd Function则如下程序段的运行结果是什么？Private Sub command1_click()a = 4:b = 3a = f1(a, b)Print aEnd Sub七．编程题（共30分）注意：艺术类学生（环艺、装潢、表演、服设）做第1、2、5、6小题；其他学生做第1、2、3、4 小题。
1．给出一个百分制的成绩，要求输出成绩的相应等级。
（7分）90分以上为“A”，80～89分为“B”，70～79分为“C”，60～69分为“D”，60分以下为“E”。
2．求n!,n由键盘输入。
（7分）3．产生20个 [0，99] 之间的随机整数，并按从小到大的顺序输出。
（8分）4．产生并输出一个6×6的二维数组A：（8分）（1）两条对角线上元素的值为1，其余元素为小于30的随机整数。
（2）计算各行元素的平均值，输出平均值最大和平均值最小的行号。
5．输出1+2+……+100的和，并求出1～100 之间能被17整除的数据的个数（8分）6．从键盘输入10个数，求出其中的最大数，最小数和平均值。
（8分）VB试题答案及评分标准一、单项选择题（每题1分，共10分）1．B 2．A 3．C 4．C 5．D6．D 7．A 8．B 9．D 10．B二、填空题（每空1分，共10分）1．n Mod 13=0 And n Mod 17=01、对象3．LEFT(“Visual Basic 6.0”,6)4．65．False6．Autosize7．： 8．Option Explict 9．Const Dim三、将下列数学表达式转换成VB表达式（每题1分，共6分）1、 a^2+2*a*b+b^22、 x^(1/3)*y^(1/4)3、 8*exp(x)*log(10)4、 2*sin(3.1416/4)*cos(3.1416/4)5、 (x+y+z)/sqr(x^2+y^2+z^2)6、 log(1+abs((a+b)/(a-b)))四、判断题（每题1分，共10分）1．× 2．√ 3．× 4．√ 5．×6．√ 7．× 8．× 9．× 10．√五、根据题意，将下列程序补充完整（每空1分，共10分）1．（1） int(rnd*91)+10 （2） I<102．（1） i*j （2） next i3．（1）int(sqr(x))或者x-1 （2） flag=1 4．（1）dim f(15) as integer （2）f(I-1)+f(I-2)六、写出下面程序的输出结果（每题4分，共24分）1、 y=652、 Zheng Zhou Zhong Yuan Gong Xue Yuan 2分ZZZG 2分3．1 2 34 2 34．1 8 275．3 4 5 6 75 6 7 8 97 8 9 10 119 10 11 12 1311 12 13 14 156．-7七、编写程序1. private sub command1_click()dim x as integer,grade as string 1分 x=text1.text 1分select case x 4分case 90 to 100grade=”A”case 80 to 89grade=”B”case 70 to 79grade=”C”case 60 to 69grade=”D”case is<60grade=”E”case elsemsgbox “请重新输入”end selectprint “该学生成绩为”+grade 1分end sub2．Private Sub command1_click()Dim n as integer,f as long 1分n=text1.text 1分f=1for I=1 to n 3分f=f*Inext Itext2.text=f 2分 end sub3． Private Sub Command1_Click()Dim a(1 To 20) As Integer ' 1分RandomizeFor i = 1 To 20 2分a(i) = Int(Rnd * 100)Print a(i);NextPrintFor i = 1 To 19 3分For j = i + 1 To 20If a(i) > a(j) Thent = a(i): a(i) = a(j): a(j) = tEnd IfNext jNext iFor i = 1 To 20 2分Print a(i);Next iEnd Sub4． Private Sub Command1_Click()Dim a(1 To 6, 1 To 6) As Integer ' 1分Dim aver As SingleRandomizeFor i = 1 To 6 3分 For j = 1 To 6If i = j Or i + j = 7 Thena(i, j) = 1Elsea(i, j) = Int(Rnd * 30)End IfPrint a(i, j);Next jPrintNext iPrintMax = 0: Min = 30 4分For i = 1 To 6s = 0For j = 1 To 6s = s + a(i, j)Next javer = s / 6If aver > Max Then Max = aver: row_max = IIf aver < Min Then Min = aver: row_min = iNext iPrint row_max, row_minEnd Sub5． Private Sub Command1_Click()Dim i As Integer, c As IntegerDim s As IntegerFor i = 1 To 100 4分s = s + iIf i Mod 17 = 0 Then c = c + 1Next iPrint "1+2+...+100="; s 2分 Print "能被17整数的数据有"; c; "个" 2分End Sub6． Private Sub Command1_Click()Dim x As Integerx = InputBox("x=") 1分Print x;Max = x: Min = x: s = x 2分For i = 2 To 10 3分x = InputBox("x=") ：Print x;s = s + xIf x > Max Then Max = xIf x < Min Then Min = xNext iPrint s / 10 1分 Print Max, Min 1分End Sub应该不是真的。
