史上最全2级vb答案

《史上最全2级vb答案》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第十九套一（1）通过菜单编辑器建立一个主菜单，在菜单编辑器的标题处输入“操作”，名称处输入Op，在该菜单下有二个子菜单，在菜单编辑器的标题处分别输入“显示”和“清除”，名称处分别输入Dis和Clea。单击“操作”菜单中的“显示”命令：PrivateSubDis_Click()Print"等级考试"EndSub单击“操作”菜单中的“清除”命令：PrivateSubClea_Click()ClsEndSub一（2）画一个标签控件，通过其属性窗口将名称设为Lab1。画一个列表框控件，通过其属性窗口将名称设为L1，向列表框中添加项目（List属性）

2、，添加的项目具体内容不限，每个项目为一行。双击列表框（即运行DblClick事件过程）：PrivateSubL1_DblClick()Lab1.Caption=L1.ListCountEndSub二（1）需在该窗体上画二个框架控件，通过其属性窗口将名称分别设为F1、F2，标题（Caption属性）分别设为“交通工具”和“到达目标”。在F1框架中画二个单选按钮控件，通过其属性窗口将名称分别设为Op1、Op2，标题（Caption属性）分别设为“汽车”和“轮船”。在F2框架中画二个单选按钮控件，通过其属性窗口将名称分别设为Op3、Op4，标题（

3、Caption属性）分别设为“青岛”和“大连”。画一个文本框控件，通过其属性窗口将名称设为Text1。单击文本框控件：PrivateSubText1_Click()IfOp1AndOp3ThenText1.Text="坐汽车去青岛"ElseIfOp1AndOp4ThenText1.Text="坐汽车去大连"ElseIfOp2AndOp3ThenText1.Text="坐轮船去青岛"ElseIfOp2AndOp4ThenText1.Text="坐轮船去大连"EndIfEndSub二（2）画二个文本框，通过其属性窗口将名称分别设为Text1、T

4、ext2，文本框内容（Text属性）分别设置为“等级考试”、“计算机”。画一个标签，通过其属性窗口将名称设为Lab1，高度（Height属性）设为375，宽度（Width属性）设为2000。再画二个单选按钮，通过其属性窗口将名称分别设为Op1、Op2，标题内容（Caption属性）分别设置为“交换”、“连接”。单击窗体：PrivateSubForm_Click()IfOp1ThenLab1.Caption=Text1.TextText1.Text=Text2.TextText2.Text=Lab1.CaptionLab1.Caption="

5、交换成功"ElseIfOp2ThenLab1.Caption=Text1.Text&Text2.TextEndIfEndSub三需在该窗体上画三个命令按钮控件，通过其属性窗口将名称分别设为C1、C2和C3，标题（Caption属性）分别设为“读入数据”、“计算”和“存盘”。单击“读入数据”按钮：PrivateSubC1_Click()ReadData1ReadData2EndSub单击“计算”按钮：PrivateSubC2_Click()DimArr3(20)AsIntegerSum=0Fori=1To20Arr3(i)=Int(Arr1(

6、i)/Arr2(i))Sum=Sum+Arr3(i)NextiPrint"Sum=";SumEndSub单击“存盘”按钮：PrivateSubC3_Click()WriteData"DataOut.txt",SumEndSub变量Sum存放和的结果，它在几个事件过程中都要使用，所以定义成全局变量，即在声明部分加入语句：DimSumAsInteger第十八套一（1）画一个文本框控件，通过其属性窗口将名称设为Text1。通过菜单编辑器建立一个主菜单，在菜单编辑器的标题处输入“操作”，名称处输入Op，在该菜单下有二个子菜单，在菜单编辑器的标题处分

7、别输入“显示”和“清除”，名称处分别输入Dis和Clea。单击“操作”菜单中的“显示”命令：PrivateSubDis_Click()Text1.Text="等级考试"EndSub单击“操作”菜单中的“清除”命令：PrivateSubClea_Click()Text1.Text=""EndSub一（2）画一个文本框，将名称设为Text1，（Text属性）设为空白。画一个列表框，将名称设为L1，向列表框中添加项目（List属性），添加的项目分别为“AAAA”、“BBBB”、“CCCC”和“DDDD”，每个项目为一行。双击列表框中的任一项（即运

8、行DblClick事件过程），在DblClick事件过程中加入语句：L1.AddItemText1.Text。二（1）需在该窗体上画二个框架控件，通过其属性窗口将名称分别设为F1