vb计算机作业.doc

实 验 二课 程VB程序设计实验项目选择结构程序设计成 绩专业班级石油工程班内序号指导教师王杨姓 名刘文杰学 号1101010325实验日期2012-4-9实验目的：(1) 掌握文本框和命令按钮的常见属性、事件、方法(2) 掌握if选择结构程序设计。(3) 掌握单选按钮和复选框的使用。重点难点：(1) if嵌套结构。(2) 并列if结构与多分支结构的使用。练习实验： 【实验1-1】请按照如下图所示设计界面。要求选中text3时，text2为空，单击“退出”按钮，或者按键盘上“ESC”退出应用程序。实验代码：Private Sub Command1_Click()EndEnd SubPrivate Sub Text1_Click()Text1.Text = Text2.Text = End Sub点击“退出” 把“cancle”改为“true”即对应“esc”键 ” defalt改为“true“即对应“enter”键【实验1-2】请按照下图设计界面。在名称为Form1的窗体上画一个文本框，其名称为Text1，然后通过属性窗口设置窗体和文本框的属性，实现如下功能：a) 在文本框中可以显示多行文本b) 在文本框中显示垂直滚动条c) 文本框中显示的初始信息为“程序设计” d) 文本框中显示的字体为三号规则黑体e) 窗体的标题为“设置文本框属性” 实验提高：1. 在【实验1-1】基础上完善，要求在text3中输入，如果是大写字母就在text2中显示对应的小写字符，如果是小写字母就在text2 中显示对应的大写字母，如果是其他则不变。实验代码：Private Sub Command1_Click()EndEnd SubPrivate Sub Text1_Change() a = Text1.Text For i = 1 To Len(a) b = Mid(a, i, 1) If Asc(b) = 65 And Asc(b) = 97 And Asc(b) = 122 Thenb = (Chr(Asc(b) - 32)Elseb = bEnd Ifc = c & bNext iText2.Text = cEnd SubPrivate Sub Text1_Click()Text1.Text = Text2.Text = End Sub心得体会：2. 界面如图所示，要求单击“复制”按钮，将text1中当前选中项内容，复制到text2 中，单击“移动”按钮，将将text1中当前选中项内容，移动到text2 中实验代码：Private Sub Command1_Click()Text2.Text = Text1.SelTextEnd SubPrivate Sub Command2_Click()Text2.Text = Text1.SelTextText1.SelText = End Sub心得体会：算法是根本3. 界面如图所示，空调2000一台，春秋打9折，夏天不打折，冬天打八折，如果是VIP再打9折，实际消费5000元以上继续打9折。实验代码：Private Sub Command1_Click()a = (Text1.Text)b = 2000If Option1.Value = True Thenb = b * 0.9ElseIf Option2.Value = True Thenb = bElseIf Option3.Value = True Thenb = b * 0.9ElseIf Option4.Value = True Thenb = b * 0.8End IfIf Check1.Value = 1 Then b = b * 0.9Sum = a * bIf Check2.Value = 1 Then b = b * 0.9Sum = Sum * 0.9Text2.Text = Sum End Sub 心得体会：难得弄啊4. 界面如图所示，要求选中不同的单选按钮和复选框，文本框中按照对应选项进行设置。实验代码：Private Sub Form_Click()If Option1.Value = True ThenText1.FontSize = 18ElseIf Option2.Value = True ThenText1.FontSize = 24ElseText1.FontSize = 36End IfIf Check1.Value = 1 Then Text1.FontBold = TrueIf Check2.Value = 1 Then Text1.FontItalic = TrueIf Check3.Value = 1 Then Text1.FontUnderline = TrueEnd Sub心得体会：实验进阶：1. 界面如图所示，在上面文本框中输入10个字母，要求单击命令按钮后，对其进行加密，在下面文本框中显示每一个字母的后面一个字母。例如上面输入“abcdefghij”,下面显示“bcdefghijk”。实验代码：Private Sub Command1_Click()a =