Private Sub Command1_Click()
Dim i As Integer,count As Integer,length As Integer
Dim ch As String,key As String,s As String
S=Text1.Text
length=Len(s)
key= ①
i=2:count=1
Do While i<=length
ch=Mid(s,i,1)
If ch=key Then
count=count+1
Else
Text2.Text=Text2.Text+Str(count)+key
count=1
key=ch
End If
②
Loop
Text2.Text=Text2.Text+Str(count)+key ‘③
End Sub
① ②
执行该算法,依次输入a的值2,5,4后,变量b的值为( )
图中空白处理框①和②处应填入的是( )
输入两个互不相等的自然数A,B If A<B then (A←A+B,B←A-B,A←A-B) 输出A,B |
关于上述算法,下列说法正确的是( )
①自然语言;
②流程图;
③伪代码;
④汇编语言
①输入一般形式下的二次项系数a,一次项系数b,常数项c。
②计算判别式 Δ=b2-4ac的值。
③若Δ≥0,则计算 ,输出字符串“方程有实数解”,并输出x的值;否则,输出字符串“方程无实数解”。
这种描述方法属于( )