vb6.0实验四习题与答案.docVIP

实验四 专业_____________ 班级________年级________姓名______________学号_______________ 一、实验目的 1、熟练使用单行选择结构语句 If…Then…Else 2、熟练使用块选择结构语句 If … … Else … End If 3、多分支块选择结构语句 If … … ElseIf … … ElseIf … … Else … End If 二、实验内容 1、设计窗体,按图示设置各控件: 要求: 编写适当事件过程，当程序运行时，在左边三个文本框各输入一个数，单击“排序”按钮，把它们由大到小排序后，依次显示在右边三个文本框中。 Private Sub Command1_Click() a = Val(Text1.Text):b = Val(Text2.Text): c = Val(Text3.Text) If a b Then t = b: b = a: a = t ab相比较，大的数放在b里，小的数放在a里 If a c Then t = c: c = a: a = t ac相比较，大的数放在c里，小的数放在a里 If b c Then t = c: c = b: b = t bc相比较，大的数放在c里，小的数放在b里 Text4.Text = c Text5.Text = b Text6.Text = a End Sub 2、设计窗体,按图示设置各控件: 编写适当事件过程，当程序运行时，在左边两个文本框各输入一个数，单击“求最大值”按钮后，其中最大值显示在右迦的文本框中 Private Sub Command1_Click() a = Val(Text1.Text):b = Val(Text2.Text) If a b Then Text3.Text = a Else Text3.Text = b End If End Sub 3、按图示设置各控件，编写适当事件过程，程序运行时，在Text1、Text2分别中输入两个自然数，单击“判断”按钮，判断其为是否为自然对，分别在Text3中显示“yes”/“no”。（自然数对是指两个自然数的和与差都是一个自然数的平方） Private Sub Command1_Click() Dim a%, b% a = Val(Text1.Text): b = Val(Text2.Text) If Sqr(a + b) = Int(Sqr(a + b)) And Sqr(Abs(a - b)) = Int(Sqr(Abs(a - b))) Then Text3.Text = yes Else Text3.Text = no End if End Sub 4、按图示设置各控件， 编写适当事件过程，程序运行时，在上边三个文本框中依次输入三个数，判断以这三个数为系数的二元一次方程是否有实数解。若有实数解在Text4中显示“实数解”；否则，显示“复数解”。 Private Sub Command1_Click() a = Val(Text1.Text): b = Val(Text2.Text): c = Val(Text3.Text) if b^2-4*a*c=0 than text4.text=”实数解” else text4.text=”复数解” End Sub 5、按图示设置各控件， 编写适当事件过程，程序运行时，在Text1中输入一个百分制成绩（0~100）Private Sub Command1_Click() a= Text1.Text Text2.Text = Val(Left(a, 1)) + Right(a, 1) + Mid(a, 2, 1) End Sub 7、按图示设置各控件， 编写适当事件过程，程序运行时，在Text1中输入一个数，单击“计算”按钮，求： |x| x ≤-1 y = Sin x -1 x ≤ 1 Lnx x 1 Private Sub Command1_Click() x = Val(Text1.Text) If x = -1 Then y = Abs(x) ElseIf x -1 And x = 1 Then y = Sin(x) Else y = Log(x) End If Text2.Text = y End Sub 8、练习 1）在窗体上画一文本框Text1，请编写可以让文本框只能接受小写字母的输入的事件过程代码。 Private Sub