vb练习题第三章
第三章 有答案VB语言基础
第三章VB语言基础一、单选题1．设a=5,b=4,c=3,d=2，下列表达式的值是____B_____。
3>2*b Or a=c And b<>c Or c>dA）1 B）True C）False D）22．设a=”MicrosoftVisualBasic”，则以下使变量b的值为”VisualBasic”的语句是___B______。
A）b=Left(a,10) B）b=Mid(a,10)C）b=Right(a,10) D）b=Mid(a,11,10)3．假定有如下的窗体事件过程：Private Sub Form_Click()a$ = "Microsoft Visual Basic"b$ = Right(a$, 5)c = Mid(a$, 1, 9)MsgBox a$, 34, b$End Sub程序运行后单击窗体，则在弹出的信息框中的标题栏中显示的信息是___C______。
A）Microsoft Visual B）Microsoft C）Basic D）344．在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click()x = InputBox("请输入一个整数")Print x + Text1.TextEnd Sub程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容是___D______。
A）123 B）456 C）579 D）1234565．可以同时删除字符串前导和尾部空白的函数是___C______。
A）Ltrim B）Rtrim C）Trim D）Mid6．\、/、Mod、*四个算术运算符中，优先级别最低的是___C______。
A）\ B）/ C）Mod D）*7．在VisuaIBasic中，日期／时间型常量要用____B_____括起来。
VB第三章练习题
1、计算圆柱体的表面积和体积在窗体上放置5个标签，4个文本框，3个命令按钮，单击“计算”按钮，右侧文本框显示相应的结果；单击“清除”按钮，清除所有文本框的内容；单击“结束”按钮，程序结束。
（用两种方法做）2、计算长方体的体积和表面积3、求二元一次方程的根求二元一次方程5X2-9X-10=0，运行界面如图1．填空题1．在程序设计语言系统中具有固定语法含义的符号串称为（），它们通常用来表示系统提供的标准过程、函数、运算符、常量等。
2．（）用于标记用户自定义的常量、类型、变量、控件、过程、函数等名字。
3．整型数据占（）字节的内存空间。
长整型数据占（）个字节的内存空间。
单精度浮点型数据占（）个字节的内存空间。
双精度浮点型数据占（）个字节的内存空间。
日期型数据占（）个字节的内存空间。
4．100% 表示100为（）型数据；100！表示100为（）型数据；100＠表示100为( )型数据。
5符号常量在某一过程中说明，则该符号常量只能在（）内有效。
6．若一个整型变量说明了之后没有给它赋值，则它的值为（）。
7．在VB中可以把类型说明符放在变量名的（）来说明变量的类型。
8．为使VB的编译程序自动检查变量声明，遇到未经说明的标识符发出错误警告信息，在程序中要加上（Option Explicit ）语句。
9．对含有多种运算的表达式，各种运算之间的顺序为（）→（）→（）→（）。
10．把1234.567的小数部分四舍五入转换为整数，可使用函数（）。
11．将x四舍五入到百位（例如，若x=23874.52应舍入成23900），可使用表达式（）。
12．将x从十位截断（例如，x=23874.52应截成23800）可使用表达式（）。
13．设X为数值变量，求X的常用对数可使用的表达式是（Log(X)/Log(10) ）。
14．要从字符串“Visual BASIC 6.0”中截取子字符串“BASIC”可使用函数（）15．设S是字符串变量，并且串长度为7，写出生成由S的偶数序号字符组成的字符串的表达式（例如，把字符串”ABCDEFG”变成“BDF”）。
VB第3章习题答案
三、编程题--5
MsgBox "显示重试和取消按钮", 5 + 64 + 256, "消息框“ 或者 MsgBox "显示重试和取消按钮", 325, "消息框“ 或者 MsgBox "显示重试和取消按钮", vbRetryCancel + vbInformation + vbDefaultButton2, "消息框"
第三章习题答案
一. 选择题 • 1—5： C • 6—10： A • 11—13：A
A A D B C B A C C D
二. 填空题
• • • • • • • • • 1. 工程 2. 设计 运行 3. 系统 用户 4. True 5. Text 6. True 7. Command1.Enabled=True 8. Default 9. Prompt 10. 先后顺序 11. 紧凑格式
三、编程题--4
• • • • • • • Private Sub Command1_Click() Dim n1!, n2!, n3! n1 = Val(InputBox("输入n1:")) n2 = Val(InputBox("输入n2:")) n3 = Val(InputBox("输入n3:")) Label1.Caption = (n1 + n2 + n3) / 3 End Sub
三、编程题--1
Private Sub Command1_Click() • Print "Visual Basic容易学吗?" • End Sub
• Private Sub Command2_Click() • Print "用心学就容易!&• • • • • • • • • • Private Sub Command1_Click() Dim yw!, sx!, yy! pj!, fc! yw = Val(InputBox("输入语文成绩")) sx = Val(InputBox("输入数学成绩")) yy = Val(InputBox("输入英语成绩")) pj = (yw+ sx+yy) / 3 fc = (yw-pj)^2 + (sx-pj)^2 + (yy-pj)^2 Print "平均成绩：", pj Print "方差：", fc End Sub
vb分章测试题和答案
vb分章测试题和答案VB二级测试题(第一章)一、选择题1、激活主菜单的按键是（）A．F1或Ctrl键B．Ctrl键或Atl键C．F10或Ctrl键D．F10或Atl键2．如果设计时在属性窗口将命令按钮的（）属性设置为False，则运行时按钮从窗体上消失．A．Visible B．EnabledC．DisabledPicture D．Default3．退出Visual Basic的快捷键是（）A．Ctrl +Q B．Shift +QC．Alt+Q D．Ctrl+Alt+Q4．除了系统默认的工具箱布局外，在Visual Basic中还可以通过（）方法来定义选项卡组织安排控件．A．在工具箱单击鼠标右键，执行快捷菜单中的"添加选项卡"命令B．执行"文件"菜单中的"添加工程"命令C．执行"工程"菜单中的"添加窗体"命令D．执行"工程"菜单中的"部件"命令5．窗体设计器是用来设计（）A．应用程序的代码段B．应用程序的界面C．对象的属性D．对象的事件6．启动Visual Basic后，系统为用户新建的工程起一个名为（）的临时名称．A．工程1 B．窗体1C．工程D．窗体7．工程资源管理器窗口中包含的文件类型有（）种．A．2 B．3C．4 D．58．Visual Basic的编程机制是（）A．可视化B．面向对象C．面向图形D．事件驱动9．Visual Basic集成环境的大部分窗口都可以从主菜单项（）的下拉菜单中找到相应的打开命令．A．编辑B．视图C．格式D．调试10．要在窗体上显示图片，需设置窗体的（）属性．A．Caption B．IconC．Picture D．ControlBox11．每个窗体对应一个窗体文件，窗体文件的扩展名是（）A．.bas B．.clsC．.frm D．.vbp12．双击窗体的任何地方，可以打开的窗口是（）A．代码窗口B．属性窗口C．工程管理窗口D．以上3个选项都不对13．工具栏中的"启动"按钮的作用是（）A．运行一个应用程序B．运行一个窗体C．工程管理窗口D．打开被选中对象的代码窗口14．运行时，单击窗体将窗体的前景色设置为红色的事件过程是（）A．Private Sub Form_Click( ) B．Private Sub Form_Click( )BackColor=vbRed Form1.ForeColor=vbRedEnd Sub End SubC．Private Sub Form_Click( ) D．Private Sub Form_Click( )Form1.BackColor=vbRed ForeColor=vbRedEnd Sub End Sub15．如果要在命令按钮上显示图形文件，应设置命令按钮的（）A．Style属性和Graphics属性B．Style属性和Picture属性C．Picture属性D．Graphics属性16．英文缩写OLE的含义是（）A．面向对象程序设计B．对象链接C．对象嵌入D．对象链接与嵌入17．在设计阶段，双击窗体Form1的空白处，打开代码窗口，显示（）事件过程模板．A．Form_Click B．Form_LoadC．Form1_Click D．Form1_Load18．每建立一个窗体，工程管理器窗口中就会增加一个（）A．工程文件B．窗体文件C．程序模块文件D．类模块文件19．激活属性窗口使用的键是（）A．F2 B．F3C．F4 D．F520．Visual Basic是一种（）程序设计语言．A．过程式B．非过程式C．机器D．低级21．不能在运行期间设置窗体的（）属性．A．BorderStyle B．CaptionC．Icon D．MaxButton22．设在窗体上有两个命令按钮，其中一个命令按钮的名称为cmda，则另一个命令按钮的名称不能是（）A．cmdc B．cmdbC．cmdA D．Command1二、填空题1. 如果要在单击钮时执行一段代码，则应将这段代码写在_______________事件过程中．2. 一个工程可以包括多种类型的文件，其中，扩展名为.vbp的文件表示___________文件；扩展名为.frm的文件表示_____________文件；扩展名为.bas的文件表示_____________文件；包含ActiveX控件的文件扩展名为__________．3. Visual Basic 6.0用于开发__________环境下的应用程序．4. 如果要使用命令按钮表面显示文字"退出（X）"（在字符X之下加下划线），则其Caption 属性设置为___________，其括号中的X表示在运行时按下____________键与单击该按钮效果相同．5. 打开"工程窗口"的方法之一是按下______________组合键．6. Visual Basic的控件通常分为3种类型，即___________、___________、____________．其中，____________不能从工具箱中被删除，_____________单独保存在.OCX文件中，在必要进可以加入到工具箱中．选择题答案:bacab acdbc caa(bd)b dbbcb(ad)c填空题答案：1、click2、工程、窗体、标准模块、OCX3、WINDOWS4、退出（&X）、ALT+X5、CTRL+R6、内部控件、ACTIVEX控件、可插入对象、内部控件、ACTIVEX控件VB二级测试题(第二章)一、选择题1. 为了在按下回车键时执行某个按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（）A．Value B．Cancle C．Enable D．Default2．要把一个命令按钮设置成无效，应设置其哪一属性值（）A．Visible B．Enabled C．Default D．Cancel3．下列叙述正确的是（）A．对象是包含数据又包含对象数据进行操作的方法的物理实体B．对象的属性只能在属性窗口中设置C．不同的对象能识别不同的事件D．事件过程都要由用户点击对象来触发4．事件的名称（）A．都要由用户定义B．有的由用户定义，有的由系统定义C．都是由系统预先定义D．是不固定的5．窗体的Caption属性的作用是（）A．确定窗体的名称B．确定窗体的标题C．确定窗体的边界类型D．确定窗体的字体6．Cls方法可以清除窗体或图片框中的（）内容．A．设计阶段使用Picture设置的背景位图B．设计阶段放置的控件C．在运行阶段产生的图形和文字D．以上全部内容7．能够改变窗体边框线类型的属性是（）A．FontStyle B．BorderStyle C．BackStyle D．Border8．要使一个文本框具有水平和垂直滚动条，则应先将其MultiLine属性设置为True，然后再将ScrollBar属性设置为（）A．0 B．1 C．2 D．39．要使文本框获得输入焦点，则应采用文本框控件的哪个方法（）A．GodFocus B．LostFocus C．KeyPress D．SetFocus10．能够获得一个文本框中被选取文本的内容的属性是（）A．T ext B．Length C．SelText D．SelStart11．要使标签能够显示所需要的广西，则在程序中应设置其哪一属性的值（）A．Caption B．Text C．Name D．AutoSize12．要使标签中显示的文本靠右显示，则应将其Alignment属性设置为（）A．0 B．1 C．2 D．313．要使标签所在处透明显示背景，应把其Backstyle属性设置为（）A．0 B．1 C．2 D．314．"对象"是计算机系统运行的（）A．程序单位B．逻辑单位C．物理实体D．基本实体15．窗体的Enable属性的属性值是（）类型的数据．A．整型B．字符型C．逻辑型D．实型16．下列各种窗体事件中，不能由用户触发的事件是（）A．Load事件和Unload事件B．Click事件和Unload事件C．Click事件和Dbclick事件D．Load事件和Initialize事件17．控件是（）A．建立对象的工具B．设置对象属性的工具C．编写程序的编辑器D．建立图形界面的编辑窗口18．当事件能被触发时，（）就会对该事件作出响应．A．对象B．程序C．控件D．窗体19．当一个对象（如窗体或图片框）被移动或改变大小之后，或当一个覆盖该窗体被移开之后，如果要保持该所画图形的完整性，可以选择触发（）事件来完成图形的重画工作．A．Paint B．Load C．Click D．Active20．标准工具箱中的控件（）A．数目是固定不变的B．数目可以增加或减少C．包含了Visual Basic所有控件D．在窗体建立对象时不一定被使用二、填空题1．对象具有属性和______________．2．对象的属性是用_____________来描述的3．对象是既包含_______________又包含对________________的方法，并将其封装起来的一个逻辑实体．选择题答案：dbccb cbddc abadc daaab填空题答案：1.方*2.属性值（数据）3.数据、数据进行操作VB二级测试题(第三章)一、选择题：1、下列关于属性设置的叙述错误的是：（）A、一个控件具有什么属性是VB预先设计好的，用户不能改变B、一个控件具有什么属性是VB预先设计好的，用户可以改变C、一个控件的属性即可以在属性窗口中设置，也可以用程序代码设置D、一个控件的属性在属性窗口中设置，还可以利用程序代码为其设置新值2、下列说法正确的是（）A、对象属性只能在"属性窗口"中设置B、一个新的工程可以在"工程窗口"中建立C、必须先建立一个工程，才能开始设计应用程序D、只能在"代码窗口"中编写程序代码3、列关于窗体上控件的基本操作错误的是：（）A、下一次DEL键只能删除一个控件B、按下一次DEL键可以同时删除多个控件C、按住SHIFT键，然后单击每个要选择的控件，可以同时选中多个控件D、按住ALT键，然后单击每个要选择的控件，可以同时选中多个控件4、下列关于设置控件属性的叙述正确的是A、用户必须设置属性值B、所有的属性值都可以由用户随意设定C、属性值不必一一重新设置D、不同控件的属性项都完全一样5、如果将布尔常量值TRUE赋值给一个整型变量，则整型变量的值为A、0B、-1D、FALSE6、下列关于控件画法的叙述错误的是A、单击一次工具箱中的控件图标，只能在窗体上画出一个相应的控件B、按住CTRL键后单击一次工具箱中的控件图标，可以在窗体上画出多个相同类型的控件C、双击工具箱中的控件图标，所画控件的大小和位置是固定的D、不合用工具箱中的控件工具，不可以在窗估上画出图形对象，但可以写入文字字符7、.应用程序设计完成后，应将程序保存，保存的过程是（）A.只保存窗体文件即可B.只保存工程文件即可C.先保存工程文件，之后保存窗体文件D先保存窗体文件（或标准模块文件），之后还要保存工程文件8、VB应用程序的运行模式是A 解释运行模式B、编译运行模式C、两者都有D、汇编模式9、可视化编程的最大优点是A、具有标准工具箱B、一个工程文件由若干个窗体文件组成C、不需要编写大量代码来描述图形对象D、所见即所得10、任何控件都具有的属性是( )A、TEXTB、CAPTIONC、NAMED、FORECOLOR11、决定控件上文字的字体、字形、大小及效果的属性是（）A、TEXTB、CAPTIOND、FONT12、下列叙述不正确的是A、注释语句是非执行语句，仅对程序的内容起注释作用，它不被解释和编译B、注释语句可以放在代码中的任何位置C、注释语句不能放在续行符的后面D、代码中加入注释语句的目的是提高程序的可读性13、在窗体上建立了多个控件，如TEXT、LABEL1、COMMAND1，若要使程序一运行焦点就定位在COMMAND1控件上，应将COMMAND1控件的（）设置为0；A、INDEXB、TABINDEXC、TABSTOPD、ENABLED14、语句PRINT "INT（-13.2）"；INT（-13.2）的输出结果为：A、INT（-13.2）= -13.2B、INT（-13.2）= 13.2C、INT（-13.2）= -13D、INT（-13.2）= -1415、如果TAB函数的参数小于1，则打印位置在第（）列A、0B、1C、2D、316、运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的TEXT属性进行赋值从而改变了文本框的TEXT属性值时，将触发文本框的（）事件A、CLICKB、DBLCLICKC、GOTFOCUSD、CHANGE17、变量未赋值时，数值型变量的值为（）A、0B、空C、1D、无任何值18、下列语句中正确的是A、txt1.text+txt2.text=txt3.textB、/doc/118055360.html,=cmdokC、12label.caption=1234D、a=inputbox(hello)19、可以通过下列（）操作将焦点赋给对象。
vb练习题(有答案)(打印)
《大学Visaul Basic程序设计》复习题第一章Visual Basic程序设计概述第一题:是非题(共10分,每项1分)1. VB6.0只能运行在Windows 2000下,不能运行在Windows 98下。
13A.对B.错√2. 用户控件和系统控件都可以加载到工具箱上,并且永久保留。
4A.对B.错√第二题、单选题(共45分,每项1.5分)1. VB中的工具栏可以从______菜单上的“工具栏”命令中移进或移出。
15A.工具B.编辑C.视图√D.调试2. 在VB的集成环境中创建VB应用程序时,除了工具箱窗口、窗体设计窗口、属性窗口外,必不可少的窗口是______。
2A.窗体布局窗口B.立即窗口C.代码窗口√D.监视窗口第二章VB的编程机制第一题:是非题(共10分,每项1分)1. 在事件驱动的应用程序中,代码是按照预定的路径执行的。
15A.对B.错√2. 标签控件即可以用来显示用户不能编辑和修改的文本,也可以用来编辑和修改文本。
9A.对B.错√3. 每一个控件实质上都是一个微型程序。
2A.对√B.错4. 窗体上的控件同样可以借助于剪贴板进行剪切、复制和粘贴。
A.对√B.错第二题、单选题(共45分,每项1.5分)1. 文本框没有_____属性。
21A.EnabledB.VisibleC.BackColorD.Caption√2. 文本框(Text1)中有选定的文本,执行Text1.SelText=”Hello”的结果是___。
9A.“Hello”将替换掉原来选定的文本√B.“Hello”将插入到原来选定的文本之前C.Text1.SelLength为5D.文本框中只有“Hello”3. 要判断“命令按钮”是否被鼠标单击,应在“命令按钮”的______事件中判断。
3A.ChangB.KeyDownC.Click√D.KeyPress4. 如果文本框的Enabled属性设为False,则___。
6A.文本框的文本将变成灰色,并且此时用户不能将光标置于文本框上B.文本框的文本将变成灰色,用户仍然能将光标置于文本框上,但是不能改变文本框中的内容√C.文本框的文本将变成灰色,用户仍然能改变文本框中的内容D.文本框的文本正常显示,用户能将光标置于文本框上,但是不能改变文本框中的内容第三题、简单程序(共15分,每项1.5分)1. 以下程序的输出结果是______。
第三章VB基本语法练习题
练习题一、选择题1、下列哪个符号是合法的变量名？。
A．VB123 B.Abs C. 99Ji D. x/y2、Visual Basic 中不存在下列哪一种数据类型？A．字符串类型 B. 日期类型C. 逻辑类型D. 指针类型3、把数值型转换为字符（串）型需要使用下列哪一个函数？。
A．Val B.Str C. Asc D. Chr4、如果x是一个正实数，对x的第三位小数四舍五入的表达式__________。
A．0.01*Int（x+0.005） B. 0.01*Int（100*（x+0.005））C. 0.01*Int（100*（x+0.05））D. 0.01*Int（x+0.05）5、数学式子10Sin25。
写成Visual Basic表达式是__________。
A．10Sin25 B. 10*Sin（25）C. 10*Sin（25。
）D. 10*Sin（25*3.14/180）6、下列变量中，哪个变量是单精度实型？A．Count% B. Bold# C. AA$ D. Aver! 7、表达式Left（“asdf”，2）+UCase（“as”）的值是？A．asas B. asAS C. dfas D.dfAS8、如果希望用变量X来存放数据1234.5678912，应将X定义为什么类型？A. 字符型B. 长整型C. 双精度型D. 单精度型9、表达式6+10 Mod 4*2+1是__________。
A. 9 B．11 C. 1 D. 310、用于截去字符串左右空格的函数是_________。
A. Trim() B．Rtrim() C. Instr() D. Mid()11、下列控件中，不能改变大小的是_________。
A. TextBox B．Label C. Timer D. PictureBox12、下列赋值语句合法的是_________。
A. A=B+C B．B+C=A C. –B=A D. A=2B13、下列哪一个能使变量P、Q的值交换？A. P=Q:Q=P B．P=T:P=Q:Q=TC. T=P:P=Q:Q=TD. T=P:Q=T:P=Q14、在Print方法中，为了使数据以紧凑格式输出，应在输出项之间加入哪种分隔符？A．逗号 B. 分号 C. 空格 D.顿号15、如果想在程序运行时从键盘输入数据，应使用下列哪一个方法？A．赋值语句 B. InputBox C. MsgBox D.Print 16、消息框函数MsgBox不但能输出信息，还能通过返回值告诉程序用户什么？A．按下哪一个按钮 B. 是否继续C. 哪个图标D.几个按钮17、为了在第30列上输出一个”*”,应使用下列哪种Print格式？A．Print 30,”*” B. Print 30；”*”C. Print Tab（30），“*”D. Print Tab（30）；“*”18、条件“x是在区间[10,20]之内”，用Visual Basic表达式表示，正确的是_。
vb习题答案(1-9章)最全的
第一章VB程序设计概述二、选择题CADAB ACDAB CBDBB第二章VB可视化编程基础二、选择题ABDCA CACBC DADAD BDBBB三、填空题1.可视2.LEFT TOP WIDTH HEIGHT3.按字母序4.查看代码5.工具、选项6.Form1 Font7.Multiline8.只读属性9.工程属性通用Form1.show10.tabindex 0第三章VB语言基础二、选择题BCADB ADBBC DBCBA DAABB三、填空题1.整型、长整型、单精度、双精度2.sin(30*3.14/180)+sqr(x+exp(3))/abs(x-y)-log(3*x)3.160 今天是：3-224.False5.-4 3 -3 3 -4 46.“CDEF”7.(x mod 10)*10+x\108.(35\20)*20=20 ( 35 \ 20 ) * 20 = 209.x mod 3=0 or x mod 5=010.27.6 8.2 8 1 100 397 true false第四章VB程序控制结构二、选择题DBCAD ABCAB D25BAC CBACB DABBC三、填空题1.字符型整型2. 1 2 33.x>74.x<amin5.10246.117.128.6 I “*”;9.0 100 i+1 10.2*I 6 “*”;三、编程题1.Private Sub Form_Click()Dim n As Integer, i As Integer, s As Longs = 1n = Val(InputBox("请输入一个整数:"))For i = 1 To ns = s * iNext iMsgBox n & "！=" & sEnd Sub2．Private Sub Form_Click()Dim i%, k%For j = 3 To 100k = Int(Sqr(j))For i = 2 To kIf j Mod i = 0 Then Exit ForNext iIf i > k Theny$ = y$ & " " & jEnd IfNext jMsgBox y, , "显示质数"End Sub3．Private Sub Form_Click()Dim i%, s%For i = 1 To 100s = s + iNext iMsgBox "1+2+3+……+100=" & sEnd Sub4．Private Sub Form_Click()Dim x%, y%For x = 1 To 50For y = 1 To 33z = 100 - x - yIf 2 * x + 3 * y + 0.5 * z = 100 ThenPrint "小鸡、公鸡、母鸡分别为："; x; y; z End IfNext yNext xEnd Sub5.Private Sub Command1_Click()Dim a%, b%, c%, p!, s!doa = Val(InputBox("请输入三角形的第一条边"))if a=-1 then exit dob = Val(InputBox("请输入三角形的第二条边"))c = Val(InputBox("请输入三角形的第三条边"))If a + b > c And a + c > b And b + c > a Thenp = (a + b + c) / 2s = Sqr(p * (p - a) * (p - b) * (p - c))Print sElseMsgBox "你输入的三边不能构成三角形，请重新输入"End IfloopEnd Sub6. Private Sub Form_Click()Dim i As Integer, j As Integer,k as integerFor i = 1 To 8For k=1 to 8-iPrint spc(3);Next kFor j = 1 To 2 * i - 1Print i;Next jPrintNext iEnd Sub7. Private Sub Form_Click()Dim i As Integer, j As Integer, k As IntegerFor i = 1 To 30For j = 1 To 30For k = 1 To 30If i ^ 2 + j ^ 2 = k ^ 2 ThenPrint i & " ^ 2 + " & j & "^ 2 =" & k & "^ 2"End IfNext kNext jNext iEnd Sub8．Private Sub Form_Click()Dim x As Integer, a As Integer, b As Integer, c As Integer, ss As String ss = ""For x = 100 To 999a = Int(x / 100)b = Int((x - 100 * a) / 10)c = x - 100 * a - 10 * bIf a ^ 3 + b ^ 3 + c ^ 3 = x Thenss = ss & " " & xEnd IfNext xPrint ssEnd Sub9．Dim sr As Long, r As Singlesr = Val(InputBox("请输入收入："))Select Case srCase Is < 200r = 0Case 200 To 400r = (sr - 200) * 0.04Case 400 To 5000r = sr * 0.04Case Is >= 5000r = sr * 0.05End SelectPrint "收入为" & sr & "时所缴纳的税为：" & rEnd Sub10.Private Sub Form_Click()Dim t As Single, wf As Singlet = Val(InputBox("请输入上网时间:"))Select Case tCase Is < 10wf = 50Case 10 To 60wf = t * 6Case Is >= 60wf = t * 4End SelectIf wf >= 200 Thenwf = 200End IfPrint "上网时间为" & t & "小时上网的费用为：" & wf End Sub11. Private Sub Form_Click()Dim yf As Integeryf = Val(InputBox("请输入月份"))Select Case yfCase 12, 1, 2MsgBox yf & "月份是冬季"Case 3, 4, 5MsgBox yf & "月份是冬季"Case 6, 7, 8MsgBox yf & "月份是冬季"Case 9, 10, 11MsgBox yf & "月份是冬季"Case ElseMsgBox "输入错误，请重新输入"End SelectEnd Sub12.if的方法Private Sub Form_Click()Dim x As Single, f As Singlex = Val(InputBox("请输入一个数"))If x < 0 Thenf = 2 * x - 1ElseIf x = 0 Thenf = 4 * xElseIf x > 0 Thenf = 7 * x - 5End IfPrint "f(" & x & ")=" & fEnd SubSelect case语句：Private Sub Form_Click()Dim x As Single, f As Singlex = Val(InputBox("请输入一个数"))Select Case xCase Is < 0f = 2 * x - 1Case 0f = 4 * xCase Is > 0f = 7 * x - 5End SelectPrint "f(" & x & ")=" & fEnd Sub第五章数组一、选择题DCACD DBCDC BADAD二、填空题1.名称Index2.preserve3.变体4.235.1 2 3 1 4 16.1 2 3 2 4 67. max max=arr1(i)三、编程题1.Option Base 1Private Sub Form_Click()Dim a(10) As Integer, i%, temp%For i = 1 To 10a(i) = Val(InputBox("请输入第" & i & "个整数")) Next iPrint "原来各元素的值为："For i = 1 To 10Print a(i);Next iFor i = 1 To 5temp = a(11 - i)a(11 - i) = a(i)a(i) = tempNext iPrintPrint "交换后各元素的值为："For i = 1 To 10Print a(i);Next iEnd Sub2.Option Base 1Private Sub Form_Click()Dim a As Variant, b As Variant, c As Variant, i%a = Array(2, 8, 7, 6, 4, 28, 70, 25)b = Array(79, 27, 32, 41, 57, 66, 78, 80)ReDim c(8)For i = 1 To UBound(a)c(i) = a(i) + b(i)Next iFor i = 1 To UBound(c)Print c(i);Next iEnd Sub3.Option Base 1Private Sub Form_Click()Dim a() As Variant, i%, j%, n%, m%, max%, hh%, lh%n = Val(InputBox("请输入一个整数:"))m = Val(InputBox("请输入一个整数:"))ReDim a(n, m)For i = 1 To n - 1For j = 1 To m - 1a(i, j) = Int(Rnd * 101 + 50)If max < a(i, j) Then max = a(i, j): hh = i: lh = jNext jNext iPrint "最大值为:"; max; "所在的行号为："; hh; "所在的列号为:"; lh End Sub4.Option Base 1Private Sub Form_click()Dim a(50) As Integer, b(9) As Integer, i%, j% For i = 1 To 50a(i) = Int(Rnd * 90 + 10)j = Int(a(i) / 10)b(j) = b(j) + 1Next iFor j = 1 To 9Print b(j);Next jEnd Sub5.Option Base 1Private Sub Command1_Click(Index As Integer) Select Case IndexCase 0Text3 = Val(Text1) + Val(Text2)Case 1Text3 = Val(Text1) - Val(Text2)Case 2Text3 = Val(Text1) * Val(Text2)Case 3Text3 = Val(Text1) / Val(Text2)End SelectEnd Sub6.Private Sub Form_click()Dim s!, i&, j&i = 3s = 1j = 0Doj = j + 1s = s + (-1) ^ j / ii = i + 2Loop While 1 / i > 10 ^ (-6)Print 4 * sEnd Sub7.Option Base 1Private Sub Form_click()Dim a(40) As Long, i As Integera(1) = 1a(2) = 1For i = 3 To 39a(i) = a(i - 1) + a(i - 2)Next iFor i = 1 To 40Print a(i);Next iEnd Sub8.冒泡法：Option Base 1Private Sub Form_click()Dim a(10) As Single, ok As Boolean, i%, j%, x!For i = 1 To 10a(i) = Val(InputBox("请输入第" & i & "个数"))Print a(i);Next iFor i = 10 To 2 Step -1ok = TrueFor j = 1 To i - 1If a(j) > a(j + 1) Thenx = a(j)a(j) = a(j + 1)a(j + 1) = xok = FalseEnd IfNext jIf ok Then Exit ForNext iPrintPrint "冒泡排序的结果为："For i = 1 To 10Print a(i);Next iEnd Sub选择法：Option Base 1Private Sub Form_click()Dim a(10) As Single, p!, i%, j%, min!For i = 1 To 10a(i) = Val(InputBox("请输入第" & i & "个数"))Print a(i);Next iFor i = 1 To 9p = iFor j = i + 1 To 10If a(j) < a(p) Then p = jNext jIf p <> i Thenmin = a(i)a(i) = a(p)a(p) = minEnd IfNext iPrintPrint "排序后的结果为："For i = 1 To 10Print a(i);Next iEnd Sub第六章过程一、选择题CDBAB DBCCC ABCBD CDB二、填空题1.sub function2.形式实际3.内存的同一地址4.myf(a%,b() as integer ) as Boolean5.值传递地址传递6.lbound ubound7.局部8.通用任何过程9.2 5 9 10.2411.2 12.30 7013.-1三、编程题1. Option Base 1Private Sub Form_Click()Dim m1%, m2%, b() As IntegerFor i = 3 To 7 Step 2ReDim b(i)For j = 1 To ib(j) = Int(Rnd * 90 + 10)Print b(j);Next jm1 = b(1)m2 = b(1)Call mm(m1, m2, b())PrintPrint "最大值为:"; m1Print "最小值为:"; m2Next iEnd SubPublic Sub mm(max%, min%, a() As Integer) Dim i%For i = LBound(a) To UBound(a)If a(i) > max Then max = a(i)If a(i) < min Then min = a(i)Next iEnd Sub2.sub过程：Public Sub jc(n%, s&)Dim i%s = 1For i = 1 To ns = s * iNext iEnd SubPrivate Sub Form_click()Dim s&, a%, b%, c%, s1&a = Val(InputBox("请输入一个整数:"))b = Val(InputBox("请输入一个整数:"))c = Val(InputBox("请输入一个整数:")) Call jc(a, s1)s = s1 + sCall jc(b, s1)s = s1 + sCall jc(c, s1)s = s1 + sPrint a & "!+" & b & "!+" & c & "!=" & s End SubFunction过程：Public Function jc(n%) As LongDim i%, s%s = 1For i = 1 To ns = s * iNext ijc = sEnd FunctionPrivate Sub Form_click()Dim s&, a%, b%, c%, s1&a = Val(InputBox("请输入一个整数:"))b = Val(InputBox("请输入一个整数:"))c = Val(InputBox("请输入一个整数:"))s1 = jc(a) + jc(b) + jc(c)Print a & "!+" & b & "!+" & c & "!=" & s1 End Sub3.Public Sub jo(n As Integer)If n Mod 2 = 0 ThenPrint "false"ElsePrint "true"End IfEnd Sub4.Private Sub Form_click()Dim b(1 To 100) As Integer, i%For i = 1 To 100b(i) = Int(Rnd * 100 + 1)Next iCall sort(b())For i = 1 To 100If i Mod 10 = 0 Then PrintPrint b(i);Next iEnd SubPublic Sub sort(a() As Integer)Dim n%, ok As Boolean, k As Integern = UBound(a)For i = 1 To n - 1ok = TrueFor j = 1 To n - iIf a(j) > a(j + 1) Thenk = a(j): a(j) = a(j + 1): a(j + 1) = k: ok = False End IfNext jIf ok Then Exit ForNext iEnd Sub5.Private Sub Form_click()Dim b(1 To 10) As Integer, i%For i = 1 To 10b(i) = Val(InputBox("请输入第" & i & "个整数")) Next iCall sort(b())Print "排序后的结果"For i = 1 To 10Print b(i);Next iEnd SubPublic Sub sort(a() As Integer)Dim n%, p%, k As Integern = UBound(a)For i = 1 To n - 1p = iFor j = i + 1 To nIf a(j) < a(p) Then p = jNext jIf p <> i ThenMin = a(i)a(i) = a(p)a(p) = MinEnd IfNext iEnd Sub6.Public Sub gys(m%, n%)Dim r%, t%If m <> 0 And n <> 0 ThenIf m < n Thent = m: m = n: n = tEnd Ifr = m Mod nDo While r <> 0m = nn = rr = m Mod nLoopEnd IfEnd Sub7.Public Sub ws(n%, s%)Dim k%, i%For i = 1 To n - 1If n Mod i = 0 Then s = s + iNext iEnd SubPrivate Sub Form_click()Dim m%, sum%, c$For m = 1 To 999sum = 0Call ws(m, sum)If sum = m Then c = c & sum & " " Next mMsgBox cEnd Sub8.Public Function ef(a(), k%, wz%) As Integer Dim i%, low%, mid%, top%low = LBound(a)top = UBound(a)Do While low <= topmid = (low + top) / 2If k > a(mid) Thenlow = mid + 1ElseIf k = a(mid) Thenwz = midExit FunctionElsetop = mid - 1End IfLoopwz = -1End Function9.Function MaxGY(x As Integer, y As Integer) Dim Temp As IntegerTemp = x Mod yIf Temp = 0 ThenMaxGY = yElseMaxGY = MaxGY(y, Temp)End IfEnd FunctionPrivate Sub Form_click()Dim m%, n%m = Val(InputBox("请输入第一个整数："))n = Val(InputBox("请输入第二个整数：")) Print "最大公约数是:"; MaxGY(m, n)End Sub10. Function Ss(n%)If n = 1 ThenSs = 10ElseSs = Ss(n - 1) + 2End IfEnd FunctionPrivate Sub Form_click()Dim r%, x%r = 5x = Ss(5)Print "第5个小孩的岁数为:"; xEnd Sub第七章应用程序界面设计一、选择题BCDCA CDBBD CADAA CADBD DAAAB CAA二、填空题1.form1.show unload form12.form2.show form1.hide3.属性方法事件4、工程属性工程属性5．子窗体主窗体6、keypress list(i) additem7.0 list1.listindex list1.listcount-18、1000 true time() 9、AA10、下拉式组合框、简单组合框和下拉式列表框第八章VB图形操作一、选择题DCCDA CDAAA BABBC CAAA二、填空题1、不会也不会 2.、Scaleheight Scalewidth3、(300,-150)4、右上5、twip6、0~157、B 8、-2π~09、逆10、drawwidth11、右上12、move13、cls 14、坐标原点、坐标度量单位、坐标轴的长度与方向15、VB程序设计vbprogramming三、编程题1、Private Sub Command1_Click()Const pi = 3.14159P1.Circle (Val(Text1), Val(Text2)), Val(Text3)End SubPrivate Sub Command2_Click()P1.ClsText1 = ""Text2 = ""Text3 = ""End Sub2、Private Sub Form_Load()Pic1.Picture = LoadPicture("F:\VB程序设计\上课课件\tea.jpg")End SubPrivate Sub Pic1_Click()Pic2.Picture = Pic1.PicturePic1.Picture = LoadPicture("")End Sub3、Dim a1!, b1!Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) a1 = Xb1 = YEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Circle (a1, b1), Sqr((a1 - X) ^ 2 + (b1 - Y) ^ 2)End Sub4、Dim a1!, b1!Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Thena1 = Xb1 = YEnd IfEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 ThenLine (a1, b1)-(X, Y), vbGreen, BFEnd IfEnd Sub5、Private Sub Form_Click()Scale (-200, 200)-(200, -200)Dim i!For i = 0 To 140 Step 20Line (-i - 10, i + 10)-(i + 10, -i - 10), , BNext iEnd Sub第9章vb文件操作一、选择题BDDCC BBAAB二、填空题1、驱动器列表框、目录列表框和文件列表框2、change 3\file1.path=dir1.path4、name “D:\old.doc” as “c:\new.doc”5、dir1.path=drive1.drive file1.path=dir1.path6、filecopy “d:\text.doc”,”e:\text.doc”7、eof 8、input not eof(1)9、for inputFor outputnot eof(1)str1Close #110、pattern 11、空12、字节。
vb练习题第三章
vb练习题第三章VB第三章练习一、选择题1．关于Visual Basic程序的说法不正确的是________。
A) 一行可以写多条语句，语句之间用“:”隔开B) 一条语句可以写在多行上，用“空格”加“_”作为续行标志C) 程序中的大小写字母不区分D) 变量在使用之前必须先定义类型2．Visual Basic的一条语句可以写在多行，但要用续行符，续行符应为________。
A) 一个空格加一个下划字符(_) B) 一个下划字符(_)C) 直接回车 D) 一个空格加一个连字符(-)3．Visual Basic的一行可以写多条语句，语句之间用________隔开。
A) 逗号 B) 分号 C) 顿号_ D) 冒号4．下列说法不正确的是 ________。
A) 注释语句是非执行语句，仅对程序的有关内容其注释作用，它不被解释和编译B) 注释语句可以作为代码中的一行C) 注释语句不可以放在其他语句的后面D) 代码中加入注释语句的目的是提高程序的可读性5．下列说法不正确的是________。
A) 调试程序时，使用解释运行方式比较方便B) 解释运行方式比编译运行方式运行应用程序的速度慢C) 解释运行方式必须在Visual Basic集成环境下使用D) 解释运行方式和编译运行方式都必须在Visual Basic集成环境下使用6．一般情况下，用Visual Basic创建应用程序分为4个主要步骤。
以下操作顺序正确的是________。
① 创建应用程序的界面② 编写程序代码，建立事件过程③ 设置对象属性④ 调试运行程序，生成可执行文件A) ①②③④ B)①③②④ C) ②①④③ D) ②③①④7．新建工程的快捷键是________ 。
A) Crtl+A B)Crtl+D C) Crtl+N D) Crtl+E8．工程文件的扩展名是________。
A) frm B) frx C) cls D)vbp9．假定窗体的名称(Name属性)为Form1，则把窗体的标题设置为"Visual Basic Test"的语句为________。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB第三章练习
一、选择题
1．关于Visual Basic程序的说法不正确的是________。
A) 一行可以写多条语句，语句之间用“:”隔开
B) 一条语句可以写在多行上，用“空格”加“_”作为续行标志
C) 程序中的大小写字母不区分
D) 变量在使用之前必须先定义类型
2．Visual Basic的一条语句可以写在多行，但要用续行符，续行符应为________。
A) 一个空格加一个下划字符(_) B) 一个下划字符(_)
C) 直接回车 D) 一个空格加一个连字符(-)
3．Visual Basic的一行可以写多条语句，语句之间用________隔开。
A) 逗号 B) 分号 C) 顿号_ D) 冒号
4．下列说法不正确的是 ________。
A) 注释语句是非执行语句，仅对程序的有关内容其注释作用，它不被解释和编译
B) 注释语句可以作为代码中的一行
C) 注释语句不可以放在其他语句的后面
D) 代码中加入注释语句的目的是提高程序的可读性
5．下列说法不正确的是________。
A) 调试程序时，使用解释运行方式比较方便
B) 解释运行方式比编译运行方式运行应用程序的速度慢
C) 解释运行方式必须在Visual Basic集成环境下使用
D) 解释运行方式和编译运行方式都必须在Visual Basic集成环境下使用
6．一般情况下，用Visual Basic创建应用程序分为4个主要步骤。
以下操作顺序正确的是________。
① 创建应用程序的界面② 编写程序代码，建立事件过程
③ 设置对象属性④ 调试运行程序，生成可执行文件
A) ①②③④ B)①③②④ C) ②①④③ D) ②③①④
7．新建工程的快捷键是________ 。
A) Crtl+A B)Crtl+D C) Crtl+N D) Crtl+E
8．工程文件的扩展名是________。
A) frm B) frx C) cls D)vbp
9．假定窗体的名称(Name属性)为Form1，则把窗体的标题设置为"Visual Basic Test"的语句为________。
A) Form1＝"Visual Basic Test" B) Caption＝"Visual Basic Test"
C) Form1.Text＝"Visual Basic Test" D) ＝"Visual Basic Test"
10. 下列不能打开代码窗口的操作是________ 。
A) 双击窗体上的某个控件 B) 双击窗体
C) 按F7键 D) 单击窗体或控件
11．为了保存一个Visual Basic应用程序，下列说法正确的是________。
A) 只保存窗体文件(.frm)
B) 只保存工程文件(.vbp)
C) 分别保存工程文件和标准模块文件
D) 分别保存工程文件、窗体文件和标准模块文件
12．为了装入一个Visual Basic应用程序，下列说法正确的是________。
A) 只装入窗体文件(.frm)
B) 只装入工程文件(.vbp)
C) 分别装入工程文件和标准模块文件
D) 分别装入工程文件、窗体文件和标准模块文件
13.以下关于过程的叙述中，错误的是
A）事件过程是由某个事件触发而执行的过程
B）函数过程的返回值可以有多个
C）可以在事件过程中调用通用过程
D）不能在事件过程中定义函数过程
14. 下面不正确的赋值语句是_______。
A. x=30-y
B. y=r.r
C. y=x+30
D. y=x\3
15.为了给x,y,z三个变量赋初值1，下面正确的赋值语句是______。
A. x=1∶y=1∶z=1
B. x=1,y=1,z=1
C. x=y=z=1
D. xyz=
16. 如果在立即窗口中依次执行下列命令：
a=8
b=9
Print a>b
则输出的结果是____ __。
A. 1
B. 0
C. False
D. True
17、以下不能运行工程的操作是。
A..执行"运行"菜单中的"启动"命令
B.单击工具栏中的"启动"命令
D.按下F5键 C.按下Ctrl+F5键
二、填空题
1．要结束程序的运行应________语句。
2．Visual Basic在同一行上可以书写多条语句，语句间用________ 。
单行语句可分若干行书写，在本行后加入续行符号________。
3．工程文件的扩展名为________ 。
4．Visual Basic 6.0的两种运行方式是________ 和________。
5．添加或删除控件类，需要在“________”菜单下单击“部件”菜单项，打开“部件”对话框，然后在对话框中进行操作。
6．要想采用编译运行方式运行应用程序，生成可执行文件，应单击“________”菜单下的“生成工程名.EXE”菜单项。
7．在用Visual Basic开发应用程序时，一般需要________、________、________和________4部。
8．在保存Visual Basic应用程序时，窗体文件和工程文件的扩展名分别为________和________。
9．为了把一个Visual Basic应用程序装入内存，只要装入________ 文件即可。
10． Visual Basic应用程序通常由3类模块组成，即________、________和________。
11、Visual Basic 的赋值语句既可给变量赋值，也可给对象的_______赋值。
12、在VB中，复合语句是几个语句写在一行，中间用隔开，例如a=1:b=2:c=3。
如果将一条语句分两行书写，需在第一行末尾用作为续行符。
13、在VB中，赋值语句的格式是，该语句有计算与赋值双重功能，即将右侧的运算结果赋值给左侧（不是比较运算，不能互换位置）。
对一个目标多次赋值，则新值取代旧值。
14、VB的注释符号是，注释语句是非执行语句，不被VB解释和编译。
15、VB中结束语句是。
16、用VB开发应用程序的一般步骤是、和。
双击窗体或控件出现窗口。
注：F4－属性窗口；F5－启动运行；F7－代码窗口
三、判断
1.VB6.0支持语句自动语法检测，允许在输入的过程中自动对输入的内容进行语法检测。
2.VB6.0能自动进行语句的格式化处理，在输入语句时，命令词、函数可以不区分大小写。
3.赋值语句中，目标操作符包括变量、常量、表达式、带属性的对象
4.赋值语句也称为Let语句
5．赋值语句的功能是将目标操作符的值赋给源操作符
6.给对象赋值实质上是改对象的相应属性值
7.赋值语句中源操作符和目标操作符的类型必须完全相同
8.所有注释语句均可以用关键字Rem或一个撇号“’”
9.在VB工程文件中运行Stop语句时，保持文件打开且不退出VB开发环境。
10.利用Stop语句可以设置断点，方便调试程序
11.VB工程生成可执行文件后如果含有Stop语句，运行时将关闭所在文件
12.一个程序可以没有End语句
13.用VB设计应用程序一定要先设置控件属性再编写代码
14.保存VB程序的过程是实现将应用程序从内存保存到外存中，装入程序的过程是实现将应用程序从外存导入到内存中。
15程序的解释运行要在VB开发环境中，生成可执行文件后可以不依赖于VB的开发环境在Windows环境中运行。
16.一个VB应用程序至少要有一个窗体文件
17.VB应用程序的代码不是按预定的顺序执的，在响应不同的事件时执行不同的代码段
18.赋值语句的功能是计算机表达式并转换为相同类型数据后为变量或控件属性赋值。
19. 用DIM定义数值变量时，该数值变量自动赋初值为0。