VB习题手写作业.docVIP

1、 编程：输入x，计算分段函数f（x）的值 要求：用inputbox输入x，计算结果放在text控件中 已知：f（x）＝ 1－2x x=5 (x-5) 1/4 x5 知识点： 1、学习行if语句的使用 2、巩固学习inputbox的数据输入方式 3、学习算术运算符和关系运算符的使用 4、学习一行过长后如何分两行打印但内容保持为一行 VB执行程序： Private Sub Command1_Click() Dim x As Single, y As Single x = InputBox(请输入x：, 输入x，计算分段函数f（x）的值) If x = 5 Then y = 1 - 2 * x Else: y = (x - 5) / 4 End If Text1.Text = f(x)= y End Sub 2、 编程：输入x 、y，仅当xy时，交换x,y的值，然后输出x 、y 要求：在text控件中输入，在label控件中输出 知识点： 1、加深行if语句的使用方法 2、学习两个数交换需要利用第三数据的方法 3、学习两个字串之间分隔显示的不同方法 VB执行程序： Private Sub Command1_Click() Dim x As Single, y As Single, temp As Single x = Text1.Text: y = Text2.Text If x y Then temp = y: y = x: x = temp Label1.Caption = max= + Str(x) min= + Str(y) End Sub 3、 编程： 求下列表达式的值。 要求： 末项绝对值不小于2×10－2，用两种循环实现 知识点： While的循环体中必须有循环变量改变的语句不然会出现死循环 符号交替变换的方法、初值设定的方法 VB执行程序： Private Sub Command1_Click() Dim i As Integer, sum As Single, n As Single n = 1 / 0.02 i = 1 sum = 0 While i = n sum = sum + (-1) ^ (i - 1) / i i = i + 1 ??±??-?·±?á??μiμ?ó???2??éò??? Wend Print sum, i End Sub Private Sub Command2_Click() Dim i As Integer, sum As Single, n As Single n = 1 / 0.02 sum = 0 For i = 1 To n sum = sum + (-1) ^ (i - 1) / i Next i Print sum, i End Sub ********************************************************* Private Sub Form_click() Dim i As Integer, sum As Single, n As Single sum = 0 i = 1 While i = 1 / 0.02 sum = sum + (-1) ^ (i - 1) / i i = i + 1 ??±??-?·±?á??μiμ?ó???2??éò??? Wend Print sum, i End Sub ******************************************************* 4、 编程：求级数和： 1＋x＋x2/2!+x3/3!+……+xn/n!+…… 要求：末项不小于10－5 分析：a0：1 a1：x*1＝x*a0； a2：x*x/2=x*a1/2 a3: x*x*x/(2*3)=x*a2/3 …… an：x*an-1/n 知识点：末项不可知（x任意值输入）不能用for/next VB执行程序： Private Sub command1_click() Dim a As Single, i As Integer, sum As Single, x As Single x = InputBox(输入x值：) a = 1 sum = 0 i = 1 While a = 10 ^ (-5) sum = sum + a a = a * x