请讲解一下这段代码Dim a,b,c As Single ,i,As Integera = 2 :b = 3:i = 3
来源:学生作业帮 编辑:神马作文网作业帮 分类:数学作业 时间:2024/10/04 23:30:27
请讲解一下这段代码
Dim a,b,c As Single ,i,As Integer
a = 2 :b = 3:i = 3
Do
c =(a + b) / 3 :a = b :b =c :i = i + 1
Loop Until c < 0.03
TextBox1.Text = i - 1
TextBox2.Text = c
Dim a,b,c As Single ,i,As Integer
a = 2 :b = 3:i = 3
Do
c =(a + b) / 3 :a = b :b =c :i = i + 1
Loop Until c < 0.03
TextBox1.Text = i - 1
TextBox2.Text = c
Dim a,b,c As Single,i As Integer 'vb.net中 定义a,b,c为单精度 ,i为整形变量
a = 2:b = 3:i = 3 '初始赋值
Do 'do 循环
c = (a + b) / 3 ' c变量的值 等于 a+b的和除以3
a = b '将 b赋值给a
b = c '将c值赋值给b
i = i + 1 'i变量每次循环累加1 计算循环次数用的
Loop Until c < 0.03 '直到c值小于0.03 跳出循环
' 第一次循环
' c = (2 + 3) / 3
' a = 3
' b=(a + b) / 3 =1.666666...
'
' 第二次循环
' c = (3 + 1.66666) / 3
' a = 1.66666..
' b=1.55555...
' 以此类推 直到 c
a = 2:b = 3:i = 3 '初始赋值
Do 'do 循环
c = (a + b) / 3 ' c变量的值 等于 a+b的和除以3
a = b '将 b赋值给a
b = c '将c值赋值给b
i = i + 1 'i变量每次循环累加1 计算循环次数用的
Loop Until c < 0.03 '直到c值小于0.03 跳出循环
' 第一次循环
' c = (2 + 3) / 3
' a = 3
' b=(a + b) / 3 =1.666666...
'
' 第二次循环
' c = (3 + 1.66666) / 3
' a = 1.66666..
' b=1.55555...
' 以此类推 直到 c
print的使用Dim a As Integera = 0Dim b As Stringb = aPrint a; "1
下列代码的意思Sub Saveas()Dim Mrow%,I%,n%Dim Y As Integer'Arr = [a2
Dim a(1 To 10) As Integer Dim i As Integer a(1) = 1 For i =
Dim i As Integer,n As Integer For i = 0 To 50 i = i + 3 n =
0402 Private Sub Command1_Click() Dim a As Single,b As Singl
Private Sub Command1_Click() Dim i,j As Integer For i = 3 To
I do every single bit of housework (A.since B.as C.when D.wh
dim i as integer dim sum as integer sum=0 for i=0 to 5 sum=s
VB dim x as integer dim i as integer x = 100 for i = 1 to 10
我写这个程序时 dim a(10)as interger dim ias interger for i= 10 to 1
英语翻译Dim a,b As IntegerDim c As DoubleIf (a>0,and b>0) Then c
设执行以下程序段时依次输入1、3、5,执行结果为_____.Dim a(4) As Integer Dim b(4) A