题目

小王喜中新股，为了能预估自己的收益情况，编写“新股收益预期”程序，实现如下功能：在文本框Text1中输入该股票的发行价，在文本框Text2中输入预期涨停个数，在文本框Text3中输入股数，单击“计算”按钮Command1，在列表框List1中依次显示各个交易日的结果信息，并在标签Label4中显示总收益信息。 新股首个交易日的涨停上限为44%，其余的交易日涨停上限为10%，并将相应股票价格四舍五入到分。公式提示：日收益=（本交易日股价-前一交易日股价)×股数 程序运行界面如图所示： （1） 程序代码中出现Label4.Caption,其中Caption是指（填字母：A，对象名/B，属性名/C，属性值/D，事件名）。 （2） 实现上述功能的VB代码如下，请在画线处填写合适的代码。 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 （3） 若该新股连续涨停，则第11个交易日的日收益(填：能／不能)超过首个交易日的日收益。 答案： 【1】B 【1】i=1(或x=Val(Text1．Text)或gj=Val(Text1．Text))【2】(gj-x)“gs 【1】不能

查看本题答案和解析