执行下面的程序段，x的值为【】。　　Private Sub Command1_Click()　　　For i=1 To 9　　　　　a=a + i　　　Next i　　　x=Val(i)　　　MsgBox x　　End Sub

2012年，恰逢四年一度的奥运会将在伦敦举办。国际奥委会授权东道主编撰写三本宣传手册：

（1）现代奥运会创办者顾拜旦等人的贡献。（2）19世纪末至2004年各届奥运会重大花絮。（3）每届奥运会的基本情况。如果由你来编写，你认为与三本手册相应的较好的编撰体例是[ ]

A．纪传体编年体笔记体

B．编年体纪传体纪事本末体

C．编年体国别体纪事本末体

D．纪传体编年体纪事本末体