以下程序的功能是：把当前目录下的顺序文件smText1. txt的内容读入内存，并在文本框Text1中显示出来。请填空。
Private Sub Command1_Click()
Dim inData As String
Text1. Text=""
Open". \mText1. txt" 【14】 As 1
Do While 【15】
Input #1, inData
Text1. Text=Text1. Text & inData
Loop
Close #1
End Sub

职业道德是人们在各种职业活动中应该遵守的（）。

A.职业纪律 

B.职业操守 

C.职业规范 

D.道德规范