vb综合实验.docx

vb综合实验

第一篇：vb综合实验综合性实验实验名称:关闭标题包含指定字符的所有窗口专业班级:学生姓名：学号：指导教师：需求分析：关闭标题包含指定字符的所有窗口，使我们能更方便的关闭很多窗口，避免了一个一个关闭的麻烦运行环境：WINDOWSXP系统；VB6.0；3开发工具和编程语言VisualBasic6.0语言；4系统设置：下例程序运行后，单击按钮关闭标题包含“记事本”的所有窗口'在窗体上放置3个控件，所有控件无需设置任何属性，全部采用默认设置：'Command1，Label1，Text1PrivateDeclareFunctionFindWindowExLib“user32”Alias“FindWindowExA”(ByValhWnd1AsLong,ByValhWnd2AsLong,ByVallpsz1AsString,ByVallpsz2AsString)AsLongPrivateDeclareFunctionPostMessageLib“user32”Alias“PostMessageA”(ByValhWndAsLong,ByValwMsgAsLong,ByValwParamAsLong,ByVallParamAsLong)AsLongPrivateDeclareFunctionGetWindowTextLib“user32”Alias“GetWindowTextA”(ByValhWndAsLong,ByVallpStringAsString,ByValcchAsLong)AsLongPrivateSubForm_Load()'设置控件初始状态，实际可以在窗体设计阶段完成DimSAsSingleMe.Caption=“关闭指定窗口”:Text1.Text=“记事本”Label1.AutoSize=True:Label1.Caption=“窗口标题包含的字符：”Command1.Caption=“关闭指定窗口”S=Label1.HeightLabel1.MoveS,SText1.MoveS+Label1.Width,S*0.5,S*8,S*2Command1.MoveS,S*3,S*8,S*2EndSubPrivateSubCommand1_Click()DimhWndsAsLong,nCapAsString,nFindAsStringDimSAsLong,S1AsLong,nLong()AsLong,nCountAsLongS=255:nFind=Text1.TextDohWnds=FindWindowEx(0,hWnds,vbNullString,vbNullString)IfhWnds=0ThenExitDonCap=String(S+1,“”)GetWindowTexthWnds,nCap,SS1=InStr(nCap,Chr(0))IfS1>0ThennCap=Left(nCap,S1-1)IfInStr(nCap,nFind)>0Then'PostMessagehWnds,&H10,0,0'不在这里发送关闭消息，是为了防止漏查nCount=nCount+1ReDimPreservenLong(1TonCount)nLong(nCount)=hWndsEndIfLoopForS=1TonCountPostMessagenLong(S),&H10,0,0'发送关闭窗口消息DoEventsNextEndSub5参考文献：龚培增，杨志强VisualBasic程序设计教程（第二篇：VB综合实验7_08_09VB程序设计基础综合性实验（七）－数组（班级：学号：姓名：）该综合实验是在学生完成前面的实验，初步掌握顺序结构、选择结构和循环结构的程序设计方法。在此基础上，通过本次综合实验掌握数组的声明和数组元素的引用，掌握固定数组和动态数组的使用方法。1．实验目的通过本次综合实验掌握数组的声明和数组元素的引用，掌握固定数组和动态数组的使用方法，学会利用数组解决一些较为复杂的问题。2．实验内容1）创建一个应用程序，要求：用随机数产生10个整数（其取值范围为1~100），存放在数组x中，查找x数组中的最大元素及最小元素，并将最大元素及最小元素分别与数组的第1个和最后一个元素交换，分别输出x数组交换前后各元素的值。2）读入10个整数到a[10],然后输入一个整数m,(设数组a中各元素均不相同且m一定在a中),将与m相等的元素放置到数组的最后位置，其它元素的相对位置保持不变，输出数组。3．实验要求：1）．掌握数组的声明和数组元素的引用；2）．掌握固定数组和动态数组的使用方法；4．实验报告的要求1）实验目的根据教材和和课堂学习的知识要点，列出本次实验要达到的目的。2）实验内容描述实验的具体内容，包括实验题目要求、实验过程和步骤。3）设计