vb部分考试试题及答案.docVIP

1. 图5 Private Sub Command1_Click() 考生应完成的程序 ******* Begin ************ Open “in5.dat” for input as #1 Input #1, s Close #1 Text1.text=s End Sub private Sub Command2_Click() 考生应完成的程序 Stetemp2=”” For i=1 to len(s) Ch=mid(s,i,1) If i mod 2 0 then If isletter(cstr(ch))=true then If ch=”Z” then Ch=”A” Elseif ch=”z” then Ch=”a” Else Ch=chr(asc(ch)+1) End if End if Else If isletter(cstr(ch))=true then If ch=”A” then Ch=”Z” Elseif ch=”a” then Ch=”z”