《编程练习一到四及答案.doc》由会员分享，可在线阅读，更多相关《编程练习一到四及答案.doc（9页珍藏版）》请在金锄头文库上搜索。
1、编程练习一1.按指定方法编程序实现如下分段函数。 lnx x5 y= ex 1x5 x1方法一：用单行If语句实现运行时，从文本框Text1输入x值，单击“计算”按钮Command1按以上公式计算y值，计算结果保留三位小数，显示于标签Label2上。Private Sub Command1_Click()Private Sub Command1_Click()Dim x As Single, y As Singlex = Val(Text1.Text)If x 5 Then y = Log(x) Else If x = 1 Then y = Exp(x) Else y = Sqr(Abs(x
2、3 = 2 * x + 1)If x 5 Then y = Log(x)If x = 1 And x = 5 Then y = Exp(x)If x 5 Theny = Log(x)ElseIf x = 1 Theny = Exp(x)Elsey = Sqr(Abs(x 3 + 2 * x + 1)End IfText2.Text = Format(y, 0.000)End SubEnd Sub方法三：用多分支选择语句实现运行时，用输入框（InputBox）输入x值，单击“计算”按钮Command1按以上公式计算y值，计算结果保留三位小数，显示于窗体上。Private Sub Command1
3、_Click()Private Sub Command3_Click()Dim x As Single, y As Singlex = Val(InputBox(请输入x的值)Select Case xCase Is 5y = Log(x)Case Is = 1y = Exp(x)Case Elsey = Sqr(Abs(x 3 + 2 * x + 1)End SelectForm1.ScaleHeight = 100Form1.ScaleWidth = 100CurrentX = 35CurrentY = 90Print Format(y, 0.000)End Sub编程练习二1编程序实现：
4、运行时单击窗体，用输入框（InputBox）输入n的值，求的值，计算结果打印在当前窗体上。Private Sub Form_Click()1Private Sub Form_Click()Dim n As Integer, s As Single, i As Integern = Val(InputBox(请输入n的值：)For i = 1 To n s = s + 1 / (2 * i - 1)Next iCurrentX = 200CurrentY = 2200Print s=; Format(s, 0.000)End Sub2编程序实现：运行时单击窗体，用文本框Text1输入x的值，求小
5、于x的最大值，计算结果显示于标签Label3上。Private Sub Form_Click()2Private Sub Command1_Click()Dim x As Double, F As Double, i As Integerx = Val(Text1.Text)F = 1While F x i = i + 1 F = F * (2 * i - 1)WendF = F / (2 * i - 1)Label3.Caption = Str(F)End SubPrivate Sub Command2_Click()Dim x As Double, F As Double, i As In
6、tegerx = Val(Text1.Text)F = 1: i = -1While F average num1 = num1 + 1 End Select Next i Label2.Caption = 大于平均分的学生人数为 & Str(num1) End SubPrivate Sub Command2_Click()EndEnd Sub2. 编写程序实现：运行时，单击第一个按钮“生成随机数”（Command1），生成100个100，199之间的随机整数，存于一维数组B中显示于文本框Text1中，单击第二个按钮“求最小数”(Command2)，求出这100个随机整数的最小数，并将结果显示
7、在文本框Text2中。2Dim B(1 To 100) As IntegerPrivate Sub Command1_Click() Text1.Text = Randomize For i = 1 To 100 B(i) = Int(Rnd * 100 + 100) Text1.Text = Text1.Text & Str(B(i) & Space(2) Next i End SubPrivate Sub Command2_Click() Dim Min As Integer Min = B(1) 设变量Min的初始值为数组中的第一个元素值 通过循环依次比较，求最小值 For i = 1
8、To 100 If B(i) Min Then Min = B(i) Next i Text2.Text = Str(Min) 显示最小值End Sub3编程序实现：运行时，单击命令按钮Command1生成100个-10,10之间的随机整数，保存到数组A中，同时显示于带水平滚动条的文本框Text1中，单击命令按钮Command2对这100个数按从大到小的顺序排序，结果显示于带水平滚动条的文本框Text2中。Dim C(1 To 100) As IntegerPrivate Sub Command1_Click() Text1.Text = Randomize For i = 1 To 100
9、C(i) = Int(Rnd * 21 - 10) Text1.Text = Text1.Text & Str(C(i) & Space(3) Next iEnd SubPrivate Sub Command2_Click() For i = 1 To 99 For j = i + 1 To 100 If C(i) C(j) Then t = C(i) C(i) = C(j) C(j) = t End If Next j Next i Text2.Text = For i = 1 To 100 Text2.Text = Text2.Text & Str(C(i) & Space(3) Next iEnd Sub4下面程序实现：
