问题 单项选择题

在窗体上画一个名称为Command1的命令按钮和一个名称为List1的列表框。如下图所示程序的功能是:单击命令按钮后,程序用“筛选法”求出1-100之间的全部素数。并将素数在列表框中显示出来。根据题意,填空处应选择


Option Base 1
Dim a(100)As Integer
Private Sub Command1_Click()
n = 100
For i = 2 To Sqr(n)
For j = i + 1 To n
If j Mod i = 0 And a(j)<> 0 Then a(j)= 0
Next j
Next i
For i = 1 To n
If a(i)<> 0# Then
Next i
End Sub
Private Sub Form_Load ()
For i = 1 To 100
a (i)=i
Next i
End Sub

答案

参考答案:C

解析:

[分析]: 程序的功能是:先将其下标值作为数组的初值,然后,用2去除它后面的每个数,如能被整除,就将其值赋0,再用3、4.....[*]去除它后面的每个数,也是如能被整除,就将其值赋0,数组剩下的非0值就是素数。最后将其素数在List1列表框中显示出来。注意此题中的数组a是公共变量。向列表框添加内容时,选项C是正确的。

单项选择题
问答题

某市大型商贸公司为增值税一般纳税人,兼营商品加工、批发、零售和进出口业务,2011年3月相关经营业务如下:
(1)进口化妆品一批,支付国外的买价220万元、购货佣金6万元、国外的经纪费4万元;支付运抵我国海关地前的运输费用20万元、装卸费用和保险费用11万元;支付海关地再运往商贸公司的运输费用8万元、装卸费用和保险费用3万元,已取得海关的完税凭证和运费发票;
(2)受托加工化妆品一批,委托方提供的原材料不含税金额86万元,加工结束向委托方开具普通发票收取加工费和添加辅助材料的含税金额共计46.8万元,该化妆品无同类产品市场价格;
(3)收购免税农产品一批,支付收购价款70万元、运输费用10万元,当月将购回免税农产品的30%用于公司饮食部;
(4)购进其他商品,取得增值税专用发票,支付价款200万元、增值税34万元,支付运输单位运输费用20万元,待货物验收入库时发现短缺商品金额10万元(占支付金额的5%),经查实应由运输单位赔偿;
(5)将进口化妆品的8016重新加工制作成套装化妆品,当月销售给其他商场并开具增值税专用发票,取得不含税销售额650万元;直接销售给消费者个人,开具普通发票,取得含税销售额70.2万元;
(6)销售除化妆品以外的其他商品,开具增值税专用发票,应收不含税销售额300万元,由于月末前可将全部货款收回,给所有购货方的销售折扣比例为5%,实际收到金额285万元;
(7)取得化妆品的逾期包装押金收入14.04万元;
(8)当月购进一辆小汽车,取得增值税专用发票,支付价款为20万元,同时销售2006年购进的小汽车,开具普通发票取得收入15.8万元。
(注:关税税率20%,化妆品消费税税率30%;当月购销各环节所涉及的票据符合税法规定,并经过税务机关认证)
要求:根据上述资料,按下列序号计算回答问题,每问需计算出合计数。

计算该公司国内销售环节应缴纳的消费税总和;