vb计算机作业

vb计算机作业

实验二课程VB程序设计实验项目选择结构程序设计成绩专业班级石油工程班内序号指导教师王杨姓名刘文杰学号1101010325实验日期2012-4-9实验目的：(1)掌握文本框和命令按钮的常见属性、事件、方法(2)掌握if选择结构程序设计。(3)掌握单选按钮和复选框的使用。重点难点：(1)if嵌套结构。(2)并列if结构与多分支结构的使用。练习实验：【实验1-1】请按照如下图所示设计界面。要求选中text3时，text2为空，单击“退出”按钮，或者按键盘上“ESC”退出应用程序。实验代码：PrivateSubCommand1_Click()EndEndSubPrivateSubText1_Click()Text1.Text=""Text2.Text=""EndSub\n点击“退出”把“cancle”改为“true”即对应“esc”键”defalt改为“true“即对应“enter”键【实验1-2】请按照下图设计界面。在名称为Form1的窗体上画一个文本框，其名称为Text1，然后通过属性窗口设置窗体和文本框的属性，实现如下功能：a)在文本框中可以显示多行文本b)在文本框中显示垂直滚动条c)文本框中显示的初始信息为“程序设计”d)文本框中显示的字体为三号规则黑体e)窗体的标题为“设置文本框属性”实验提高：1.在【实验1-1】基础上完善，要求在text3中输入，如果是大写字母就在text2中显示对应的小写字符，如果是小写字母就在text2中显示对应的大写字母，如果是其他则不变。实验代码：PrivateSubCommand1_Click()EndEndSub\nPrivateSubText1_Change()a=Text1.TextFori=1ToLen(a)b=Mid(a,i,1)IfAsc(b)>=65AndAsc(b)<=90Thenb=(Chr((Asc(b)+32)))ElseIfAsc(b)>=97AndAsc(b)<=122Thenb=(Chr((Asc(b)-32)))Elseb=bEndIfc=c&bNextiText2.Text=cEndSubPrivateSubText1_Click()Text1.Text=""Text2.Text=""EndSub心得体会：1.界面如图所示，要求单击“复制”按钮，将text1中当前选中项内容，复制到text2中，单击“移动”按钮，将将text1中当前选中项内容，移动到text2中实验代码：PrivateSubCommand1_Click()Text2.Text=Text1.SelText\nEndSubPrivateSubCommand2_Click()Text2.Text=Text1.SelTextText1.SelText=""EndSub心得体会：算法是根本1.界面如图所示，空调2000一台，春秋打9折，夏天不打折，冬天打八折，如果是VIP再打9折，实际消费5000元以上继续打9折。实验代码：PrivateSubCommand1_Click()a=(Text1.Text)b=2000IfOption1.Value=TrueThenb=b*0.9ElseIfOption2.Value=TrueThenb=bElseIfOption3.Value=TrueThenb=b*0.9ElseIfOption4.Value=TrueThenb=b*0.8EndIfIfCheck1.Value=1Thenb=b*0.9Sum=a*bIfCheck2.Value=1Thenb=b*0.9\nSum=Sum*0.9Text2.Text=SumEndSub心得体会：难得弄啊1.界面如图所示，要求选中不同的单选按钮和复选框，文本框中按照对应选项进行设置。实验代码：PrivateSubForm_Click()IfOption1.Value=TrueThenText1.FontSize="18"ElseIfOption2.Value=TrueThenText1.FontSize="24"ElseText1.FontSize="36"EndIfIfCheck1.Value=1ThenText1.FontBold=TrueIfCheck2.Value=1ThenText1.FontItalic=TrueIfCheck3.Value=1ThenText1.FontUnderline=TrueEndSub心得体会：\n实验进阶：1.界面如图所示，在上面文本框中输入10个字母，要求单击命令按钮后，对其进行加密，在下面文本框中显示每一个字母的后面一个字母。例如上面输入“abcdefghij”,下面显示“bcdefghijk”。实验代码：：PrivateSubCommand1_Click()a=Text1.TextFori=1ToLen(a)b=Mid(a,i,1)c=Chr(Asc(b)+1)d=d&cNextiText2.Text=dEndSub心得体会：写给老师的话：