孙俏版VB2-3章答案介绍.docx

1 习题1 1.1题目 新建工程，在名称为FORM1的窗口添加按钮Command1，更改其名称为cmfShow,设置宽度为1500，高度为500，标题为“单击这里”的命令按钮。编写适当的事件过程，使程序运行后，单击该命令按钮，则窗体上显示“欢迎使用Visual Basic进行程序设计”。 1.2代码 Private Sub cmdShow_Click() Print 欢迎使用Visual Basic进行程序设计 End Sub 1.3实验结果 习题2 2.1题目 新建工程，在名称为Form1的窗体上添加两个命令按钮，设置其外观如图2一26(a_)所示。要求程序运行后，单击“靠近我”按钮时，则把右侧按钮移至左侧按钮旁边. 2.2代码 Private Sub Command1_Click() Command2.Left = Command1.Left + Command1.Width End Sub 2.3实验结果 习题3 3.1题目 新建工程，在窗体上添加一个文本框Text1。编写适当的事件过程，使程序运行后，单击Text 1框时，Text1中的内容被全选。 3.2代码 Private Sub Text1_Click() Text1.SelStart = 0 Text1.SelLength = Len(Text1) Text1.SetFocus End Sub 3.3实验结果 习题4 4.1题目 新建工程，在窗体上依次添加3个文本框和3个标签。编写适当的事件过程，使程序运行后，哪个文本框得到焦点，哪个文本框的背景颜色就设置为红色。 4.2代码 Private Sub Text1_Click() Text1.BackColor = vbRed End Sub Private Sub Text1_LostFocus() Text1.BackColor = vbWhite End Sub Private Sub Text2_Click() Text2.BackColor = vbRed End Sub Private Sub Text2_LostFocus() Text2.BackColor = vbWhite End Sub Private Sub Text3_Click() Text3.BackColor = vbRed End Sub Private Sub Text3_LostFocus() Text3.BackColor = vbWhite End Sub 4.3实验结果 1． 先将文本框的Alignment属性设为1-Right Justify。 Private Sub Text1_Change() Text1.SelStart = Len(Text1.Text) Text1.Text = LCase(Text1.Text) End Sub 7. Private Sub Form_Click() 取得用户输入的地址,去空格，方便下一步字符串处理 Addr = InputBox(按照提示格式输入地址, 地址, **区**路，邮编******) Addr = Trim(Addr) 利用字符串查找和子串截取函数，得到区地址 pos = InStr(Addr, 区) district = Left(Addr, pos - 1) 利用字符串查找和子串截取函数，得到路地址 length = InStr(Addr, 路) - InStr(Addr, 区) - 1 road = Mid(Addr, pos + 1, length) 利用子串截取函数，得到邮编 zipcode = Right(Addr, 6) 连接各部分信息，输出 info = district 区 Chr(10) info = info road 路 Chr(10) info = info 邮编 zipcode MsgBox info, vbInformation, 输入地址确认 End Sub 习题5 5.1题目 新建工程，在窗体上添加一个文本框Text1，保证输人焦点在文本框最右侧;在用户输入的同时，将用户输入字母一律转换为小写显示。例如，输人Visual Basic Programming就会显示如图效果 5.2代码 Private Sub Text1_Change() Text1.Alignment = 1 Text1.SelStart = Len(Text1.Text) Text1.SelLength = 1 Text1.Text = LCase(Text1.Text) End Sub 5.3实验结果 习题6 6.1题目 新建工程，在窗体.上添加