VB操作题
VB考试试题及答案
一、填空题1、根据数据的编码方式，文件可分为文件和文件。
ASCII、二进制2、根据数据的存取方式和结构，文件可分为文件和文件。
顺序、随机3、工程文件的扩展名是，窗体文件的扩展名是。
Vbp、Frm4、Visual Basic应用程序通常由窗体模块、模块和模块三类组成。
标准、类5、Visual Basic中的控件分为标准控件、和。
ActiveX控件、可插入对象6、Visual Basic中的菜单有两种形式，分别是形式和形式。
直接执行、打开对话框7、一个控件在窗体上的位置由和属性决定。
Top、Left8、Visual Basic字符采用编码方式，每个字符用个字节编码。
统一、二9、控件和窗体的Name属性只能通过期间设置，不能在期间设置。
设计、运行10、在Visual Basic中，字符串常量要用括起来，日期/时间常量要用括起来。
“、#11、以下程序段的输出结果是。
9X=8.6Y=Int(X+0.5)Print Y12、要想在文本框中显示垂直滚动条，必须把属性设置为2，同时把属性设置为。
ScrollBars、MultiLine、True13、控件数组的名字由属性指定，而数组中的每个元素由属性指定。
Name、 Index14、在KeyDown和KeyUp事件过程中，当参数Shift的值为、、,分别代表、、键。
1、2、4、Shift、Ctrl、Alt15、以下语句的输出结果是。
3A%=3.14156Print A%16、为了使一个标签透明且没有边框，必须把它的BorderStyle属性设置为，并把BackStyle属性设置为。
0、117、由Array函数建立的数组名字必须是类型。
数组作过程形参时，调用方式为调用。
变体、传址18、在MouseDown和MouseUp事件过程中，当参数Button的值为、、时，分别代表鼠标的、、键。
1，2，4、左、右、中二、选择题1、语句Print 5*5\5/5的输出结果是（）BA、5B、25C、0D、12、实现字符的Unicode编码方式与ANSI编码方式相互转换的函数是( )BA、StrB、StrConvC、TrimD、Mid3、为了窗体的大小可以改变，必须把它的BorderStyle属性设置为（）BA、1B、2C、3D、44、下列不能激活属性窗口的操作是（）DA、用鼠标双击窗体的任何部件B、执行“工程”菜单中的“属性窗口”命令C、按Ctrl+F4键D、按F4键5、要想不使用Shift或Ctrl键就能在列表框中同时选择多个项目，则应把该列表框的MultiSelect属性设置为（）BA、0B、1C、2D、其他6、为了在按下回车健时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（）CA、ValueB、CancelC、DefaultD、Enabled7、使用Picture1和Text1分别作为图片框和文本框的名称，下列不正确的语句是（）CA、Print 25B、Picture1.Print 25C、Text1.Print 25D、Debug.Print 258、下列可作为Visual Basic的变量名是（）AA、FilenameB、A(A+B)C、254DD、Print9、下列不能打开代码窗口的操作是（）DA、双击窗体上的某个控件B、双击窗体C、按F7键D、单击窗体或控件10、确定一个窗体或控件大小的属性是（）BA、width或HeightB、width和HeightC、Top或LeftD、Top和Left11、在用Open语句打开文件时，如果省略“For方式”，则打开的文件的存取方式是（）CA、顺序输入方式B、顺序存取方式C、随机存取方式D、二进制方式12、假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用的语句为（）AA、MenuItem.Enabled=FalseB、MenuItem.Enabled=TrueC、MenuItem.Visible=TrueD、MenuItem.Visible=False13、编写如下事件过程：Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Integer,_Y As Integer)If Shift=6 And Button=2 ThenPrint “BBBB”End ifEnd Sub程序运行后，为了在窗体上输出“BBBB”，应执行的操作是（）DA、同时按下Shift键和鼠标左键B、同时按下Shift键和鼠标右键C、同时按下Ctrl、Alt键和鼠标左键D、同时按下Ctrl、Alt键和鼠标右键14、用下面的语句所定义的数组元素个数是（）CDim Array(3 To 5,-2 To 2) As IntegerA、20B、12C、15D、2415、为了使用列表框中的项目分为多列显示，需要设置的属性为（）AA、ColumnsB、StyleC、ListD、MultiSelect16、为了在按下ESC时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（）BA、ValueB、CancelC、DefaultD、Enabled17、下列不能打开菜单编辑器的操作是（）DA、按Ctrl+E键B、单击工具栏中的“菜单编辑器”按钮C、执行“工具”菜单中的“菜单编辑器”命令D、按Shift+Alt+M键18、决定窗体有无控制菜单的属性是（）AA、ControlBoxB、MinButtonC、EnabledD、MaxButon19、编写如下事件过程：Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)If (Button And 3)=3ThenPrint “AAAA”End ifEnd Sub程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键是（）DA、右B、左C、同时按下左、右D、按什么键都不显示20、与传统的程序设计语言相比，Visual Basic最突出的特点是（）CA、结构化程序设计B、程序开发环境C、事件驱动编程机制D、程序调试技术21、为了使窗体的大小可以改变，必须把它的BorderStyle属性设置为（）BA、1B、2C、3D、422、实现字符的Unicode编码方式与ANSI编码方式相互转换的函数是（）BA、 StrB、StrConvC、 TrimD、 Mid23、语句Print Sgn(-6^2)＋Abs(-6^2)＋Int(-6^2）的输出结果是（）CA、-36B、1C、-1D、-7224、.为了使列表框中的项目分为多列显示，需要设置的属性为（）aA、 ColumnsB、StyleC、ListD、Multiselect25、用下面的语句所定义的数组元素个数是（）DDim Array(-3 To 5) As IntegerA、6B、7C、8D、9三、分析下列程序，写出程序的运行结果。
vb试题及答案
VB试卷一、单项选择题(每题2分,共40分)1. 窗体的标题栏显示内容由窗体对象的属性决定。
A) BackColor B)BackStyle C)Text D)Caption2. 窗体的示意图标可用属性来设置。
A) Picture B) Image C) Icon D) MouseIcon3. 窗体的控制菜单的有无由窗体对象的属性决定。
A) ControlBox B) MinButton C) MaxButton D) BorderStyle4. 若要取消窗体的最大化功能，则可设置属性为False来实现。
A) ControlBox B) MinButton C) MaxButton D) Enabled5. 以下4个选项，不属于VB的工作模式。
A) 编译 B) 设计 C) 运行 D) 中断6. 窗体的边框样式由窗体对象的属性来设置。
A) BackStyle B) BorderStyle C) WindowState D) FillStyle7. 若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的属性来实现。
A) FontName B) Font C) FontSize D) FontBold8. 命令按钮的标题文字由属性来设置。
A) Text B) Caption C) Name D) (名称)9. VB是面向对象的程序设计，以下4个选项，不属于面向对象的三要素。
A) 变量 B) 属性 C) 事件 D) 方法10. 若要将某命令按钮设置为默认命令按钮，可设置属性为True来实现。
A) Value B) Cancel C) Default D) Enabled11. 若要使命令按钮不可见，可设置属性为False来实现。
A) Value B) Enabled C) Visible D) Cancel12. 运行程序时，系统自动执行窗体的事件。
A) load B) click C) unload D) GotFocus13. 若要设置文本框最大可接收的字符数，可通过属性来实现。
vb试题及答案一
vb试题及答案一一、选择题1. 在Visual Basic中，以下哪个关键字用于声明一个变量？A. DimB. IfC. ForD. While答案：A2. Visual Basic中的哪个控件用于显示文本，但不允许用户编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B3. 在Visual Basic中，以下哪个事件用于响应按钮点击？A. ClickB. LoadC. ChangeD. DblClick答案：A4. 在Visual Basic中，以下哪个函数用于将字符串转换成数字？A. Str()B. Val()C. Int()D. CInt()答案：D5. 在Visual Basic中，以下哪个语句用于结束程序的执行？A. EndB. ExitC. StopD. Quit答案：B二、判断题1. Visual Basic是一种面向对象的编程语言。
（对）2. 在Visual Basic中，所有的变量都需要声明数据类型。
（错）3. 在Visual Basic中，可以使用If语句来实现条件判断。
（对）4. Visual Basic中的数组下标总是从0开始。
（错）5. Visual Basic中的事件驱动编程允许程序在没有用户交互的情况下运行。
（错）三、简答题1. 请简述Visual Basic中使用循环结构的目的是什么？答：循环结构在Visual Basic中用于重复执行一段代码直到满足特定条件，这使得处理大量数据或执行重复任务变得更加高效和简洁。
2. 请解释Visual Basic中类和对象的区别。
答：在Visual Basic中，类是一个模板，它定义了对象的属性和方法。
而对象是类的实例，具有类定义的属性和方法，并可以进行操作。
四、编程题1. 编写一个Visual Basic程序，该程序接受用户输入的三个数，并计算这三个数的平均值。
```vbDim num1 As DoubleDim num2 As DoubleDim num3 As DoubleDim average As Double' 接受用户输入num1 = Val(InputBox("请输入第一个数:"))num2 = Val(InputBox("请输入第二个数:"))num3 = Val(InputBox("请输入第三个数:"))' 计算平均值average = (num1 + num2 + num3) / 3' 显示结果MsgBox "这三个数的平均值是: " & average```五、论述题1. 论述Visual Basic中事件处理的重要性及其在应用程序开发中的应用。
VB考试练习题(上机操作)
第一部分1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。
程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。
在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。
3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。
程序运行后，单击命令按钮完成以下工作：①随机产生30个0～1000的整数，将其放入一个一维数组中②求出其中的最大值，并显示在窗体上。
4 请设计如下图所示窗体界面。
程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。
请编写适当的事件过程，完成上述功能。
5 在名称为Form1的窗体上添加一个名称为Text1的文本框；添加两个标题分别为"对齐方式"、"字体"，名称分别为Fm1、Fm2的框架；在Fm1框架中添加三个单选按钮，标题分别为"左对齐"、"居中"、"右对齐"，名称分别为Opt1、Opt2、Opt3；在Fm2框架中添加两个单选按钮，标题分别为"宋体"、"黑体"，名称分别为Opt4、Opt5。
要求：编写五个单选按钮的Click事件过程，使程序运行时，单击这些单选按钮，可以对文本框中的内容实现相应的操作(如图所示)。
6 请设计如下图所示窗体界面。
运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择"N的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算，计算结果在右侧文本框中显示。
VB6.0课后题及常见操作题代码
第四章1、从键盘上输入4个数，编写程序，计算并输出这4个数的和及平均值。
通过inputbox 函数输入数据，在窗体上显示和及平均值。
Dim a as singleFor i=1 to 4a=inputbox（“请输入一个数：”，“数据输入”）sum=sum+an=n+1avg=sum/nnext iprint “和是：”,sumprint “平均值是：”，avg2、编写程序，要求用户输入下列信息：姓名、年龄、通信地址、邮政编码、电话，然后将输入的数据用适当的格式在窗体上显示出来。
Dim a as variantFontsize=20a=inputbox（“请输入姓名：”，“数据输入”）print “姓名：”；aa=inputbox（“请输入年龄：”，“数据输入”）print “年龄：”；aa=inputbox（“请输入通信地址：”，“数据输入”）print “通信地址：”；aa=inputbox（“请输入邮政编码：”，“数据输入”）print “邮政编码：”；aa=inputbox（“请输入电话：”，“数据输入”）print “电话：”；a3．a=5，b=2.5，c=7.8，编程序计算：y=（πab）/（a+bc）程序：Dim a as single，b as single，c as singlea=5b=2.5c=7.8pi=3.14y=（pi*a*b）/（a+b*c）print “结果是：”;y4、输入以秒为单位表示的时间，编写程序，将其转换为几日几时几秒。
Dim a as long，d as integer ，h as integer，s as integera=inputbox（“请输入秒数：”，“数据输入”）d=int（a/86400）h=int（（a-d*86400）/3600）s=a-d*86400-h*3600print d；“日”；h；“时”；s；“秒”5、自由落体位移公式为：s=gt2/2+v0t其中v0为初始速度，g为重力加速度，t为经历的时间，编写程序，求位移量s。
vb练习题及答案
vb练习题及答案VB练习题及答案VB（Visual Basic）是一种广泛应用于Windows操作系统的编程语言，它以其简单易学的特点受到了许多初学者和专业开发者的青睐。
为了帮助大家更好地掌握VB编程，下面将提供一些VB练习题及其答案，希望能对大家有所帮助。
练习题一：计算器程序编写一个VB程序，实现一个简单的计算器功能。
要求用户输入两个数字和一个操作符（+、-、*、/），然后根据操作符进行相应的计算，并输出结果。
解答：```vbPrivate Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.ClickDim num1 As Double = CDbl(txtNum1.Text)Dim num2 As Double = CDbl(txtNum2.Text)Dim operator As String = cmbOperator.SelectedItem.ToString()Dim result As DoubleSelect Case operatorCase "+"result = num1 + num2Case "-"result = num1 - num2Case "*"result = num1 * num2Case "/"result = num1 / num2End SelectlblResult.Text = "Result: " & result.ToString()End Sub```练习题二：学生成绩管理系统编写一个VB程序，实现一个简单的学生成绩管理系统。
要求用户输入学生的姓名和成绩，然后将其保存到数组中。
用户可以通过输入姓名来查询学生的成绩。
解答：```vbPrivate Structure StudentPublic Name As StringPublic Score As DoubleEnd StructurePrivate students() As StudentPrivate Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.ClickDim newStudent As Student = txtName.TextnewStudent.Score = CDbl(txtScore.Text)ReDim Preserve students(students.Length)students(students.Length - 1) = newStudenttxtName.Text = ""txtScore.Text = ""End SubPrivate Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.ClickDim searchName As String = txtSearchName.TextDim found As Boolean = FalseFor Each student As Student In studentsIf = searchName ThenlblSearchResult.Text = "Score: " & student.Score.ToString()found = TrueExit ForEnd IfNextIf Not found ThenlblSearchResult.Text = "Student not found."End IfEnd Sub```练习题三：简单的文本编辑器编写一个VB程序，实现一个简单的文本编辑器功能。
VB教材课后习题答案
<大学程序设计基础-Visual Basic>教材课后习题答案第1章一、选择题1 2 3 4 5 6 7B D BC B B D第2章一、选择题1 2 3 4 5 6 7 8 9 10B C B C B C A A A A11 12 13 14A B A A二、填空题1.rem或’ _ ：2.“” # #3.5x2-3x-2sinA/34.3214565.300三、操作题1、程序段：Private Sub Command1_Click()Dim x As Integer, y As IntegerDim s As Long, c As Longx = Text1.Texty = Text2.Texts = x * yc = (x + y) * 2Label3.Caption = "长方形的面积为" + Str(s)Label4.Caption = "长方形的周长为" + Str(c)End Sub3、程序段：Private Sub Command1_Click()Text1.Text = "第一"End SubPrivate Sub Command2_Click()Text1.Text = "第二"End Sub4、程序代码：Private Sub Text1_Change()Text1.MaxLength = 10End Sub5、程序代码：Private Sub Text1_Click()Text1.SelStart = 0Text1.SelLength = Len(Text1.Text)End Sub第3章一、选择题1 2 3 4 5 6 7D A D B A D B二、填空题1. False2.B^2-4*a*c else三、操作题1．从键盘输入三个值，判断它们能否构成三角形的三个边。
如果能构成一个三角形，则计算三角形的面积。
Vb操作题题库(含答案)
VB填空题:1、Visual Basic 6.0分为3种版本，这3种版本是______、______和______。
其中，最完整的是______。
答案：1：学习版#专业版#企业版2：学习版#专业版#企业版3：学习版#专业版#企业版4：企业版知识点：VB知识点/第一章2、可以通过______快捷键或______快捷键退出Visual Basic。
答案：1：Alt+F4#Alt+Q2：Alt+F4#Alt+Q知识点：VB知识点/第一章3、传统的程序设计语言主要是面向______的，而现在涌现出的许多可视化程序设计语言，如Visual Basic主要是面向______进行程序设计的。
答案：1：过程#问题2：对象知识点：VB知识点/第一章4、在面向对象程序设计中，对象是由______和______组成的概念。
答案：1：代码#数据2：代码#数据知识点：VB知识点/第一章5、Visual Basic开发环境中，在标题栏的方括号内能指出目前正处在______、______状态或______状态。
答案：1：设计#中断#运行#设计状态#中断状态#运行状态2：设计#中断#运行#设计状态#中断状态#运行状态3：设计#中断#运行#设计状态#中断状态#运行状态知识点：VB知识点/第一章6、在设计模式下，工程中的某个窗体没有出现，可通过双击______窗口中的相应窗体名来使之出现。
答案：1：工程资源管理器知识点：VB知识点/第一章7、Visual Basic开发环境中，当属性窗口在界面上末出现时，可使用______菜单中的______选项让它显示出来。
答案：1：视图2：属性窗口知识点：VB知识点/第一章8、在属性窗口中，属性显示方式分为两种，即按______顺序和按______顺序，分别通过单击相应的按钮来实现。
答案：1：字母#分类2：字母#分类知识点：VB知识点/第一章9、菜单命令中有"…"标记表示该命令是一个______的命令。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB操作题目录4. 给定年份和月份，判断该年是否是闰年。
并根据给出的月份判断是什么季节、该月有多少天。
（闰年的条件是：年份能被4整除但不能被100整除或能被400 整除）6. 编写程序，输入学生的姓名、学号和成绩（高数、英语和专业课），判断该学生能获得几等奖学金，并输出结果。
获奖条件是：一等奖学金要求所有成绩在95分以上；二等奖学金要求所有成绩在90分以上；三等奖学金要求所有成绩在88分以上。
8. 已知：。
当任意输入x值时求f(x)的值。
请编制程序完成。
9. 编写一个程序输入某人的身高（cm）和体重（kg），按下式确定其体重是否为标准、过胖或过瘦：（1）标准体重=身高-110；（2）超过标准体重5kg为过胖；（3）低于标准体重5kg为瘦。
10. 征兵的条件是：男性（sex）年龄（age）在18~20之间，身高（size）在1.65米以上；或者女性（sex）年龄（age）在16~18之间，身高（size）在1.60米以上。
用三个文本框控件分别输入性别、年龄、身高信息，根据这些信息判断是否符合征兵条件，用标签控件输出结果。
11. 夏季到了，超市对水果进行促销，具体活动如下：早市9：00~ 12：00 所有水果打九折；午市12：00 ~ 16：00 所有水果打8折；晚市16：00 ~ 21：00 所有水果打7折；小明今天要去超市买些荔枝，请根据他去的时间段，编程输入荔枝的价格并计算总价。
（请注意，他买的水果可能不止1斤）12. 为某航空公司设计一售机票程序，能根据月份和订票数决定优惠率，计算票价。
假设优惠折扣规定如下：①在旅游的旺季7～9 月份，如果订票数超过20 张，票价优惠15%；20 张以下，票价优惠5%。
②在旅游的淡季1～5 月份、10 月份和11 月份，如果订票数超过20 张，票价优惠30%，20 张以下，票价优惠20%。
③其他情况，一律优惠20%。
13. 输入4 个大小不同的数，将它们从大到小排序。
14. 利用if 语句求三个数x，y，z 中的最大值，并将其放入Max 变量中显示输出。
15. 编一段程序，从键盘输入3 个整数，找出其中绝对值最小的数。
16. 税务部门征收所得税，规定如下：（1）收入在1000内的，免征。
（2）收入在1000~1500元内，超过1000元的部分征税2% 。
（3）收入超过1500元的部分，纳税3%。
（4）当收入达到或者超过5000元时，将3%税金改为4%。
编程实现上述条件的税金，利用InputBox函数进行输入某人的收入，然后根据条件计算所交税金及交税金之后的实际收入，将所交税金及实际收入通过文本框输出17. 求一个一元二次方程ax^2+... 的根18. 任意输入5个学生的成绩，当成绩大于等于60小于等于100时，输出该生成绩“合格”，当成绩大于等于0小于60时，输出该生成绩“不合格”，其他情况输出“成绩不合法”，并统计这5个人的平均分。
19. 用两种循环结构输出101~500之间的所有奇数并输出它们的和。
20. 输入两个正整数m 和n，求其最大公约数a21.求：要求：用InputBox或文本框进行n值的输入，用MsgBox函数输出结果22. 利用下述公式计算的值（直到最后一项小于为止）。
23. 百鸡问题公鸡每只5元，母鸡每只3元，小鸡3只1元。
现有100元，要求买100只鸡，问：公鸡、母鸡、小鸡各多少只？（所有可能的结果均放在列表框中显示出来）24. 设计程序，求s=1*（1+2）*（1+2+3）*….*（1+2+3+4+…+n）的值，编程求s不大于20000时最大的n值。
25. 求300~400之间（包括300和400）所有能被3整除的数之和s，并在窗体上打印出s 的值。
26. 已知编程实现：任意输入n的值，求S的值27. 编程求1到100自然数中被7整除的数据的个数及它们的和。
28. 求S=1!/2 + 2!/3 + 3!/4 + ... + n!/(n+1)，n是从键盘输入的正整数n 。
29．求s，直到最后一项的值小于10^(-6)30. s=....r任意输入一个n值，求S31. 某单位制定生产计划，未来五年的生产量年递增率为5%，从第六年起年递增率调整到8%，试计算产量翻一翻（基数的2 倍）所需的最少年数。
32. 编写一个求4个数中最大数的Sub过程，并调用以验证其正确性。
33. 编写一个求4个数的最小值的函数，在窗体上设计4个文本框输入数据，一个命令按钮“求最小值“，点击该按钮既可调用函数求出4个文本框中的数值的最小值。
34. 编写一个计算圆的面积的函数过程或子过程。
要求输入一个半径值，就能够通过该子过程或函数过程求得以该值为半径的圆的面积35. S=1/1+1....，编写一个求的Function过程。
36. 编写的Function函数，用该函数实现以下表达式求和，n为任意输入的数值。
37. 在列表框中输入100~200之间不能被3整除的数。
窗体上有两个命令按钮和一个列表框，一个命令按钮的标题为“开始”，一个命令按钮的标题为“清除“；点击”开始“按钮后在列表框中列出所有满足条件的数据，点击”清除“按钮后清除列表框中的数据。
38. 已知数组A=array(7,9,5,12,24,32,45)，编写一程序，删除数组中值为x （例如为9）的第一个元素。
要求用户可以输入x 。
39. 随机产生n 个（n 由用户输入）[10,20]范围内的无序整数，存放到数组中，显示结果，并将数组中相同的数只保留一个，其余的删除，最后输出删除后的结果。
40. 利用一维数组统计一班15 个学生0~9、10~19、20~29、……、90~99 及100各分数段的人数，并将统计结果在列表框中显示出来41. 有10 个数据，请用冒泡法排序将其按照由小到大的顺排列出来42. 把两个按升序（即从小到大）排序的数列a(1),a(2),a(3),……,a(10)和b(15)合并成一个仍为升序排列的新数列43. 利用随机函数产生20 个50~100 范围内的随机数，显示他们的最大值、最小值和平均值。
44. 编写一个在数组中查找最大值的函数过程。
要求给定或由机器产生一系列随机数构成一个一维数组，然后调用该过程，就可以找到并显示数组中的最大值。
45. （96）任意输入n 值，编程求n!46．（80）已知铁路货运的费用与路程s的关系如下表所示：设计窗体界面如下图所示，程序运行后，用户输入路程和货物重量，单击命令按钮，显示总共需要的费用。
47.在“神州号”程序中，需要判断飞船飞行状况。
当飞船速度继续加大时，飞船将达到第二宇宙、第三宇宙速度（见下表）试编写程序，输入不同的飞船速度V，判断它的各种飞行状况，显示出来。
飞船速度（V）单位（km/s）飞行状况7.91<=V<11.19 飞船绕地球做匀速圆周运动11.19<=V<16.67 飞船离开地球的控制,围绕太阳转V>16.67 飞船挣脱太阳引力飞出太阳系48. ?，编写一个求的Sub过程，对于任意给定的n值，调用该过程求出相应的s值——————————————————答案———————————————————4. 给定年份和月份，判断该年是否是闰年。
并根据给出的月份判断是什么季节、该月有多少天。
（闰年的条件是：年份能被4整除但不能被100整除或能被400 整除）4Private Sub Command1_Click()Dim x As Integer, y As IntegerText1.Text = InputBox("请输入年份")x = Val(Text1.Text)Text3.Text = (x Mod 4) = 0 And (x Mod 100 <> 0) _Or (x Mod 4) = 0 And (x Mod 400 = 0)End SubPrivate Sub Command2_Click()Dim x As Integer, y As IntegerText2.Text = InputBox("请输入月份")y = Val(Text2.Text)Select Case yCase 3 To 5Text4.Text = "春季"Case 6 To 8Text4.Text = "夏季"Case 9 To 11Text4.Text = "秋季"Case 1, 2, 12Text4.Text = " 冬季"End SelectEnd SubPrivate Sub Command3_Click()Dim x As Integer, y As IntegerText1.Text = InputBox("请输入年份")x = Val(Text1.Text)Text3.Text = (x Mod 4) = 0 And (x Mod 100 <> 0) _Or (x Mod 4) = 0 And (x Mod 400 = 0)Text2.Text = InputBox("请输入月份")y = Val(Text2.Text)Select Case yCase 1, 3, 5, 7, 8, 10, 11Text5.Text = "31天"Case 4, 6, 9, 12Text5.Text = "30天"Case 2If Text1.Text = 0 ThenText5.Text = "29天"ElseText5.Text = "28天"End IfEnd SelectEnd Sub6. 编写程序，输入学生的姓名、学号和成绩（高数、英语和专业课），判断该学生能获得几等奖学金，并输出结果。
获奖条件是：一等奖学金要求所有成绩在95分以上；二等奖学金要求所有成绩在90分以上；三等奖学金要求所有成绩在88分以上。
6Private Sub Command1_Click()Dim m%, n%, d%, sun%, no$, name$no = InputBox("输入学号")name = InputBox("输入姓名")m = Val(Text1.Text)n = Val(Text2.Text)d = Val(Text3.Text)sun = m + n + dIf m > 95 And n > 95 And d > 95 ThenLabel5.Caption = name & "获一等奖学金"ElseIf m >= 90 And n >= 90 And d >= 90 ThenLabel5.Caption = name & "获二等奖学金"ElseIf m >= 88 And n >= 88 And d >= 88 ThenLabel5.Caption = name & "获三等奖学金"ElseLabel5.Caption = name & "没有奖学金"""End IfEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Label5.Caption = " "End Sub8 当任意输入x值时求f(x)的值。