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

投标人A参加某泵站的土建标投标，其已标价工程量清单中的一部分如表所示。经评审投标人A实质上响应了招标文件的要求，但评委发现其投标报价中有计算性错误，而招标文件中对此未作规定，根据《工程建设项目施工招标投标办法》(国家八部委局第30号令)，投标人A的已标价工程量清单中的“土方开挖”、“钢筋”修正后的合价应分别为( )万元。 投标人A的已标价工程量清单
序 号 项目名称 单 位 数 量 单价(元) 合价(万元) 1 土方开挖 m³ 10000 8.65 8.95 2 钢 筋 t 1000 345.5 345.5

A．8.95、345.5
B．8.65、345.5
C．8.65、34.55
D．8.95、34.55