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

编程练习一 x＞5 y= ex 1≤x≤5 x＜1 方法一：用单行If语句实现运行时，从文本框Text1输入x值，单击“计算”按钮Command1按以上公式计算y值，计算结果保留三位小数，显示于标签Label2上。 Private Sub Command1_Click() Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) If x 5 Then y = Log(x) Else If x = 1 Then y = Exp(x) Else y = Sqr(Abs(x ^ 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 ^ 3 + 2 * x + 1)) Label2.Caption = Format(y, 0.000) End Sub 方法二：用块If语句实现运行时，用输入框（InputBox）Private Sub Command1_Click() Private Sub Command2_Click() Dim x As Single, y As Single x = Val(InputBox(请输入x的值)) If x 5 Then y = Log(x) ElseIf x = 1 Then y = Exp(x) Else y = Sqr(Abs(x ^ 3 + 2 * x + 1)) End If Text2.Text = Format(y, 0.000) End Sub End Sub 方法三：用多分支选择语句实现运行时，用输入框（InputBox）Private Sub Command1_Click() Private Sub Command3_Click() Dim x As Single, y As Single x = Val(InputBox(请输入x的值)) Select Case x Case Is 5 y = Log(x) Case Is = 1 y = Exp(x) Case Else y = Sqr(Abs(x ^ 3 + 2 * x + 1)) End Select Form1.ScaleHeight = 100 Form1.ScaleWidth = 100 CurrentX = 35 CurrentY = 90 Print Format(y, 0.000) End Sub 编程练习二 1．编程序实现：运行时单击窗体，用输入框（InputBox）输入n的值，求的值，计算结果打印在当前窗体上。 Private Sub Form_Click() 1 Private Sub Form_Click() Dim n As Integer, s As Single, i As Integer n = Val(InputBox(请输入n的值：)) For i = 1 To n s = s + 1 / (2 * i - 1) Next i CurrentX = 200 CurrentY = 2200 Print s=; Format(s, 0.000) End Sub 2．编程序实现：运行时单击窗体，用文本框Text1输入x的值，求小于x的最大值，计算结果显示于标签Label3上。 Private Sub Form_Click() 2 Private Sub Command1_Click() Dim x As Double, F As Double, i As Integer x = Val(Text1.Text) F = 1 While F x i = i + 1 F = F * (2 * i - 1) Wend F = F / (2 * i - 1) Label3.Caption = Str(F) End Sub Private Sub Command2_Click() Dim x As Double, F As Double, i As Integer x = Val(Text1.Text) F = 1: i = -1 While F x i = i + 2 F = F * i 3、编写程序在窗体上输出如下图所示的图形。要求：通过输入框函数InputBox输入打印图形的行数和构成图形的字符，通过循环实现图形输出。 Private Sub Command1_Click() Dim N As Integer, S As St