(單選,填字母) A.將窗體的Text屬性改為“評分” B.在Form_Load ( )事件中輸入代碼Form1.Caption=“評分“ C.在Form1_Load ( )事件中輸入代碼 Form.Name=“評分“ (2)實現上述功能的程序如下,請在橫線處填入合適的代碼: Private Sub Command1_Click ( ) Dim cans As String,ans As String,ch As String,c As Integer Dim f(1To 6)As Boolean cans=Text1.Text ans=
c=0 For i=1To 6 f(64+i)=False Next i For i=1To Len(cans) ch=Mid(cans,i,1) f(Asc(ch)-64)=True Next i For i=1To
ch=Mid(ans,i,1) If f(Asc(ch)-64)=False Then Exit For Else c=c+1 End If Next i If c=0Then Label4.Caption=“0分“ ElseIf c=Len(cans) Then Label4.Caption=“2分“ Else Label4.Caption=“1分“ End If End Sub (3)若去除加框處代碼,且將文本框Text2的內容改為“BCD”,標簽Label4顯示的內容是