VB程序设计语复习版.docVIP

1、 在“考生”文件夹下有一个工程文件ITAT21.vbp，窗体上有两个列表框，名称分别为List1、List2，在List2中已经预设了内容；还有两个命令按钮，名称分别为C1、C2，标题分别为“添加”、“清除”，如下图所示。程序的功能是在运行时，如果选中右边列表框中的一个列表项，单击“添加”按钮，则把该项移到左边的列表框中；若选中左边列表框中的一个列表项，单击“清除”按钮，则把该项移回右边的列表框中。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的“？”改为正确的内容，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘并提交。?Private Sub C1_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 C2_Click() List2.AddItem List1.Text List1.RemoveItem List1.ListIndex End Sub 2在“考生”文件夹中有一个工程文件ITAT21.vbp。程序的功能是通过键盘向文本框中输入大、小字母及数字。单击标题为“统计”的命令按钮，分别统计输入字符串中的大写、小写字母及数字字符的个数，并将统计结果分别显示在标签控件数组x中，如图所示。不得修改已经存在的程序，最后把修改后的文件按原文件名存盘。?Private Sub Command1_Click() Dim n As Integer Dim b As Integer Dim a(3) As Integer s = RTrim(Text1.Text) n = Len(Text1.Text) For i = 1 To n b = Asc(Mid(s, i, 1)) Select Case b Case 48 To 57 a(0) = a(0) + 1 Case 65 To 90 a(1) = a(1) + 1 Case 97 To 122 a(2) = a(2) + 1 End Select Next For i = 0 To 2 x(i) = a(i) Next End Sub 3在“考生”文件夹下有一个工程文件ITAT22.vbp。窗体上的控件已经设计完毕（不需修改它们的任何属性），程序运行后，如果单击“变化”命令按钮，则形状控件shape1每隔1. 5秒在形状控件的6种形状间作随机变化（提示：使用随机整数生成器），同时这6种形状的名称显示在列表框中，下图表示了它的变化。提供的窗体文件可以实现上述功能，但这个程序不完整，请补充。要求：把程序中的“？”改为适当的内容，使其正确运行，注意：不得修改已经存在的程序，最后把修改后的文件按原文件名存盘并提交。Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Dim n As Integer n = Int(Rnd * 6) List1.Selected(n) = True Shape1.Shape = n End Sub 4编写程序，完成以下功能：（1）利用窗体的Load事件，预先把两位整数11、22、33、44、55、66、77、88、99依次存入a数组中并显示在文本框Text1中，界面设计如图(a)所示；（2）运行程序，单击“插入”按钮，会弹出一个输入框（如图(b)所示），由用户输入一个两位整数并确定后，该整数被插入到数组的适当位置，数组依然保持升序（从小到大次序）排列，并显示在文本框Text2；（3）窗体文件保存为ITAT31.frm，工程文件保存为ITAT31.vbp，将所有文件压缩并命名为“SF.rar”后提交。?????????????????????????????? (a)???????????????????????????????????? (b) Dim a(1