vb精品资料.docVIP

YY精品资料（ZQ科技出版社） VB课后题编程详解 （1）完成例1-1，并保存工程文件为ex01.vbp，窗体名为LT01-01.frm。运行程序，输入一些数据试运行验证运行结果。 Private Sub Command1_Click() Label2.Caption = Text1.Text ！欢迎您进入VB世界！ End Sub Private Sub Command2_Click() End End Sub （2）完成课本第20页上的设计题 Private Sub Command1_Click() Label1.Caption = 欢迎使用VB6.0 End Sub Private Sub Command2_Click() Label1.Caption = 欢迎进入VB世界！ End Sub Private Sub Command3_Click() End End Sub （3）设计一个程序，在文本框中输入一个角度，用4个标签分别输出其正弦、余弦、正切、余切值。 Private Sub Command1_Click() Dim x!, a!, b!, c!, d! Const pi = 3.1415926 x = Val(Text1.Text) a = Sin(x * pi / 180) b = Cos(x * pi / 180) c = Tan(x * pi / 180) d = 1 / c Label2.Caption = 正弦值： a Label3.Caption = 余弦值： b Label4.Caption = 正切值： c Label5.Caption = 余切值： d End Sub （4）自行设计实习，检测如果向一个文本框中输入一个字符时，KeyDown和KeyPress事件谁先被触发。写出检测方案、代码及结果。 检测方案：因为keycode与keyascii分别由keydown和keypress触发，所以将两个事件加载到同一个文本框下，在文本框中输入一个两种操作都能捕捉的的字符，看那条语句先执行（在上的先执行）。 Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print 你按下的键是; Chr(KeyCode); KeyCode为; KeyCode End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Print 你输入的键是; Chr(KeyAscii); ASCII码为; KeyAscii End Sub Keycode首先显示Ascii后显示，所以Keydown事件先于Keypress事件发生。 （5）在工程中添加一个窗体，将该窗体设置为启动窗体，窗体上添加3个命令按钮，其中，分别写入代码“Form1.Show”、“Form2.Show” 、“Form3.Show”。运行窗体，单击各命令按钮。体会这个窗体的功能。 Private Sub Command1_Click() Form1.Show End Sub Private Sub Command2_Click() Form2.Show End Sub Private Sub Command3_Click() Form3.Show End Sub （6）编程实现用InputBox函数输入一个正数，用Print方法在一行显示它的平方、平方根、立方、立方根，每个数保留三位小数，各输出项之间应有间隔。 Private Sub Command1_Click() Dim x, a, b, c, d x = InputBox(请输入一个正数) a = Val(x ^ 2) b = Val(Sqr(x)) c = Val(x ^ 3) d = Val(x ^ (1 / 3)) Print Format(a, #.000), Format(b, #.000), Format(c, #.000), Format(d, #.000) End Sub PS：从左到右依次为该数的平方，平方根，立方和立方根。 （7）输入三个数，输出其中最大的数、最小的数。 Private Sub Command1_Click() Dim a, b, c, t a = Text1.Text: b = Text2.Text: c = Text3.Text If a b Then