编程练习一到四及答案

编程练习一编程练习一 1 1 按指定方法编程序实现如下分段函数 lnx x 5 y ex 1 x 5 x 11x2x3 方法一方法一 用单行 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 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 输入 x 值 单 击 计算 按钮 Command1 按以上公式计算 y 值 计算结果保留三位小数 显示 于窗体上 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 1 编程序实现 运行时单击窗体 用输入框 InputBox 输入 n 的值 求 的值 计算结果打印在当前窗体上 1n2 1 5 1 3 1 1 1 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 2 编程序实现 运行时单击窗体 用文本框 Text1 输入 x 的值 求 小于 x 的最大值 计算结果显示于标签 Label3 上 12 531 n 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 average num1 num1 1 End Select Next i Label2 Caption 大于平均分的学生人数为 Str num1 End Sub Private Sub Command2 Click End End Sub 2 2 编写程序实现 运行时 单击第一个按钮 生成随机数 Command1 生成 100 个 100 199 之间的随机整数 存于一维数组 B 中显示于文本框 Text1 中 单击第二个按钮 求最小数 Command2 求出这 100 个随机整数的最 小数 并将结果显示在文本框 Text2 中 2 Dim B 1 To 100 As Integer Private 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 Sub Private Sub Command2 Click Dim Min As Integer Min B 1 设变量 Min 的初始值为数组中的第一个元素值 通过循环依次比较 求最小值 For i 1 To 100 If B i Min Then Min B i Next i Text2 Text Str Min 显示最小值 End Sub 3 3 编程序实现 运行时 单击命令按钮 Command1 生成 100 个 10 10 之间的 随机整数 保存到数组 A 中 同时显示于带水平滚动条的文本框 Text1 中 单击命令按钮 Command2 对这 100 个数按从大到小的顺序排序 结果显示于 带水平滚动条的文本框 Text2 中 Dim C 1 To 100 As Integer Private Sub Command1 Click Text1 Text Randomize For i 1 To 100 C i Int Rnd 21 10 Text1 Text Text1 Text Str C i Space 3 Next i End Sub Private Sub Command2 Click For i 1 To 99 For j i 1 To 100 If C i 0 Then Label3 Caption 所找的数在第 Str k 个位置 Else Label3 Caption 没找到 End If Text2 SetFocus Text2 SelStart 0 Text2 SelLength Len Text2 Text End Sub 编程练习四编程练习四 1 1 1 编写一个计算表达式 值的函数过程 过程名称为 F1 33 yx 2 在命令按钮 Command1 的 Click 事件过程中编写代码 分别从文本框 Text1 Text2 Text3 输入 a b c 的值 调用以上函数过程求以下表达式的 值 用标签 Label5 显示计算结果 33 3333 cb caba y 1 Function F1 x y F1 Sqr Abs x 3 y 3 End Function Private Sub Command1 Click a Val Text1 Text b Val Text2 Text c Val Text3 Text y F1 a b F1 a c F1 b c Label5 Caption Format y 0 000 End Sub 2 2 1 编写一函数过程 过程名称为 F2 用于计算 1 2 3 n 的值 2 在窗体的 Click 事件过程中 用输入框 InputBox 输入 a b c 的值 调用以上函数过程 F2 计算以下 y 值 用消息框 MsgBox 函数 显示计算结果 321 321 321 cbay 2 Function F2 n Sum 0 For i 1 To n Sum Sum i Next i F2 Sum End Function Private Sub Form Click a Val InputBox 请输入 a b Val InputBox 请输入 b c Val InputBox 请输入 c y F2 a F2 b F2 c MsgBox y Str y End Sub 3 3 1 编写一个 Sub 过程 过程名称为 S1 用于计算 n 2 编写命令按钮 Command1 的 Click 事件过程实现 运行时 单击 Command1 分别从文本框 Text1 Text2 输入 m 和 n 的值 调用以上 Sub 过程 S1 计算以下 y 值 计算结果显示在文本框 Text3 中 N M N M y 3 Sub S1 n f f 1 For i 1 To n f f i Next i End Sub Private Sub Command1 Click m Val Text1 Text n Val Text2 Text Call S1 m f1 Call S1 n f2 y f1 f2 f1 f2 Text3 Text Format y 0 0000 End Sub 4 4 1 编写一个 Sub 过程 过程名称为 S2 用于求任意一维数组元素的最大 值和最小值 2 在 生成随机数 按钮 Command1 的 Click 事件过程中生成 100 个 50 50 区间的随机整数 显示在第一个文本框 Text1 中 3 在命令按钮 Command2 的 Click 事件过程中调用以上 Sub 过程求这些随 机整数的最大值和最小值 显示在第二个文本框 Text2 中 4 Dim a 1 To 100 As Integer Sub S2 x As Integer Max Min k1 LBound x k2 UBound x Max x k1 Min x k1 For i k1 To k2 If x i Max Then Max x i If x i Min Then Min x i Next i End Sub P