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

  • 2
  • 0
  • 约1.1万字
  • 约 18页
  • 2017-01-02 发布于贵州
  • 举报
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

文档评论(0)

1亿VIP精品文档

相关文档