新股首个交易日的涨停上限为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
①基于程序设计的自动化信息加工
②基于大众信息技术工具的人性化信息加工
③基于人工智能的智能化加工
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
横线处填入正确的内容是( )
下列说法正确的是( )
IF A=B THEN B=A
下列说法正确的是( )
i=6: flag =1: cnt=0
Do While i >=2 And flag=1
flag=0: cnt= cnt +1
For j =
If a(j)>a(j-1)Then
k=a(j):a(j)=a(j-1):a(j-1)=k
flag= 1
End If
Next j
i=i-1
Loop
数组元素a(1)到a(6)的值依次为“79,13,93,55,29,17”,执行该程序段后,cnt的值为3,数组元素实现有序,则方框中的代码是( )
下列说法不正确的是( )
Dim a(1 To 10) As Integer
Dim s(1 To 10) As Integer
Private Sub Form_Load()
a(1) = 3: a(2) = 6: a(3) = 8: a(4) = 4: a(5) = 9
a(6) = 5: a(7) = 3: a(8) = 3: a(9) = 10: a(10) = 5
End Sub
Private Sub Command1_Click()
Dim i As Integer, t As Integer
s(1) = a(1)
For i = 2 To 10
s(i) = s(i - 1) + a(i)
Next i
t = s(8) - s(4)
Text1.Text = Str(t)
End Sub
程序运行后,文本框Text1显示的内容是( )
图1
请回答下列问题:
(涨跌幅(%)=(本期价格(元)-上期价格(元))/上期价格(元)×100)
图2
①对图像进行倾斜校正 ②单击识别按钮 ③划分识别区域 ④打开图像文件 ⑤校对文字
正确的操作顺序是( )