已知B的ASCII码为66，以下程序统计由键盘输入的字符串中各英文字母的使用次数
Dim pp (65 To 90)
For i = 65 To 90
pp(i) =0
Next
x$ = InputBox(" Enter a string", x$ )
x$ = UCase$ (x$)
For i = 1 To Len (x$)
n =Asc(Mid$ (x$, i, 1) )
If n＞= 65 And n＜ = 90 Then
【11】
End If
Next
For i = 65 To 90
Ifpp(i)＞0Then
Print Chr$ (i) ; pp (i)
End If
Next

甲公司为增值税一般纳税人，适用的增值税税率为17%，对外币业务采用业务发生时的市场汇率折算，按月计算借款利息并结算汇兑损益。20×7年1月份甲公司发生了以下外币业务：
(1)1月2日，自银行借入长期外币借款400万美元，借款期限2年，年利率6%，拟用于固定资产建造工程，当日市场汇率为1美元=8.25元人民币。有关工程的建设将自 20×7年2月10日开工。
(2)1月15日，自国外购入一台不需要安装的设备，设备价款为30万美元，当日市场汇率为1美元=8.24元人民币，款项尚未支付，甲公司将上述款项作为长期应付款核算，不考虑与设备相关的增值税。
(3)1月18日，自国外购入原材料一批，价款计80万美元，当日市场汇率为1美元 =8.28元人民币，另需支付进口关税64万元人民币，进口增值税112万元人民币，进口关税及增值税已由银行存款支付，美元货款尚未支付。
(4)1月20日，出口销售商品一批，合同销售价格为120万美元，当日市场汇率为1美元=8.26元人民币，假定不考虑相关税费，货款尚未收到。
(5)1月25日，收到20×6年12月出口货物应收货款15万美元，当日市场汇率为1美元=8.26元人民币。
(6)甲公司20×7年1月1日有关外币账户余额如下(单位：万元)：
项目 美元余额 折合人民币金额
应收账款52 430.04
应付账款25 206.75
长期借款0 0
长期应付款 0 0
(7)20×7年1月31日的市场汇率为1美元=8.29元人民币。
要求：

计算甲公司20×7年1月外币应收账款、应付账款、长期应付款及长期借款的汇兑损益并编制有关分录。