VB第1-4章习题答案
《电路分析基础》第一章~第四章练习题
1、电路；2、理想器件；3、电路模型；4、电路模型；5、集总参数元件；6、几何尺寸；7、用来描述电路性能；8、i u q ψ；9、正电荷；10、参考方向；11、电位差；12、电流参考方向与电压降的选择一致；13、P（t）=dW（t）/ dt；14、吸收功率产生功率；15、能量传输；16、任意选取；17、任意选取；18、一条支路；19、支路电压；20、支路电流；21、节点；22、回路；23、网孔；24、网络；25、拓扑约束；26、元件约束；27、拓扑约束元件约束；28代数和；29、支路电流；30、电压降；31、路径；32、线性；33、原点；34、电导；35、线性电阻非线性电阻；36、P=UI；37电源；38、外电路；39、外电路；40、串联；41、并联；42、分压；43、分流；44、控制受控；45、控制量；46、n-1 b-n+1；47、线性电路；48、线性含源；49、完备性独立性；50、假设；51、网孔分析法；52、KVL；53、独立节点；54、单口网络；55、端口电压与电流的伏安关系等效电路；56、外接电压源外接电流源；57、外接电路；58、非线性电路；59、伏安特性曲线；60、网络内部；61、理想电压源；62、理想电流源；63、一个理想电压源uS；64、一个理想电流源iS；65、大小相等且极性一致；66、大小相等且方向一致；67、线性含源单口网络；68、uOC/iSC；69、外加电源法开路短路法；70、负载RL应与戴维南等效
三、计算分析题
1、电路如图1所示，已知us 12V，试求u2和等效电阻Rin。
2、电路如图2所示，试求电流i和电压u。
3、电路如图3所示，试用叠加定理求电压U和电流I。
4、电路如图4所示，试用叠加定理求电压U。
5、电路如图5所示，试用叠加定理求电压U和电流I。
中职计算机VB语言程序设计基础 第一章VB概述测试题及答案
第一章 Visual Basic概述一、选择题1.在 Visual Basic的工程中,工程文件的扩展名是( ) 。
A. .frmB. .vbgC. .vbpD. .bas2. Visual Basic程序中分隔一行中各语句的字符是( ) 。
A.’B.:C.\D.-空格-3.下列不属于对象的基本特征是( ) 。
A.属性B.方法C.事件D.函数4.以下叙述中错误的是( ) 。
A.在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B.以.BAS为扩展名的文件是标准模块文件C.窗体文件包含窗体及控件的属性D.一个工程中可以含有多个标准模块文件5.启动 Visual Basic后,系统为用户新建的工程起一个名为( ) 的临时名称。
A.工程1B.窗体1C.工程D.窗体6.用标准工具栏中的工具按钮不能执行的操作是( ) 。
A.添加工程B.打印源程序C.运行程序D.打开工程7.要添加一个标准模块,可使用( ) 菜单中的“添加模块”命令。
A.文件B.视图C.工程D.工具8.工具栏中的“启动”按钮的作用是( ) 。
A.运行一个应用程序B.运行一个窗体C.工程管理窗口D.打开被选中对象的代码窗口9.下列关于 Visual Basic6.0工具栏的说法不正确的是( ) 。
A.工具栏的位置可以任意改变B.工具栏一定在菜单栏的下方C.工具栏可以显示或隐藏D. Visual Basic有多个工具栏10.在设计模式双击窗体将显示的窗口是( ) 。
A.工程窗口B.工具箱C.代码窗口D.属性窗口11.以下关于保存工程的说法正确的是( ) 。
A.保存工程时只保存窗体文件即可B.保存工程时只保存工程文件即可C.先保存窗体文件,再保存工程文件D.先保存工程文件,再保存窗体文件12.在面向对象的程序设计中,最基本的元素是( ) 。
A.窗体文件B.工程文件C.属性D.对象13. Visual Basic的编程机制是( ) 。
VB第1章习题与答案
第1章习题与答案一、选择题1. 在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体窗口、属性窗口外，必不可少的窗口是:（A）窗体布局窗口（B）立即窗口（C）代码窗口（D）监视窗口2. 保存新建的工程时，默认的路径是:（A）My Documents （B）VB98 （C）\ （D）Windows3. 将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件转到其他机器上不能运行的主要原因是:（A）运行的机器上无VB系统所需的动态连接库（B）缺少.frm窗体文件（C）该可执行文件有病毒（D）以上原因都不对4.当需要上下文帮助时，选择要帮助的“难题”，希望出现MSDN窗口及显示所需“难题”的帮助信息。
应按的键的（A）Help （B）F10 （C）Esc （D）F15.Visual Basic中提供的On Error Resume Next错误陷阱语句的功能是:（A）当发生错误时，使程序跳转到语句标号为0的程序块（B）当发生错误时，不使用错误处理程序块（C）当发生错误时，忽略错误行，继续执行下一语句（D）当发生错误时，终止本过程程序执行，继续执行下一过程6.在VB环境中，工程文件的扩展名是:（A）.frm （B）.bas （C）.vbp （D）.frx7.将一个VB程序保存在磁盘上，至少会产生的文件是:（A）.doc、.txt （B）aaa、.exe （C）.vbp、.frm （D）.bat、.sys8.下面关于对象的描述中，错误的是:（A）对象就是自定义结构变量（B）对象代表正在创建的系统中的一个实体（C）对象是一个状态和操作（或方法）的封装体（D）对象之间的信息传递是通过消息进行的9.下面4项中不属于面向对象系统三要素的是(A)变量（B）事件（C）属性（D）方法10.下面各种高级语言中，不是面向对象程序设计语言的是（A）Visual Basic （B）C++ （C）Pascal （D）Java二、填空题1．当进入VB集成环境后，发现没有显示“工具箱”窗口，应选择【1】菜单的【2】选项，使“工具箱”窗口显示。
VB单选题(第1章、第2章)
1 以下关于vb 语言的说法中,正确的是().A) vb 是一种面向过程的语言B) vb 是一种面向对象语言C) vb是一种低级语言D) vb 是一种机器语言答案 B2 工程资源管理器窗口中包含的文件类型有()种.A) 2B) 3C) 4D) 5答案 C3 下列关于属性设置的叙述错误的是().A) 一个控件具有什么属性是VB预先设计好的,用户不能改变B) 一个控件具有什么属性是VB预先设计好的,用户可以改变C) 一个控件的属性即可以在属性窗口中设置,也可以用程序代码设置D) 一个控件的属性在属性窗口中设置,还可以利用程序代码为其设置新值答案 A4 下列可以打开立即窗口的操作是().A) Ctrl+DB) Ctrl+EC) Ctrl+FD) Ctrl+G答案 D5 下列说法正确的是().A) 对象属性只能在"属性窗口"中设置B) 一个新的工程可以在"工程窗口"中建立C) 必须先建立一个工程,才能开始设计应用程序D) 只能在"代码窗口"中编写程序代码答案 C6 下列叙述正确的是().A) 对象是包含数据又包含对象数据进行操作的方法的物理实体B) 对象的属性只能在属性窗口中设置C) 不同的对象能识别不同的事件D) 事件过程都要由用户点击对象来触发答案 C7 下面()控件不具有Caption属性.A) 标签框B) 单选钮C) 命令按钮D) 文本框答案 D8 要把一个命令按钮设置成无效,应设置其哪一属性值().A) VisibleB) EnabledC) DefaultD) Cancel答案 B9 要改变控件的宽度,应修改该控件的()属性.A) TopB) WidthC) LeftD) Height答案 B10 要使标签能够显示所需要的东西,则在程序中应设置其哪一属性的值().A) CaptionB) TextC) NameD) AutoSize答案 A11 要使标签能透出窗体的背景,必须设置()属性.A) BackStyleB) BorderStyleC) AppearanceD) BackColor答案 A12 要使标签所在处透明显示背景,应把其Backstyle属性设置为().A) 0B) 1C) 2D) 3答案 A13 要使标签中显示的文本靠右显示,则应将其Alignment属性设置为().A) 0B) 1C) 2D) 3答案 B14 要使得标签能自动扩充以满足字体大小则可对其()属性进行设置.A) alignmentB) usemnemonicC) autosizeD) tag答案 C15 要使得窗体一开始运行就充满整个屏幕则须设置()属性.A) borderstyleB) appearanceC) windowstateD) drawmode答案 C16 要使得窗体在出现之前就完成相关的程序设置可在()事件中进行编程.A) linkopenB) KeyPressC) loadD) click答案 C17 要使文本框获得输入焦点,则应采用文本框控件的哪个方法().A) GodFocusB) LostFocusC) KeyPressD) SetFocus答案 D18 要使文本框中的文本显示掩码(密码)符,在属性设置时,首先必须设置()属性为False.A) TextB) EnabledC) VisibleD) Multiline答案 D19 要使文本框中显示密码符有效,必须首先设置()属性.A) TextB) MultiLineC) LockedD) Enabled答案 B20 要使一个标签透明且不具有边框,则应().A) 将其BackStyle属性设置为0,BorderStyle属性设置为0B) 将其BackStyle属性设置为0,BorderStyle属性设置为1C) 将其BackStyle属性设置为1,BorderStyle属性设置为0D) 将其BackStyle属性设置为1,BorderStyle属性设置为1答案 B21 要使一个文本框具有水平和垂直滚动条,则应先将其MultiLine属性设置为True,然后再将ScrollBar属性设置为().A) 0B) 1C) 2D) 3答案 D22 要想输返回文本框中入的内容则可利用其()属性进行编程.A) captionB) textC) nameD) righttoleft答案 B23 要在垂直位置上移动控件,应利用控件的()属性.A) LeftB) WidthC) TopD) Height答案 C24 要在命令按钮控件上显示图像应().A) 设置Picture属性B) 实现不了C) 先将Style设置为1,然后再设置Picture属性D) 以上都不对答案 C25 一个对象可以执行的动作和可被对象识别的动作分别称为().A) 事件、方法B) 方法、事件C) 属性、方法D) 过程、事件答案 B26 以下关于焦点的叙述中,错误的是().A) 如果文本框的TabStop属性为False,则不能接收从键盘上输入的数据B) 当文本框失去焦点时,触发LostFocus事件C) 当文本框的Enabled属性为False时,其Tab顺序不起作用D) 可以用TabIndex属性改变Tab顺序答案 A27 以下叙述中错误的是().A) Visual Basic是事件驱动型可视化编程工具B) Visual Basic应用程序不具有明显开始和结束语句C) Visual Basic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性D) Visual Basic中控件的某些属性只能在运行时设置答案 C28 以下叙述中错误的是().A) 在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B) 以.BAS为扩展名的文件是标准模块文件C) 窗体文件包含该窗体及其控件的属性D) 一个工程中可以含有多个标准模块文件答案 A29 以下叙述中错误的是().A) 双击鼠标可以触发DblClick事件B) 窗体或控件的事件的名称可以由编程人员确定C) 移动鼠标时,会触发MouseMove事件D) 控件的名称可以由编程人员设定答案 B30 以下叙述中错误的是().A) 打开一个工程文件时,系统自动装入与该工程有关的窗体、标准模块等文件B) 保存Visual Basic程序时,应分别保存窗体文件及工程文件C) Visual Basic应用程序只能以解释方式执行D) 事件可以由用户引发,也可以由系统引发答案 C31 应用程序设计完成后,应将程序保存,保存的过程是().A) 只保存窗体文件即可B) 只保存工程文件即可C) 先保存工程文件,之后保存窗体文件D) 先保存窗体文件(或标准模块文件),之后还要保存工程文件答案 D32 欲使标签的内容自动换行,必须设置属性().A) AutoSizeB) AlignmentC) leftD) WordWrap答案 D33 欲使某命令按钮失效,应修改命令按钮的()属性.A) VisibleB) CaptionC) EnableD) Enabled答案 D34 运行时,当用户向文本框输入新的内容,或在程序代码中对文本框的Text属性进行赋值从而改变了文本框的Text属性值时,将触发文本框的()事件.A) ClickB) DblClickC) GotFocusD) Change答案 D35 在VB中过()属性来设置字体颜色.A) FontColorB) ForeColorC) BackColorD) ShowColor答案 B36 在Visual Basic环境中,请问标准模块的扩展名是().A) frmB) basC) clsD) vbp答案 B37 在设计阶段,双击窗体Form1的空白处,打开代码窗口,显示()事件过程模板.A) Form_ClickB) Form_LoadC) Form1_ClickD) Form1_Load答案 B38 在文本框中欲使掩码符(如*)起作用,必须设置MultiLine属性值为().A) FalseB) TrueC) -1D) 1答案 A39 要想清除文本框Text1中的内容则可利用()进行.A) Text1.Caption=""B) Text1.Text=""C) Text1.ClearD) Text1.Cls答案 B40 能够获得一个文本框中被选取文本的内容的属性是().A) TextB) LengthC) SelTextD) SelStart答案 C41 决定控件上文字的字体、字形、大小、效果的属性是().A) FontB) CaptionC) NameD) Text答案 A42 确定一个窗体或控件大小的属性是().A) Width 和HeightB) Width 和TopC) Top 和rightD) Top 和 Left答案 A43 VB应用程序保存在磁盘上,至少会有以()为扩展名的两个文件.A) .DOC和.TXTB) .COM和.EXEC) .VBW和.BASD) .VBP和.FRM答案 D44 下列选项中,属于Visual Basic 6.0程序设计方法的是().A) 面向对象、顺序驱动B) 面向对象、事件驱动C) 面向过程、事件驱动D) 面向过程、顺序驱动答案 B45 VB6.0是一种面向()的编程环境.A) 机器B) 对象C) 过程D) 应用答案 B46 Visual Basic是一种面向对象的可视化程序设计语言,采用了()的编程机制.A) 事件驱动B) 按过程顺序执行C) 从主程序开始执行D) 按模块顺序执行答案 A47 在Visual Basic中最基本的对象是(),它是应用程序的基石,是其他控件的容器.A) 文本框B) 命令按钮C) 窗体D) 标签答案 C48 当运行程序时,系统自动执行启动窗体的()事件过程.A) LoadB) ClickC) UnLoadD) GotFocus答案 A49 若要使标签控件显示时不覆盖其背景内容,要对()属性进行设置.A) BackColorB) BorderStyleC) ForeColorD) BackStyle答案 D50 若要使命令按钮不可操作,要对()属性进行设置.A) EnabledB) VisibleC) BackColorD) Caption答案 A51 文本框没有()属性.A) EnabledB) VisibleC) BackColorD) Caption答案 D52 要使某控件在运行时不可显示,应对()属性进行设置.A) EnabledB) VisibleC) BackColorD) Caption答案 B53 用来设置粗体字的属性是().A) FontItalicB) FontNameC) FontBoldD) FontSize答案 C54 在下列关于菜单的说法中,错误的是().A) 每个菜单项是一个控件,与其他控件一样也有自己的属性和事件B) 除了Click事件之外,菜单项还能响应其他的事件,如DblClick事件C) 在程序执行时,如果菜单项的Visible属性为False,则该菜单项不可见D) 在程序执行时,如果菜单项的Enabled属性为False,则该菜单项变成灰色,不能被用户选择答案 B55 设在窗体上有两个命令按钮,其中一个命令按钮的名称为cmda,则另一个命令按钮的名称不能是().A) cmdcB) cmdbC) cmdAD) Command1答案 C56 vb 程序设计中的窗体在OOP 中称为().A) 屏幕B) 事件C) 对象D) 控件答案 C57 文本框控件中将Text的内容全部显示为所定义的字符的属性项是().A) PasswordCharB) 需要编程来实现C) PasswordD) 以上都不是答案 A58 改变控件在窗体中的上下位置应修改控件的()属性.A) TopB) LeftC) WideD) Height答案 A59 vb 中的坐标系最小刻度为().A) 缇B) 象素C) 厘米D) 一个标准字符宽度答案 A60 如果设计时在属性窗口将命令按钮的()属性设置为False,则运行时按钮从窗体上消失.A) VisibleB) EnabledC) DisabledPictureD) Default答案 A61 若要使标签控件显示时,不覆盖其背景内容,应设置标签控件的()属性.A) BACKCOLORB) BORDERSTYLEC) FORECOLORD) BACKSTYLE答案 D62 能够改变窗体边框线类型的属性是().A) FontStyleB) BorderStyleC) BackStyleD) Border答案 B63 窗体设计器是用来设计().A) 应用程序的代码段B) 应用程序的界面C) 对象的属性D) 对象的事件答案 B64 "对象"是计算机系统运行的().A) 程序单位B) 逻辑单位C) 物理实体D) 基本实体答案 D65 为了在按下回车键时执行某个按钮的事件过程,需要把该命令按钮的一个属性设置为True,这个属性是().A) ValueB) CancleC) EnableD) Default答案 D66 下列关于控件画法的叙述错误的是().A) 单击一次工具箱中的控件图标,只能在窗体上画出一个相应的控件B) 按住CTRL键后单击一次工具箱中的控件图标,可以在窗体上画出多个相同类型的控件C) 双击工具箱中的控件图标,所画控件的大小和位置是固定的D) 不用工具箱中的控件工具,不可以在窗体上画出图形对象,但可以写入文字字符答案 D67 当事件能被触发时,()就会对该事件作出响应.A) 对象B) 程序C) 控件D) 窗体答案 A68 将命令按钮Command1设置为不可见,应修改该命令按钮的()属性.A) VisibleB) ValueC) CaptionD) Enabled答案 A69 如果要在命令按钮上显示图形文件,应设置命令按钮的().A) Style属性和Graphics属性B) Style属性和Picture属性C) Picture属性D) Graphics属性答案 B70 窗体的Caption属性的作用是().A) 确定窗体的名称B) 确定窗体的标题C) 确定窗体的边界类型D) 确定窗体的字体答案 B71 每个窗体对应一个窗体文件,窗体文件的扩展名是().A) .basB) .clsC) .frmD) .vbp答案 C72 可视化编程的最大优点是().A) 具有标准工具箱B) 一个工程文件由若干个窗体文件组成C) 不需要编写大量代码来描述图形对象D) 所见即所得答案 C73 VB应用程序的运行模式是().A) 解释运行模式B) 编译运行模式C) 两者都有D) 汇编模式答案 C74 如果要改变窗体的标题,则需要设置的属性是().A) CaptionB) NameC) BackColorD) BorderStyle答案 A75 标签控件最重要的属性是().A) captionB) textC) nameD) width答案 A76 双击窗体的任何地方,可以打开的窗口是().A) 代码窗口B) 属性窗口C) 工程管理窗口D) 以上3个选项都不对答案 A77 工具栏中的"启动"按钮的作用是().A) 运行一个应用程序B) 运行一个窗体C) 工程管理窗口D) 打开被选中对象的代码窗口答案 A78 VisualBasic集成环境的大部分窗口都可以从主菜单项()的下拉菜单中找到相应的打开命令.A) 编辑B) 视图C) 格式D) 调试答案 B79 控件内的对齐方式()属性决定.A) AlignmentB) WordWrapC) AtuoSizeD) Style答案 A80 VB窗体文件的扩展名是().A) VBWB) VBPC) FRMD) BAS答案 C81 将命令按钮Command1设置为缺省的活动按钮可修改该控制件的()属性.A) EnabledB) ValueC) DefaultD) Cancel答案 C82 vb 应用程序是分层管理的,其最高的层次为().A) 工程B) 模块C) 窗体D) 过程答案 A83 vb 中的坐标圆点位于().A) 容器右上角B) 容器左上角C) 容器正中央D) 容器右下角答案 B84 文本框没有_____属性.A) EnabledB) VisibleC) BackColorD) Caption答案 D85 已编译的控件部件的扩展名是___.A) OCXB) VBPC) EXED) CTL答案 A86 如果要使一个窗体从屏幕上和内存中完全消失,所要使用的语句是______.A) HideB) ShowC) LoadD) Unload答案 D87 决定标签的字符串颜色的属性是A) FontColorB) BackStyleC) BackColorD) ForeColor答案 D88 下面（）不是VB的工作模式.A) 设计模式B) 运行模式C) 中断模式D) 大纲模式答案 D89 在VB中，（）被称为对象.A) 窗体B) 控件C) 窗体和控件D) 窗体、控件、属性答案 C90 文本框中选定的内容,由下列()属性反映.A) TextB) CaptionC) SeltextD) sellenght答案 C91 如果文本框的Enabled属性设为 False,则___.A) 文本框的文本将变成灰色,并且此时用户不能将光标置于文本框上B) 文本框的文本将变成灰色,用户仍然能将光标置于文本框上,但是不能改变文本框中的内容C) 文本框的文本将变成灰色,用户仍然能改变文本框中的内容D) 文本框的文本正常显示,用户能将光标置于文本框上,但是不能改变文本框中的内容答案 A92 VB的编程机制是A) 可视化B) 面向对象C) 事件驱动D)答案 C93 在Visual Basic中,最简单的数据类型包括______.A) 整型、实型、布尔型、字符型B) 整型、实型、字符型C) 整型、实型、逻辑型D) 实型、逻辑型、字符型答案 A94 若要使得文本框的初始值为空,则应更改文本框的属性是A) captionB) textC) nameD) index答案 B95 属性窗口只能在使用.A) 设计时B) 编译时C) 运行时D) 以上都不对答案 A96 以下能在窗体MainForm的标题栏中显示"南京森林公安高等专科学校"的语句是A) ="南京森林公安高等专科学校"B) MainForm.Title="南京森林公安高等专科学校"C) MainForm.Caption="南京森林公安高等专科学校"D) MainForm.Text="南京森林公安高等专科学校"答案 C97 下面说法正确的是A) 一个VB应用程序至少有一个工程文件和一个窗体文件B) 一个VB应用程序至少有一个工程文件和一个类模块C) 一个VB应用程序至少有一个窗体文件和一个标准模块D) 一个VB应用程序至少有一个标准模块和一个类模块答案 A98 改变控件在窗体中的左右位置应修改该控件的()属性.A) TopB) LeftC) WidthD) Right答案 B99 从功能上讲,Visual Basic 6.0有3种版本,下列不属于这3种版本的是().A) 学习版B) 标准版C) 专业版D) 企业版答案 B100 与传统的程序设计语言相比,Visual Basic最突出的特点是().A) 结构化程序设计B) 程序开发环境C) 事件驱动编程机制D) 程序调试技术答案 C101 Visual Basic 6.0集成环境的主窗口中不包括().A) 标题栏B) 菜单栏C) 状态栏D) 工具栏答案 C102 在VB集成环境创建VB应用程序时,除了工具箱窗口、窗体窗口、属性窗口外,必不可少的窗口是().A) 窗体布局窗口B) 立即窗口C) 代码窗口D) 监视窗口答案 C103 下列可以激活属性窗口的操作是().A) 用鼠标双击窗体的任何部位B) 执行"工程"菜单中的"属性窗口"命令C) 按Ctrl+F4键D) 按F4键答案 D104 下列不能打开工具箱窗口的操作是().A) 执行"视图"菜单中的"工具箱"命令B) 按Alt+F8键C) 单击工具栏上的"工具箱"按钮D) 按Alt+V,然后按X键答案 B105 下列哪个快捷按钮可以打开属性窗口().A) 图1B) 图2C) 图3D) 图4答案 A106 下列不属于代码窗口的是().A) 对象下拉式列表框B) 过程下拉式列表框C) 代码框D) 属性列表框答案 D107 下面关于对象的描述中,错误的是().A) 对象就是自定义结构变量B) 对象代表正在创建的系统中的一个实体C) 对象是一个状态和操作(或方法)的封装体D) 对象之间的信息传递是通过消息进行的答案 A108 下面4项中不属于面向对象系统三要素的是().A) 变量B) 事件C) 属性D) 方法答案 A109 下面各种高级语言中,不是面向对象程序设计语言的是().A) Visual BasicB) C++C) PascalD) Java答案 C110 为了使一个窗体从屏幕上消失但仍在内存中,所使用的方法或语句为().A) ShowB) HideC) LoadD) UnLoad答案 B111 保存新建的工程时,默认的路径是().A) My DocumentsB) VB98C) \D) Windows答案 B112 将调试通过的工程经"文件"菜单的"生成.exe文件"编译成.exe后,将该可执行文件转到其他机器上不能运行的主要原因是().A) 运行的机器上无VB系统所需的动态连接库B) 缺少.frm窗体文件C) 该可执行文件有病毒D) 以上原因都不对答案 A113 在VB环境中,工程文件的扩展名是().A) .frmB) .basC) .vbpD) .frx答案 C114 将一个VB程序保存在磁盘上,至少会产生的文件是().A) .doc、.txtB) .com、.exeC) .vbp、.frmD) .bat、.sys答案 C115 下列叙述中正确的是().A) 只有窗体才是Visual Basic中的对象B) 只有控件才是Visual Basic中的对象C) 窗体和控件都是Visual Basic中的对象D) 窗体和控件都不是Visual Basic中的对象答案 C116 假定已在窗体上画了多个控件,并有一个控件是活动的,为了在属性窗口中设置窗体的属性,预先应执行的操作是().A) 单击窗体上没有控件的地方B) 单击任一个控件C) 不执行任何操作D) 双击窗体的标题栏答案 A117 为了把窗体上的某个控件变为活动的,应执行的操作是().A) 单击窗体的边框B) 单击该控件的内部C) 双击该控件D) 双击窗体答案 B118 作为一个给编辑、编译、运行与一体的集成环境, Visual Basic的工作状态可分为设计、中断、和()三种模式.A) 开发B) 运行C) 插入断点D) 逐句跟踪答案 B119 要使标签在运行时不可见,应该把该控件的()属性值设置为().A) Caption FalseB) Name Label1C) Visible TrueD) Visible False答案 D120 当文本框的()属性设置为True时,文本框可以显示多行,再设置()属性文本框会出现滚动条.A) Text EnabledB) Name LockedC) Multiline ScrollbarD) Caption Locked答案 C121 以下操作不能运行程序的是().A) 单击工具栏上的"启动"按钮B) 直接按键盘的<F5>键C) 单击"运行"菜单的"启动"命令D) AlT+ F5键答案 D122 标签的()属性设置为True时,标签控件的大小随标题文字自动调整.A) AutoSizeB) CaptionC) AlignmentD) BackStyle答案 A123 程序运行时,不论窗体中哪个控件(命令按钮除外)具有焦点,按回车键都相当于单击默认按钮,这种效果要通过设置命令按钮的()属性来获得.A) CaptionB) CancelC) DefaultD) Enabled答案 C124 MaxLength属性可以设置文本框可以输入与显示的最多字符个数,当其值为0时表示().A) 不允许输入任何字符,但显示不限制B) 不允许输入字符C) 输入的字符长度不限D) 以上都不正确答案 C125 要使Print方法在Form_Load事件中起作用,要对窗体的属性进行设置,该属性是().A) BackColorB) ForeColorC) AutoRedrawD) Caption答案 C126 文本框所没有的属性是().A) EnabledB) VisibleC) BackColorD) Caption答案 D127 不论何控件,共同具有的属性是().A) TextB) NameC) ForeColorD) Caption答案 B128 要使Form1窗体的标题栏显示"欢迎使用VB",以下语句正确的是().A) Form1.Caption="欢迎使用VB"B) Form1.Caption=ˊ欢迎使用VBˊC) Form1.Caption=欢迎使用VBD) Form1.Caption=〞欢迎使用VB〞答案 D129 要使窗体在运行时不可改变窗体的大小并没有最大化和最小化按钮,通过设置可达到此要求的属性是().A) MaxButtonB) BorderStyleC) WidthD) MinButton答案 B130 当运行程序时,系统自动启动窗体的事件过程是().A) LoadB) ClickC) UnLoadD) GotFocus答案 A131 若要禁止窗体被用户移动,通过设置可达此要求的窗体的属性是().A) MaxButtonB) MoveableC) MoveD) ControlBox答案 D132 以下叙述错误的是A) 在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B) 一个工程中可以含有多个标准模块文件C) 以.bas为扩展名的文件是标准模块文件D) 窗体文件包含该窗体及其控件的属性答案 A133 以下不属于Visual Basic 系统文件类型的是:A) .frmB) *.batC) *.vbpD) *.bas答案 B134 下列关于设置控件属性的叙述正确的是().A) 用户必须设置属性值B) 所有的属性值都可以由用户随意设定C) 属性值不必一一重新设置D) 不同控件的属性项都完全一样答案 C135 启动VisualBasic后,系统为用户新建的工程起一个名为()的临时名称.A) 工程1B) 窗体1C) 工程D) 窗体答案 A136 窗体的Enabled属性的属性值是()类型的数据.A) 整型B) 字符型C) 逻辑型D) 实型答案 C137 将焦点主动设置到指定的控件或窗体上,应采用()方法.A) SetDataB) SetFocusC) SetTextD) GetGata答案 B138 为了在运行时能显示窗体左上角的控制框(系统菜单),必须().A) 把窗体的Contro1Box属性设置为Fale,其他属性任意B) 把窗体的ControlBox属性设置为True,并且把BoderStyle属性设置为1-5C) 把窗体的ControlBox属性设置为False,同时把BoderStyle属性调协为非0值D) 把窗体的ControlBox属性设置为True,同时把BoderStyle属性设置为0值答案 B139 下列不能打开属性窗口的操作是().A) 执行"视图"菜单中的"属性窗口"命令B) 按F4键C) 按Ctrl+TD) 单击工具栏上的"属性窗口"按钮答案 C140 VisualBasic是一种()程序设计语言.A) 过程式B) 非过程式C) 机器D) 低级答案 B141 下列关于窗体上控件的基本操作错误的是().A) 按一次DEL键只能删除一个控件B) 按下一次DEL键可以同时删除多个控件C) 按住SHIFT键,然后单击每个要选择的控件,可以同时选中多个控件D) 按住CTRL键,然后单击每个要选择的控件,可以同时选中多个控件答案 A142 不管一个对象的属性如何设置,程序运行时始终都能接收焦点的方法是().A) 用Tab键B) 用鼠标C) 用方向键D) 不能实现答案 D143 下列()是窗体的扩展名.A) frmB) basC) clsD) dll答案 A144 事件的名称().A) 都要由用户定义B) 有的由用户定义,有的由系统定义C) 都是由系统预先定义D) 是不固定的答案 C145 Text1控件在运行时不可见,是设置下列()属性的结果.A) EnabledB) CancelC) VisibleD) ControlBox答案 C146 VisualBasic的编程机制是().A) 可视化B) 面向对象C) 面向图形D) 事件驱动答案 Dbc。
安徽大学计算机教学平台VB选择题作业1到4
在VB 程序设计中，响应对象的外部动作称为_____，而对象可以执行的动作或对象本身的行为则称为_____。
（A ）方法，事件 （B ）事件，方法 （C ）属性，方法 （D ）过程，事件 您的答案为：B 参考答案为：B在VB6.0集成开发环境中不能完成的工作是_____。
（A ）输入和编辑源程序 （B ）编译生成可执行程序（C ）调试运行程序 （D ）自动查找并改正程序中的错误 您的答案为：D 参考答案为：DVB6.0集成开发环境不包括_____。
（A ）DOS 界面窗口 （B ）窗体窗口 （C ）代码窗口 （D ）属性窗口 您的答案为：A 参考答案为：A当运行程序时，系统自动执行启动窗体的_________事件过程。
（A ）Load （B ）Click（C ）Unload （D ）GotFocus 您的答案为：A参考答案为：A用一个程序段对一对象被单击(或双击)作出响应，从而实现指定的操作，称为______。
（A ）可视画化程序设计 （B ）事件驱动编程机制（C ）过程化程序实际方法 （D ）非过程化程序设计语言 您的答案为：B参考答案为：BVisual Basic 有三种工作模式，它们分别是______模式。
（A ）设计、编译和运行 （B ） 设计、运行和中断 （C ） 设计、运行和调试 （D ） 编译、运行和调试 您的答案为：B参考答案为：BVisual Basic 的一个应用程序至少包含一个_______文件，该文件存储窗体上使用的所有控件对象和有关的_______、对象相应的_______过程和_______代码。
（A ）模块、方法、事件、程序 （B ）窗体、属性、事件、程序 （C ）窗体、程序、属性、事件 （D ）窗体、属性、事件、模块您的答案为：B 参考答案为：B在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体中的窗口、属性窗口外，必不可少的窗口是______。
（A）窗体布局窗口（B）立即窗口（C）代码窗口（D）监视窗口您的答案为：C 参考答案为：C保存新建的工程时，默认的路径是_________。
vb程序设计教程参考答案
1、B2、A3、B4、答：属性：红色、充满氢气；事件：松手、针刺；方法：飞走、爆破。
5、答：事件是指对象能够识别并作出反映的外部刺激。
事件驱动又称消息驱动，事件驱动程序设计是指每个事件对应有相应的程序代码，仅在该事件发生时，该段代码才会被执行。
事件发生的顺序决定了代码执行的顺序，因此每次执行应用程序时，程序代码并不是按照程序编写的顺序来执行的。
6、答：VB是一个包括界面设计、程序编码、调试、编译并创建可执行程序的集成开发环境。
VB的集成开发环境的主界面中包含：标题栏、菜单栏、工具栏、控件箱、工程资源管理器、属性窗口、“窗体布局”窗口、窗体设计器、代码编辑器等元素组成。
7、答： VB菜单条通常情况下有：文件、编辑、视图、工程、格式、调试、运行、查询、图表、工具、外接程序、窗口、帮助等13项菜单项组成。
8、答：工具栏可自行定义。
标准工具栏中通常情况下有：添加标准exe工程、添加窗体、菜单编辑器、打开工程、保存工程、剪切、复制、粘贴、查找、撤消、重复、启动、中断、结束、工程资源管理器、属性窗口、窗体布局窗口、对象浏览器、工具箱、数据视图窗口、可视化元件管理器等按钮组成。
9、答：创建VB应用程序的一般步骤为：创建界面；设置窗体和控件属性；编写代码；保存工程；运行并调试程序；检查并排除错误；创建可执行文件。
10、Private Sub Command1_Click()Label1.Caption = "I love vb,I hate vb"End Sub1、2、3、S1 输入待判断自然数： N（N>=2）；S2 i=2；S3 判断i是否小于N-1，若不是转S5S4 判断N除以i的余数是否为0,如果不是则i=i+1转S3；S5 判断i是否等于N，若是输出“是素数”，否则输出“不是素数”。
4、S1 输入待判断自然数： N；S2 将N转换成字符S，计算S的长度K；S3 i=1；S4 判断i是否小于K-1，若不是转S6；S5 判断S中的第i位和第K-i+1位是否相等,如果是则i=i+1转S4，如果不是则转S6；S6 判断i是否是中间位数，若是输出“是回文数”，否则输出“不是回文数”。
第一章VB1答案
第一章一选择题1 Visual Basic采用了()的编程机制(A) 面向过程（B）面向对象（C）事件驱动（D）可视化2 以下不属于Visual Basic 版本的是（）（A）学习版（B）企业版（C）专业版（D）工程版3 Visual Basic从（）版本开始推出中文版（A）2.0 （B）3.0 （C）4.0 （D）5.04 Visual Basic6.0是一个（）位应用程序的开发工具（A）8 （B）16 （C）32 （D）645 退出Visual Basic集成开发环境的快捷键是（）（A）Ctrl+Q （B）Alt+Q （C）Alt+A （D）Ctrl+A6 Visual Basic集成开发环境由种工作状态，不属于3种工作状态之一的是（）（A）设计状态（B）运行状态（C）中断状态（D）编写代码状态7 在Visual Basic集成开发环境下不能激活属性窗口的操作是（）(A) 在执行“工程”菜单中的“属性窗口”菜单命令(B)执行“视图”菜单中的“属性窗体”菜单命令(C)在对象上右击，从弹出的快捷菜单中选择“属性窗口”菜单命令(D) 按下快捷键F48 在设计阶段，当双击窗体设计器中窗体上的某个控件时，所打开的窗口是（）（A）工具箱窗口（B）属性窗口（C）工程资源管理器窗口（D）代码编辑窗口9 当新建一个工程并启动Visual Basic后，工具箱中的控件是（）（A）内部控件（B）ActiveX控件（C）内部控件和ActiveX控件（D）内部控件或ActiveX控件10 下列可以打开立即窗口的操作的是（）（A）Ctrl+R （B）Ctrl+C （C）Ctrl+O （D）Ctrl+G11 在新建一个“标准EXE”工程后,不在工具箱中出现的控件是（）（A）通用对话框（B）列表框（C）文本框（D）命令按钮12 如果要向工具箱中加入ActiveX控件，可以执行“工程”菜单中的（）命令（A）引用（B）部件（C）工程属性（D）添加窗体13 Visual Basic规定窗体文件的扩展名是（）（A）.fom （B）.vbp （C）.bas （D）.frm14 Visual Basic规定标准模块文件的扩展名是（）（A）.frm （B）.vbp （C）.bas （D）.vbg15 下列不能打开工具箱窗口的操作是（）(A) 按下F8快捷键(B)按下Alt键不放开，先按下V键再按下X键(C)执行“视图”菜单中的“工具箱”菜单命令按钮(D)单击“工具箱”上的“工具箱”按钮16 以下可以产生工程组文件（.vbg）的情况是（）（A）当一个程序中包含了两个以上的窗体时（B）当一个程序中包含了两个以上的标准模块时(C) 当一个程序中包含了两个以上的工程时(D)当一个程序中包含了两个以上的类模块时。
VB1-5章练习题
VB1~5章练习题第一章一、单选题1.VB6.0集成开发环境可以（）A) 编辑、调试、运行程序，但不能生成可执行程序B）编辑、生成可执行程序、运行程序，但不能调试程序C）编辑、调试、生成可执行程序，但不能运行程序D）编辑、调试、运行程序，也能生成可执行程序2.英文“Visual”的含义是（）A）可视化B）集成C）结构化D）调试3.标准模块文件的扩展名是（）A）.frmB）.vbpC）.basD）.vbg4.与传统的程序设计语言相比，VB最突出的特点是（）A）结构化程序设计B）程序开发环境C）事件驱动编程机制D）程序调试技术5.VB6.0是（）应用程序的开发工具A）8位B）16位C）32位D）64位6.英文缩写“OOP”的含义是（）A）时间驱动的编程机制B）结构化程序设计语言C）面向对象的程序设计D）可视化程序设计二、简答题1.什么是对象的属性、事件和方法？三、编程题1.编写程序，并且有三个功能：①显示“欢迎使用VB6.0中文版”②清除之前显示的“欢迎使用VB6.0中文版”③退出此程序第二章一、单选题1.在Visual Basic中，下列优先级最高的运算符是（）A）*B）\C）<D）Not2.以下关系表达式中，其值为假的是（）A）”XYZ”<”XYz”B）”VisualBasic”=”visualbasic”C）”the”<>”there”D）”Integer”>”Int”3.在窗体上画一个命令按扭（名称为Command1），然后编写如下事件过程：Private Sub Command1_click()Dim b As Integerb = b + 1End Sub运行程序，第3次单击命令按扭后，变量b的值为（）A）0 B）1 C）2 D）34.在窗体上画一个命令按扭（名称为Command1），然后编写如下事件过程：Private Sub Command1_click()Static a As Integera = a + 1End Sub运行程序，第3次单击命令按扭后，变量a的值为（）A）0 B）1 C）2 D）35.在Visual Basic中，数值1234&的类型是（）A）整型B）长整型C）字符串型D）双精度型6.从键盘上输入2个字符串，分别保存在变量str1、str2中，则确定第2个字符串在第1个字符串中起始位置的函数是（）A）Left B）Mid C）String D）InStr7.设a = ”Visual Basic”，则以下使b = “Basic”的语句是（）A）b = Left(a,8,12)B）b = Mid(a,8,5)C）b = Right(a,8,5)D）b = Left(a,8,5)8.设a = 5,b = 10，则执行c = Int((b-a)* Rnd + a) + 1后，c的值为（）A）5~10B）6~9C）6~10D）5~99.以下声明语句中错误的是（）A）Const varl = 123B）Dim var2 = …ABC‟C）DefInt a-zD）Static var3 As Integer二、简答题1.下列哪些可作为Visual Baisc的变量名，那些不行？4*Delta Alpha 4ABC ABπReadData Filename A(A+B) C254D Read2.Visual Basic中是否允许出现下列形式的数？±25.74 3.457E-10 .368 1.87E+50 10^(1.256) D32 2.5E 12E3 8.75D+6 0.2583.把下面的数写成普通的十进制数：（1）2.65358979335278D-006 （2）1.21576654590569D+019（3）8.6787E+8 （4）2.567E-124.指出下列Visual Basic表达式中的错误，并写出正确的形式。
VB1-3章_习题答案(课本习题)
VB习题答案（1-3章）习题一一、选择题1．C 2.C 3.A 4.C 5.C 6.C 7.B二、填空题1.学习版、专业版、企业版2.窗体界面3.Alt+F4三、简答题1．简述Visual Basic语言的特点。
Visual Basic是Windows操作平台下的可视化编程语言，它继承和发展了BASIC语言的基本功能，具有简单易学、功能强大等特点。
Visual Basic提供了可视化设计工具，以图形用户界面（GUI）为PC机用户提供了一个直观的工作环境。
支持面向对象的程序设计（OOP），采用事件驱动方式，提供对象的链接与嵌入（OLE）和访问数据库等功能。
2. Visual Basic 6.0的集成开发环境由哪些部分组成，各部分的主要功能是什么？1. 标题栏：用来显示打开的工程名称和系统的工作状态。
2. 菜单栏：菜单栏中包括“文件”、“编辑”、“视图”、“工程”、“格式”、“调试”、“运行”、“查询”、“图表”、“工具”、“外接程序”、“窗口”和“帮助”共有13个菜单项。
这是一组下拉式菜单，提供了设计、编辑、编译和调试应用程序所需要的绝大部分功能和命令。
3. 工具栏： Visual Basic 6.0提供了“编辑”、“标准”、“窗体编辑器”和“调试”4种工具栏。
工具栏上形象直观的排列着一些最常用的命令按钮，对应特定的常用操作命令。
4. 控件箱：控件箱提供了一组控件。
设计界面时，用户可以用鼠标双击控件箱中的控件，在窗体中画出该控件，或用鼠标单击控件箱中的控件，然后在窗体中拖动鼠标画出所需的控件。
5. 窗体设计器：窗体设计器是应用程序最终面向用户的窗口。
各种控件、图形、数据以及程序的运行结果都在窗体设计器窗体中显示出来。
6. 工程资源管理器：在工程资源管理器窗口中（图1-2），列出了应用程序的工程以及工程中的窗体和模块。
7. 属性窗口：属性窗口主要用来设置Visual Basic窗体及各控件的属性特征，属性窗口的主体部分分为左右两列，左边是控件的属性名列表，右边是控件的属性值列表。
高中信息1-4
第1——4章单选题：1、下列选项中不属于信息技术范畴的技术是A、传感技术B、通信技术C、机械技术D、电子计算机技术参考答案：C2、通过网络、电视和其他途径观看“神舟七号”发射直播的人数超过6亿人次，这个事例说明以下哪种说法是不正确的？A、信息不能独立存在，需要依附于一定的载体B、信息可以转换不同的载体形式而被存储和传播C、信息可以被多个信息接受者接受并且多次使用D、同一个信息不可以依附于不同的载体参考答案：D3、信息技术的英文缩写是A、ITB、IEC、WWWD、DOS参考答案：A4、在中国的四大发明中，印刷术的意义在于A、使信息的存储和传递首次超越了时间和地域的局限B、为知识的积累和传播提供了可靠的保证C、是从猿进化到人的重要标志D、将人们推进到了数字化的信息时代参考答案：B5、Microsoft Office软件中的“Office助手”，所应用的技术是A、虚拟现实技术B、语音识别技术C、智能代理技术D、语音合成技术参考答案：C6、在信息技术的发展史上，首先使信息存储和传递超越了时间和地域局限的标志是A、语言的使用B、文字的创造C、电报电话的发明D、计算机网络技术的普及参考答案：B7、关于信息的下列说法中，错误的是A、在一定程度上，人类社会的发展速度取决于人们感知信息、利用信息的广度和深度B、信息无时不在，无处不在，信息是我们行动决策的重要依据C、电视机、电话机、声波、光波是信息D、人类可以借助信息资源对自然界中的物质资源和能量资源进行有效地获取和利用参考答案：C8、现代社会中，人们所说的构成世界的三大要素是指A、精神、物质、知识B、财富、能量、知识C、物质、能量、知识D、物质、能量、信息参考答案：D9、某品牌家用计算机的配置为：Intel奔腾4 2.8GHz/512MB/80GB/50X/15'，表示硬盘容量的参数是A、Intel奔腾4 2.8GHzB、512MBC、80GBD、50X参考答案：C10、在信息时代，各类信息纷繁复杂，我们需要对获取的信息进行评价。
第一章VB环境和基础一、选择题当...
第一章VB环境和基础一、选择题1. 标准模块文件的扩展名为_____D____。
A、.frmB、.resC、.clsD、.bas2. 激活菜单栏的快捷键是：AA、 F10B、 F4C、 F5D、 Ctrl3. 当我们输入代码时，Visual Basic可以自动检测__A_______错误。
A、语法错误B、编译错误C、运行错误D、逻辑错误4. 下列方法中不能退出Visual Basic的是:BA、按Alt+Q组合键B、按下Alt+F组合键，然后按Esc键C、打开“文件”菜单，执行“退出”命令D、按F10键，然后按F键，再按X键5. 一个工程必须包含的文件的类型是:BA、*.vbp ,*.frm ,*.frxB、*.vbp ,*.cls, *.basC、*.bas ,*.ocx ,*.resD、*.frm ,*.cls ,*.bas6. 下列可以打开立即窗口的操作是D：A、Ctrl+DB、Ctrl+EC、Ctrl+FD、Ctrl+G7. 刚建立一个新的标准EXE工程后，出现在工具箱中的控件是：CA、CommonDialogB、ListViewC、TextBoxD、Toolbar8. Visual Basic窗体设计器的主要功能是：AA、建立用户界面B、编写源程序代码C、画图D、显示文字9. 下列可以启动Visual Basic的方法是:DA、打开“我的电脑”，找到存放Visual Basic所在系统文件的硬盘及文件夹，双击“VB6.exe”图标B、在DOS窗口中，键入Visual Basic的路径，执行Visual Basic可执行文件C、利用“开始”菜单中的“程序”命令可启动Visual BasicD、 A) 和C)10. 资源文件的扩展名为_____A____。
A、.resB、.frmC、.vbpD、.bas11. 在Visual Basic中，要强制用户对所用的变量进行显式声明，这可以在哪里设置:CA、“属性”对话框B、“程序代码”窗口C、“选项”对话框D、对象浏览器12. 下列可以打开文件对话框的操作是:AA、Ctrl+DB、Ctrl+EC、Ctrl+FD、Ctrl+G13. Visual Basic集成的主窗口中不包括：AA、属性窗口B、标题栏C、菜单栏D、工具栏14. VB的启动有多种方法，下面不能启动VB的是:DA、使用“开始”菜单中的“程序”命令B、使用“开始”菜单中的“运行”命令，在弹出的对话框中输入VB启动文件的名字C、使用“我的电脑”，在VB所在硬盘驱动器中找到相应的VB文件夹D、先打开VB的“文件”菜单，再按Zlt+Q组合键15. 创建VB应用程序的主要步骤是：①创建应用程序界面②设置控件③设置属性④编写代码，其中正确的步骤是:AA、①③④B、①②④C、②③④D、①②③④16. Microsoft Visual Basic 6．0包括三种版本，其中不包括：AA、通用版B、企业版C、学习版D、专业版17. Visual Basic中窗体文件的扩展名是：BA、VBPB、FRMC、VBWD、PDM18. 在Visual Basic的集成开发环境中不能执行程序的方法是：A、按F8键B、按F5键C、按F9键D、按Shift+F819. 通过以下____A____窗口可以在设计时直观的调整窗体在屏幕上的位置。
VB实验教材习题答案 (1)
第1章VB集成环境与VB概述一、选择题第2章常用控件与界面设计一、选择题第3章数据、表达式与简单程序设计一、选择题第4章选择分支与循环一、选择题二、填空题1．5 7 13 12 14 112. 3 1 5 3 4 13. right(a$,i)4. 45. 6-i6. 6 11 10 21 13 347. 5 14 138. Is else end select9. a*(2*i-1)*(-1)*x/(2*i+2) i+110. 0 n-111. 1 t*(-1)*x^2/((2*k-1)*(2*k)) Abs(t)>eps12. count1=count+1 count1>013. sum=0 sum+j st & k & “+”14. 9 x三、编程题1.Option ExplicitPrivate Sub Command1_Click()Dim s As String, i As Integer, ch As String * 1Dim a As Integer, b As Integer, c As Integers = Text1.TextFor i = 1 To Len(s)ch = Mid(s, i, 1)If (ch >= "0" And ch <= "9") Thena = a + 1ElseIf (ch >= "A" And ch <= "Z") Or (ch >= "a" And ch <= "z") Thenb = b + 1Elsec = c + 1End IfNextPrint "数字个数"; aPrint "字符个数"; bPrint "其他字符"; cEnd Sub2.Option ExplicitPrivate Sub Command1_Click()Dim i As Integer, n As IntegerDim a As Integer, b As Integer, c As IntegerFor i = 1 To 50n = Int(Rnd * 90 + 10)Print n;If i Mod 10 = 0 Then PrintIf n <= 40 Thena = a + 1ElseIf n <= 70 Thenb = b + 1Elsec = c + 1End IfNext iPrint "小于等于40的个数："; aPrint "大于40小于等于70的个数："; bPrint "大于70的个数："; cEnd Sub3.Option ExplicitPrivate Sub Command1_Click()Dim x As SingleDim t As Long, n As Integerx = 1t = 1n = 1Do While 1 / t >= 0.0001x = x + 1 / tn = n + 1t = t * nLoopPrint xEnd Sub4.Option ExplicitPrivate Sub Command1_Click()Dim k As Integer, sum As Integer, i As Integerk = InputBox("请输入一个正整数k", "输入框")For i = 1 To Len(CStr(k))sum = sum + Mid(k, i, 1)Next iMsgBox k & "的各位数字之和" & sumEnd Sub5.Option ExplicitPrivate Sub Command1_Click()Dim i As Integer, iSum As LongFor i = 1 To 20iSum = iSum + i ^ 4NextPrint iSumEnd Sub6.Option ExplicitPrivate Sub Command1_Click()Dim a As Integer, b As IntegerDim sum1 As Integer, sum2 As LongDim i As Integer, j As IntegerFor a = 2 To 3000sum1 = 0sum2 = 0For i = 1 To a \ 2If a Mod i = 0 Then sum1 = sum1 + i Next ib = sum1For j = 1 To b \ 2If b Mod j = 0 Then sum2 = sum2 + j Next jIf sum2 = a And a < b Then Print a, bNextEnd Sub7.Private Sub Command1_Click() '打印菱形Dim i As Integer, j As IntegerClsFor i = 1 To 6 '打印菱形上边6行Print Tab(20);Print Spc(6 - i);For j = 1 To 2 * (i - 1) + 1If j = 1 Or j = 2 * (i - 1) + 1 ThenPrint "*";ElsePrint " ";End IfNext jPrintNext iFor i = 5 To 1 Step -1 '打印下半部分Print Tab(20);Print Spc(6 - i);For j = 1 To 2 * (i - 1) + 1If j = 1 Or j = 2 * (i - 1) + 1 ThenPrint "*";ElsePrint " ";End IfNext jPrintNext iEnd Sub8.Option ExplicitPrivate Sub Command1_Click()Dim i As Integer, j As Integer, iSum As IntegerPrint "连续和为1250的正整数是："For i = 1 To 500iSum = 0For j = i To 500iSum = iSum + jIf iSum >= 1250 Then Exit ForNextIf iSum = 1250 ThenPrint i; " ～"; jEnd IfNextEnd Sub9.Option ExplicitPrivate Sub Command1_Click()Dim a As Integer, b As Integer, c As IntegerFor a = 1 To 50For b = a To 50For c = b To 50If a ^ 2 + b ^ 2 = c ^ 2 ThenPrint a, b, cEnd IfNext cNext bNext aEnd Sub第5章数组一、选择题二、填空题1.Variant2.ReDim A(N)A(1)If M < A(I) Then M = A(I)3.Int(26 * Rnd) + 65Chr(t)i + 1 To 10A(i) > A(j)4.InStr(s, ",")Right(s, Len(s) - n)s5.T – 1I + 16.k = 6 - i – jmax = m7.j = 48j = j-38.i + 1i = i + 19. 23710. 3103511.numi + 1a(j)=temp三、编程题1.Option ExplicitOption Base 1Private Sub Command1_Click()Dim a(10) As IntegerDim i As Integer, max As IntegerFor i = 1 To 10a(i) = Int(90 * Rnd) + 10Print a(i);Next iPrinti = 1max = 0Do While i <= 10If a(i) Mod 3 = 0 ThenIf a(i) > max Thenmax = a(i)End IfEnd Ifi = i + 1LoopIf max = 0 ThenPrint "无要找的数"ElsePrint max & "是最大的能被3整除的数"End IfEnd Sub2．Option ExplicitOption Base 1Private Sub Command1_Click()Dim A() As IntegerDim I As Integer, m As IntegerDim K As IntegerReDim A(10)Print "原数组:";For I = 1 To 10A(I) = IPrint A(I);Next IPrintm = InputBox("????m")K = 9 + mReDim Preserve A(K)For I = 11 To KA(I) = A(I - 10)Next IFor I = 1 To 10A(I) = A(I + m - 1)Next IPrint "平移后的数组:";For I = 1 To 10Print A(I);Next IPrintEnd Sub3．Option ExplicitOption Base 1Private Sub Command1_Click()Dim I As Integer, J As Integer, K As IntegerDim a() As Integer, n As Integer, p As Integer Dim s As String, Flag As Booleanp = 1For K = 10 To 100I = 1Do While I <= 10 And Not FlagJ = 1Do While J <= 10 And Not Flagn = I ^ 2 + J ^ 2If n = K ThenFlag = TrueReDim Preserve a(p)a(p) = Kp = p + 1s = I & Str(J) & Str(K)List1.AddItem sEnd IfJ = J + 1LoopI = I + 1LoopFlag = FalseNext KEnd Sub4．Option ExplicitPrivate Sub Command1_Click()Dim A(10) As IntegerDim B(10) As Integer, S As StringDim I As Integer, J As Integer, X As IntegerA(1) = Int(90 * Rnd) + 10S = A(1)For I = 2 To 10DoX = Int(90 * Rnd) + 10For J = 1 To I - 1If X = A(J) Then Exit ForNext JIf J = I ThenA(I) = XS = S & " " & A(I)Exit DoEnd IfLoopNext IText1.Text = SB(1) = Int(90 * Rnd) + 10S = B(1)For I = 2 To 10DoX = Int(90 * Rnd) + 10For J = 1 To I - 1If X = B(J) Then Exit ForNext JIf J = I ThenB(I) = XS = S & " " & B(I)Exit DoEnd IfLoopNext IText2.Text = SS = ""For I = 1 To 10For J = 1 To 10If A(I) = B(J) ThenS = S & " " & A(I)End IfNext JNext IIf S = "" ThenText3.Text = "没有重复"ElseText3.Text = SEnd IfEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text1.SetFocusEnd Sub5．Option ExplicitPrivate Sub Command1_Click()Dim I As Integer, J As IntegerDim a() As Integer, K As Integer, Sum As Integer K = Val(Text1.Text)I = 1DoJ = K Mod 10ReDim Preserve a(I)a(I) = JSum = Sum + JK = K \ 10I = I + 1Loop Until K = 0Text2.Text = SumEnd Sub6．Option ExplicitPrivate Sub Command1_Click()Dim a(100, 2) As Integer, K As IntegerDim I As Integer, J As IntegerDim M As Integer, N As IntegerK = 1For I = 1 To 99For J = 1 To 99If I > J ThenM = I - JN = I + JIf Sqr(M) = Int(Sqr(M)) And Sqr(N) = Int(Sqr(N)) ThenList1.AddItem I & " " & Ja(K, 1) = Ia(K, 2) = JK = K + 1End IfEnd IfNext JNext IEnd Sub7．Option ExplicitOption Base 1Dim a(5, 5) As IntegerPrivate Sub Command1_Click() '生成数组并显示Dim i As Integer, j As IntegerPicture1.ClsPicture2.ClsPicture3.ClsRandomizeFor i = 1 To 5For j = 1 To 5a(i, j) = Int(90 * Rnd) + 10Picture1.Print a(i, j);NextPicture1.PrintNextEnd SubPrivate Sub Command2_Click()Dim i As Integer, j As Integer, max As IntegerDim b(5) As Integer, c(5) As IntegerFor i = 1 To 5max = a(i, 1)For j = 1 To 5If max < a(i, j) Thenmax = a(i, j)End Ifb(i) = maxIf max = a(i, j) Then c(i) = jNext jNext iFor i = 1 To 5Picture2.Print b(i)Picture3.Print c(i)NextEnd Sub8．Option ExplicitOption Base 1Dim a(5, 5) As IntegerPrivate Sub Command1_Click() '生成数组并显示Dim i As Integer, j As IntegerPicture1.ClsPicture2.ClsLabel3.Caption = "最大值?"Label4.Caption = "最小值?"RandomizeFor i = 1 To 5For j = 1 To 5a(i, j) = Int(90 * Rnd) + 10Picture1.Print a(i, j);NextPicture1.PrintNextEnd SubPrivate Sub Command2_Click() '交换并显示Dim i As Integer, j As Integer, t As IntegerDim maxi As Integer, mini As Integer, max As Integer, min As Integer max = 10: min = 99For i = 1 To 5For j = 1 To 5If max < a(i, j) Thenmax = a(i, j)maxi = iEnd IfIf min > a(i, j) Thenmin = a(i, j)mini = iEnd IfNextNextIf maxi <> mini ThenFor j = 1 To 5t = a(maxi, j)a(maxi, j) = a(mini, j)a(mini, j) = tNext jFor i = 1 To 5For j = 1 To 5Picture2.Print a(i, j);NextPicture2.PrintNextLabel3.Caption = "最大值" & max & "在第" & maxi & "行"Label4.Caption = "最小值" & min & "在第" & mini & "行"ElsePicture2.Print "最小值和最大值在一行"Label3.Caption = "最大值" & max & "在第" & maxi & "行"Label4.Caption = "最小值" & min & "在第" & mini & "行"End IfEnd SubPrivate Sub Form_click()Picture1.ClsPicture2.ClsLabel3.Caption = ""Label4.Caption = ""End Sub9．Option Base 1Private Sub Command1_Click()Dim i As Integer, j As Integer, n As Integer, a() As Integern = InputBox("请输入一个奇数N：")If n Mod 2 = 0 ThenMsgBox ("请重新输入奇数！")End IfReDim a(n, n)For i = 1 To nFor j = 1 To nIf i = (n + 1) / 2 And j = (n + 1) / 2 Thena(i, j) = -1ElseIf i = j Or i + j = n + 1 Thena(i, j) = 1Elsea(i, j) = 0End IfNext jFor i = 1 To nFor j = 1 To nPrint a(i, j);Next jPrintNext iEnd Sub10．Option Base 1Dim a(10) As IntegerPrivate Sub Command1_Click()Dim i As IntegerPrint "生成的数组："RandomizeFor i = 1 To 10a(i) = Int(Rnd * 90) + 10Print a(i);NextPrintEnd SubPrivate Sub Command2_Click()Dim i As Integerx = InputBox("请输入要删除的数组元素下标：") Print "删除第" & x & "个数组元素后："For i = x + 1 To 10a(i - 1) = a(i)NextFor i = 1 To 9Print a(i);NextEnd Sub11．Option ExplicitDim a(20) As Integer, i As IntegerPrivate Sub Command1_Click()RandomizeFor i = 1 To 20a(i) = Int(Rnd * 9) + 1Text1 = Text1 & a(i) & " "If i = 10 Then Text1 = Text1 & vbCrLf NextPrivate Sub Command2_Click()Dim j As Integer, k As Integer, b(20) As Boolean 'b(2)用来记录a(2)是否和前面的数相同，相同记为true，不再统计For i = 1 To 20k = 1If b(i) = False Then '如果b(i)=False，表示a(i)没有被统计过For j = i + 1 To 20If a(i) = a(j) Thenk = k + 1b(j) = TrueEnd IfNext jList1.AddItem a(i) & "出现次数:" & kEnd IfNextEnd SubPrivate Sub Command3_Click()Text1 = ""List1.ClearEnd Sub第6章过程一、选择题二、填空题1. 6 .2. 4 20 1013.第一行是 6 26 、第三行是-2 984.第一行10 6 、第二行 5 -55.第一行 6 5 、第三行8 76.第一行11 、第二行77.Fun(i)Fun=p8.第一行 4 、第二行2079.第一行29 、第二行28.710.J=kb( ) As Integerb( k-1) =b(k)i11.第一行gec 、第二行ge 、第四行 312.p1 = True And p2 = True 或p1 And p2= isp(i)Isp = Truem Mod i = 013.Convert(st)Len(s)"A" To "F"k = k + p * h14.isualVisualVisu15.s + an + 1x As Single, n As Integer 、p * (x + i) / ((2 * i - 1) * i * x)16.27617.Left(s, 1)Mid(s, i - 1, 1) = Mid(s, i, 1)n = 1c & CStr(n)18.chtempTrue19.val(mid(s,i,j))n as longprime=True20.A(2,2)的值是 6 ，A(3,1) 的值是8 ；A(4,2) 的值是 321.Option1(i)X22.1023.第一行7 6 ，第二行16 16 ，第三行，4524.第一行15 1 ，第二行35 3 ，第三行，50三、改错题1、Option Base 1Private Sub Command1_Click()Dim A() As Integer, I As Integer, J As Integer, Logic As Boolean Dim K As IntegerReDim A(1)A(1) = 50————————'K=1For I = 51 To 149K = 1 '位置错Logic = FalseCall Sub1(A, I, Logic)If Logic ThenK = K + 1ReDim A(K) 'ReDim Preserve A(K)A(K) = IEnd IfNext IFor I = 1 To UBound(A)Text1 = Text1 & Str$(A(I))If I Mod 5 = 0 Then Text1 = Text1 & vbCrLfNext IEnd SubPrivate Sub Sub1(A() As Integer, N As Integer, F As Boolean) Dim I As Integer, J As Integer, Ub As IntegerUb = UBound(A)For I = 1 To UbFor J = 2 To A(I)If A(I) Mod J = 0 And N Mod J = 0 ThenExit For 'Exit SubEnd IfNext JF = TrueNext IEnd Sub2、Option ExplicitOption Base 1Private Sub Command1_Click()Dim I As Integer, Flg As Boolean, S1 As Integer, S2 As IntegerDim J As Integer, K As Integer, P() As IntegerReDim P(1)P(1) = 2For I = 3 To 150 Step 2For J = 2 To Sqr(I)If I Mod J = 0 Then Exit ForNext JIf J > Sqr(I) ThenReDim Preserve P(UBound(P) + 1)P(UBound(P) + 1) = I 'P(UBound(P)) = IEnd IfNext IFor I = 80 To 125If fun(I, P, S1, S2) Then 'If fun(I, P, S1, S2)Text1 = Text1 & Str$(I) & "=" & Str(S1) & "*" & Str$(S2) & vbCrLf End IfNext IEnd SubPrivate Function fun(N As Integer, P() As Integer, S1 As Integer, S2 As Integer) As Boolean Dim I As Integer, J As IntegerFor I = 1 To UBound(P)For J = 1 To UBound(P) - 1If N = P(I) * P(J) ThenS1 = P(I)S2 = P(J)'fun = TrueExit Functionfun = True '位置错End IfNext JNext IEnd Function3、Option ExplicitPrivate Sub Get_Chess(Chess() As Integer, idx As Integer, Over As Integer) 'ByVal idx As IntegerDim Ub As Integer, Counter As Integer, K As IntegerUb = UBound(Chess)Chess(idx) = 0Counter = 1K = 0 '位置错Do Until Counter = Ub - 1Do Until K = 2idx = idx + 1If idx > Ub Then idx = 1K = K + Chess(idx)LoopChess(idx) = 0Counter = Counter + 1LoopFor Over = 1 To UbIf Chess(Over) <> 0 Then Exit ForNext OverEnd SubPrivate Sub Command1_Click()Dim Chess(32) As Integer, I As Integer, J As IntegerDim K As Integer, idx As IntegerFor I = 1 To 32For J = 1 To 32Chess(J) = 1Next JCall Get_Chess(Chess, I, K)If K = 23 ThenText1 = "从第" & Str$(I) & "号棋子开始取"Exit ForEnd IfNext IEnd Sub4、Option ExplicitPrivate Sub Form_Click()Dim S As String, Flg As BooleanDoS = InputBox("输入一个自然数")If S = "" Or Not IsNumeric(S) ThenMsgBox "请重新输入", 48 + vbOKOnlyElseExit DoEnd IfLoopjudge(S, Flg) ' Call judge(S, Flg) 或judge S, Flg If Flg ThenPrint S; "是回文数"ElsePrint S; "不是回文数"End IfEnd SubPrivate Sub judge(Ch As String, F As Boolean)Dim L As Integer, I As IntegerL = Len(Ch)F = True ' F = FalseFor I = 1 To LIf Mid$(Ch, I, 1) <> Mid$(Ch, L + 1 - I, 1) Then Exit Sub Next IF = False ' F = TrueEnd Sub四、编程题1.Private Function Prime(a As Integer) As BooleanDim i As IntegerFor i = 2 To Sqr(a)If a Mod i = 0 Then Exit FunctionNext iPrime = TrueEnd Function'方法一Private Sub Command1_Click()Dim m As Integer, i As Integerm = InputBox("请输入一个大于2 的偶数")If m <= 2 Or m Mod 2 <> 0 Then MsgBox "请输入大于2的偶数": Exit Sub If Prime(2) And Prime(m - 2) ThenPrint m & "=2 +" & m - 2ElseDoi = i + 1If Prime(2 * i + 1) And Prime(m - (2 * i + 1)) ThenPrint m & "=" & 2 * i + 1 & "+" & m - (2 * i + 1)Exit DoEnd IfLoop While 2 * i + 1 < m - (2 * i + 1)End If'方法二Private Sub Command2_Click()Dim m As Integer, i As Integer, p() As Integer, n As IntegerDim flg As Booleanm = InputBox("请输入大于2的偶数")If m <= 2 Or m Mod 2 <> 0 Then MsgBox "请输入大于2的偶数": Exit Sub ReDim p(1)p(1) = 2n = 1For i = 3 To m - 2 Step 2If Prime(i) Thenn = n + 1ReDim Preserve p(n)p(n) = iEnd IfNext iFor i = 1 To nFor j = 1 To nIf p(i) + p(j) = m ThenPrint m & "=" & p(i) & "+" & p(j)flg = TrueExit ForEnd IfNext jIf flg = True Then Exit ForNext iEnd Sub2．Private Function Fact(a As Integer) As LongIf a = 0 Or a = 1 ThenFact = 1ElseFact = a * Fact(a - 1)End IfEnd FunctionPrivate Sub Command1_Click()Dim n As Integer, m As Integer, result As Singlen = Val(Text1.Text)m = Val(Text2.Text)If n >= m Thenresult = Fact(n) / Fact(m) / Fact(n - m)Text3.Text = resultMsgBox "要求n>=m,请重新输入"Text1.Text = ""Text2.Text = ""Text1.SetFocusEnd IfEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text1.SetFocusEnd Sub3．Private Function Istgs(n As Integer) As BooleanDim s As String, L As IntegerL = Len(CStr(n))s = CStr(n ^ 2)If Right(s, L) = n Then Istgs = TrueEnd FunctionPrivate Sub Command1_Click()Dim n As IntegerFor n = 10 To 300If Istgs(n) Then List1.AddItem n & "^2" & "=" & n ^ 2 Next nEnd SubPrivate Sub Command2_Click()EndEnd Sub4．Private Sub Command1_Click()Dim a(3, 4) As Integer, i As Integer, j As IntegerDim m As Integer, mj As IntegerRandomizeFor i = 1 To 3For j = 1 To 4a(i, j) = Int(900 * Rnd + 100)Print a(i, j);Next jPrintNext iFor i = 1 To 3m = 0Call max(a, i, m, mj)Print "第" & i & "行最大值为" & m & ",在第" & mj & "列"Next iEnd SubPrivate Sub max(a() As Integer, i As Integer, m As Integer, maxj As Integer) Dim j As Integerm = a(i, 1): maxj = 1For j = 2 To UBound(a, 2)If a(i, j) > m Thenm = a(i, j)maxj = jEnd IfNext jEnd SubPrivate Sub Command2_Click()EndEnd Sub5．Private Function Judge(n As Integer) As BooleanDim sum As Integersum = yz(n)If yz(sum) = 2 * n Then Judge = TrueEnd FunctionPrivate Function yz(n As Integer) As IntegerDim i As IntegerFor i = 1 To nIf n Mod i = 0 Then yz = yz + iNext iEnd FunctionPrivate Sub Command1_Click()Dim n As IntegerFor n = 1 To 500If Judge(n) Then Print nNext nEnd SubPrivate Sub Command2_Click()EndEnd Sub6．Private Sub Command1_Click()Dim n As Integer, j As Integer, flg As BooleanFor n = 2 To 30flg = FalseFor j = 2 To nIf pfs(j) And n Mod j = 0 Thenflg = TrueExit ForEnd IfNext jIf flg = False Then Print n;Next nEnd SubPrivate Function pfs(n As Integer) As BooleanIf Sqr(n) = Int(Sqr(n)) Then pfs = TrueEnd Function7．Private Function fxs(n As Long) As LongDim i As Integer, s As StringFor i = 1 To Len(CStr(n))s = Mid(CStr(n), i, 1) & sNext ifxs = sEnd Function'判断某数是否为回文数Private Function Hws(n As Long) As BooleanDim i As Integer, s As String, L As Integers = CStr(n): L = Len(s)For i = 1 To Len(s) / 2If Mid(s, i, 1) <> Mid(s, L + 1 - i, 1) Then Exit Function Next iHws = TrueEnd FunctionPrivate Sub Command1_Click()Dim x As Long, t As Longx = InputBox("请输入一个正整数：")t = xDo While Hws(t) = FalsePrint t; "+"; fxs(t); "="; t + fxs(t)t = t + fxs(t)LoopEnd Sub8．Private Function fxs(n As Long) As LongDim i As Integer, s As StringFor i = 1 To Len(CStr(n))s = Mid(CStr(n), i, 1) & sNext ifxs = sEnd FunctionPrivate Sub Command1_Click()Dim n As Long, t As LongFor n = 1 To 999t = fxs(n)If t ^ 2 = fxs(n ^ 2) And n Mod 10 <> 0 And n < t ThenList1.AddItem n & " " & tList2.AddItem n & "^2" & "=" & n ^ 2 & " " & t & "^2" & "=" & t ^ 2 End IfNext nEnd Sub9．Private Function fxs(n As Long) As LongDim i As Integer, s As StringFor i = 1 To Len(CStr(n))s = Mid(CStr(n), i, 1) & sNext ifxs = sEnd FunctionPrivate Function Judge(n As Integer) As BooleanDim i As Integer, L As Integer, a(9) As Integer, t As IntegerIf Sqr(n) = Int(Sqr(n)) ThenL = Len(CStr(n))For i = 1 To Lt = Mid(CStr(n), i, 1)a(t) = 1Next iFor i = 0 To 9Sum = Sum + a(i)Next iIf Sum = L - 1 Then Judge = TrueEnd IfEnd FunctionPrivate Sub Command1_Click()Dim a As IntegerFor a = 300 To 2000If Judge(a) Then List1.AddItem aNext aEnd Sub10．Private Function F(n As Integer) As BooleanDim i As IntegerFor i = 1 To Len(CStr(n))If i Mod 2 = 1 And Mid(CStr(n), i, 1) Mod 2 <> 1 Then Exit FunctionIf i Mod 2 = 0 And Mid(CStr(n), i, 1) Mod 2 <> 0 Then Exit Function Next iF = TrueEnd FunctionPrivate Sub Command1_Click()Dim a(8) As Integer, i As Integer, j As IntegerRandomizeDot = Int(900 * Rnd + 100)For j = 1 To iIf t = a(j) Then Exit ForNext jIf j = i + 1 Theni = i + 1a(i) = tList1.AddItem a(i)If F(a(i)) Then List2.AddItem a(i)End IfLoop Until i = 8End SubPrivate Sub Command2_Click()List1.ClearList2.ClearEnd SubPrivate Sub CmdEnd_Click()EndEnd Sub11．Private Function prime(a As Integer) As BooleanDim i As IntegerFor i = 2 To Sqr(a)If a Mod i = 0 Then Exit FunctionNext iprime = TrueEnd FunctionPrivate Function nx(n As Integer) As IntegerDim i As Integer, s As StringFor i = 1 To Len(CStr(n))s = Mid(CStr(n), i, 1) & sNext inx = Val(s)End FunctionPrivate Sub Command1_Click()Dim n As Integer, t As IntegerFor n = 100 To 900t = nx(n)If prime(n) And prime(t) And n < t ThenList1.AddItem "(" & n & "," & t & ")"End IfNext nEnd SubPrivate Sub Command2_Click()List1.ClearEnd Sub12．Option Base 1Dim a(4, 5) As IntegerPrivate Sub Command1_Click()Dim i As Integer, j As IntegerRandomizeFor i = 1 To 4For j = 1 To 5a(i, j) = Int(Rnd * 90 + 10)Picture1.Print a(i, j);Next jPicture1.PrintNext iEnd SubPrivate Sub Fp(a() As Integer, i As Integer, maxj As Integer, Flg As Boolean) Dim max As Integer, j As Integer, t As Integermax = a(i, 1): maxj = 1For j = 2 To UBound(a, 2)If a(i, j) > max Thenmax = a(i, j)maxj = jEnd IfNext jFor t = 1 To UBound(a, 1)If a(t, maxj) > max ThenFlg = FalseExit SubEnd IfNextFlg = TrueEnd SubPrivate Sub Command2_Click()Dim i As Integer, m As Integer, mj As Integer, f As BooleanFor i = 1 To 4f = Falsem = 0: mj = 0Call Fp(a, i, mj, f)If f = True ThenText1.Text = Text1.Text & "(" & i & "," & mj & "):" & a(i, mj) & vbCrLf End IfNext iEnd SubPrivate Sub Command3_Click()Picture1.ClsText1 = ""End Sub13．Private Sub Command1_Click()Dim a(30) As Integer, i As Integer, j As IntegerDim Flag As BooleanRandomizeDot = Int(900 * Rnd + 100)For j = 1 To iIf t = a(j) Then Exit ForNext jIf j = i + 1 Theni = i + 1a(i) = tText1.Text = Text1.Text + Str(a(i))If i Mod 10 = 0 Then Text1.Text = Text1.Text + vbCrLfIf IsDown(a(i)) ThenList1.AddItem a(i)Flag = TrueEnd IfEnd IfLoop Until i = 30If Flag = False Then List1.AddItem "无降序数"End SubPrivate Function IsDown(n As Integer) As BooleanDim i As Integer, S As StringS = CStr(n)For i = 1 To Len(S) - 1If Mid(S, i, 1) < Mid(S, i + 1, 1) Then Exit FunctionNext iIsDown = TrueEnd FunctionPrivate Sub Command2_Click()List1.ClearText1 = ""End Sub14．Option ExplicitPrivate Sub CmdFind_Click()Dim i As Integer, p As String, st As String, st1 As StringFor i = 100 To 999st = ""If csum(i) = zyz(i, st) Thenp = CStr(i)st1 = Left(p, 1) & "+" & Mid(p, 2, 1) & "+" & Right(p, 1)List1.AddItem i & ": " & st1 & "=" & Left(st, Len(st) - 1)End IfNext iIf List1.ListCount = 0 ThenList1.AddItem "无满足要求的数!"End IfEnd SubPrivate Function csum(m As Integer) As Integer '求各位数字之和Dim i As Integer, p As Stringp = CStr(m)For i = 1 To Len(p)csum = csum + Val(Mid(p, i, 1))Next iEnd FunctionPrivate Function zyz(ByVal m As Integer, st As String) As Integer '求所有质因子之和Dim i As Integeri = 2DoIf m Mod i = 0 Thenzyz = zyz + ist = st & i & "+"m = m \ iElsei = i + 1End IfLoop Until m = 1End Function15．Private Sub Command1_Click()Dim k As Integer, i As Integerk = InputBox("请输入要求的数列项数：")List1.AddItem "共输出前" & k & "项数列"For i = 0 To kList1.AddItem p(i)NextEnd SubPrivate Function p(n As Integer) As IntegerIf n = 0 Or n = 1 Or n = 2 Thenp = 1Elsep = p(n - 2) + p(n - 3)End IfEnd Function第7章文件一、选择题二、填空题1．顺序文件和随机文件2． EOF3． Write和Print4．返回或设置当前的工作目录5．5116．文件的写语句7．Append8．LOF9．关闭10．Pattern11．【1】For Input 【2】#2 【3】Not EOF(2) 12．【1】”END”【2】Text1.Text 或者Text113．【1】Input 【2】ch 【3】Len(mystr) 14．【1】Number 【2】s15．【1】For Append As #1 【2】"end" 【3】ct,nt 16．【1】For Input 【2】For Output As #2 【3】Not EOF(1) 【4】Line Input #1,str1 【5】Close #1,#2 【6】Kill “C:\old.txt 17．【1】Open "C:StuData．txt" For OutPut As #1 【2】Write 18．【1】"C:\data.txt" 【2】#1, a(i) 【3】k>1 And a(k-1)>b 【4】k = k -1三、综合题1．Option Base 1Dim arr(100) As IntegerPrivate Sub Command1_Click()Dim i As IntegerOpen "c:\in18.txt" For Input As #6For i = 1 To 100Input #6, arr(i)Next iClose #6End SubPrivate Sub Command2_Click()Dim i As IntegerText1.Text = ""Open "c:\out18.txt" For Output As #8For i = 1 To 100If arr(i) Mod 2 <> 0 ThenText1.Text = Text1.Text & Str(arr(i))Write #8, arr(i)End IfNext iClose #8End Sub2．Dim str As StringDim n As LongPrivate Sub Command1_Click()CommonDialog1.Filter = "文本文件(*.txt)|*.txt|All Files(*.*)|*.*"CommonDialog1.FilterIndex = 1CommonDialog1.Action = 1Open CommonDialog1.FileName For Input As #2n = LOF(2)str = Input(n, #2)Text1.Text = strClose #2End SubPrivate Sub Command2_Click()Dim i As IntegerFor i = 1 To Len(str)If Asc(Mid(str, i, 1)) <= Asc("Z") And Asc(Mid(str, i, 1)) >= Asc("A") Then Mid(str, i, 1) = LCase(Mid(str, i, 1))ElseIf Asc(Mid(str, i, 1)) <= Asc("z") And Asc(Mid(str, i, 1)) >= Asc("a") Then Mid(str, i, 1) = UCase(Mid(str, i, 1))End IfNext iText1.Text = strEnd SubPrivate Sub Command3_Click()Open "D:\out.txt" For Output As #3Print #3, strClose #3End Sub第8章程序调试一．选择题二．改错题1.a(i)=int(Rnd*19)+1 →a(i)=int(rnd*20)+1For l=1 to a(i)+1 →for i=2 to a(i)+1If l=a(i) →if l <> a(i)K=k+1 →k=k-1。
VB程序设计课后习题答案(科学出版社)(1)
同步练习1二、选择题01——05 CADAB06——10 ACDAB11——15 CBDBB同步练习2二、选择题01——05 ABDCA06——10 CACBC11——15 DADAD16——20 BDBBB三、填空题1．可视2．LEFT、TOP、WIDTH、HEIGHT3．按字母顺序4．查看代码5．工具、编辑器6．FORM窗体、FONT7．MULTILINE8．在运行时设计是无效的9．工程、工程属性、通用、FORM1.SHOW 10．TABINDEX、0同步练习3二、选择题01——05 BCADB06——10 ADBBC11——15 DBCBA16——20 BAABB三、填空题1．整型、长整型、单精度型、双精度型2．SIN(30*3.14/180)+SQR(X+EXP(3))/ABS(X-Y)-LOG(3*X) 3．164、今天是：3-194．FALSE5．-4、3、-3、3、-4、46．CDEF7．(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同步练习4一、选择题01——05 DBCAD06——10 CBBAB11——15 D25BAC16——20 CBACB21——25 DAABC二、填空题1．正确性、有穷性、可行性、有0个或多个输入、有1个或多个输出2．1 2 33．X>=74．X<AMIN5．10246．117．128．6、I、”*”;9．0、100、I+110．2*I、6、”*”;三、编程题1．编程求n！，n从键盘输入。
Private Sub Form_Click()Dim n%, s%, i%n = Val(InputBox("请输入n的值："))s = 1For i = 1 To ns = s * iNext iPrint n; "!="; sEnd Sub2．编程求100以内的全部质数。
VB教材习题_参考答案1-6章
Visual Basic程序设计教程（李杰主编清华大学出版社 2011.2）习题答案习题2参考答案2.2 单选题1、B2、C3、A4、D5、A6、B7、D8、C9、B 10、D2.3 填空题1、事件驱动2、Cancel3、Name4、Private Sub Form1_Click()5、运行程序6、代码窗口7、Text1.Text = "我是一个学生"8、LostFocus()事件9、Label1.Caption = "请输入用户名"Label1.ForeColor = vbGreen10、(Text1.Text)*22.4 事件练习题1、①该事件的对象是标签Label1，单击标签触发该事件。
②缺省Label1对象的代码是针对窗体，其余有Label1对象的代码是针对标签的。
③Label1.AutoSize = True语句使标签的大小自动随文字的多少而改变。
2、程序运行后，单击命令按钮，在Text1文本框显示"知音海外版"，在Text2文本框显示"计算机世界"。
3、单击“显示文本框”命令按钮触发的事件过程Private Sub Command1_Click()Text1.Visible = TrueText1.ForeColor = vbRedText1.Text = "VB程序设计"End Sub单击“隐藏文本框”命令按钮触发的事件过程Private Sub Command2_Click()Text1.Visible = FalseEnd Sub习题3参考答案3.2 单选题1 C2 C3 D4 B5 B6 B7 B8 C9 D3.3填空题1.REM(或‘) _ ：2 双引号（“”）#3 $ %4 UCASE()5.(log(1+d*d)-exp(2))^(5/2) [ 还有一种理解方式：(log(1+d*d)-e*e)^(5/2)]6. &O113 &H4B习题4参考答案4.2 单选题BDCBD4.3 填空题1.MsgBox("是否删除？ ", vbOkCancel + vbQuestion, "删除")2.The Length of 12345=53. 变量或表达式4. 15. loop4.4 程序设计题1.Private Sub Command1_Click()If Text1.Text = "asdf" ThenMsgBox "密码正确！"ElseMsgBox "密码错误", vbRetryCancel, "错误"End IfEnd Sub2. < 题目中的“连续产生n*n个字母”应该改为“连续产生n个字母”> Private Sub Command1_Click()Dim n%, y%, i%n = Val(Text1.Text)If n > 10 Or n<=0 ThenMsgBox "数据超界！"Text1.Text=””Text1.SetFocusElsey = Int((90 - 65 + 1) * Rnd) + 65For i = 1 To nPrint Chr(y + i)Next iEnd IfEnd Sub3．Private Sub Form_Click()Dim a!, b!, c!, x1!, x21, d!a = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)d = b * b - 4 * a * cIf d >= 0 Thenx1 = (-b + Sqr(d)) / (2 * a)X2 = (-b - Sqr(d)) / (2 * a)Print x1; X2ElsePrint "没有实根"End IfEnd Sub4.Private Sub Form_Click()Dim i%, j%, s%, n%,q%n = InputBox("enter n:")q = 0For i = 1 To ns = 0For j = 1 To is = s + jNext jq = q + sNext iPrint qEnd Sub5.Private Sub Form_Click()Dim i%, j%, n%, k%n = 0For i = 1 To 3For j = 1 To 3For k = 1 To 3Print i & j & k,n = n + 1If n Mod 5 = 0 Then PrintNext kNext jNext iPrintPrint "n="; nEnd Sub6.Private Sub Form_Click()Dim i%, j%, n%, k%For i = 1 To 9For j = 0 To 9For k = 0 To 9n = i * 100 + j * 10 + kIf n = i ^ 3 + j ^ 3 + k ^ 3 Then Print n,Next kNext jNext iEnd Sub习题5参考答案5.2 单选题1 A2 B3 C4 C5 D6 D7 A8 C9 D 10 A 11 A 12 B 5.3 填空题1．False2．Caption3．0 ListCount-14．Print List1.List(3)5．Combo1.ReMoveItem 36．LargeChange7．Timer8．5009．Shape10．Borderstyle5.4 程序设计题1．Dim op1, op2, result As SingleDim operator As IntegerPrivate Sub Command1_Click(Index As Integer)If Index >= 0 And Index <= 10 ThenIf txt1.Text = "" Thentxt1.Text = CStr(Index + 1)Elsetxt1.Text = txt1.Text + CStr(Index + 1) End IfEnd IfIf Index >= 12 And Index <= 15 Thenop1 = CDbl(txt1.Text)operator = Indextxt1.Text = ""End IfIf Index = 11 Thenop2 = CDbl(txt1.Text)Select Case operatorCase 12result = op1 + op2Case 13result = op1 - op2Case 14result = op1 * op2Case 15result = op1 / op2End Selecttxt1.Text = CStr(result)End IfEnd SubPrivate Sub Command2_Click()op1 = 0op2 = 0result = 0txt1.Text = ""End SubPrivate Sub Command3_Click()EndEnd Sub2．Private Sub chkBold_Click()If chkBold.Value = vbChecked ThenTxt1.FontBold = TrueElseTxt1.FontBold = FalseEnd IfEnd SubPrivate Sub chkUnderline_Click()If chkUnderline.Value = vbChecked Then Txt1.FontUnderline = TrueElseTxt1.FontUnderline = FalseEnd IfEnd SubPrivate Sub Opt18_Click()Txt1.FontSize = 18End SubPrivate Sub Opt22_Click()Txt1.FontSize = 22End Sub3．Private Sub Form_Load()List1.AddItem "上海"List1.AddItem "北京"List1.AddItem "天津"List1.AddItem "广东"List1.AddItem "辽宁"List1.AddItem "陕西"List1.AddItem "河南"List1.AddItem "深圳"List1.AddItem "四川"List1.AddItem "重庆"End SubPrivate Sub List1_DblClick()For i = 0 To 9If List1.ListIndex = i ThenList2.AddItem List1.List(i)List1.RemoveItem iEnd IfNext iEnd Sub4．Private Sub Command1_Click（）Timer1.Enabled=TrueTimer1.Tag=Text1.Text*60Frame1.Caption=“现在开始倒计时”End SubPrivate Sub Timer1_ Timer（）Timer1.Tag=Timer1.Tag-1If m<0 ThenTimer1.Enabler=FalseMsgBox“预定的时间到了！”，0，“倒计时”Frame1.Caption=“请输入计时的分钟数：”Text1.Text=0Exit SubEnd Ifn1=Format（m Mod 60,“00”）n2=Format（m \ 60）Mod 60,“00：”）n3=Format（m \ 3600）,“00：”）Text1.Text=n3&n2&n1End Sub习题6参考答案6.1单选题1.C2.C3.B4.B5.B6.D7.B8.B9.A 10.A6.2 填空题1.Option Base 12.变体类型3.preserve (注意：教材上面写成perserve, 教材错误)4.Variant变体类型5.96.相同，索引号7.1）.通过复制粘贴的方式创建控件数组2）.在设计时候添加多个同类型的类型控件，然后通过“属性”窗口将这些控件的名称改为相同，并把Index属性设为不同的下标值。
《电路分析基础》第2版-习题参考答案
《电路分析基础》各章习题参考答案第 1 章习题参考答案1- 1 (1) 50W ; (2) 300 V、25V, 200V、75 V ; (3) 2=12.5 Q R a=100 Q, R4=37.5 Q1- 2 V A=8.5V， V m=6.5V， V B=0.5V， V C=- 12V， V D=-19V， V p=-21.5V， U AB=8V， U BC=12.5，U DA=-27.5V1- 3 电源(产生功率)： A 、 B 元件；负载(吸收功率)： C、 D 元件；电路满足功率平衡条件。
1- 4 (1) V A=1 00V , V B=99V, V C=97V, V D=7V, V E=5V, V F=1V, U AF=99V, U CE=92V, U BE=94V, U BF=98V, U CA=- 3 V；(2) V C=90V, V B=92V , V A=93V, V E=-2V, V F=-6V, V G=- 7V, U AF=99V, U CE=92V, U BE=94V, U BF=98V, U CA=- 3 V1- 5 I 〜0.18A , 6 度，2.7 元1- 6 I=4A， I1=11A，I2=19A1- 7 (a) U=6V, (b) U=24 V, (c) R=5Q, (d) I=23.5A1- 8 (1) i6=-1A ； (2) u4=10V, u6=3 V； (3) P1=-2W 发出, P2 =6W 吸收, P3 =16W 吸收, P4 =-10W 发出, P5 =-7W 发出, P6 =-3W 发出1- 9 I=1A , U s=134V , R~ 7.8Q1- 10 S 断开：U AB=- 4.8V , U AO=- 12V , U BO=-7.2V ;S 闭合：U AB =-12V, U AO =- 12V , U BO=0V1- 11 支路 3，节点 2，网孔 2 ，回路 31- 12 节点电流方程： (A) I1 +I3- I6=0，(B)I6- I5- I7=0，(C)I5 +I 4-I3=0回路电压方程：① I6 R6+ U S5 +I 5 R5- U S3 +1 3 R3=0 ,②-15 R5- U S5+ I 7R7- U S4 =0 ,③-丨3 R3+ U S3 + U S4 + I 1 R2+ I 1 R1=01- 13 U AB=11V , I2=0.5A , l3=4.5A , R3~ 2.4 Q1-14 V A=60V V C=140V V D=90V U AC=- 80V U AD=- 30V U CD=50V1- 15 I1=- 2A I2=3A I3=- 5A I4=7A I5=2A第 2 章习题参考答案2- 1 2.4 Q 5 A2- 2 (1) 4 V 2 V 1 V; (2) 40 mA 20 mA 10 mA2- 3 1.5 Q 2 A 1/3 A2- 4 6 Q 36 Q2- 5 2 A 1 A2- 6 1 A2- 7 2 A2- 8 1 A2- 9 I1 = -1.4 A I2 = 1.6 A I3 = 0.2 A2- 10 I1 = 0 A I2 = -3 A P1 = 0 W P2 = -18 W2- 11 I i = -1 mA , I2 = - 2 mA , E3 = 10 V2- 12 I1 = 6 A , I2 = -3 A , I3 = 3 A2- 13 I1 =2 A , I2 = 1A , I3 = 1 A , I4 =2 A , I5 = 1 A2-14 V a = 12 V , I1 = - 1 A, I2 = 2 A2-15 V a = 6 V , I1= 1.5 A , I2 = - 1 A ,I3 = 0.5 A2-16 V a = 15 V , I1 = - 1 A , I2 =2 A , I3 = 3 A2-17 I1 = -1 A , I2 = 2 A2-18 I1 =1.5 A , I2 = - 1 A , I3 = 0.5 A2-19 I1 =0.8 A , I2 = - 0.75 A , I3 = 2 A , I4 = - 2.75 A , I5 = 1.55 A2-20 I3 = 0.5 A2-21 U o = 2 V , R o = 4 Q, I0 = 0.1 A2-22 I5 = -1 A2-23 (1) I5 = 0 A , U ab = 0 V ; (2) I5 = 1 A , U ab = 11 V2-24 I L = 2 A2-25 I s =11 A , R0 = 2 Q2-26 18 Q, - 2 Q, 12 Q2-27 U = 5 V2-28 I =1 A2-29 U = 5 V2-30 I =1 A2-31 10 V , 180 Q2-32 U0 = 9 V , R0 = 6 Q, U=15 V第3章习题参考答案3- 1 50Hz, 314rad/s, 0.02s, 141V, 100V, 120 °3- 2 200V, 141.4V3- 3 u=14.1si n (314t-60 °V3- 4 (1) ®u1-贏2= 120°(2) ®1 = -90° %= - 210°, %1-屁=120° (不变)3-5 (1) U^50 .^_90 V , U2 =50 .2 -0 V ;(2) U3=100 2 sin (3t+ 45 °)V , U4=100 ■■ 2 sin ( ®t+ 135 °)V3- 6 (1) i 1=14.1 sin ( 72 °)A ; (2) U2=300 sin ( 3—60 °)V3- 7 错误：(1),⑶，(4), (5)3- 8 (1) R； (2) L ； (3) C; (4) R3- 9 i=2.82 sin (10t-30 °)A , Q~ 40 var3- 10 u=44.9sin (3141-135 °V, Q=3.18 var3- 11 (1) I=20A ; (2) P=4.4kW3- 12 (1)I ~ 1.4A , I 1.4 - 30 A ； (3)Q~ 308 var, P=0W ; (4) i~ 0.98 sin (628t-30 °)A3- 13 (1)I=9.67A , I =9.67450 A , i=13.7 sin (314t+150 °) A ; (3)Q=2127.4 var, P=0W;(4) I C=0A3- 14 (1)C=20.3 尸;(2) I L = 0.25A ,l c = 16A第4章习题参考答案4-1 (a) Z =5. 36.87 J, Y =0.2 /36.87 S; (b) Z =2.5 - 2/45 门,Y =0.2.2/45 S4- 2 Y=(0.06-j0.08) S , R~ 16.67 Q, X L=12.5 Q, L~0.04 H4- 3 U R=6 0^0 V U L=80/90 V , U S=100^53.13 V4- 4 卩=2 0 £ 3 6.874-5 Z =100 2^45 ；：■,卩=1^0 A , U R=100^0 V , U L=125/90 V , U C=25/ 90 V4-6 Y =0.25 2^45 S , U =4 “2/0 V ,卩R = .2. 0 A , I L =0.^ 2 / 90 A , I C=1.2.2/90 A4- 7 ll =1 0.「2 4 5，A U S=100 乙90 V4- 8 (a) 30 V ; (b) 2.24 A4- 9 (a) 10 V ; (b) 10 A4- 10 (a) 10 V ; (b) 10 V4- 11 U=14.1 V4- 12 U L1 =15 V , U C2 =8 V , U S=15.65 V4-13 U X1 =100 V, U2 =600 V, X1=10 Q, X2=20 Q, X3=30 Q4- 14 Z =20 .2 45 门，l =2. -45 A , h = 2 0 A , .2/-90 A , U ab=0V 4- 15 (1)1 =£2 A, Z RC=5、2「，Z =5 10 门；(2) R =10 门，X^10'J4- 16 P = 774.4 W , Q = 580.8 var, S = 968 V A-4- 17 l1 = 5 A , l2 = 4 A4-18 I1 = 1 A , I2 =2 A , l =.5. 26.565 A , S =44.72. -26.565 V A4-19 Z=10", I=190A, U R2 =5 2 135 V , P =10 W64-20 a =5X10 rad/s , p= 1000 Q, Q = 100 , l = 2 mA , U R =20 mV , U L = U C = 2 V4-21 30 =104rad/s , p= 100 Q, Q = 100 , U = 10 V, I R = 1 mA , I L = I C = 100 mA4-22 L1 = 1 H , L2 ~ 0.33 H第5章习题参考答案5- 3 M = 35.5 mH5- 4 301 =1000 rad/s ,302 =2236 rad/s5- 5 Z1 = j31.4 Q , Z2 = j6.28 Q 5- 6 Z r = 3+7.5 Q5- 7 M = 130 mH5- 8 “2 二-2/45 A5- 9 U1 = 44.8 V5- 10 M12 = 20 mH , 11 = 4 A5- 11 U2 = 220 V , I1 = 4 A5- 12 n = 1.95- 13 N2 = 254 匝，N3 = 72 匝5- 14 n = 10 , P2 = 31.25 mW章习题参考答案 (1) A 相灯泡电压为零，B 、C 相各位为220V I L = I p = 4.4 A ，U p = 220 V ，U L = 380 V ，P = 2.3 kW (2) I p = 7.62 A ，I L = 13.2 A A 、C 相各为2.2A ，B 相为3.8A U L = 404 V U A N =202/ -47 V cos $ = 0.961 , Q = 5.75 kvar Z =334 28.4 门 (1) I p = 11.26 A , Z = 19.53 / 42.3 °Q; (2) I p = I l = 11.26 A , P = 5.5 kW U l = 391 V i A =22 2sin(・t —53.13 ) A i B =22 .2sin(・t —173.13 ) A i C =22 2 sin(，t 66.87 ) A U V = 160 V (1) 负载以三角形方式接入三相电源 (2) I — =3.8 T 2 -15 A , 1仁 =3.^-2/ 135 A , 仁 =3.8、「2也105 A I A =3.8、. 6/「45 A , I B =3.8I Q 「165 A , I c =3.8.6. 75 A L = 110 mH , C = 91.9 mF 章习题参考答案 P = 240 W, Q = 360 var P = 10.84 W (1) i(t) 4.7sin( t 100 ) - 3sin3 t A (2)I ~ 3.94 A , U ~ 58.84 V , P ~ 93.02 W 0MU m n o L 1 r~2 ------------- 2 u 2(t) m sin(，t —-arctan 1)V , R 2 (丄J 2 z 2 R ' 直流电源中有交流，交流电源中无直流 U 1=54.3 V , R = 1 Q, L = 11.4 mH ;约为 8% , ( L'= 12.33 mH ) 使总阻抗或总导纳为实数(虚部为 0)的条件为 尺二& = Rx = ■ L/C G =9.39 折,C 2 =75.13 M F L 1 = 1 H , L 2 = 66.7 mH C 1 = 10 M F, C 2 = 1.25 M F 章习题参考答案 第66-16-36-46-56-66-76-86-96-106-116-126-136-146- 15第77- 17-27-37-47-57-67-77-87-97- 10第88- 68-78-8i L(0+) = 1.5mA , U L(0+) = - 15Vh(0+) = 4A, i2(0+) = 1A , U L(0+) = 2V, i1(s)= 3A , i2(^)= 0, U L()= 0 i1 (0+) = 75mA , i2(0+) = 75mA , i3(0+) = 0, U L1 (0+) = 0, U L2(0+) = 2.25V6i c (t)二 2訂 A 4tU L (t) =6e _V u C (t) =10(1 _eg 0t )V , i C (t) =56说*人 500t 貝 u C (t) =115e~ sin(866 亠60 ) V10t 10t 山⑴=12e - V , L(t) =2(1 —e — )A 1 t U R (t) =~U s e 下2C V , U R (3 J - -U S e-V (1) T = 0.1s, (2) u c (t) =10e -0t V , (3) t = 0.1s u C (t) =10 _9e 」°t V 10t _ i L (t) =5e 一 A (a)f(t) =1(t —t 。
vb基础知识第一章试题及答案
vb基础知识第一章试题及答案一、选择题（每题2分，共20分）1. Visual Basic的简称是什么？A. VBB. VBAC. VBSD. VBScript答案：A2. VB中用于声明变量的关键字是？A. DimB. ConstC. SubD. Function答案：A3. 下列哪个选项是VB中的字符串数据类型？A. IntegerB. StringC. DateD. Boolean答案：B4. VB中用于循环结构的关键字是？A. ForB. NextC. DoD. Loop答案：A5. VB中用于条件判断的关键字是？A. IfB. ThenC. ElseD. All of the above答案：D6. 在VB中，如何声明一个名为“myVar”的整型变量？A. Dim myVar As IntegerB. Declare myVar As IntegerC. Integer myVarD. Var myVar As Integer答案：A7. VB中用于定义函数的关键字是？A. FunctionB. SubC. ProcedureD. Method答案：A8. 在VB中，如何将文本框（TextBox）的文本内容赋值给一个字符串变量？A. Dim text As String = TextBox.TextB. Dim text As String = TextBox.TextC. Dim text As String = TextBox.TextD. Dim text As String = TextBox.Text答案：A9. VB中用于退出循环的关键字是？A. ExitB. BreakC. ContinueD. Return答案：A10. 在VB中，如何调用一个名为“myFunction”的函数？A. myFunction()B. Call myFunctionC. myFunctionD. Call myFunction()答案：D二、填空题（每题2分，共20分）1. 在VB中，声明一个名为“count”的整型变量，其初始值为10，应使用语句________。
VB习题(一～六)
习题一1．运行Visual Basic 6.0需要什么样的最小硬件环境?【答】只要能运行Windows 9x或Windows NT即可。
2．当正常安装Visual Basic 6.0后，误把Windows 98子目录删除。
当重新安装Windows 98后，是否要再安装Visual Basic 6.0？【答】要再安装Visual Basic 6.0，因为安装Visual Basic 6.0时，有些VB程序系统自动安装在Windows 98子目录下，所以一旦删除了Windows 98子目录，就必须再次安装。
3．Visual Basic 6.0有学习版、专业版和企业版，怎样知道所安装的是哪个版本？【答】在启动Visual Basic 6.0的启动封面上，能显示对应的版本，见教材例1.1。
4．Visual Basic 6.0有多种类型的窗口，若想在设计时看到代码窗口，怎样操作？【答】执行[视图][代码窗口]命令或“工程资源管理器”窗口的“查看代码”按钮。
5．如何使各窗口显示或不显示？【答】执行[视图]菜单的对应窗口命令，显示相应的窗口；关闭窗口则不显示该窗口。
6．叙述Visual Basic的特点。
【答】见本章1.3小节“知识要点”习题二1．叙述建立一个完整的应用程序的过程。
【答】创建界面、设置属性、编写事件过程代码、保存并运行程序。
2．当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。
问该工程涉及到多少个文件要保存？若要保存该工程中的所有文件，正确的操作应先保存什么文件？若不这样做，系统会出现什么信息？【答】涉及到两个文件，应先保存窗体文件（.frm），再保存工程文件（.vbp）。
若是先保存工程文件，系统也会先弹出“文件另存为”对话框，要求先保存窗体文件。
3．假定在Windows 98环境中，要保存工程文件时，若不改变目录名，则系统默认的目录是什么？【答】是VB98。
4．为了使一个控件在运行时不可见，应对该控件的什么属性进行何种设置？【答】将Visible属性设为False。
习题(1~4,7章)
●VB 6.0集成开发环境中不能完成的功能是_____。
(A)输入编辑源程序(B)编译生成可执行程序(C)调试运行程序(D)自动查找并改正程序中的错误●VB 6.0集成开发环境不包括______窗口。
(A) DOS界面窗口(B)窗体窗口(C)代码窗口(D)属性窗口●下列关于VB编程的说法中，不正确的是______。
(A)属性是描述对象特征的数据(B)事件是能被对象识别的动作(C)方法指示对象的行为(D) VB程序采用的运行机制是面向对象●如果在窗体上已经创建了一个文本框对象Textl，可以通过_______事件获得输入键值的ASCII码。
(A) Change (B) LostFocus (C) KeyPress (D) GotFocus●在Visual Basic中最基本的对象是______，它是应用程序的基石，是其他控件的容器。
(A)文本框(B)命令按钮(C)窗体(D)标签●有程序代码如下: Text1.Text = "Textl.Text"则Text1、Text、"Textl.text"分别代表_______。
(A)对象、值、属性(B)对象、方法、属性(C)对象、属性、值(D)属性、对象、值●当运行程序时，系统自动执行启动窗体的______事件过程。
(A) Load (B) Click (C) UnLoad (D) GotFocus●若要使命令按钮不可操作，要对________属性进行设置。
(A) Enabled (B) Visible ( C) BackColor (D) Caption●文本框没有________属性。
(A) Enabled (B) Visible (C) BackColor (D) Caption●不论何控件，共同具有的是________属性。
(A) Text (B) Name (C) ForeColor (D) Caption●要使某控件在运行时不可显示，应对_________属性进行设置。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB习题答案（1-4）习题1一、选择题1. 以下叙述中，错误的是_________。
（A）一个Visual Basic 应用程序可以含有多个标准模块文件（B）一个visual Basic 工程可以含有多个窗体文件（C）标准模块文件可以属于某个指定的窗体文件（D）标准模块文件的扩展名是.bas标准模块文件（.bas）不属于任何一个窗体文件。
参考答案为C。
2. 以下叙述中错误的是_________。
（A）一个工程可以包括多种类型的文件（B）Visual Basic应用程序既能以编译方式执行，也能以解释方式执行（C）程序运行后，在内存中只能驻留一个窗体（D）对于事件驱动型应用程序，每次运行时的执行顺序可以不一样内存中可以驻留多个窗体，当前窗体只能有一个。
参考答案为C。
3. Visual Basic的窗体设计器主要是用来___________。
（A）建立用户界面（B）添加图形、图像、数据等控件（C）编写程序源代码（D）设计窗体的布局参考答案为A。
4. Visual Basic是一种结构化高级程序设计语言，它采用的是_________驱动方式。
（A）键盘（B）鼠标（C）事件（D）函数参考答案为C。
5. Visual Basic程序设计语言属于_________。
（A）面向过程的语言（B）机器语言（C）面向对象的语言（D）汇编语言参考答案为C。
6. Visual Basic一共有设计、运行和中断三种模式，要使用调试工具应该_________。
（A）进入设计模式（B）进入运行模式（C）进入中断模式（D）不用进入任何模式VB中三种模式分别为：设计模式下可以进行界面设计和代码的编写；运行模式下执行代码，接受用户的操作；中断模式下可以修改代码，但不能改变界面，这个模式下通常进行代码调试，当运行出错时，默认转到该模式下进行调试。
参考答案为C。
7. 假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。
为了保存该应用程序，以下正确的操作是_________。
（A）只保存窗体模块文件（B）分别保存窗体模块、标准模块和工程文件（C）只保存窗体模块和标准模块文件（D）只保存工程文件一个工程中可包含多个文件，当打开一个工程文件时会自动加载工程内所有文件。
对程序保存需分别保存工程文件及窗体文件。
参考答案为B。
二、填空题1. Visual Basic 6.0分为3种版本，这3种版本是_________、_________和_________。
参考答案：学习版、专业版、企业版2. 应用程序最终面向用户的窗口是_________，它对应于应用程序的运行结果。
参考答案：窗体设计器3. 如果打开了不需要的菜单或对话框，可以用_________键关闭。
参考答案：ESC三、简答题1. 简述Visual Basic语言的特点。
参考答案：Visual Basic是Windows操作平台下的可视化编程语言，它继承和发展了BASIC语言的基本功能，具有简单易学、功能强大等特点。
Visual Basic提供了可视化设计工具，以图形用户界面（GUI）为PC机用户提供了一个直观的工作环境。
支持面向对象的程序设计（OOP），采用事件驱动方式，提供对象的链接与嵌入（OLE）和访问数据库等功能。
2. Visual Basic 6.0的集成开发环境由哪些部分组成，各部分的主要功能是什么。
参考答案：1. 标题栏：用来显示打开的工程名称和系统的工作状态。
2. 菜单栏：菜单栏中包括“文件”、“编辑”、“视图”、“工程”、“格式”、“调试”、“运行”、“查询”、“图表”、“工具”、“外接程序”、“窗口”和“帮助”共有13个菜单项。
这是一组下拉式菜单，提供了设计、编辑、编译和调试应用程序所需要的绝大部分功能和命令。
3. 工具栏： Visual Basic 6.0提供了“编辑”、“标准”、“窗体编辑器”和“调试”4种工具栏。
工具栏上形象直观的排列着一些最常用的命令按钮，对应特定的常用操作命令。
4. 控件箱：控件箱提供了一组控件。
设计界面时，用户可以用鼠标双击控件箱中的控件，在窗体中画出该控件，或用鼠标单击控件箱中的控件，然后在窗体中拖动鼠标画出所需的控件。
5. 窗体设计器：窗体设计器是应用程序最终面向用户的窗口。
各种控件、图形、数据以及程序的运行结果都在窗体设计器窗体中显示出来。
6. 工程资源管理器：在工程资源管理器窗口中（图1-2），列出了应用程序的工程以及工程中的窗体和模块。
7. 属性窗口：属性窗口主要用来设置Visual Basic窗体及各控件的属性特征，属性窗口的主体部分分为左右两列，左边是控件的属性名列表，右边是控件的属性值列表。
8. 窗体布局窗口：窗体布局窗口用于观察应用程序中各窗体在屏幕上的位置。
可以在窗体布局窗口用鼠标拖动窗体小图像的方法来改变窗体布局。
3. 什么是对象的属性、事件和方法。
参考答案：属性是一个对象的数据，用来表示对象的状态。
属性具有属性值，改变对象的属性值就可以改变对象的状态。
对象常见的属性有标题（Caption）、名称（Name）、颜色（Color）、字体大小（Fontsize）、是否可见（Visible）等。
事件（Event）是能被对象识别的动作，例如Click（单击），DblClick（双击），Load （装入），MouseMove（移动鼠标），Change（改变）等。
Visual Basic编程的核心就是为每一个要处理的事件编写响应事件的程序代码。
方法（Method）即是具有完成某种功能的过程和函数，它决定了对象要执行的动作。
4. 简述编写并运行Visual Basic程序的一般步骤。
参考答案：（1）创建应用程序界面。
（2）设置界面上各个对象的属性（3）编写事件驱动代码（4）单击工具栏上的启动按钮，运行该程序。
四、编程题编写程序，在窗体上显示“第一个Visual Basic程序”。
参考答案：（1）创建应用程序界面。
（2）设置界面上各个对象的属性（3）编写事件驱动代码Private Sub Command1_Click()Text1.Text = "第一个VisualBasic程序"End SubPrivate Sub Command2_Click()EndEnd Sub（4）单击工具栏上的启动按钮，运行该程序。
单击“开始”按钮。
习题2一、选择题1. 下面可以正确定义2个整形变量和1个字符串变量的语句的是_________。
（A）Dim n , m AS Interger , s AS String（B）Dim a% , b$ , c AS String（C）Dim a AS Integer , b , c AS String（D）Dim x% , y AS Integer , z AS String变量定义未指明数据类型，则为变体类型变量。
A选项定义n为变体类型变量；B答案定义了1个整型变量和2个字符串变量；C选项的b变量也为变体类型变量，D选项满足要求。
参考答案为D。
2. 设有如下语句：Dim a , b As Integerc = "Visual Basic"d = #7/20/2005 #以下关于这段代码的叙述中，错误的是_________。
（A）a 被定义为Integer 类型变量（B）b 被定义为Integer 类型变量（C）c 中的数据是字符串（D）d 中的数据是日期类型VB中变体类型变量有三种情况，一是直接使用未经定义的变量；第二是显式的将变量定义为变体类型，例Dim m As Variant；第三种情况是定义变量但未指明该变量的数据类型，程序中对a变量的定义就属第三种情况，故A选项错误。
变量c，d均是未定义的变量为变体类型，但分别存放的数据为字符串型和日期型。
参考答案为A。
3. 执行以下程序后输出的是_________。
Private Sub Command1_Click()Ch$=”AABCDEFGH”Print Mid(Right(ch$,6),Len(left(ch$,4)),2)End Sub（A）CDEFGH （B）ABCD （C）FG （D）AB程序中有4个函数调用，其中Mid 的三个参数分别是Righ(ch$,6)、Len(left(ch$,4))和2，而left(ch$,4)又是函数Len的参数，由这几个字符串函数的功能知：函数Righ(ch$,6)的结果值为”CDEFGH”, left(ch$,4)值为”AABC”，Len(left(ch$,4))结果为4，所以输出Mid(Right(ch$,6),Len(left(ch$,4)),2)结果值为“FG”，C选项正确。
参考答案为C。
4. 设a = 4 , b = 3 , c = 2 , d = l，表达式 a > b+1 Or c < d And b Mod c 的值是_________。
（A）True （B）l （C）-l （D）0表达式计算按优先级由高到低顺序计算，其中运算符优先级高低为“算术运算符>字符运算符>关系运算符>逻辑运算符”，逻辑运算符中“Not>And>Or”，同时关系运算结果值为逻辑值；逻辑运算分两种情况，（1）逻辑值参与逻辑运算结果为逻辑值，（2）数值数据参与逻辑运算则按二进制位进行逻辑运算。
照此规则，本题先算数运算b Mod c（值为1）、b+1（值为4），再做关系运算a > b+1（值为Fal se）、c < d（值为Fal se）最后做逻辑运算c < d And b Mod c（值为0）及a > b+1 Or c < d And b Mod c（值为0），即整个表达式值为0。
参考答案为D。
5. 以下可以作为Visual Basic变量名的是_________。
（A）A#A （B）counstA （C）3A （D）?AA参考答案为B。
6. 以下能从字符串”VisualBasic”中直接取出子字符串”Basi”的函数是_________。
（A）Left （B）Mid （C）String （D）Instr参考答案为B。
7. 表达式3^2*2+3 MOD 10\4的值是_________。
（A）18 （B）1 （C）19 （D）0参考答案为C。
8. 下面的变量名合法的是_________。
（A）k_name （B）k ame （C）name （D）k-name参考答案为A。
9. 设有如下变量声明Dim time1 As Date,为变量time1正确赋值的表达式是_________。
（A）time1 = #11:34:04# （B）time1 = Format(Time,"yy:mm:dd")（C）time1 = #"11:34:04"# （D）time1 = Format("hh:mm:ss",Time)参考答案为A。