VB编程题005.doc

《VB编程题005.doc》由会员分享，可在线阅读，更多相关《VB编程题005.doc（4页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、1、 随机显示3*3的数组（010之间），求所有元素之和及对角线6个元素之和。2、 程序界面中，设置Text3可多行显示，有内容。程序运行时，在Text1中输入要查找的内容，Text2中输入要替换的内容。由单选按钮确定替换第一个还是全部替换。3、 创建菜单如下图的菜单：操作-清除-复制 (名称分别为：M1、Clear、Copy)。要求：单击“复制”按钮，将Text1的内容全部复制到Text2中；单击“清除”按钮，则清空Text2。4、 加密程序：根据单选按钮的数字，将明文中每个字母改为其后第n个字母。5、 窗体上有两个列表框List1和List2，List2中有若干项目。要求：选中List2一

2、个项目，单击“添加”，则把该项目添加到List1中，同时在List2中删除；选中List1一个项目，单击“清除”，则把该项目移回List2中。6、 1)设置图像框的初始大小Height为1500，width为2000；2)窗体的最大化，最小化按钮不可见；3)单击缩小按钮，图像框的大小缩小300，即Height和width分别减少300；4)单击放大按钮，图像框的大小增加500，即Height和width分别增加500；5)按回车键相当于按“放大”按钮；6)按“Esc”键相当于按“缩小”按钮；注意：控件的初始属性必须通过属性窗口来设置，否则不给分。7、 Text1或Text2无内容时，“剪切”和

3、“复制”按钮不可用，否则将内容复制或剪切到Text3。Text3无内容时，“粘贴”按钮不可用，否则将Text3粘贴到光标所在的文本框中(Text1或Text2)。完善下面的程序。Dim which%Private Sub Text1_GotFocus() which = 1End SubPrivate Sub Text2_GotFocus() which = 2End SubPrivate Sub Copy_Click()If which = 1 Then Text3 = Text1ElseIf which = 2 Then Text3 = Text2End IfEnd SubPrivate

4、Sub Cut_Click() 自编代码End SubPrivate Sub Edit_Click() If which = 1 Then If Text1 = Then 自编代码 End If ElseIf which = 2 Then If Text2 = Then 自编代码 End If End If If Text3 = Then 自编代码 End IfEnd SubPrivate Sub Paste_Click()If which = 1 Then Text1 = Text1 + Text3ElseIf which = 2 Then Text2 = Text2 + Text3End

5、IfEnd Sub8、创建二级菜单，文件-新建/保存/打开（名称分别为：VbFile、VbNew、VbOpen、VbSave），以及帮助(名称为VbHelp)。选中“文件”菜单下的某个二级菜单，用Msgbox显示菜单的标题。9、 1）程序运行时，Combo中有若干选项，命令按钮“确定”不可用；2）选中Combo中某个项目，单击“修改”按钮，则将该项目复制到Text1中，“确定”按钮变为可用；3）修改Text1中内容，单击“确定”按钮将修改过的Text1替换组合框中原有的内容，“确定”按钮不可用；4）单击“添加”按钮，将Text1中的内容添加到组合框中。10、单击“读入”按钮，将当前目录下的in

6、.txt中的内容读入到Text1中；单击“转换”按钮，把Text1中的大写字母转换为小写字母，小写字母转换为大写字母，并显示在Text2中；单击“写入”按钮，把Text2中的内容写入“out.txt”文件中。11、 窗体有一个文本框Text1，一个图形框P1和三个命令按钮。单击“读入”按钮，则将当前目录下的in.txt中的内容读入到Text1中,Text1要求能多行显示；单击“统计”按钮，则统计Text1中字母i，j，k，l，m，n(不区分大小写)出现的次数，并将结果显示在图形框P1中；单击“存盘”按钮，则把结果写入“out.txt”文件中。12、 窗体上有两个文本框和两个按钮。在Text1中输入40，单击“计算”按钮，计算数列1，1，2，3，5，8，13，.第40项的值，并显示在Text2中；单击“存盘”按钮则把结果写入out.txt中。13、 如下图界面。单击“取数”按钮，将文件in.txt读到数组a。并显示到窗体中的List框中。在Text1中输入一个名字或姓氏，将找到的显示在Text2中，否则显示找不到。