资源描述：
《上机程序指导》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、上机程序指导上机程序考试类型：1.基木数据类型及处理考生应熟悉自定义数据类型的应用、表达式的执行顺序、常用字符串函数和数组的使用。2.数据的输入输出及对话框的应用考生应熟悉数据输入输出的基本方法和简单对话框的编写。3.VisualBasic基本控件的应用考生应熟悉窗体的属性、事件和方法，熟悉各种控件的属性、事件和方法4.VisualBasic的控制结构及函数设计考生应熟悉累加和累乘运算、数组元素的赋值、数组元素的排序、数组元素的交换。5.菜单设计及键盘鼠标的使用考牛应熟悉标准式菜单和弹出式菜单的设计，熟悉键盘、鼠标事件的设计。6.文件操作考生应熟悉关于顺序文件的打开与读
2、写的程序设计。一、控件的属性与事件(由自己完善)1.文木控件(1)标签(2)文本框2.图形控件(1)图片框(2)图象框(3)直线(4)形状3.按钮控件4.选择控件(1)复选框(2)单选按钮5.选择控件(1)列表框(2)组合框1.滚动条2.记时器3.框架4.焦点和Tab顺序二、常见程序设计模式'累加与累乘运算PrivateSubFomi_Click()，累加运算Sum=0Fori=1To100Sum=Sum+iNextiPrintsumEndSub又如，PrivateSubForml_Click，累乘运算Sum=1Fori=2To10Sum=Sum*iNextiEndSu
3、b'字符输出：输出数字“0〜9”，大写字母“A〜Z”以及小写字母“ar”PrivateSubForm_Click()c=°0uPrintc;Fori=1To9c=Chr(Asc(c)+1)Printc;Nextc=“A”Print:Printc;Fori=1To25c=Chr(Asc(c)+1)Printc;Nextc=uanPrint:Printc;Fori=1To25c=Chr(Asc(c)+1)Printc;NextEndSub'统计符号类别：统计某一给定字符串中数字、大写字母、小写字母的个数PrivateSubForm_Click()DimtextAsStrin
4、g,lgthAsInteger,cAsStringDimdAsInteger,xAsInteger,sAsIntegertext=InputBox(n请输入任意字符串：")Igth=Len(text)Fori=1Tolgthc=Mid(text,i,1)Ifc>=“()“Andcv=“9“Thens=s+1Elselfc>=”A"Andc<=”Z”Thend=d+1Elselfc>=nanAndcv=”z”Thenx=x+1EndIfNextiPrint"数字个数：“&sPrint"大写字母个数：”&dPrint"小写字母个数：”&xEndSub'二维数组的初始化Opt
5、ionBase1PrivateSubForm_Click()DimA1(2,3)AsSingleFori=1To2Forj=1To3Al(i,j)=InputBox(H输入b(”&i&T&j&“)的值“)PrintA1(i,j);NextjPrintNextiEndSub'数组元素的复制OptionBase1PrivateSubForm_Click()DimAlDimA2(10)AsIntegerAl=Array(l,2,3,4,5,6,7,8,9,10)Fori=1To10A2(i)=Al(i)PrintA2(i);NextiEndSub，求最小、最人值OptionB
6、ase1PrivateSubForm_Click()DimMinAsInteger,MaxAsIntegerAl=Array(35,23,96,12,78)Max=Al(l)Min=Al(l)Fori=1To5IfAl(i)MaxThenMax=Al(i)NextiPrint”最小值为：”&Min&“,最大值为：”&MaxEndSub'数纽元索的移动：将数纽的第一个元索移动至数纽末尾OptionBase1PrivateSubForm_Click()DimAlAl=Array(l,2,3,4,5,6,7,8,9,10)Fi
7、rst=A1(1)Fori=2To10Al(i-l)=Al(i)NextiAl(10)=FirstFori=1To10PrintAl(i);NextiEndSub，数组元索的交换：将数组的第1个元索与最后一个元素交换，第2个元索与倒数第2个元素交换，以此类推。OptionBase1PrivateSubForm_Click()DimAlAl=Array(1,2,3,4,5,6,7,&9,10)Printn交换前：“;Fori=1To1()PrintAl(i);NextiFori=1To102t=Al(i)Al(i)=Al(10-i+1)A
