题目内容

下列符号常量的声明中不合法的是

A. Const a As Single=3.5
B. Const a As Double=5+8
Const a As Integer="25"
D. Const a="OK"

查看答案

搜索结果不匹配？点我反馈

更多问题

某城市一日化工企业为增值税一般纳税人，主要业务为以外购化妆品生产和销售成套化妆品，2014年度1～11月已预缴企业所得税18.5万元。12月有关的生产经营情况如下： (1)期初库存外购已税化妆品120万元。本期外购已税化妆品取得增值税专用发票，支付价款240万元(专用发票已比对认证)； (2)生产领用外购化妆品250万元，其他生产费用78万元，生产成套化妆品15万件，每件成套化妆品单位成本45元； (3)批发销售成套化妆品12万件，开具增值税专用发票，取得销售额600万元；零售成套化妆品3万件，开具普通发票，取得销售收入234万元； (4)12月3日销售外购的商标权取得销售收入100万元。该商标权为当年3月1日购进并投入有效使用，支付外购金额60万元，使用时按10年期限计算摊销； (5)当月发生产品销售费用20万元、财务费用5万元、管理费用15万元； (6)当月发生意外事故损失库存的外购已税化妆品3万元(不含增值税额)； (7)当月取得保险公司赔款5万元。 (注：化妆品、成套化妆品的消费税税率为30%，教育费附加征收率为3%，企业所得税税率为25%) 要求：汇算清缴当年度该企业应缴纳的企业所得税额。

以下关于变量作用域的叙述中，错误的是

A. 在标准模块声明部分用Public声明的变量的作用域为整个工程文件
B. 在标准模块声明部分用Private声明的变量的作用域为该标准模块
C. 在窗体的声明部分不能用Private声明变量
D. 在过程中不能使用Public声明变量

设有如下通用过程： Public Function Fun(xStr As String) As String Dim tStr As String, strL As Integer tStr="":strL=Len(xStr) i=strL/2 Do While i＜=strL tStr=tStr&Mid(xStr,i+1,1) i=i+1 Loop Fun=tStr & tStr End Function 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim S1 As String S1="ABCDEF":Text1.Text=LCase(Fun(S1)) End Sub 程序运行后，单击命令按钮，文本框中显示的是

ABCDEF
B. abcdef
C. defdef
D. defabc

设在一个工程的窗体中有如下代码： Public x As Integer Private Sub Form_Load() Dim y As Integer End Sub 在该工程的标准模块的声明部分有代码：Public a As Integer：Private b As Integer 关于上述代码，以下叙述中错误的是

A. 变量x的作用域是整个工程
B. 变量y的作用域是Form_Load过程
C. 变量a的作用域是整个工程
D. 变量b的作用域是整个标准模块