资源描述：
《从0开始学习VB(逢考必过)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、第三章顺序结构程序设计本章主要内容3.1VB语法和注释3.2语句和函数3.3使用基本控件3.4使用定时器控件3.5调试VB程序Wednesday,September15,20211DimRain例3.1使用转换函数的示例(留给学生分析)PrivateSubForm_Click() x="123"y=123 a=Chr(Asc(x)+5) b=Str(Val(x)+5) c=Val(Str(y)+“5”) Printa,b,c EndSub运行程序后单击窗体，输出结果如下：61281235Wednesday,September15,20212DimRa
2、in编写的窗体单击事件过程代码如下：PrivateSubForm_Click()DimxAsInteger,aAsIntegerDimbAsInteger,cAsIntegerx=36a=Int(x/10)'求十位数b=xMod10'求个位数c=b*10+a'生成新的数Print"处理后的数:";cEndSub运行程序后单击窗体，输出结果是：例3.2给定一个两位正整数(如36)，要求交换个位数和十位数的位置，把处理后的数显示在窗体上处理后的数：63Wednesday,September15,20213DimRain编写的窗体单击事件过程代码如下：Pr
3、ivateSubForm_Click()DimaAsInteger,bAsInteger,cAsIntegerRandomize'初始化随机数生成器a=Int(90*Rnd+10)'产生[10,99]区间内的随机整数b=Int(90*Rnd+10)c=a+b'求两数之和Print"产生的两个随机数:";a,bPrint"和数:";cEndSub运行程序后单击窗体，输出结果是：产生的两个随机数：5671和数：127例3.3通过随机函数产生2个两位正整数，求这2个数之和并显示再次运行程序，单击窗体后输出另一组结果是：产生的两个随机数：1837和数：55W
4、ednesday,September15,20214DimRain(1)在窗体上建立1个标签（Label1）和3个命令按钮(Command1、Command2和Command3)三个命令按钮分别用访问键Alt+C、Alt+H和Alt+D(2)编写程序代码PrivateSubForm_Load()RandomizeLabel1.BackColor=QBColor(15)'背景色Label1.ForeColor=QBColor(0)'文字颜色Label1.FontSize=18'字体大小EndSub例3.4实现标签的显示和隐藏，以及改变文字的颜色Wedn
5、esday,September15,20215DimRainPrivateSubCommand1_Click()'“改变文字颜色”按钮Clr=Int(15*Rnd)'产生随机颜色码Label1.ForeColor=QBColor(Clr)EndSubPrivateSubCommand2_Click()'“隐藏标签”按钮Label1.Visible=False'隐藏标签EndSubPrivateSubCommand3_Click()'“显示标签”按钮Label1.Visible=True'显示标签EndSubWednesday,September15,
6、20216DimRain使用一个临时单元变量(t)(1)建立两个标签、两个文本框和一个命令按钮(2)编写程序代码PrivateSubCommand1_Click()´“交换”按钮t=Text1.TextText1.Text=Text2.TextText2.Text=tEndSub例3.5交换显示两个文本框的内容Wednesday,September15,20217DimRain在第一个文本框中输入文字时，在另外两个文本框中显示同样相同的内容，但显示的字号和字体不同。单击“清除”按钮时则清除三个文本框中的内容例3.6在三个文本框中显示不同的文字效果(1
7、)建立应用程序的用户界面和设置对象属性Wednesday,September15,20218DimRain(2)编写程序代码PrivateSubForm_Load()Text2.FontName="隶书"Text2.FontSize=16Text3.FontName="楷体_GB2312"Text3.FontSize=20EndSubPrivateSubText1_Change()Text2.Text=Text1.TextText3.Text=Text1.TextEndSubPrivateSubCommand1_Click()'“清除”按钮Text1
8、.Text=“”'清除文本框Text1的内容Text2.Text=""'清除文本框Text2的内容Text3
