UC知道VB高手来,有两道编程题帮忙做下,给出50分!
来源：百度知道 编辑：UC知道 时间：2024/05/05 02:23:15
1、编写一个用文本框输入a、b、c，求解一元二次方程ax2+bx+c=0的根的子例程。
2、编写一个将数据：张三，96，100，65
李四，70，50，60
五王，80，90，61
存放到文件的过程，再定义一个将上述数据读出的过程。
3、编写一个求解Cosine(x)的函数过程。精度达到10-10。
提示：
Cosine(x)=1-x2/2!+x4/4!+….+(-1)nx2n/(2n)!+……
2、编写一个将数据：张三，96，100，65
李四，70，50，60
五王，80，90，61
存放到文件的过程，再定义一个将上述数据读出的过程。
3、编写一个求解Cosine(x)的函数过程。精度达到10-10。
提示：
Cosine(x)=1-x2/2!+x4/4!+….+(-1)nx2n/(2n)!+……
'2、编写一个将数据：张三，96，100，65
'李四，70，50，60
'五王，80，90，61
'存放到文件的过程，再定义一个将上述数据读出的过程。
Private Sub Form_Load()
If Dir("c:\test.txt") <> "" Then
MsgBox Readfile("c:\test.txt")
Else
Dim vStr$
vStr = "张三，96，100，65" & vbCrLf & "李四，70，50，60" & vbCrLf & "五王，80，90，61"
Call savefile("c:\test.txt", vStr)
MsgBox "程序第一次运行,数据已保存,请再次运行本程序"
End If
End
End Sub
Public Function Readfile(ByVal filepath As String) As String
Dim s As String
Open filepath For Input As #1
While Not EOF(1)
Line Input #1, sline
s = s & sline & vbCrLf
Wend
Close #1
Readfile = s
End Function
Public Function savefile(ByVal filepath As String, ByVal txt As String)
Open filepath For Output As