vb dim a as single 这里的single是什么意思说的通俗点,告诉我是单精度浮点数我也不知道啊.比如,我输入个1.7374,会出来1.73还是1.7还是1.737?还是1.7374..

VB程序问题Option Explicit'这是老师给的答案:Private Sub Form_Click()Dim y As Single,x As Single,a As Single,i As Integerx = InputBox(输入x)a = 1 '递推公式,a0=1,ai=x*ai-1/i i>0y = a 'y用来保存运算结果i = 0 'i记录当前已 VB：根据给定三条边得边长来判定图形的类型,若是三角形,则同时计算出为何种三角形,以及三角形面积这是我设计的程序Private Sub Command1_Click()Dim a As Single,b As Single,c As Singlea = Text1.Textb = Text2.T vb dim a as single 这里的single是什么意思说的通俗点,告诉我是单精度浮点数我也不知道啊.比如,我输入个1.7374,会出来1.73还是1.7还是1.737?还是1.7374.. VB中 Option ExplicitPrivate Sub Form_Click()Dim 5Fg Integer （1）Dim L * og As Long （2）Dim s - ig As Single (3)Dim dob_ As Double （4)Dim _Name AS String （5）Dim bln@ Frag As Boolean （6）Dim do As Data （7）End Sub电脑上的提示 vb解二次函数代码问题!代码如下Private Sub Command1_Click()Dim a As Single,b As Single,c As SingleDim n As Single,m As Singlea = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If b ^ 2 - 4 * a * c < 0 ThenLabel3.Caption = 无解Els 如何用vb设计计算二次方程的根的程序Private Sub Command1_Click()Dim a As Single,b As Single,c As Single,d As Singlea = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)d = b ^ 2 - 4 * a * cIf d > 0 ThenLabel8.Caption = (-b + Sqr(d)) VB中Dim A!是什么意思 Public Function fh(ByVal h As Single) As Single Dim n As Single n = Val(Text3.Text) A = (b + m * h) 0402 Private Sub Command1_Click() Dim a As Single,b As Single Dim c As Single,d As Single Dim m A0401Private Sub Form_Load()Dim x As Long,s As Stringx = InputBox(输入一个整数(1~40000))If x Mod 2 = 0 Thens = 偶数Elses = 奇数End IfMsgBo vb程序改错 求解一元二次方程（ax^2+bx+c=0）的程序求解一元二次方程（ax^2+bx+c=0）的程序Private Sub Command1_Click()Dim a As Integer,b As Integer,c As Integer,d As IntegerDim x1 As Single,x2 As SingleInputBox (a=)InputBox 下列选项中,说明A是常量的是哪一项 A.Dim a as integer B.Dim a as long C.Dim a as single D.Const a=3.1 Vb求N的阶层我自己做的,Private Sub Form_Click()Dim a As Single,b As Integer,c As Integer,d As Singlea = 1b = 1c = 0d = 0Do While Abs(b / a) > 0.000001d = d + b / ac = c + 1a = a * cb = -bLoopPrint dEnd Sub vb 守型数 设A为一个整数,如果a^2=x*a,成立,则称a为 守型数,如5＾2＝25,25＾＝625,求1－1000守型数Public Function fun1(a As Long)Dim b As Single,c As Single,n As Integer,d As Longn = 1b = a / 10While b >= 1n = n + 1b = a / (10 VB编程,一元二次方程a*x^2+b*x+c=0的根Dim a As Double Dim b As Double Dim c As Double Dim delta As Double Dim x1 As Double Dim x2 As Double a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) delta = b * b - VB 定义变量相关dim a as ?我要a可以为一切数.包括分数等 计算机语言里面dim a as integer 这句话的dim是哪个英语单词? vb编写程序,利用下面的公式计算cosx的近似值cosx=1-x^2/2!+x^4/4!.+x^(2n)/(2n)!我写的代码：Private Sub Command1_Click()Dim x As Single,t As Single,s As Single,n As Integerx = Val(Text1.Text)s = 1:t = 1:n = 1Dot = (-1) * t * (x ^ (2 用vb 求π Private Sub Form_Click()Dim i As Long,pi As Double,k As Integer,m As Doublei = 1k = 1pi = 0m = 1While (m > 0.00001)m = 1 / (2 * i - 1)pi = pi + k * mi = i + 1k = -kWendPrint π ; 4 * piEnd SubPrivate Sub Form_Click()Dim pi,c,s As Single