vb作业集锦
VB作业3
VB第三次作业（8～10章）一、选择题（每题2分，共2×20＝40分）1、要获得当前驱动器应使用驱动器列表框的属性是A．PathB．DriveC．DirD．Pattern2、设在窗体上有个文本框，然后编写如下的事件过程：Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)Const Alt=4Const Key_F2=&H71altdown%=(Shift And Alt) > 0f2down%=(KeyCode=Key_F2)If altdown% And f2down% ThenText1.Text="BBBBB"End IfEnd Sub上述程序运行后，如果按【Shift+F2】，则在文本框中显示得是A．Alt+F2B．BBBBBC．随机出几个数D．文本框平均内容无变化3、下列程序的功能是调用字体对话框来设置文本框字体，单击按钮弹出对话框后，按Cancel 键退出对话框，则Private Sub Command1_Click()CommonDialog1.CancelError=TrueCommonDialog1.Flags=cdlCFEffects Or cdlDFBothCommonDialog1.Action=4CommonDialog1.ShowFont=CommonDialog1.FontNameText1.Font.Size=CommonDialog1.FontSizeText1.Font.Bold=CommonDialog1.FontBoldText1.Font.Italic=CommonDialog1.FontItalicText1.Font.Underline=CommonDialog1.FontUnderlineText1.FontStrikethru=CommonDialog1.FontStrikethruText1.ForeColor=CommonDialog1.ColorEnd SubA．Text1的字体不发生变化B．Text1的字体发生变化C．Text1的字体和颜色发生变化D．程序出错！4、以下叙述中错误的是A) 在KeyUp和KeyDown事件过程中，从键盘上输入A或a被视作相同的字母(即具有相同的KeyCode)B) 在KeyUp和KeyDown事件过程中，将键盘上的“1”和右侧小键盘上的“1”视作不同的数字(具有不同的KeyCode)C) KeyPress事件中不能识别键盘上某个键的按下与释放D) KeyPress事件中可以识别键盘上某个键的按下与释放5、在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件)，则正确的描述格式是A) “text (.txt)|(*.txt)” B)“文本文件( .txt) | (.txt)”C) “text(.txt)||(*.txt)” D)“text(.txt)(*.txt)”6、以下叙述中正确的是A) 一个记录中所包含的各个元素的数据类型必须相同B) 随机文件中每个记录的长度是固定的C) Open命令的作用是打开一个已经存在的文件D) 使用Input #语句可以从随机文件中读取数据7、目录列表框的Path属性的作用是A) 显示当前驱动器或指定驱动器上的目录结构B) 显示当前驱动器或指定驱动器上的某目录下的文件名C) 显示根目录下的文件名D) 显示该路径下的文件8、设有语句open "c：\Test．Dat" For OutPut As#1则以下错误的叙述是A)该语句打开C盘根目录下一个己存在的文件Test．DatB)该语句在C盘根目录下建立一个名为Test．Dat的文件C)该语句建立的文件的文件号为1D)执行该语句后，就可以通过Print#语句向文件Test．Dat中写入信息9、在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：Private Sub Txta_KeyPress(keyascii as integer)End Sub若焦点位于文本框中，则能够触发KeyPress事件的操作是A)单击鼠标B)双击文本框C)鼠标滑过文本框D)按下键盘上的某个键10、假定有如下事件过程：PriVate Sub Form_MouseDown(button As Integer,Shift As Integer, x As Single，Y AsSingle)If Button＝2 thenPopupMenu popFormEnd ifEnd Sub则以下描述中错误的是A)该过程的功能是弹出一个菜单B)popForm 是在菜单编辑器中定义的弹出式菜单的名称C)参数X、Y指明鼠标的当前位置D)Button=2 表示按下的是鼠标左键11、当函数EOF（）的返回值为真时，表示文件的指针指向（）。
北语16春《VB》作业2答案.doc
号：1题型:单选题（请在以下几个选项中选择唯一正确答案）本题分数：5 内容: 表达式5 Mod 3+3\5*2的值是_。
A、0B、2C、4D、6标准答案:B 本题得分：5题号:2题型:单选题（请在以下儿个选项中选择唯二正确答案）本题分数:5内容：若m, x, y,均为Integer型变量,则执行下面语句后m值是。
m=l： X=2： Y=3 m=IIf （X>Y, X+Y, X-Y）A、3B、0C、1D、-1标准答案:D本题得分：5题号:3题型:单选题（请在以下儿个选项中选择唯一正确答案）本题分数:5内容：函数Int（6 * RND） + 1的值是在哪个范围内的整数？—oA、[0,6]k [0,7]C、[1,6]D、[1,7]标准答案:C本题得分：5 内容:号:4题型：单选题（请在以下几个选项中选择唯-正确答本题分数：A、3B、-3. 14C、-4D、3. 14标准答案:C本题得分：5题号:5题型:单选题（请在以下儿个选项中选择唯一正确答案）本题分数;5 内容：VB 表达式Cos （0） +Abs（l）+Int （Rnd（l））的值是°A、1B、-1C、0D、2标准答案:D 本题得分：5 题号:6题型:单选题（请在以下儿个选项中选择唯一正确答案）本题分数:5 内容：由单精度浮点型的数据组成的字节数是A、2B、4C、8D、16标准答案:B 本题得分：5号：7题型：章选题（请在以下几个选项中选择唯二正确答案）本题分数;5 内容：下列不能打开菜单编辑器的操作是A、按Ctrl+EB、单击工具栏中的“菜单编辑器”按钮C、执行“工具”菜单中的“菜单编辑器”命令D、按Shift + Alt + M标准答案:D 本题得分：5号:8题型:单选题（请在以下几个选项中选择唯一正确答案）本题分数:5 内容：为了清除窗体上的一个控件，下列正确的操作是A、按回车键B、按Esc键C、选择（单击）要清除的控件，然后按Del键D、选择（单击）要清除的控件，然后按同车键标准答案:c 本题得分：5题瓦"题―题存数:成内容：设a=,z Visual Basic",下面使b=" Basic"的语句是—°A、b=Left(a, 8, 12)B、b=Mid(a, 8, 5)C、b二Right (a, 5, 5)D、b=Left (a, 8, 5)标准答案:B 本题得分：5号：10题型:单选题（请在以下几个选项中选择唯二正确答案）本题分数:5 内容：能够在窗体上触发MouseMove :事件的操作是。
vb代码作业
MsgBox "输入数据有误,重输"
Text1 = ""
Text2 = ""
Text1.SetFocus
End If
End Sub
Private Sub Form_Load()
End Sub
Private Sub Text1_Change()
''迭代法编制函数2(通过循环实现）
Public Function f(ByVal a As Single) As Single
Dim x1 As Single, x0 As Single
x0 = a / 2
Do
x1 = 1 / 2 * (x0 + a / x0)
End If
Next i
End Sub
7-5Option Explicit
''迭代法编制函数(通过循环实现）
'Public Function f(ByVal x0 As Single, ByVal a As Single) As Single
' Dim x1 As Single
If Val(Right(CStr(a * a), Len(CStr(a)))) = a Then
AutoMorphic = True
End If
End Function
7-3Private Sub Command1_Click()
Dim i As Long, j As Integer
Dim i As Integer, s As Integer
For i = 1 To n / 2
VB的理论作业
1、在Visual Basic中，某对象的属性窗口如右图所示，该对象名是（）A．Enabled B．Timer C．tine D．tine Timer2、某学生设计了一个VB应用程序，他单击了窗体上的“测算”按钮对象，应用程序的窗体界面及按钮的属性窗口界面如下图所示，现在想编制该按钮单击事件的处理过程，则该事件处理过程名是()A．测算_Click B．Command1_Click C．Cmd1_Click D．Cmd1_DblClick 3、一个VB工程的部分设计界面如下图所。
下列说法错误．．的有()①工程文件名是“工程1.vbp”②该工程只有1个窗体③窗体文件名是“Form.frm”④窗体名称是“对象识别”A．①②B．②③C．①③D．③④4、一个VB程序的运行界面如下图所示。
下面说法不正确．．．的是()A．文本框Text1的Caption属性值为“H”B．标签Label1的Caption属性值为“输入字符”C．命令按钮Command1的Caption属性值为“查询”D．窗体的Caption属性值为“查询字符ASCII码”5、一个窗体VB工程的部分设计界面如下图所示：该窗体的名称是()A．MyForm B．FrmMain C．Form1 D．工程16、下列关于对象的描述中，错误．．的是()A．对象的属性用于描述对象的状态B．对象的属性与方法可以有多个C．对象事件的发生会驱动该对象相应事件处理过程的执行D．对象的属性值只能在属性窗口中设置7、在程序中用变量存储某个人的身份证号码，以下数据类型合适的是()A．Integer B．Long C．String D．Boolean8、在VB中，下列属于字符串常量的是()A．”2014”B．ABC C．True D．9.89、下列可作为Visual Basic变量名的是()A．4if B．if_4 C．_if4 D．if10、用下面语句定义的数组的元素个数是()Dim names(5) As StringA．4 B．5 C．6 D．不确定11、在Visual Basic中，下列能作为变量名的是()A．you B．As C．x＋y D．2b12、已知某校100名学生的身高数据(包含一位小数)，要求编写VB程序，统计超过平均身高的人数。
vb考试题
章节作业--第1次作业:10题1、, Visual Basic的三种工作模式是。
A) 编辑 B) 编译 C) 设计、运行、中断 D) 连接正确答案是: C 你选择的答案是：C √2、, 在Visual Basic中，以下什么方法可以改变窗体的大小。
A) 设计时在窗体布局窗口中进行调整。
B) 运行时设置窗体的Left属性。
C) 运行时调用窗体的Move方法。
D) 设计时在窗体布局窗口中点鼠标右键，在快捷菜单中进行设置。
正确答案是: C 你选择的答案是：C √3、, 如果要使窗体的最小化按钮变成灰色（不起作用），需设置窗体的（）属性。
A) Caption B) Icon C) MaxButton D) MinButton正确答案是: D 你选择的答案是：D √4、, 要使窗体上的所有控件具有相同的字体格式，应首先在属性窗口中对（）的Font属性进行设置，然后再添加各控件。
A) 所有控件 B) 窗体 C) 标签控件 D) Fontname正确答案是: B 你选择的答案是：B √5、, 在属性窗口设置命令按钮的DownPicture属性，指定按下时显示的图形文件，但在运行时按下命令按钮却没有效果，原因是（）。
A) 命令按钮的Default属性为True B) 命令按钮的Style属性为2-PictureC) 命令按钮的Style属性为0-Standard D) 命令按钮的Style属性为1-Graphics正确答案是: C 你选择的答案是：C √6、, 要在窗体上显示图片，需设置窗体的（）属性。
A) Caption B) IconC) Picture D) ControlBo正确答案是: C 你选择的答案是：C √7、, “重复”命令是对（）命令的反操作。
A) 撤消 B) 查找C) 复制 D) 剪切正确答案是: A 你选择的答案是：A √8、, 运行时，单击窗体（Form1）将窗体的前景色设置为红色的事件过程是（）。
VB题库
作业一简单VB程序设计1.在VB程序设计中，响应对象的外部动作称为_____，而对象可以执行的动作或对象本身的行为则称为_____。
（A）方法，事件（B）事件，方法（C）属性，方法（D）过程，事件2.在VB6.0集成开发环境中不能完成的工作是_____。
（A）输入和编辑源程序（B）编译生成可执行程序（C）调试运行程序（D）自动查找并改正程序中的错误3.VB6.0集成开发环境不包括_____。
（A）DOS界面窗口（B）窗体窗口（C）代码窗口（D）属性窗口4.当运行程序时，系统自动执行启动窗体的_________事件过程。
（A）Load （B）Click（C）Unload （D）GotFocus5.用一个程序段对一对象被单击(或双击)作出响应，从而实现指定的操作，称为______。
（A）可视画化程序设计（B）事件驱动编程机制（C）过程化程序实际方法（D）非过程化程序设计语言6.Visual Basic有三种工作模式，它们分别是______模式。
（A）设计、编译和运行（B）设计、运行和中断（C）设计、运行和调试（D）编译、运行和调试7.Visual Basic的一个应用程序至少包含一个_______文件，该文件存储窗体上使用的所有控件对象和有关的_______、对象相应的_______过程和_______代码。
（A）模块、方法、事件、程序（B）窗体、属性、事件、程序（C）窗体、程序、属性、事件（D）窗体、属性、事件、模块8.在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体中的窗口、属性窗口外，必不可少的窗口是______。
（A）窗体布局窗口（B）立即窗口（C）代码窗口（D）监视窗口9.保存新建的工程时，默认的路径是_________。
（A）My Documents （B）VB98（C）\ （D）Windows10.若要使标签控件显示时不覆盖其背景内容，要对______属性进行设置。
（A）BackColor （B）BorderStyle（C）ForeColor （D）BackStyle11.文本框没有______属性。
VB课后作业
四、实验步骤第一题1、在新建的窗体上画一个形状按钮4、下拉菜单布局如下5、双击窗体，打开代码窗口并输入如下代码：Private Sub hongse_Click()Shape1.FillStyle = 0Shape1.FillColor = vbRedEnd SubPrivate Sub lanse_Click()Shape1.FillColor = vbBlueEnd SubPrivate Sub lvse_Click()Shape1.FillColor = vbGreenEnd Sub6、单击“文件-保存工程”菜单项，以Sy9-1.frm和Sy9-1.vbp文件名保存在D:\VB程序第二题1、在新建的窗体上画一个图片框2、单击菜单编辑器按钮，打开菜单编辑器，为窗体设置如下的下拉菜单3、下拉菜单布局如下4、双击窗体，打开代码窗口并输入如下代码：Private Sub qinkon_Click()Picture1.Picture = LoadPicture("")End SubPrivate Sub xiansi_Click()Picture1.Picture = LoadPicture("F:\金鱼.bmp")End Sub5、单击“文件-保存工程”菜单项，以Sy9-2.frm和Sy9-2.vbp文件名保存在D:\VB程序第三题1、在新建的窗体上画一个图片框4、下拉菜单布局如下5、双击窗体，打开代码窗口并输入如下代码：Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Text1.Enabled = FalseText1.Enabled = TrueIf Button = 2 ThenPopupMenu zhihaoEnd IfEnd SubPrivate Sub erba_Click()Text1.FontSize = 28End SubPrivate Sub ersi_Click()Text1.FontSize = 20End SubPrivate Sub sier_Click()Text1.FontSize = 12End SubPrivate Sub siliu_Click()Text1.FontSize = 16End Sub6、单击“文件-保存工程”菜单项，以Sy9-3.frm和Sy9-3.vbp文件名保存在D:\VB程序第四题1、新建一个窗体FORM1,右键单击工程资源管理器的form1,添加MDI窗体，再设置FOME1窗体的MDIchild属性为true2、打开父窗体的菜单编辑器，为窗体设置如下的下拉菜单3、下拉菜单布局如下4、双击父窗体，打开代码窗口并输入如下代码：Private Sub dakai_Click()Form1.Picture = LoadPicture("F:\雪纳瑞.bmp")End SubPrivate Sub tuichu_Click()EndEnd SubPrivate Sub xinjian_Click()Form1.ShowEnd Sub5、在子窗体上添加一个图片框，并将子窗体的caption属性改为“文档1”,打开子窗体的菜单编辑器，为窗体设置如下的下拉菜单6、下拉菜单布局如下7、双击子窗体，打开代码窗口并输入如下代码：Dim luoji As BooleanPrivate Sub dakai_Click()Picture1.Picture = LoadPicture("F:\雪纳瑞.bmp") End SubPrivate Sub tuichu_Click()EndEnd SubPrivate Sub xinjian_Click()Picture1.Picture = LoadPicture("")End SubPrivate Sub qinchu_Click()Picture1.ClsEnd SubPrivate Sub shouhui_Click()luoji = FalseEnd SubPrivate Sub zhixian_Click()luoji = TrueEnd SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If luoji = False And Button = 1 ThenPicture1.Line -(X, Y)End IfEnd SubPrivate Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If luoji = True And Button = 1 ThenPicture1.Line -(X, Y)End IfEnd Sub8、单击“文件-保存工程”菜单项，以Sy9-4.frm和Sy9-4.vbp文件名保存在D:\VB程序五、实验调试与结果分析第一题最初的代码是Private Sub hongse_Click()Shape1.FillColor = vbRedEnd Sub……运行后发现不管是否有按选项，形状按钮始终是透明的，于是考虑一开始把形状按钮的填充样式改为solid,如下修改Private Sub hongse_Click()Shape1.FillStyle = 0Shape1.FillColor = vbRedEnd Sub……运行后结果符合题目要求第二题一开始其中的一段代码为Private Sub qinkon_Click()Picture1.Picture = clsEnd Sub运行后发现清空选项不起作用，分析知道图片框清空原图片的语法为Picture1.Picture = LoadPicture("")改正后运行得到的结果与题目要求符合第三题一开始的代码有一段如下Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenPopupMenu zhihaoEnd IfEnd Sub运行后发现右键单击文本框时，老是先弹出系统的右键菜单，再次右击后才弹出自己设计的菜单，与题目要求不符，于是在原语段中加入如下语句Text1.Enabled = FalseText1.Enabled = True运行后第一次单击右键就弹出所想要的菜单，符合题目要求第四题在父窗体的代码中，一开始有这样一段Private Sub xinjian_Click()Form1.ShowEnd Sub但运行后发现即使没有按新建按钮，子窗体依然自动加载了，分析知道应该要改变窗体加载的设置，于是选择工程菜单下的工程1属性，改变启动对象为MDIform1,这样新建菜单才有实际的意义六、总结本次实验的内容主要有如下：1、下拉式菜单、弹出式菜单的设计2、菜单编辑器的使用3、多文档界面应用程序的设计4、综合运用常用控件及其基本控制结构完成应用程序的设计下拉式菜单：下拉式菜单通过菜单编辑器来制作，主要包括标题和名称，标题就是下拉选项的名称，而名称并不是可有可无的，因为在为菜单项写代码的时候，引用的就是名称而不是标题，标题是拿来看的，vb只能识别字母，所以名称一定要由字母组成，为了便于理解，可以用标题的拼音来作为名称要往下添加其他的菜单项，可以单击下一个或者是直接回车，要调整选项的级别，可以单击箭头来调整弹出式菜单：和下拉式菜单是一样的，只是顶级菜单不可见，即可见选项没有选。
VB课后作业
1.VB最突出的特点是：事件驱动编程机制。
2.VB集成环境的主窗口不包括状态栏。
3.f4激活属性窗口。
属性窗口的4各部分：对象框属性显示方式、属性列表、属性解释。
4.ctrl+F4,关闭窗口5.控件有3类：标准控件，activeX控件，可插入对象。
6.F7——打开代码窗口7.VB开发程序的三步：建立可视用户界面、设置可视界面特性、编写事件驱动代码。
8.控件和窗体的NAME属性是只读属性。
9.代码窗口：左栏：对象，右栏：过程。
10.VB的3个模块为：窗体，标准，类。
11.在窗体上画一个文本框和两个命令按钮，并把两个命令按钮的标题分别设置为“隐藏文本框”和“显示文本框”。
当单击第一个命令按钮时，文本框消失；当单击第二个命令按钮时，文本框重现。
并在文本框中显示“VB程序设计”（字体大小为16）。
答：command1 clickText1.visiable=falseCommand2 clickText2.visiable=true.Text2.fontsize=16Text2.text=”VB程序设计”12.VB中变量名只能以字母开始。
13.or and 取负。
14.Unicode与ANSI的转换函数是：strconv。
Unicode方式，西文，中文都为1个字符，占2个字节。
15.28°=（28/180）*3.1416.任何函数的参数，都要用括号括起。
17.表达式中不可以出现pai，用3.14表示18.乘号要用*代表19.平方：20.数字乘以字母，之间也得加*21.ln2：用（log(2)/log(e)）表示。
22.mid函数，参数是从第几个开始后的几个。
23.VB中字符串要用引号括起来，日期/时间要用井号括起来。
24.优先级：* / \25.print sgn(-6^2)+abs(-6^2)+int(-6^2) →-126.负号与平方一起时：先平方，再负号。
27.format（）。
#不需添0，而0需要添。