vb程序编程PPT文档格式.pptx
- 文档编号:14329487
- 上传时间:2022-10-22
- 格式:PPTX
- 页数:71
- 大小:1.13MB
vb程序编程PPT文档格式.pptx
《vb程序编程PPT文档格式.pptx》由会员分享,可在线阅读,更多相关《vb程序编程PPT文档格式.pptx(71页珍藏版)》请在冰豆网上搜索。
30在明理楼B412第四周周六下午2:
30在思学楼C304第四周周日上午8:
30在思学楼C304,考点9滚动条,一、滚动条属性
(1)Min、Max:
最小、最大值
(2)Value:
滚动条当前位置值(3)SmallChange:
用于设置单击滚动条两端箭头时Value值的改变。
(4)LargeChange:
用于设置单击滚动条中滚动框前(后)部位时Value值的改变。
二、滚动条事件与滚动条有关的事件主要是Scroll和Change。
考点4直线和形状,属性X1,Y1和X2,Y2分别表示直线两个端点的坐标。
BorderColor,BorderStyle,BorderWidthBackStyle,FillColor,FillStyleShape:
设置控件的外观形状,题型一:
大小写转换题型二:
单词的操作题型三:
统计某些字母的个数题型四:
替换题型五:
加密解密题型六:
反向显示题型七:
字符删除,专题字符串,字符串操作函数LCase、UCaseMid(s$,p,n)LenAsc、Chr,题型一:
大小写转换,上机教程P175-真题13.1,运行时,在Text1中输入若干个大写和小写字母,并选中一个单选按钮,再单击“转换”按钮,则按选中的单选按钮的标题进行转换,结果放入Text2(如图所示)。
题型二:
单词的操作,判断单词的关键在于判断空格,因为单词与单词之间用空格隔开。
单词的操作,上机教程P178-真题13.3,程序运行后,在文本框中输入一个英文句子(由多个单词组成,各单词之间仅用一个空格分开),然后单击命令按钮,程序将把该英文句子分解为单词,并把每个单词作为一个项目添加到列表框中,如图所示。
单词的操作,上机教程P180-真题13.4,提醒:
需注意最后一个单词的处理,将读入的数据进行统计,求每个单词的长度,并将所有单词的平均长度(四舍五入取整)显示在Text1文本框内,将最长单词的长度显示在Text2文本框内,题型三统计字母的个数,上机教程P181-真题13.5,统计in5.dat文件中所含各字母(不区分大小写)的出现的次数,并将出现次数最多的字母显示在Text1文本框内,它所出现的次数显示在Text2文本框内。
题型三统计字母的个数,捷成51-5,在Text1文本框中选中内容后,单击“统计”按钮,则统计选中文本中出现次数最多的字母(不区分大小写),以大写形式在Text2文本框内显示这些出现次数最多的字母。
题型四:
加密解密,加密操作主要是将有意义的字句根据某种规则(一般是用其他字母代替)变成无意义的字句,所以一般的操作是取出每个字符按规则进行转换,再把转换后的连接起来作为加密后的字符串。
而解密是加密操作的逆运算。
加密规则:
对于第奇数个字符,若是字母,则把它变为它后面的字符(若为Z则变为A),不是字母则不变;
对于第偶数个字符,若是字母,则把它变为它前面的字符(若为A则变为Z),不是字母则不变。
大小写字母都遵循此规则。
题型五:
反向显示,将字符串倒序连接,方法类似于判定回文。
20套-5:
判断回文,写函数,提示:
删除字符其实就是字符的查找,也需要一个字符一个字符的取出来进行判断,如果是需要删除的字符,就不进行连接,否则就连接到字符串变量中,题型六:
删除字符,题型七替换,首先是找到要被替换的字母,在该条件下进行替换,由于是替换,所以一般需要用一个变量做连接,如不是被替换的字符,就直接连接,如果是替换的字符就连接替换字符,最后把该变量的值赋值给文本框显示出现。
程序运行时,在Text1、Text2中输入文字,单击“替换”按钮,则在Text3中找到Text1中的内容,并用Text2中的内容替换,若未找到,则不替换。
此外窗体上还有两个单选按钮,名称依次为Option1、Option2,标题依次为“第1个”和“全部”。
程序运行后,若Option1被选中,则只替换Text3中第一个匹配的字串,若Option2被选中,则替换Text3中所有匹配的字串。
笔试真题出现的字符串操作题,1.下面程序运行时,若输入“VisualBasicProgramming”,则在窗体上输出的是_。
(2010年3月选择题35题)PrivateSubComand1_Click()Dimcount(25)AsInteger,chAsStringch=Ucase(InputBox(请输入字母字符串)Fork=1ToLen(ch)n=Asc(Mid(ch,k,1)-Asc(A)Ifn=0Thencount(n)=count(n)+1EndIfNextkm=count(0)Fork=1To25Ifmcount(k)Thenm=count(k)EndIfNextkPrintmEndSub,(A)0(B)1(C)2(D)3,2.在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:
(2008年9月填空题7题)PrivateSubCommand1_Click()a$=”NationalComputerRankExamination”n=Len(a$)s=0Fori=1Tonb$=Mid(a$,i,1)Ifb$=”n”Thens=s+1EndifNextiPrintsEndSub程序运行后,单击命令按钮,输出结果是【1】。
3.本程序实现文本加密。
先给定序列:
a1,a2,an,它们的取值范围是1n,且互不相同。
加密算法是:
把原文中第k个字符放到加密后文本的第ak个位置处。
若原文本长度大于n,则只对前n个字符加密,后面的字符不变;
若原文长度小于n,则在后面补字符“*”使文本长度为n后再加密。
(2009年3月填空题9题)例如:
若干给定序列a1,a2,a7分别为2,5,3,7,6,1,4当文本为“PROGRAM”时,加密后的文本为“APOMRRG”当文本为“PROGRAMMING”时,加密后的文本为“APOMRRGMING”当文本为“THANK”时,加密后的文本为“*TA*HKN”下面的过程code实现这一算法。
其中参数数组a()中存放给定序列(个数与数组a的元素个数相等)a1,a2,a3,的值,要加密的文本放在参数变量mystr中。
过程执行完毕,加密后的文本仍放在变来那个mystr中。
请填空。
OptionBase1PrivateSubcode(a()AsInteger,mystrAsString)DimchAsString,c1AsStringn=UBound(a)-Len(mystr)Ifn0Thenmystr=mystr&
String$(n,*)EndIfch=mystrFork=【1】ToUBound(a)c1=Mid(mystr,k,1)n=【2】Mid$(ch,n)=c1Nextkmystr=chEndSub,4.设窗体上有一个文本框Text1和一个命令按钮Command1,并有以下事件过程:
(2008年4月选择题33题)PrivateSubCommand1_Click()DimsAsString,chAsStrings=Fork=1ToLen(Text1)ch=Mid(Text1,k,1)s=ch+sNextkText1.Text=sEndSub程序执行时,在文本框中输入“Basic”,然后单击命令按钮,则Text1中显示的是。
(A)Basic(B)cisaB(C)BASIC(D)CISAB,5.在窗体上画一个命令按钮和一个文本框,然后编写命令按钮的Click事件过程。
程序运行后,在文本框中输入一串英文字母(不区分大小写),单击命令按钮,程序可找出未在文本框中输入的其他所有英文字母,并以大写方式降序显示到Text1中。
例如,若在Text1中输入的是abDfdb,则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。
(2005年9月填空题7题)PrivateSubCommand1_Click()DimstrAsString,sAsString,cAsStringstr=UCase(Text1)s=c=ZWhilec=AIfInStr(str,c)=0Thens=【1】EndIfc=Chr$(Asc(c)
【2】)WendIfsThenText1=sEndIfEndSub,考点10计时器,一、属性Name和Enabled与其它控件相同。
但它还有一个自己独有的属性:
Interval:
用于设置计时器事件之间的时间间隔,单位为毫秒,取值范围为065535。
由于受系统时钟周期18.5次/秒的限制,一般不要小于50。
二、事件计时器支持Timer事件,在时间间隔到时自动触发.,计时器:
Interval以毫秒为单位,计时器只有在Enabled为True,且Interval非0时才计时,上机教程P93-真题7.6,【例】捷成48-3,程序的功能是在运行时,单击“开始计数”按钮,就开始计数,每隔1秒,文本框中的数加1;
单击“停止计数”按钮,则停止计数(如图所示)。
要求:
修改适当的控件的属性,补充程序完整。
上机真题,【例】捷成5-5,窗体上有两个图片框,名称为P1、P2,分别用来表示信号灯和汽车,其中在P1中轮流装入“黄灯.ico”、“红灯.ico”、“绿灯.ico”文件来实现信号灯的切换;
还有两个计时器Timer1和Timer2,Timer1用于变换信号灯,黄灯1秒,红灯2秒,绿灯3秒;
Timer2用于控制汽车向左移动。
运行时,信号灯不断变换,单击“开车”按钮后。
汽车开始移动,如果移动到信号灯前或信号灯下,遇到红灯或黄灯,则停止移动,当变为绿灯后再继续移动。
上机真题,捷成71-4(新增题),窗体上有一个由8个图片框控件组成的控件数组、2个命令按钮和1个计时器控件。
运行程序时,只显示下标为0的图片框控件数组元素,其它图片框均不显示。
单击“开始”按钮,数组中的图片框自左至右依次显示,时间间隔为0.5秒,产生月亮从左向右移动的效果。
月亮移到右端后再从左端重新开始。
单击“停止”按钮,月亮停止移动。
P148多重窗体程序设计与环境应用,与多重窗体程序设计有关的语句和方法
(1)Load语句格式:
Load窗体名称
(2)Unload语句格式:
Unload窗体名称(3)Show方法格式:
窗体名称.Show模式(4)Hide方法格式:
窗体名称.Hide,P159-鼠标事件,一、鼠标事件Sub对象名_鼠标事件(ButtonAsInteger,_ShiftAsInteger,xAsSingle,yAsSingle)压下鼠标键事件过程MouseDown松开鼠标键事件过程MouseUp移动鼠标光标事件过程MouseMove,1)Button为按下的鼠标键。
2)ShiftShift、Ctrl、Alt键的状态。
3)x、y鼠标光标的当前位置坐标。
课堂练习,有一个名称为Form1的窗体,上面没有控件,设有以下程序(其中方法Pset(X,Y)的功能是在坐标X,Y处画一个点):
DimcmdmaveAsBooleanPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 程序 编程