新股首个交易日的涨停上限为44%,其余的交易日涨停上限为10%,并将相应股票价格四舍五入到分。公式提示:日收益=(本交易日股价-前一交易日股价)×股数
程序运行界面如图所示:
Private Sub Command1_Click()
Dim gj As Double,x As Double ‘用于存放股价
Dim n As Integer·gs As Integer ‘n用于存放涨停个数, gs用于存放股数
Dim zsy As Long,rsy As Long ‘zsy用于存放总收益。 rsy用于存放日收益
List1.Clear
gi=Val(Text1.Text):n=Val(Text2.Text):gs=Val(Text3.Text)
zsy=0
List1.Addltem“交易日 股价 日收益”
For i=1 To n
x=gj
IfThen ‘①
gj=Int(gj*1.44*100+0.5)/100
Else
gj=Int(gj*1.1*100+0.5)/100
End If
rsy= ‘②
zsy=zsy+rsy
List1.Addltem“第”Str(i)&“ ”&Str(gj)&“ ”&Str(rsy)
Next i
Label4.Caption=Str(gs)&”股预期总收益”&Str(zsy)&“元”
End Sub
如下处理,如图a所示


下列说法正确的是( )
A=1:S=0
DO WHILE A>5
S=S+A
A=A+1
LOOP
PRINT S, A
①需求分析 ②素材采集加工 ③发布与评价 ④作品集成 ⑤规划与设计
s1 = Text1.Text
s2=””
n = Len(s1)
i = 1:m = 1
Do While i <= n
For j = 1 To n
If Then
m=m+1
Else
s2=s2+ Trim(Str(m)+ Trim(Mid(s1, i, 1)) ‘Trim( )为清除前后的空格
m=1
Exit For
End If
Next j
Loop
Text2.Text = s2
横线处填入正确的内容是( )