编程练习一到四及答案.docxVIP

编程练习一 1?按指定方法编程序实现如下分段函数。 nx x5 x3-2x + 1 X1x3-2x + 1v= % x3-2x + 1 X1 x3-2x + 1 方法一：用单行If语句实现运行时，从文本框Textl输入x值，单击“计算”按 钮Commandl按以上公式计算y值，计算结果保留三位小数，显示于标签 Label2 上。 Private Sub Commandl_Click() Private Sub Commandl_Click() Dim x As Single, y As Single x = Vai If x 5 Then y = Log(x) Else If x = 1 Then y = Exp(x) Else y = Sqr(Abs(x A 3 = 2 * x + 1)) If x 5 Then y 二 Log(x) If x = 1 And x = 5 Then y = Exp(x) If x 1 Then y = Sqr(Abs(x A 3 + 2 * x + 1)) =Format(y,,N,) End Sub 方法二：用块If语句实现运行时，用输入框(InputBox)输入x值，单击“计算” 按钮Commandl按以上公式计算y值，计算结果保留三位小数，显示于文本框 Text2 中。 Private Sub Commandl_Click() Private Sub Command2_Click() Dim x As Single, y As Single x = Val(lnputBox(请输入 x 的值)) If x 5 Then y = Log(x) Elself x = 1 Then y = Exp(x) Else y = Sqr(Abs(x A 3 + 2 * x + 1)) End忏 =Format(y,,,H) End Sub End Sub 方法三：用多分支选择语句实现运行时，用输入框（InputBox）输入x值，单击 “计算”按钮Commandl按以上公式计算y值，计算结果保留三位小数，显示 于窗体上。 Private Sub Commandl_Click() Private Sub Command3_Click() Dim x As Single, y As Single x = Val(lnputBox(请输入 x 的值)) Select Case x Case Is 5 $ y = Log(x) Case Is = 1 y = Exp(x) Case Else y = Sqr(Abs(x A 3 + 2 * x + 1)) End Select =100 =100 Curre ntX = 35 Curre ntY = 90 Print Format(y,,MI) End Sub 编程练习二 编程序实现：运行时单击窗体，用输入框(InputBox)输入n的值，求 1 +丄+丄+…+ -J—的值，计算结果打印在当前窗体上。 1 3 5 2n-l Private Sub Form_Click() 1 Private Sub Form_Click() Dim n As Integer, s As Single, i As Integer n = Val(lnputBox(请输入 n 的值：)) For i = 1 To n f s = s + l/(2*i-l) Next i Curre ntX = 200 CurrentY = 2200 Print ,,s=H; Format(s,IH,) End Sub 编程序实现：运行时单击窗体，用文本框Textl输入x的值，求 Ix3x5x…x(2n-1)小于x的最大值,计算结果显示于标签Label3上。 Private Sub Form_Click() 2 Private Sub Commandl_Click() Dim x As Double, F As Double, i As Integer x = Vai F= 1 While F x i = i + l F = F*(2*i-l) Wend F = F/(2*i-l) =Str(F) End Sub Private Sub Command2_Click() Dim x As Double, F As Double, i As Integer x = Vai F= 1: i = -l While F x i = i + 2 F = F*i 3、编写程序在窗体上输出如下图所示的图形。要求：通过输入框函数InputBox 输入打印图形的行数和构成图形的字符，通过循环实现图形输出。 Private Sub Commandl_Click() Dim N As Integer,