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

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” Else Ch=chr(asc(ch)-1) End if End if End if Strtemp2=strtemp2+ch Next i Text2.text=strtemp2 ******* End ************ End Sub Function isletter(a As String) As Boolean If A = a And a = Z Or a = a And a = z Then isletter = True Else isletter = False End If End Function Private Sub Command3_Click() Open out5.dat For Output As #1 Print #1, Text2.Text Close #1 End Sub  2. (a) (b) Private Sub Command1_Click() If Option1.Value = True And Text1.Text Then List1.AddItem Text1.Text Text1.Text = Else If Option2.Value = True And List1.ListIndex = 0 Then List1.RemoveItem List1.ListIndex Else MsgBox 未输入或未选定项目 End If End If End Sub 3. (a) (b) Private Sub Command1_Click() 需考生编写程序 ******* Begin ************ Dim s As String Open in5.txt For Input As 1 Line Input #1, s Close #1 Text1.Text = s ******* End ************ End Sub Private Sub Command2_Click() Dim oldSen As String Dim newSen As String Dim ch As String Dim lastCh As String oldSen = Text1.Text strlen = Len(oldSen) lastCh = Left(oldSen, 1) For i = 1 To strlen ch =Mid(oldSen, i, 1) If lastCh = Then ch = UCase(ch) End If ne