您所在位置：主题：简单的字符输出问题，求指教
dalangtaosha999
[专家分：0] 发布于 2011-07-22 09:04:00
源代码
character(len=10) ::A1,tr
integer ::i
A1='BYQ'
do i=1,1
write(tr,'(i2)') i
b='b'//trim(adjustl(tr))
print*, b
enddo
结果输出A1,而我想输出BYQ，怎么实现啊，怎么把A1的值赋给b？求大神们指教（作此循环的目的是还有A2、A3……等）
character(len=10) ::A1,tr
integer ::i
A1='BYQ'
do i=1,1
write(tr,'(i2)') i
b='b'//trim(adjustl(tr))
print*, b
enddo
结果输出A1,而我想输出BYQ，怎么实现啊，怎么把A1的值赋给b？求大神们指教（作此循环的目的是还有A2、A3……等）