VB程序设计_[代码+图框].doc

Visual Basic 程序设计 华中师范大学1、(4.17)在窗体上画两面画二个命令按钮和一个标签，把两个命令按钮的标题分别设置为“缩小”和“扩大”；把标签的AutoSize属性设置为True，标题设置为“VB程序设计”。程序运行后，如果单击第一个命令按钮，则可使标签中标题的字体缩小1.2倍;如果单击第二个命令按钮,则可使标签中标题的字体大小扩大1.2倍. 以下为程序运行及截图（图1-2）： 图1 图2 Private Sub Command1_Click()Label1.FontSize = Label1.FontSize / 1.2End SubPrivate Sub Command2_Click()Label1.FontSize = Label1.FontSize * 1.2End Sub说明：图一是点“放大”按扭是所触发的结果，图二是“点缩“小按扭所触发的结果。2.（4.9）编写程序，求解鸡兔同笼问题。一个笼子中有鸡x只，兔y只，每只鸡有2只脚，每个兔有4只脚。今知鸡和兔的总头数为h，总脚数为f。问笼中鸡和兔各若干？程序运行代码如下，截图如右（图3-4）Private Sub Command1_Click()Dim x As Single, y As Single, h As Single, f As Single h = Val(Text1.Text) f = Val(Text2.Text) y = (f - 2 * h) / 2 x = (4 * h - f) / 2 图3 h = x + y f = 2 * x + 4 * y Text3.Text = Str(x) Text4.Text = Str(y)End SubPrivate Sub Text1_GotFocus()Text1.SelStart = 0Text1.SelLength = Len(Text1.Text) End SubPrivate Sub Text2_GotFocus() Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text)End SubPrivate Sub Text1_Change() Text3.Text = Text4.Text = End SubPrivate Sub Text2_Change() 图4 Text3.Text = Text4.Text = End Sub此程序设计思路：此程序中，我用到了GotFocus 与Change事件（如粗体部分），引用GotFocus的目的是在激活相关的Text文本框时，该文本框获得焦点，输入的字符将从第一个字符开始输出；引用Change事件时，若texe1与text2内容发生变化时，对应的text3,text4的输出内容将显示为空白。另外我将Text3,与Text4（也就是“鸡的只数”，“兔的只数”两个对应的控键）的Locked属性设置为True,这样在运行后，其显示的数字将琐定，不能被修改。 3（6.1）编写程序，计算1+2+3+4+97+98+99+100。程序运行代码如下，截图如右（图5-6）Private Sub Form_Click() Dim a As Single, sum As Single sum = Val(Text1.Text) a = 1 sum = 0 图5 For a = 1 To 100 Step 1 sum = sum + a Text1.Text = Str(sum) Next a End Sub 图64（4.3）从键盘上输入4各数，编写程序，计算并输出这4各数的和及平均值。通过InputBox函数输入数据，在窗体上显示和及平均值。程序运行代码如下，截图如右（图7-8）Private Sub Form_Click()Dim a As Single, b As Single, c As Single, g As Single, s As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) d = Val(Text4.Text) g = a + b + c + d s = (a + b + c + d) / 4 Text5.Text = Str(g) Text6.Text = Str(s) EndSub 图7Private Sub Text1_GotFocus() Text1.SelStart=0 Text1.SelLength = Len(Text1.Text) End SubPrivate Sub Text2_GotFocus() Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text) End SubPrivate Sub Text3_GotFocus() Text3.SelStart = 0 Text3.SelLength = Len(Text3.Text) End SubPrivate Sub Text4_GotFocus() 图8 Text3.SelStart = 0 Text3.SelLength = Len(Text4.Text) EndSub Private Sub Text1_Change() 当text1，text2，text3，text3 中任意一数据发生变化时text5，text6 Text5.Text = 文本框中将以空白显示，请看图二 Text6.Text = End SubPrivate Sub Text2_Change() Text5.Text = Text6.Text = End SubPrivate Sub Text3_Change() Text5.Text = Text6.Text = End SubPrivate Sub Text4_Change() Text5.Text = Text6.Text = End Sub5（4.10） 设a5，b2.5，c7.8，编程序计算：y=a*b*PI/（a+b*c）程序运行代码如下，截图如（图9-10）Private Sub Form_Click() Dim a As Single, b As Single, c As Single, y As Single Const PI = 3.14159 Caption = 文本框输入输出 图9 a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) y = a * b * PI / (a + b * c) Text4.Text = Str(y) End Sub 图106、（4.16）在窗体上画一个标签（标题为“口令”）、两个文本框（初始内容均为空白）和3个命令按钮（标题分别为“显示按钮”、“隐藏口令”、“复制口令”）。程序运行后，如果在Text1中输入字符，则都显示为“*”；如果单击“显示口令”命令按钮，则在Text1中显示实际的字符；如果单击“隐藏口令”命令按钮，则Text1中的字符不变，但都显示为“？”；如果单击“复制口令”命令按钮，则把Text1中的实际内容复制到Text2中。程序运行结果如下，截图如右（图11-14）Private Sub Text1_Change()Text1.PasswordChar = *End SubPrivate Sub Command1_Click() Text1.PasswordChar= 图11End SubPrivate Sub Command2_Click()Text1.PasswordChar = ?Text2.Text = End SubPrivate Sub Command3_Click()Text2.Text = Text1.TextText1.PasswordChar = *End Sub 图12 解题思路：次题中用到change事件，用来实现：text1框中的字符发生变化时所触发的程序。，Text1.PasswordChar = * 用来将口令输入的属性变为“*”，即输入的对应的字符以“*”的形式显示。图11：为运行后初始输入字符时的显示状态（输入的字符均外在显示为“*”）图12：为鼠标点击“显示口令”时，“口令”显示真实的字符（此时的text2中不显示任何字符）用Text2.Text = 实现 图13图13：为鼠标点