B公司为增值税一般纳税人企业，增值税税率为17%，甲公司为小规模纳税企业，征收率为6%。B公司以一台生产设备换甲公司的一批商品，生产设备的账面原价为350万元，已计提折旧36万元，已计提减值准备10万元，其公允价值为300万元。换的商品在甲公司的账面成本为330万元，公允价值和计税价格为283.02万元。在接送货物过程中，B公司用银行存款支出运费1万元，B公司收到了货物，取得了增值税专用发票。假设不考虑运费的增值税抵扣和换出设备的增值税。则B公司换入商品的入账价值是()万元。

以下过程的作用是将26个小写字母逆序打印出来，请补充完整。

Sub Inverse（）

For i=122 To 【10】

Print 【11】 ;

Next i

End Sub

以下过程的作用是将26个小写字母逆序打印出来，请补充完整。

Sub Inverse（）

For i=122 To 【10】

Print 【11】 ;

Next i

End Sub

以下函数inverse的功能是使一个字符串按逆序存放，请填空。 inverse(char str[]) { char m; int i,j; for(i=0,j=strlen(str);i＜strlen(str)/2;【 】 ,j--) { m=str[i]; str[i]=【 】; 【 】; } }

下列程序的功能是将字符串“abcde”逆序打印出来。请填写空白处以完善程序。 Munction rev(str1)As String B = Mid(,1,1) If B =＂＂Then rev =＂＂ Else rev = rev(Mid(str1,2))+b End If End Function Private Sub Form_Click() old =＂abcde＂ Print rev(old) End Sub

以下程序的功能是将字符串“12345”逆序打印出来。请在画线处填上适当的内容使程序完整。

Function rev(newl)As String

b=Mid(_______ ,1,1)

if b=" "then

rev=" "

else

rev=rev(Mid(new 1,2))+ _______

end if

End Function

Private Sub Form_Click()

ld="12345"

Print old

Print rev(old)

End Sub

以下程序用来产生20个(0，99)之间的随机整数，并将其中的偶数打印出来。请填空。

Private Sub Command1_Clcik()

Randomize

For I=1 To 20

X=Int(Rnd* ______ )

If X/2= ________ Then Print x

Next I

End Sub

下列程序的功能是：将字符串“abcde”逆序打印出来。请填写空白处以完善程序。 Function rev(str1) As String B=Mid(______,1, 1) If B= "" Then rev="" Else rev=rev(Mid(str1, 2)) +______ End If End Function Private Sub Form_Click() ld ="abcde" Print rev(old) End Sub

A．大写字母的序号依次为97~122

B．小写字母的序号依次为97~122

C．大写字母的序号依次为1~26

D．小写字母的序号依次为1~26

设有如下通用过程： Public Sub Fun(a()，By Val x As Integer) Fori=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮，然后编写如下的事件过程： Private Sub Commandl_Chck() Dimart(5)As Variant Fori=1 To 5 arr(i)=i

A．10

B．15

C．25

D．24