VB二级vs期末练习.docVIP

7VB上级二级vs期末练习题 第一套 Height 高度width宽度 Text1.width=hs1.value Private Sub Form_Load() List1.AddItem 性别 List1.AddItem 班号 List1.AddItem 简历 List2.AddItem 学号 List2.AddItem 姓名 List2.AddItem 年龄 List2.AddItem 照片 End Sub Private Sub C1_Click() List2.AddItem List1.Text List1.RemoveItem List1.ListIndex End Sub Private Sub C2_Click() Dim k As Integer k = 0 While (k List2.ListCount) If List2.Selected(k) = True Then List1.AddItem List2.Text List2.RemoveItem k End If k = k + 1 Wend End Sub Private Sub C1_Click() Dim n As Integer, k As Integer Dim fact As Long For k = 0 To 2 If Form1.Op1(k).Value Then n = Val(Left$(Form1.Op1(k).Caption, 2)) End If Next k fact = 1 k = 1 Do While k n fact = fact * k k = k + 1 Loop Text1.Text = fact End Sub Private Sub Form_Unload(Cancel As Integer) unload_sub End Sub Private Sub unload_sub() Dim fn As String fn = App.Path \dataout.txt Open fn For Output As #1 Print #1, Text1.Text Close #1 End Sub Private Sub C1_Click() Dim a As String CD1.Filter = 所有文件？*.*？文本文件？*.txt？Word文件？*.doc CD1.FilterIndex = 2 CD1.Action = 1 Open CD1.FileName For Input As #1 Input #1, a Close #1 Text1.Text = a End Sub Private Sub C2_Click() Text1.Text = UCase(Text1.Text) End Sub Private Sub C3_Click() CD1.FileName = out5.dat CD1.Action = 2 Open CD1.FileName For Output As #1 Print #1, Text1.Text Close #1 End Sub 第二套 Private Sub Command1_Click() Label1.Visible = True Text1.Visible = False Label1.Caption = Text1.Text End Sub Private Sub HScroll1_Change() Text1.Height = HScroll1.Value Text1.Width = Text1.Height * 1.2 End Sub Private Sub Form_Click() If Option1.Value = True Then Text1.Text = InputBox(请输入要添加的项目) List1.AddItem Text1.Text End If If Option2.Value = True Then Text1.Text = InputBox(请输入要删除的项目) For i = 0 To List1.ListCount - 1 If List1.List(i) = Text1.Text Th