接收并查看手机导航语音服务发送的彩信（地图）是否收取流量费用？

一个标价为40元的商品按标价的九折出售后仍可获利20%，则该商品的进价为多少元？

完整的冠心病治疗策略包括（）

A.抗缺血和阿司匹林治疗

B.降血压和β受体阻断药

C.降胆固醇及戒烟

D.控制饮食和控制血糖治疗

E.抗感染治疗

中国最早的潜艇是（）年建造的。

A、1900年

B、1890年

C、1860年

D、1880年

以下哪个是我国古代城市建设优秀传统的集大成者（）。

A.唐朝首都

B.南宋首都

C.明清首都

D.汉朝首都

【说明】
该应用程序是用来修改文本框中的字体属性，其运行窗口如图4所示。

窗口由1个标签(Labell)、1个文本框(txtPassage)和4个选择框(chkFont，chkltalic，chkSize，chkColor)组成。程序运行后，用户在文本框内输入一段文字，然后按需要单击各选择框，用以改变文本的字体、字型、颜色及大小。
文本框的Mulitine属性已经设为True。当不选择“黑体”时，文字应是“宋体”。当不选择“大小16”时，字号为9。当不选择“紫色”时，字色为黑色。当不选择“斜体”时，文字采用正常字型。
【程序代码】
Private Sub chkFont Click( )
If (1) Then
txtPassage. FontName ="黑体"
Else
txtPassage. FontName ="宋体"
End If
End Sub
Private Sub (2) ()
If chkColor. Value = 1 Then
txtPassage. ForeColor = QBColor(13)
Else
txtPassage. ForeColor = QBColor (0)
End If
End Sub
Private Sub chkltalic_Click()
If chkltalic. Value = 1 Then
txtPassage. Fontl talic = (3)
Else
txtPassage. Fontltalic= (4)
End If
End Sub
Private Sub chkSize Click( )
If (5) Then
txtPassage. Font. Size = 16
Else
txtPassage. Font. Size = 9
End If
End Sub