VB操作题答案最终版2.docx

1、VB操作题答案最终版2操作题11、 打开VB编程软件，文件新建工程建立标准EXE工程。2、 在打开上的窗体form1上添加两个optionButton，然后将他们的名字分别改为“开始”和“结束”3、 然后按照格式将当前项目以Form1.frm为文件名保存在相应路径下。操作题21、 还是像前面一样，打开VB编程软件，文件新建工程建立标准EXE工程。然后再双击窗体Form1进入到代码编辑器：Private Sub Form_Load()Dim s As Integers = MsgBox(Hello World!, vbQuestion + vbYesNo, 对话框)End Sub这段代码意思就是

2、定义一个整型变量s ,然后将对话框赋给这个变量。关于msgBox函数的参数格式为：MsgBox(prompt, buttons , title , helpfile, context)第一个参数prompt为对话框的内容；第二个可选参数button为对话框的按钮形式，代码里使用了vbQuestion + vbYesNo，意思就是一个对话框会显示vbQuestion的图标和是否的两个按钮；第三个参数title为对话框的标题，第四个参数helpfile为字符串表达式，识别用来向对话框提供上下文相关帮助的帮助文件。如果提供了 helpfile，则也必须提供 context；第五个参数context为

3、数值表达式，由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。如果提供了 context，则也必须提供 helpfile。操作题31、 打开VB编程软件，文件新建工程建立标准EXE工程。然后在当前窗体Form1上双击进入到代码编辑器，输入以下代码：Private Sub Form_Load()MsgBox (Hello World!)End Sub2、 代码完成之后，将Form1保存为Form1.frm,然后右键单击工程点击“保存工程”，文件名按要求改为Project1，ok完成。操作题41、打开VB编程软件，文件新建工程建立标准EXE工程。然后在当前窗体Form1上双击进入到代码编辑器，

4、输入以下代码：Private Sub Form_Load()Dim s As Integers = MsgBox(Hello World!, vbOKOnly, 这是标题)End Sub2、代码完成之后，将Form1保存为Form1.frm,然后右键单击工程点击“保存工程”，文件名按要求改为Project1，ok完成。操作题51、打开VB编程软件，文件新建工程建立标准EXE工程。然后在当前窗体Form1上双击进入到代码编辑器，输入以下代码：Private Sub Form_Load()Dim s As Strings = InputBox(HelloWorld, 这里是标题, 这里是输入框的默

5、认值, 1000, 1000, HelpFile, 5)End Sub这里函数inputBox的格式与前面的msgBox大体类似：InputBox（pronpt,title,default,xpos,ypos , helpfile, context).其中的pronpt为窗口的提示词，title为输入窗口的标题，default为输入窗口的默认内容，xpos，ypos为窗口距离屏幕左边，上边的距离。Helpfile和context参数和msgBox函数的参数意思一样。这里大家没有必要深究helpfile和context参数的意义，只就记住他们的字符格式就是，一个是string一个是Integer

6、。2、至于下一个问题也就是第11题是使用context参数的inputBox函数，我们知道helpfile和context这两个参数必须同时出现。所以下一个问题可以参照这个问题给出同样的答案。操作题61、 打开VB编程软件，文件新建工程建立标准EXE工程。然后在当前窗体Form1上添加四个checkBox，分别将其caption改为“运动”、“艺术”、“文学”、“电脑”。2、 添加ImageList控件，这里注意ImageList只是一个图片的“储藏室”，要显示图片还要将ImageList绑定到ToolBar控件上。ImageList 控件是 ActiveX 控件组的一部分，该控件组可以在文件

7、 MSCOMCTL.OCX ，此文件被安装到c:windowssystem32下面，然后 在vb中 工程-部件 在这个对话框中通过浏览选择MSCOMCTL.OCX ，然后ImageList 控件就添加到部件栏里了。3、用鼠标右击ImageList控件，在弹出式菜单中选择属性进入属性页对话框，选择图像选项卡，单击“插入图片”按钮，在对话框中选择“插入图片”，分别添加SetAll.bmp和ClrAll.bmp两张图片，关键字分别设置为setAll和ClrAll。后面toolBar会用到这里的关键字。4、设置imageList控件的屏蔽色：在右侧属性的MaskColor设置为黄色。5、工具栏的制作：

8、点击左侧资源菜单的toolBar，在窗体上画出一个toolBar，然后右键单击才控件，选择“属性”在“通用”属性里设置两个东西：1、图像列表选择步骤3创建的ImageList1控件；2、样式选择0 tbrStandard。在“按钮”属性里点击“插入按钮”添加两个按钮，索引分别为1、2，图像分别为ImageList控件里两张图片的关键字“SetAll”和“ClrAll”。完成后点击应用确定。双击刚才创建的toolBar进入代码编辑器中，输入以下代码：Private Sub Toolbar3_ButtonClick(ByVal Button As MSComctlLib.Button)Select

9、 Case Button.Index Case 1 Check1.Value = 1 Check2.Value = 1 Check3.Value = 1 Check4.Value = 1 Case 2 Check1.Value = 0 Check2.Value = 0 Check3.Value = 0 Check4.Value = 0 End SelectEnd Sub刚才我们分别设置了两个button的index为1和2，这里是根据toolBar的两个按钮的index来判断点击事件，当点击第一个setAll的按钮时，其index为1，所以就会选中前面设置的四个checkBox，check1、

10、check2、check3、check4分别为前面步骤1创建的四个checkBox的“名称”。6、 菜单的制作选中Form窗体，点击“工具(T)菜单编辑器”，新建一个菜单。添加两个一级菜单项“文件(F)”和“编辑(E)”,名称分别为“menuFile”和“menuEdit”为“编辑(E)”菜单项添加两个子菜单项“全部选择”和“全部清除” 选中下方的空白文本框里的“编辑(E)”菜单项，然后点击插入，并点击“下方向箭头”，出现“.全部选择” .全部选择时，说明已完成编辑菜单的子菜单的创建。添加子菜单属性 分别选中下方的空白文本框里的子菜单项“.全部选择”和“ .全部选择”，设置它们的名称分别为“S

11、etAll”和“ClrAll”，快捷键分别选“Crtl+A”和“Crtl+E”。进入代码编辑器，为两个子菜单添加点击事件：Private Sub ClrAll_Click()Check1.Value = 0Check2.Value = 0Check3.Value = 0Check4.Value = 0End SubPrivate Sub SetAll_Click()Check1.Value = 1Check2.Value = 1Check3.Value = 1Check4.Value = 1End Sub7、 最后完成的窗体样子为。注：这里的两张图片其实只做了一张SetAll的图片，另一张Cl

12、rAll只是改了一下名字。到考试的时候希望大家记得两张不同的图片都添加进来。代码为操作题71、打开VB编程软件，文件新建工程建立标准EXE工程。在打开上的窗体form1上添加一个label控件，并修改其caption为“除 法 计 算 器”,font大小修改为45号。2、添加三个输入框、一个除号/、一个等号=，并按照要求把三个输入框的名称分别改为txtNum1、txtNum2、txtNum3。这里除号和等号字体大小尽量设置大一点，我这设置了“二号”的字体。3、 添加两个按钮“计算”和“退出”4、添加类模块右键单击窗体选择”添加”添加类模块”，然后”打开”进入到类模块代码编写窗口，按要求将其名称

13、改为Num。添加类属性(变量)。按照要求为该类添加两个私有变量mNum1和mNum2以及两个共有属性MyName和MyNo。 Private mNum1 As IntegerPrivate mNum2 As IntegerPublic MyName As StringPublic MyNo As Integer 为Num类的私有属性Num1和Num2添加公有属性过程。单击工具栏”工具(T)”添加过程”，添加一个名称为Num1，类型为属性，范围为共有的过程。添加完成两个属性过程之后，实现属性过程的方法使得可以读写两个私有变量mNum1和mNum2。这里主要要把代码自动生成的属性过程返回值改为In

14、teger，即As Variable改为As Integer。 按照要求添加共有函数过程Result。 Private mNum1 As IntegerPrivate mNum2 As IntegerPublic MyName As StringPublic MyNo As IntegerPublic Property Get Num1() As IntegerNum1 = mNum1End PropertyPublic Property Let Num1(ByVal vNewValue As Integer)mNum1 = vNewValueEnd PropertyPublic Proper

15、ty Get Num2() As IntegerNum2 = mNum2End PropertyPublic Property Let Num2(ByVal vNewValue As Integer)mNum2 = vNewValueEnd PropertyPublic Function Result()If mNum2 = 0 ThenResult = -1ElseResult = mNum1 / mNum2End IfEnd Function实现”计算”按钮和”退出”按钮的点击事件 按照要求先声明窗体级公有变量n1 Public n1 As Num 然后在窗体的Load事件中为对象变量n1

16、创建实例 Private Sub Form_Load()Set n1 = New NumEnd Sub为”计算”按钮添加鼠标单击事件，把txtNum1、txtNum2的值赋给n1的属性Num1、Num2，并调用n1的函数Result，把返回值输出到txtNum3中。Private Sub Command1_Click()n1.Num1 = txtNum1.Textn1.Num2 = txtNum2.TexttxtNum3.Text = n1.ResultEnd Sub“退出”按钮单击事件Private Sub Command2_Click()EndEnd Sub最后窗体Form1的所有代码为

17、Public n1 As NumPrivate Sub Form_Load()Set n1 = New NumEnd SubPrivate Sub Command1_Click()n1.Num1 = txtNum1.Textn1.Num2 = txtNum2.TexttxtNum3.Text = n1.ResultEnd SubPrivate Sub Command2_Click()EndEnd Sub操作题81、 打开VB编程软件，文件新建工程建立标准EXE工程。在打开上的窗体form1上添加一个TextBox控件，双击窗体进入代码编辑器中添加以下代码： Option Base 1Priva

18、te Sub Form_Load()Dim a(10) As LongDim Max As Longa(1) = Val(InputBox(请输入第1个数字, , Round(99 * Rnd, 0)Max = a(1)For i = 2 To 10a(i) = Val(InputBox(请输入第 & Str(i) & 个数字, , Round(99 * Rnd, 0)If a(i) Max Then Max = a(i)NextText1.Text = 最大的数为 & Max & End Sub这里定义两个整型变量，一个长度为10的数组a和保存最大数的变量Max。实现逻辑很简单，使用InputBox循环10次取得用户键盘输入的十个整数，初始值为随机产生的一个整数然后将得到的最大数传给事先定义好的文本框Text1。