VB试题
VB试题
1,若要设置文本框中所显示的文本颜色,使用的属性是( ).A,BackColor B,FillColor C,ForeColor D,BackStyle2,以下选项中,不是Visual Basic控件的是( ).A,单选框B,定时器C,窗体D,命令按钮3,双击窗体中的对象后,Visual Basic将显示的窗口是( ).A,项目(工程)窗口B,工具箱C,代码窗口D,属性窗口4,命令按钮能响应的事件是( ).A,DblClick B,Click C,Load D,Scroll5,若要将某命令按钮设置为默认命令按钮.则应设置为True的属性是( ).A,V alue B,Cancel C,Default D,Enabled6,Visual Basic程序设计的完整的步骤是( ).A.,可视性程序设计B,代码程序设计C,可视性程序设计和代码程序设计D,界面设计7,在Visual Basic环境下,当写一个新的Visual Basic程序时,所做的第一件事是( ).A,编写代码B,新建一个工程C,打开属性窗口D,进入VB环境8,窗体能响应的事件是( ).A,ActiveFrom B,Drive C,Load D,Change9,若要求从文本框中输入密码时在文本框中只显示*号,则应当在此文本框的属性窗口中设置( ).A,Text属性值为* B,Caption属性值为*C,password属性值为空D,Passwordchar属性值为*10,Visual Basic是一种面向对象的程序设计语言,构成对象的三要素是( ).A,属性,事件,方法B,控件,属性,事件C,窗体,控件,过程D,窗体,控件,模块11,只能用来显示字符信息的控件是( ).A,文本框B,标签框C,图片框D,图像框12,能够改变复选框中背景颜色的属性是( ).A,V alue B,Fontcolor C,Backcolor D,Font13,获得系统日期的函数是( ).A.,data$ B,time$ C,date$ D,gettime$14,在设计一个记事本时,必须要使用的控件是( ).A.,滚动条B,图片框C,文本框D,单选框15,以下选项中,不属于单选按钮属性的是( ).A,Enabled B,Caption C,Name D,Min16,若要设置定时器控件的定时时间,需设置的属性是( ).A,Interval B,Value C,Enabled D,Text17,Visual Basic为命令按钮提供的Cancle属性是( ).A,用来指定命令按钮是否为窗体的"取消"按钮B,用来指定命令按钮的功能是停止一个程序的运行C,用来指定命令按钮的功能是关闭一个运行程序D,用来指定命令按钮的功能是中断一个程序的运行18,Visual Basic规定窗体文件的扩展名是( ).A,.for B, .frm C, .vbp D,.bas19,下列叙述不正确的是( ).A ,一个目标程序所需的所有文件的集合称为工程B,VB的工程文件的扩展名为.vbpC,工程文件中可包括窗体文件,标准模块文件,类模块文件,资源文件等D,工程文件中除了窗体文件是可选的外,其它文件都是必须的20,下列关于添加"控件"的方法正确的是( ).A,单击控件图档,将指针移到窗体上,双击鼠标B,双击工具箱中的控体,即在窗体中央出现该控件C,单击工具箱中的控件,将指针移到窗体上,再单击D,用鼠标左键拖动工具箱中的某控件到窗体中适当位置21,下列关于事件的叙述中不正确的是( ).A,事件是系统预先为对象定义的能被对象识别的动作B,事件可分为用户事件与系统事件两类C,VB为每个对象设置好各种事件,并定义好事件过程的过程名,但过程代码必须由用户自行编写D, VB中所有对象的默认事件都是Click22,下列属于合法的VB变量的是( ).A,for B,3w C, num_1 D, name23,要求改变窗体的标题时,应当在属性窗口中改变的属性是( ).A, Caption B,Name C,Text D,Label24,.如果要求设置定时器时间间隔为1秒钟,那么它的Interval属性值应该等于( ).A,1000 B,100 C,10 D,125,能够将文本框控件隐藏起来的属性是( ).A,Clear B,Visible C,Hide D,New26. Visual Basic提供的选择框(CheckBox)可具有功能是( ).A,多重选择B,单一选择C,选择多次D,选择一次27,要在窗体上显示图片,需设置窗体的( )属性.A,Caption B,Icon C,Picture D,ControlBox28,在设计阶段,双击窗体Form1的空白处,打开代码窗口,显示( )事件过程模板.A,Form_Click B,Form_Load C,Form1_Click D,Form1_Load30,将文本框的( )属性设置为True 时,文本框可以输入或显示多行文本,且会在输入的内容超出文本框的宽度时自动换行.A,MultiLine B,ScrollBars C,Text D,Enabled31,如果将文本框的( )属性设置为True,则运行时不能对文本框中的内容进行编辑.A,Locked B,MultiLine C,TabStop D,Visible32,下列程序段的执行结果为( ).X=2Print X+1;X+1A,3, 3 B,X+1,X+1 C,3, 4 D,2+1,2+133,决定控件上文字的字体,字形,大小,效果的属性是( ).A,Text B,Caption C,Name D,Font34,下列程序段的执行结果为( ).X=2Y=1IF X*Y0A,True B,False C,-1 D,135,下列程序段的执行结果为( ).X=Int(Rnd+4)Select Case XCase 5Print"优秀"Case 4Print"良好"Case 3Print"及格"Case ElsePrint"不及格"Ene SelectA,优秀B,良好C,及格D,不及格36,下列程序段的执行结果为( ).X=6FOR K=1 TO Step --2X=X+KNEXT KPrint K ; XA,-1 ,6 B,-1 ,16 C,1 ,6 D,11, 3137,为了添加ComboBox控件中的项目,需要使用( )方法.A,ADD B,Remove C,AddItem D,RemoveItem38,定时器的Interval属性以( )为单位指定Timer事件之间的时间间隔.A,分B,秒C,毫秒D,微秒42,通过设置Shape控件的( )属性可以绘制多种形状的图形.A,Shape B,BorderStyle C,FillStyle D,Style43,当使用Line方法画直线后,当前坐标为( ).A,容器对象的原点B,直线的起点C,直线的终点D,容器对象的中心44,在Visual Basic 中按文件的访问方式不同,可以将文件分为( ).A,顺序文件,随机文件和二进制文件B,文本文件和数据文件C,数据文件和可执行文件D,ASCII文件和二进制文件45,使用驱动器列表框的( )属性可以返回或设置磁盘驱动器的名称.A,ChDrive B,Drive C,List D,ListIndex46,使用目录列表框的( )属性可以返回或设置当前工作目录的完整路径(包括驱动器盘符). A,Drive B,Path C,Dir D,ListIndex47,文件列表框中用于设置或返回所选文件的文件名的属性是( ).A,File B,FilePath C,Path D ,FileName二,填空题:1, 设置对象属性中的Caption是指_____________,Name是指_____________,Font是指_________.2, Private Sub Timer1_Timer()Label2.Caption=TimeEnd Sub语句中的Private意指:_________________ Timer1意指________,Timer()意指________,Label2.Caption=Time意指______________________.3,VB中常见的基本数据类型:______________,______________,______________,__________,______________,________ ______等.4,VB变量声明格式:[Public|Private|Dim|Static] 变量名As 类型,用Public意指__________________,用Private声明变量,意指_________________,用Dim|Static声明变量,意指________________________.5,一个工程可以包括多种类型的文件,其中,扩展名为.VBP的文件表示________文件;扩展名为.FRM的文件表示___________文件;扩展名为.BAS的文件表示__________文件.6,下面的程序用于求三个数中最大数.Private Sub Command1_Click()a=Val(inputbox("请输入第一个数:"))b=V al(inputbox("请输入第二个数:"))c=Val(inputbox("请输入第三个数:"))Max=aMin=aIF b>_______Then Max=bIF b<_______ Then Min=bIF _______ Then Max=cIF_______ Then Min=cPrint"最大数为:";MaxPrint"最小数为:";MinEne Sub7,下面是一个体操评分程序,20位评委,除去一个最高分和一个最低分,计算平均分(设满分为10分).Private Sub Command1_Click()Max=0 : Min=10For I=1 TO 20N=Val(InputBox("请输入分数:"))IF __________Then Max=NIF __________Then Min=NS=S+NNext IS=__________P=S/18Print"最高分:";MaxPrint"最低分:";MinPrint"最后得分:";PEND Sub一、单项选择题：(每小题1分，共100分)下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项填在答题卡的相应位置上，答在试卷上不得分。
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考试基础试题
一、选择题：1、Visual Basic是一种面向( )的程序设计语言A、用户B、事件C、程序D、对象2、Visual Basic主要用于开发哪种环境下的程序（）A、DOSB、DOS和WindowsC、WindowsD、UNIX3、一个逻辑型变量在内存当中占的存储空间是（）A、一个字节B、两个字节C、四个字节D、八个字节4、在Visual Basic6.0中规定窗体文件的扩展名是：A、frmB、forC、vbpD、bas5、一辆黑色汽车驶进车站，则驾驶、黑色、汽车、进站依次对应__________A、对象，属性，事件，方法B、属性，对象，事件，方法C、方法，属性，对象，事件D、事件，属性，对象，方法6、在Visual Basic代码窗口中，将某一条语句加以注释和说明时，应在语句前加( )A、逗号（，）B、冒号（：）C、单引号（’）D、问号（?）7、下列控件中可用于接受用户输入文本，又可用于显示文本的是（）A、Label 控件B、TextBox 控件C、Timer 控件D、CommandButton 控件8、如果要改变窗体的标题,需要设置窗体对象的_____属性。
A、CaptionB、NameC、BackColorD、BorderStyle9、要在C盘当前文件夹下建立一个名为Stu1.txt的顺序文件，应先使用( )语句：A、Open " Stu1.txt" For Output As#2B、Open "C：Stu1.txt" For lnput As#2C.、Open "C：Stu1.txt" For Output As#2 D、Open " Stu1.txt " For lnput As#210、Private Sub Command1_Click()Static X As IntegerDim Y As IntegerY = Y + 5 : X = X + 5Print X, YEnd Sub程序运行时，第三次单击命令按钮Commandl后，窗体上显示的结果为( ) A．5 5 B．15 5 C. 15 15 D．5 1511、在Visual Basic中，以下选项中表示窗体的装入事件的是：A、KeyUpB、ClickC、ActivateD、Load12、如果每一秒激发一次计时器事件，则设置计时器（Timer）控件的Interval属性为（）：A、1000B、100C、10D、113、下列标识符书写正确的是（）A、9xB、X1+X2C、C*D、X614、表达式运算结果Int(-5.2)是（）A、-5B、5C、-6D、615、下列（）属性是每个控件都有的。
vb考试试题题库及答案
vb考试试题题库及答案VB（Visual Basic）是一种由微软公司开发的编程语言，广泛用于开发Windows应用程序。
以下是一些VB考试的试题题库及答案，供参考：一、单选题1. 在VB中，以下哪个是正确的数据类型？- A. Integer- B. Real- C. String- D. All of the above答案：D2. VB中的“Sub”过程与“Function”过程的区别是什么？- A. Sub过程可以返回值，Function过程不能- B. Function过程可以返回值，Sub过程不能- C. 两者都可以返回值- D. 两者都不能返回值答案：B3. 在VB中，以下哪个是正确的变量声明方式？- A. Dim x- B. Declare x As Integer- C. Both A and B- D. None of the above答案：C二、多选题1. VB中的控件可以具有哪些属性？- A. Name- B. Caption- C. Font- D. All of the above答案：D2. VB中，以下哪些是事件驱动的编程语言的特点？- A. 事件驱动的程序在事件发生时执行代码- B. 程序的执行顺序由事件的触发顺序决定- C. 程序可以同时响应多个事件- D. 程序必须等待事件的发生才能执行答案：A, B, C三、判断题1. VB是一种编译型语言。
- 正确- 错误答案：错误2. 在VB中，可以使用“Print”方法在文本框中显示文本。
- 正确- 错误答案：正确3. VB中的“Option Explicit”语句可以强制声明所有变量。
- 正确- 错误答案：正确四、简答题1. 简述VB中的事件和方法的区别。
答案：事件是用户或系统触发的动作，如点击按钮、键盘输入等。
方法是一种过程，可以包含代码来执行特定的任务或计算。
事件通常与控件相关联，并可以触发方法的执行。
2. 解释VB中“类”的概念。
VB题
VB二级测试题一、选择题1．文本框控件中将Text的内容全部显示为所定义的字符的属性项是（）A．PasswordChar B．需要编程来实现C．Password D．以上都不是2．不管一个对象的属性如何设置，程序运行时始终都能接收焦点的方法是（）A．用Tab键 B．用鼠标C．用方向键 D．不能实现3．如果没有在列表框中选择项目，且列表框的MultiSelect属性值为默认值（0~None），则执行语名List1.RemoveItem List1.ListIndex的结果是（）A．删除列表框的最后一项 B．删除列表框的第一项C．出错 D．删除列表框中的最后添加的一项4．下列对象中没有焦点属性的是（）A．命令按钮控件 B．窗口控件C．文本框控件 D单选框控件5．不具有输入数据功能的控件是（）控件A．文本框 B．选项按钮 C．列表框 D．窗体6．常用控件的Style属性值是（）A．字符常量 B．逻辑常量D．数值常量 D．日期常量7．以下关于复选框的说法，正确的是（）A．一个窗体上的所有复选框一次只能有一个被选中B．一个容器中的所有复选框一次只能有一个被选中C．在一个容器中的复选框可以同时有多个被选中D．无论是在容器中还是在窗体中，都可以同时选中多个复选框8．要清除已经在图片框Picture中打印的字符串而不清除图片框中的图像，应使用语句（）A．P1.Cls B．P1.picture=LoadPicture(“”)C．P1.Print”” D．P1.piture””9．要使一个图片框控件能自动地附着在窗体的一条边上，应设置它的（）属性A．Picture B．Alignment C．Border D．Align10．下列赋值语句正确的是（）A． Text1.text=Text.text+Text2.textB． =+C． Text1.Caption=T ext1.Caption+T ext2.CaptionD． Text1.Enable=Text1.Enable+Text2.Enable11．引用列表框的最后一项应使用（）A．List1.List(List1.ListCount-1) B．List1.List(List1.ListCount)C．List1.List(ListCount) D．List1.List(ListCount-1)12．要清除组合框Combol中的所有内容，可以使用（）语句A．Combo1.Cls B．Combo1.Clear C．Combo1.Delete D．Combo1.Remove 13．列表框控件中的列表内容是通过（）属性设置的A．Name B．Caption C．List D．Text14．可以用作其它控件容器的控件有（）A．窗体控件，列表控件，图像控件 B．窗体控件，文本框控件，框架控件C．窗体控件，框架控件，图片框控件 D．窗体控件，标签控件，图片控件15．组合框控件是将（）组合成一个控件A．列表框控件和文本框控件 B．标签控件和列表框控件C．标签控件和文本框控件 D．复选框控件和选项按钮控件16．要在命令按钮控件上显示图像应（）A设置Picture属性 B．实现不了C．先将Type设置为1，然后再设置Picture属性 D．以上都不对17．要在图片框P1中打印字符串“How Are You”，应使用语句（）A．Picture1.Print=“ How Are You”B．P1.Picture=LoadPicture(“How Are You”)C．P1.Print“How Are You” D．Print “How Are You”18．将字符串“hello”添加到列表框的最后，可使用（）请语句。
vb考试试题
vb考试试题VB考试试题一、选择题（每题2分，共20分）1. 在VB中，以下哪个是正确的数据类型？A. IntegerB. intC. Integer8D. int82. VB中的哪个关键字用于声明变量？A. defineB. declareC. dimD. var3. 下列哪个语句可以正确地在VB中打印输出？A. print "Hello, World!"B. console.write("Hello, World!")C. msgbox "Hello, World!"D. output "Hello, World!"4. VB中哪个控件用于显示文本，但用户不能编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox5. 在VB中，以下哪个是正确的条件语句？A. if (x > 10)B. if x > 10C. if (x > 10) thenD. if x > 10 then6. VB中哪个函数用于获取当前日期？A. Now()B. Date()C. Today()D. GetCurrentDate()7. 在VB中，以下哪个是正确的循环结构？A. do-whileB. for-eachC. while-doD. repeat-until8. VB中哪个属性用于设置控件的可见性？A. VisibleB. ShowC. DisplayD. Hide9. 在VB中，以下哪个事件用于响应按钮点击？A. OnClickB. OnSelectC. OnPressD. OnActivate10. VB中哪个关键字用于定义函数？A. functionB. defC. procD. method二、简答题（每题5分，共30分）1. 简述VB中的事件驱动编程的概念。
2. 描述VB中数组的声明和使用方式。
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基础知识试题及答案一、单项选择题（每题2分，共40分）1. VB是指______。
A. Visual BasicB. Visual C. Visual Basic for ApplicationsD. Visual Basic Script2. 在VB中，可以使用______语句来输出结果到控制台窗口。
A. PrintB. Console.WriteC. MessageBox.ShowD. MsgBox3. 在VB中，用于表示“不等于”的运算符是______。
A. <B. >C. =D. <>4. 下面哪个选项是VB中用于定义变量的关键字？A. DimB. VarC. DefD. Let5. 在VB中，______可以被用来终止当前循环并跳到循环结构外的语句。
A. Exit FunctionB. Exit DoC. BreakD. Continue6. 当在VB中定义一个数组时，数组的下标范围是______。
A. 0 到 nB. 0 到 n-1C. 1 到 n-1D. 1 到 n7. 在VB中，可以使用______用于创建自定义的函数。
A. ProcB. SubC. FunD. Function8. 在VB中，______可以被用于将一个字符串转换为整数。
A. CIntB. ValC. Convert.ToInt32D. Parse9. 下面哪个选项是VB中的逻辑与运算符？A. &&B. ||C. !D. And10. 在VB中，______可以用于打开一个文件，并返回一个文件操作的对象。
A. File.OpenB. StreamReaderC. OpenFileDialogD. FileSystemObject二、填空题（每题2分，共20分）1. VB中的数组可以使用______关键字来声明。
2. VB中的______循环可以用于反复执行一段代码，直到某个条件为真。
国家二级计算机vb考试试题及答案
国家二级计算机vb考试试题及答案一、单项选择题（每题1分，共10分）1. 在VB中，用于定义变量的关键字是（）。
A. DimB. SubC. FunctionD. Const答案：A2. 下列哪个选项不是VB中的控制结构？（）A. 顺序结构B. 选择结构C. 循环结构D. 函数结构答案：D3. VB中，用于声明一个子程序的关键字是（）。
A. FunctionB. SubC. DimD. Const答案：B4. 在VB中，用于表示逻辑“与”运算符的是（）。
A. AndB. OrC. NotD. Xor答案：A5. VB中，用于表示逻辑“或”运算符的是（）。
A. AndB. OrC. NotD. Xor答案：B6. 在VB中，用于声明一个数组的关键字是（）。
A. DimB. SubC. FunctionD. Const答案：A7. VB中，用于声明一个常量的关键字是（）。
A. DimB. SubC. FunctionD. Const答案：D8. 在VB中，用于表示逻辑“非”运算符的是（）。
A. AndB. OrC. NotD. Xor答案：C9. VB中，用于声明一个函数的关键字是（）。
A. FunctionB. SubC. DimD. Const答案：A10. 在VB中，用于表示逻辑“异或”运算符的是（）。
A. AndB. OrC. NotD. Xor答案：D二、填空题（每题2分，共10分）1. 在VB中，使用____关键字可以定义一个全局变量。
答案：Public2. 当需要在VB中定义一个私有变量时，应使用____关键字。
答案：Private3. 在VB中，使用____关键字可以定义一个局部变量。
答案：Dim4. VB中，使用____关键字可以定义一个过程。
答案：Sub5. VB中，使用____关键字可以定义一个函数。
答案：Function三、简答题（每题5分，共20分）1. 请简述VB中事件驱动编程的概念。
vb试题及答案
一、选择题（1-30 题每小题1分，共30分,31-45题每小题2分,共30分，总计60分）要使窗体Form1的标题栏中显示“正在复制文件…”,正确的语句是：aA．Form1。
Caption=“正在复制文件…”B．Form1。
Title=“正在复制文件…”C．Form1。
Text=“正在复制文件…”D．Form1.名称=“正在复制文件…”如果要求设置定时器时间间隔为1秒钟，那么它的Interval属性值应该等于：aA．1000B．100C．10D．13、下列关于控件的基本操作中,错误的是A）当控件处于活动状态时,可以对控件进行缩放B）在设计阶段不能移动控件C) Visual Basic 6.0 允许对画好的控件进行复制和删除D）可以通过属性窗口改变控件的位置和大小4、用Visual Basic 开发应用程序的一般步骤有：①设置窗体和控件的属性、②编写代码、③建立用户界面，其中正确的顺序是：A) ①②③B）①③②C) ③②①D）③①②5、为使文本框只能显示不能输入,即只读，应设置文本框的属性是：cA．MaxLength设置为0B．Cancel设置为TrueC．Locked设置为True D．Read设置为True6、InputBox函数返回值的类型为。
BA．数值B．字符串C．变体D．数值或字符串（视输入的数据而定)7、为了把焦点移到某个指定的控件，所使用的方法是：AA．SetFocus B．Visible C．ReFresh D．GetFocus8、函数String（3，”str”)的功能是：bA．把数值型数据转换成字符串B．返回有3个字符串组成的字符串C．从字符串中第3个字符D．从字符串中第3个字符的位置开始取字符串9、双击窗体中的对象后,Visual Basic将显示的窗口是：cA．项目（工程)窗口B．工具箱C．代码窗口D．属性窗口10、用于获得字符串s最左边4个字符的函数是：aA．Left(s，4）B．Left（1,4）C．LeftStr(s）D．LeftStr（3，4）11、以下程序段的输出结果是：da=Sqr（3）b=Sqr(2）c=a>bPrint cA．-1 B．0 C．False D．True12、用下面语句定义的数组的元素个数是：cDim A （—4 to 6) As IntegerA．6 B．7 C．11 D．913、若x=—5，执行If x Then x=0 Else x=1的结果为：dA．实时错误B．编译错误C．x=1 D．x=0列程序段的循环结构执行后，i的输出值是：cFor i=1 To 10 Step 2y=y+iNext iPrint iA．25 B．10 C．11 D．因为y的初值不知道，所以不确定15、可以用作其他控件容器的控件有: cA．窗体、列表框、图像框B．窗体、文本框、框架C．窗体、框架、图片框D．窗体、标签、图片框16、以下不属于Visual Basic 支持的循环结构的是：dA．For …Next B．For Each …NextC．Do …Loop D．While …End17、下列可以打开立即窗口的操作是:DA．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G18、下列可作为Visual Basic变量名的是A）A_3 B）4A C）?xy D）Integer19、设a=8,b=5，执行语句Print a>b后，窗体上显示的是A）True B)False C）1 D）出错信息20、以下能够触发文本框Change事件的操作是A）文本框失去焦点B) 文本框获得焦点C) 设置文本框的焦点D）改变文本框的内容21、列表框图标的英文名称是A）ListBox B)ComboBoxC）Frame D)CommonDialog22、下列类型说明符中表示整型的是A) ％B) ！C) $ D) &23、执行下列语句a$ = "abcdefg”：Print Len(a＄)后,在窗体上输出的结果是A） 1 B） 2 C）7 D) 1424、文本框不具有的属性是A) Caption B）text C) left D)font25、设a=6，则执行x=IIf（a〉5，1,2)后,x 的值为：A）1 B)2 C)5 D）026、语句Print 5/4＊6\5 Mod 2的输出结果是A) 0B) 1C）2 D）327、滚动条控件的largeChange属性所设置的是A）滚动条所能表示的最小值B）滚动条所能表示的最大值C）单击滚动条中滚动框前面或后面的部位时，Value属性增加或减小的增量值D）单击滚动条两端的箭头时，Value属性增加或减小的增量值28、按钮控件数组元素是：cA．共享一个事件过程的B．只共享一个Click事件过程的C．共享该控件的所有事件过程D．各自有自己的部分事件过程有如下的记录类型Type studentid As Stringname As Stringage As IntegerEnd Type则正确引用该记录类型变量的代码是：BA．student。
VB试题及答案
一、选择题（将答案写在答题卡内）1．在Visual Basic中，Len("ABab河北")的值是（）A．4 B. 6 C. 8 D.122．在Visual Basic中，当窗体被装载时触发的事件是（）A．Unload B.Click C.Load D.DblClick3．Visual Basic中决定对象是否可见的属性是（）A．Enabled B．See C. Name D.Visible4．在Visual Basic中，语句Mid("ABCDEFG", 2, 3) = "123"的输出结果是（）A. FalseB. True C．A123EFG D. 1235．下面Visual Basic表达式不合法的是（）A. "12"+12B. "ab"+"12"C."ab"+12D.Now+16．若要使命令按钮不可操作，要对()属性进行设制。
A.EnabledB.VisibleC.BackColorD.Caption 7．VisualBasic是一种面向对象的可视化程序设计语言，采取了()的编程机制。
A.事件驱动B.按过程顺序执行C.从主程序开始执行D.按模块顺序执行8．在设计阶段，当双击窗体上的某个控件时，所打开的窗口是()。
A.工程资源管理器窗口B.工具箱窗口C.代码窗口D.属性窗口9．语句Abs(-6^2)+Int(-6^2)的输出结果是()。
A.0B.1C.-1D.-7210．String(6,"124abc")的值是()。
A.124abcB.111111C.124D.abc11．设a=2,b=3,c=4,d=5，表达式a>b AND c<=d的值是()。
A.TrueB.FalseC.-1D.112．函数CINT(4.5)的值是（）A.1B.2C.3D.413．用于去掉字符串右边的空格的函数是A.Ltrim( )B.Rtrim( )C.Left( )D.Instr( )14．设置控件背景颜色的属性名称是（）A.LtrimB.BackcolorC.CaptionD.Load15．应用程序设计完成后，应将程序保存，保存的过程是（）A．只保存窗体文件即可B．只保存工程文件即可C．先保存工程文件，之后保存窗体文件D．先保存窗体文件（或标准模块文件），之后还要保存工程文件16．任何控件都具有的属性是（）A．Text B．Caption C．Name D．Forecolor17．决定控件上文字的字体、字形、大小及效果的属性是（）A．Text B．Caption C．Name D．Font18．在窗体上建立了多个控件，如TEXT、LABEL1、COMMAND1，若要使程序一运行焦点就定位在COMMAND1控件上，应将COMMAND1控件的（）设置为0A．Index B．Tabindex C．Tabstop D．Enabled19．命令按钮的标题文字由（）属性来设置。
初三vb考试试题及答案
初三vb考试试题及答案初三VB考试试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明变量？A. DimB. IfC. ForD. Sub答案：A2. VB中的哪种循环结构可以用于重复执行代码块，直到条件不再满足？A. WhileB. Do WhileC. ForD. Select Case答案：B3. 在VB中，以下哪个函数用于计算两个数的和？A. Sum(a, b)B. Add(a, b)C. +(a, b)D. None of the above答案：D4. 如果需要在VB中弹出一个包含文本的对话框，应该使用哪个方法？A. MsgBoxB. PrintC. WriteD. Show答案：A5. 以下哪个是VB中合法的变量名？A. 2variableB. variable2C. variable@2D. variable-2答案：B6. 在VB中，以下哪个不是控制结构？A. If...Then...ElseB. Select CaseC. For...NextD. Print答案：D7. 在VB中，以下哪个不是数组的声明方式？A. Dim arr(1 To 10) As IntegerB. Dim arr() As Integer = New Integer(10)C. Dim arr As Integer() = New Integer(10)D. Dim arr As Integer = New Integer(10)答案：D8. VB中的哪个属性可以设置控件是否可见？A. VisibleB. EnabledC. CaptionD. Text答案：A9. 在VB中，以下哪个不是事件？A. ClickB. LoadC. ChangeD. Print答案：D10. 在VB中，以下哪个不是控件的属性？A. NameB. TextC. TypeD. Caption答案：C二、填空题（每空2分，共20分）11. 在VB中，使用_______关键字可以定义常量。
vb精选试题及答案
vb精选试题及答案一、单项选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明变量？A. DimB. ConstC. FunctionD. Sub答案：A2. VB中数组的默认下标是从哪个数字开始的？A. 0B. 1C. -1D. 2答案：B3. 在VB中，以下哪个函数用于计算字符串的长度？A. LenB. UBoundC. LBoundD. Sqr答案：A4. VB中，哪个属性用于获取或设置一个窗体的标题？A. CaptionB. TextC. TitleD. Label答案：A5. 在VB中，以下哪个事件用于响应鼠标单击窗体？A. ClickB. DblClickC. MouseDownD. MouseUp答案：A二、填空题（每题3分，共15分）1. 在VB中，声明一个整型变量的正确语法是________。
答案：Dim myVar As Integer2. VB中，用于定义一个过程的关键字是________。
答案：Sub 或 Function3. VB中，用于读取用户输入的函数是________。
答案：InputBox4. VB中，用于打开文件的语句是________。
答案：Open5. VB中，用于关闭文件的语句是________。
答案：Close三、简答题（每题5分，共10分）1. 请简述VB中的事件驱动编程是什么？答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户操作、消息、信号等）触发。
在VB中，用户可以通过编写事件处理程序来响应这些事件。
2. VB中如何实现循环结构？答案：在VB中，可以使用For...Next循环、Do...Loop循环、While...Wend循环等结构来实现循环。
四、编程题（每题10分，共20分）1. 编写一个VB程序，计算并输出1到100之间所有偶数的和。
答案：请参考以下代码：```vbDim sum As IntegerDim i As Integersum = 0For i = 1 To 100If i Mod 2 = 0 Thensum = sum + iEnd IfNext iMsgBox "1到100之间所有偶数的和是：" & sum```2. 编写一个VB程序，判断一个给定的年份是否为闰年。
vb考试试题及答案
vb考试试题及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个不是基本数据类型？A. IntegerB. StringC. ObjectD. Array答案：D2. 下面哪个语句用于在Visual Basic中声明一个变量？A. DimB. DeclareC. DefineD. Set答案：A3. 在Visual Basic中，以下哪个是正确的循环结构？A. LoopB. WhileC. DoD. Repeat答案：C4. 以下哪个属性用于设置控件的可见性？A. VisibleB. ShowC. HideD. Display答案：A5. Visual Basic中的事件通常与哪个关键字一起使用？A. SubB. FunctionC. EventD. Procedure答案：A6. 在Visual Basic中，以下哪个不是控件的属性？A. NameB. CaptionC. TypeD. Left答案：C7. 下列哪个不是Visual Basic的内置函数？A. LenB. UBoundC. SqrtD. Max答案：D8. 在Visual Basic中，以下哪个不是数组的声明方式？A. Dim arr(1 To 10)B. Dim arr() As IntegerC. ReDim arr(1 To 10)D. Dim arr As Variant答案：D9. 在Visual Basic中，以下哪个不是条件语句？A. IfB. Select CaseC. WhileD. Do答案：C10. Visual Basic中，以下哪个不是错误处理的关键字？A. On Error GoToB. On Error Resume NextC. On Error GoTo 0D. On Error Exit Sub答案：D二、填空题（每题2分，共10分）1. 在Visual Basic中，使用________关键字可以声明一个变量。
VB经典例题(附答案)
实验4：编写一个程序。
要求在窗体内设置7个标签（Label）及7个文本框（TextBox），将每个标签的Text属性值设置为如下表达式。
在程序运行时，单击窗体空白区，可在对应的文本框中输出这些表达式的值。
1）8*3*6\22）7/6*3.2/2.15*(5.5+3.5)3）34\4+4.0^5/124）65\3 mod 3.4*fix(3.8)5）“abg”+”34” & “erert”6）true or not (8+3>=23)7）7>2 or 4<9实验目的：学习VB运算符的使用。
Public Class Form1Private Sub Form1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.ClickTextBox1.Text = 8 * 3 * 6 \ 2TextBox2.Text = 7 / 6 * 3.2 / 2.15 * (5.5 + 3.5)TextBox3.Text = 34 \ 4 + 4.0 ^ 5 / 12TextBox4.Text = 65 \ 3 Mod 3.4 * Fix(3.8)TextBox5.Text = """abg""" + """34""" & """erert"""TextBox6.Text = True Or Not (8 + 3)>= 23TextBox7.Text = 7 > 2 Or 4 < 9End SubEnd Class实验5：编写一个程序。
设a=2，b=3，c=4，d=5，S="ABCDEFGHI]K"，求下列表达式的值：(1) 5+(a+b)2(2) cos(b)(sin(a)+1) (3) 8e3ln2(4) Left(S,4) (5) Mid(S, 3,4) (6) Instr(S, "EFG")(7) Lcase(Right(S, 5)) (8) Len(Mid((S, 3)实验目的：学习VB中函数的使用。
VB考试试题及答案
二、选择题1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。
A、GotFocus B、Load C、Click D、KeyDown2、滚动条控件(如图所示)的Max属性所设置的是 A 。
A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量D、滚动条控件无该属性3、SQL 语句Select * Form student 中的*表示 B 。
A、所有记录B、所有字段C、所有表D、都不对4、以下选项中，不属于标签的属性是 C 。
A、EnabledB、CaptionC、Default D、Font5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。
A、CaptionB、NameC、Text D、Label6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。
A、CaptionB、NameC、Text D、Value7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的？ D 。
A、在标题项中输入&，然后打勾B、在索引项中打勾C、在有效项中打勾D、在复选项中打勾8、当执行以下过程时，在窗体上将显示 A 。
Private Sub Command1_Click( )Print "VB";Print "Hello! ";Print "VB"End SubA、VBHello!VBB、VBHello!VBC、VBD、VBHello! VBHello!VB9、语句Print "The answer is:";20/4-2的结果为 B 。
A、The answer is 20/4-2B、The answer is 3C、The answer is "20/4-2"D、非法语句10、下列哪个控件是容器控件 B 。
vb试题及答案
vb试题及答案一、单选题（每题2分，共10分）1. 在VB中，以下哪个是正确的变量声明方式？A. Dim aB. Dim a As IntegerC. Dim a = 5D. Dim a As Integer = 5答案：B2. VB中的哪个控件用于显示文本，但不能编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B3. 以下哪个是VB的事件？A. ClickB. PrintC. DrawD. Open答案：A4. 在VB中，以下哪个语句用于结束程序？A. EndB. ExitC. StopD. Quit答案：A5. VB中，以下哪个属性用于设置控件的可见性？A. VisibleB. EnabledC. CaptionD. Text答案：A二、多选题（每题3分，共15分）1. VB中，以下哪些是合法的变量名称？A. 2variableB. variable2C. _variableD. variable$答案：B, C2. VB中，以下哪些是合法的常量声明方式？A. Const pi = 3.14B. Dim pi As Double = 3.14C. Const pi = "3.14"D. Dim pi = 3.14答案：A, D3. 在VB中，以下哪些是控件的属性？A. NameB. CaptionC. TextD. Value答案：A, B, C4. VB中，以下哪些是控制流程语句？A. If...Then...ElseB. For...NextC. While...WendD. Select...Case答案：A, B, C, D5. VB中，以下哪些是数组的声明方式？A. Dim arr(5)B. Dim arr(0 To 5) As IntegerC. Dim arr As Integer = New Integer(5)D. Dim arr(5) As Integer答案：A, B, D三、判断题（每题1分，共5分）1. VB是一种面向对象的编程语言。
计算机vb基础知识试题及答案
计算机vb基础知识试题及答案一、选择题（每题1分，共10分）1. VB（Visual Basic）是一种______。
A. 操作系统B. 编程语言C. 网页浏览器D. 数据库管理系统答案：B2. 在VB中，以下哪个是正确的变量声明方式？A. Dim xB. Declare xC. Define xD. Let x答案：A3. VB中的“Sub”过程用于______。
A. 执行代码，但不需要返回值B. 执行代码，并返回一个值C. 声明变量D. 定义类答案：A4. 下列哪个是VB中的循环结构？A. IfB. ForC. SubD. Function答案：B5. VB中的“Option Explicit”语句的作用是______。
A. 声明变量类型B. 强制变量声明C. 定义常量D. 指定默认属性答案：B6. 在VB中，以下哪个是数组的正确声明方式？A. Dim arr(5) As IntegerB. Declare arr(5)C. Define arr(5)D. Let arr(5)答案：A7. VB中的“MsgBox”函数用于______。
A. 显示消息框B. 计算数学表达式C. 打开文件D. 连接数据库答案：A8. 在VB中，以下哪个是正确的条件语句？A. If x = 10 ThenB. If x = 10C. Condition x = 10 ThenD. If x = 10 End If答案：A9. VB中的“Select Case”语句用于______。
A. 条件判断B. 循环控制C. 定义类D. 声明变量答案：A10. 在VB中，以下哪个是正确的函数声明方式？A. Function myFunction As IntegerB. Declare myFunctionC. Define myFunctionD. Let myFunction答案：A二、填空题（每题1分，共5分）11. 在VB中，使用________关键字来声明常量。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
试卷编号：8066所属语言：Visual Basic试卷方案：201006试卷总分：100分共有题型：8种━━━━━━━━━━━━━━━一、填空共10题（共计10分）━━━━━━━━━━━━━━━第1题（1.0分）题号:227表达式1 and 0的值【1】.答案：1). False第2题（1.0分）题号:222把整数0赋给一个逻辑型变量,则逻辑变量的值为【1】.答案：1). False第3题（1.0分）题号:60a 和b 中有仅只有一个为1,相应的Visual Basic逻辑表达式为【1】.答案:1). a=1 xor b=1第4题（1.0分）题号:251Print "x=" & (2=4) 的结果为【1】.答案：1). x=False第5题（1.0分）题号:244设x为一个两位数,将x个位数和十位数交换后所得两位数VB的表达式是【1】. 答案：1). (x mod 10) * 10 + int(x/10)第6题（1.0分）题号:318由For k=35 to 0 step 3:next k循环语句控制的循环次数是【1】.答案：1). 0第7题（1.0分）题号:226表达式32\7 MOD 3^2 的值是【1】.答案：1). 4第8题（1.0分）题号:288文件按照存取方式及其组成结构可以分为顺序文件和【1】.答案：1). 随机文件或随机第9题（1.0分）题号:319Option Base 1的作用是确定数组的下界为【1】.答案：1). 1第10题（1.0分）题号:297写出清除图片框的文字或图形信息的语句【1】.答案：1). Picture1.cls 或cls━━━━━━━━━━━━━━━二、判断共10题（共计10分）━━━━━━━━━━━━━━━第1题（1.0分）题号:236所有的VB 的变量,都有隐含说明字符和强调声明两种方法来定义.答案：N第2题（1.0分）题号:246ActiveX控件是扩展名为*.ocx的独立文件,使用时需用"工程"/"部件"载入或移去.答案：Y第3题（1.0分）题号:289框架控件和形状控件都不能响应用户的鼠标的单击事件.答案：Y第4题（1.0分）题号:350在窗体模块的声明部分中用Private声明的变量的有效范围是其所在的工程.答案：N第5题（1.0分）题号:354在框架控件上放置的控件可以移动到框架控件的外面.答案：N第6题（1.0分）题号:231可以用"&","+"合并字符串,但是用在变异变量时,"+"可能会将两个数值加起来.答案：Y第7题（1.0分）题号:261VB允许设计和使用用户自己设计的控件.答案：Y第8题（1.0分）题号:247Circle方法绘制扇形或圆弧图形时,图形的形状不仅与起始角、终止角的大小相关,而且与起始角、终止角的正或负相关.答案：Y第9题（1.0分）题号:330有一个程序在属性窗口中设置了它的窗体字体大小为10号,而程序代码若设置了它的窗体字体大小为20号,那么当程序运行后实际的窗体字体大小为20号.答案：Y第10题（1.0分）题号:225Visual Basic程序的运行可以从Main()过程启动,也可以从某个窗体启动.答案：Y━━━━━━━━━━━━━━━━━三、单项选择共10题（共计10分）━━━━━━━━━━━━━━━━━第1题（1.0分）题号:319能够改变窗体边框线类型的属性是().A:FontStyle B:BorderStyle C:BackStyle D:Border 答案：B第2题（1.0分）题号:822以下()对象不具有Clear方法.A:列表框B:组合框C:剪贴板D:图片框答案：D第3题（1.0分）题号:258常量-0.00013579的科学计数法是().A:-1,3579E+0.4 B:.00013579 C:-13.579E-5 D:-1.3579E-0.4 答案：C 第4题（1.0分）题号:230vb 应用程序是分层管理的,其最高的层次为().A:工程B:模块C:窗体D:过程答案：A第5题（1.0分）题号:837用户可以通过设置菜单项的()属性值为FALSE来使该菜单项不可见.A:Hide B:Checked C:Visible D:Enabled 答案：C第6题（1.0分）题号:334若要使标签控件显示时,不覆盖其背景内容,应设置标签控件的()属性.A:BACKCOLOR B:BORDERSTYLE C:FORECOLOR D:BACKSTYLE 答案：D第7题（1.0分）题号:377下列哪个变量的取法是不正确的().A:TName B:T_Temp C:T32 D:T32# 答案：D第8题（1.0分）题号:380下列数据类型中,占用内存最小的是().A:Boolean B:Byte C:Integer D:Single 答案：B第9题（1.0分）题号:371下列关于设置控件属性的叙述正确的是().A:用户必须设置属性值B:所有的属性值都可以由用户随意设定C:属性值不必一一重新设置D:不同控件的属性项都完全一样答案：C第10题（1.0分）题号:801要使标签能够显示所需要的东西,则在程序中应设置其哪一属性的值().A:Caption B:Text C:Name D:AutoSize 答案：A━━━━━━━━━━━━━━━━四、多项选择共5题（共计10分）━━━━━━━━━━━━━━━━第1题（2.0分）题号:279下面有关数组的说法那些是错误的（）？A:数组存放的是具有相同数据类型的多个数据B:数组的下标允许是常数、表达式或变量C:DIM语句声明的数组把数组中的全部数组都初始化为逻辑型D:多维数组中每一维的大小为上界-下界；数组的大小为每一维大小的乘积E:动态数组是指在声明时没有给出数组的大小，当要使用数组时，再决定数组的大小答案：BCD第2题（2.0分）题号:277下列说法哪些是正确的（）？A:不能对符号常量重新赋值B:Label控件用来在窗体中显示文本，其中的文本用户不能直接修改C:TAB()函数用于在输出表达式前将输出点定位在第N-1个字符位置D:格式输出函数Format()可以使数值、日期或字符串按用户指定的格式输出答案：ABD第3题（2.0分）题号:280请把下面说法中正确的选出来（）。
A:在函数调用过程中数值型函数的默认返回值为0，可变型函数的默认返回值为空串B:在调用Sub过程中使用Call语句时，参数必须在括号内C:过程本身使用的参数列表称为“形参”，而主程序传递给过程的真正参数称为“实参”D:DIM语句声明的数组把数值数组中的全部数组元素都初始化为0，把字符串数组中的全部元素都初始化为空字符串答案：BCD第4题（2.0分）题号:285在VB中，需要用数据访问对象对数据库进行访问，下列哪些属于VB的数据访问对象（）。
A:DAO B:ADO C:OAD D:RDO 答案：ABD第5题（2.0分）题号:276下列语句哪些是错误的语句（）？A:Const Imax As Integer=&o155 B:Const _Ga As String="abc"C:Dim aa,bb As Integer,cc As String D:yy=8,uu=9 答案：BD━━━━━━━━━━━━━━━━五、程序填空共1题（共计10分）━━━━━━━━━━━━━━━━第1题（10.0分）题号:57'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：求1!+2!+……+10!的值。
'-------------------------------------------------------Private Sub Form_Click()'**********SPACE**********【?】s = 1For I = 2 To 10t = t * I'**********SPACE**********【?】'**********SPACE**********【?】Print sEnd Sub答案：1). t = 12). s = s + t3). Next I 或Next━━━━━━━━━━━━━━━━六、程序改错共2题（共计20分）━━━━━━━━━━━━━━━━第1题（10.0分）题号:460'------------------------------------------------'【程序改错】'------------------------------------------------'题目：已知C的公式表示如下:' n!' C=------------------' (n-m)!*m!'函数过程fac( )求k！函数,在Fomr_Click事件中完成运算，'请修正程序中错误。
'------------------------------------------------Option ExplicitPrivate Function fac(k As Integer) As SingleDim x As Single, j As Integer'**********FOUND**********x = 0For j = 1 To k'**********FOUND**********x = x ^ jNext jfac = xEnd FunctionPrivate Sub Form_Click()Dim C As SingleDim m As Integer, n As Integerm = Val(InputBox("请输入一个整数(m)："))n = Val(InputBox("请输入一个整数(n)："))'**********FOUND**********C = fac(n) / fac(n - m) * fac(m)Print "C="; CEnd Sub答案：1). x=12). x=x*j 或x=j*x3). C = fac(n) / fac(n - m) / fac(m) 或C = fac(n) / (fac(n - m) * fac(m)) 或C = fac(n) / ( fac(n - m) * fac(m) )第2题（10.0分）题号:467'------------------------------------------------'【程序改错】'------------------------------------------------'题目：从计算机输入三个数, 找出中间数'------------------------------------------------Option ExplicitPrivate Sub FindMidNum()Dim x As Integer, y As Integer, z As Integer, A As Integerx = InputBox("PLEASE INPUT THE FIRST NUMBER")y = InputBox("PLEASE INPUT THE SECOND NUMBER")z = InputBox("PLESSE INPUT THE THIRD NUMBER")'**********FOUND**********If x > y ThenA = xx = yy = AEnd If'**********FOUND**********If y = z ThenPrint y'**********FOUND**********ElseIf x = z ThenPrint zElsePrint xEnd IfEnd SubPrivate Sub Form_Click()FindMidNumEnd Sub 答案：1). If x < y Then 或If y > x Then2). If y >= z Then 或If z <= y Then3). ElseIf x >= z Then 或ElseIf z <= x Then━━━━━━━━━━━━━━━━七、程序设计共1题（共计10分）━━━━━━━━━━━━━━━━第1题（10.0分）题号:479'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：编写函数fun其功能是：根据整型形参m，计算' 如下公式的值：y=1/2＋1/4＋1/6＋...＋1/2m' 例如：若m=9，则应输出：1.41448412698413'------------------------------------------------- 答案：----------------------Dim y As DoubleDim i As IntegerFor i = 1 To my = y + 1 / (2 * i)Nextfun = y----------------------━━━━━━━━━━━━━━━━━━八、VB窗体设计共2题（共计20分）━━━━━━━━━━━━━━━━━━第1题（10.0分）题号:21------------------------------------------------【窗体设计】------------------------------------------------题目：请按照题目要求设计指定的窗体。