计算机二级考试《VB》操作试题及答案

计算机二级考试《VB》操作试题及答案1.题目描述：在Form1窗体上建立一个名称为List1的列表框，通过属性窗口设置其属性，使其初始时显示以下内容：“Item1”、“Item2”、“Item3”、“Item4”。再建立一个名称为Text1的文本框，用于显示列表框中选中的内容。最后，建立一个名称为Command1的命令按钮，标题为“复制”。要求程序运行后，单击“复制”按钮，将列表框中选中的内容复制到文本框中。2.答案：（1）在Form1窗体上添加List1列表框和Text1文本框，以及Command1命令按钮。（2）设置List1列表框的属性：-列表框的MultiSelect属性设置为0（None），表示单选。-列表框的List属性设置如下：-List(0)="Item1"-List(1)="Item2"-List(2)="Item3"-List(3)="Item4"（3）设置Text1文本框的属性：-文本框的Text属性设置为空字符串（""）。（4）设置Command1命令按钮的属性：-命令按钮的Caption属性设置为“复制”。（5）编写Command1命令按钮的点击事件过程：PrivateSubCommand1_Click()DimindexAsIntegerindex=List1.ListIndexIfindex>=0ThenText1.Text=List1.List(index)EndIfEndSub二、简单应用题1.题目描述：在Form1窗体上建立一个名称为Text1的文本框，用于输入字符串。再建立一个名称为List1的列表框，用于显示字符串。要求程序运行后，在文本框中输入字符串，按下回车键，将输入的字符串添加到列表框中。2.答案：（1）在Form1窗体上添加Text1文本框和List1列表框。（2）设置Text1文本框的属性：-文本框的Text属性设置为空字符串（""）。（3）设置List1列表框的属性：-列表框的MultiSelect属性设置为0（None），表示单选。（4）编写Text1文本框的按键事件过程：PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyReturnThenList1.AddItemText1.TextText1.Text=""EndIfEndSub三、综合应用题1.题目描述：在Form1窗体上建立一个名称为Text1的文本框，用于输入字符串。再建立一个名称为List1的列表框，用于显示字符串。要求程序运行后，在文本框中输入字符串，按下回车键，将输入的字符串添加到列表框中。同时，当列表框中的字符串被选中时，将其内容显示在文本框中。2.答案：（1）在Form1窗体上添加Text1文本框和List1列表框。（2）设置Text1文本框的属性：-文本框的Text属性设置为空字符串（""）。（3）设置List1列表框的属性：-列表框的MultiSelect属性设置为0（None），表示单选。（4）编写Text1文本框的按键事件过程：PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyReturnThenList1.AddItemText1.TextText1.Text=""EndIfEndSub（5）编写List1列表框的点击事件过程：PrivateSubList1_Click()Text1.Text=List1.SelectedItem.TextEndSub四、拓展题1.题目描述：在Form1窗体上建立一个名称为Text1的文本框，用于输入字符串。再建立一个名称为List1的列表框，用于显示字符串。要求程序运行后，在文本框中输入字符串，按下回车键，将输入的字符串添加到列表框中。同时，当列表框中的字符串被选中时，将其内容显示在文本框中。此外，要求程序能够实现以下功能：-当列表框中的字符串被双击时，将其删除。-当文本框中的字符串被选中时，将其内容高亮显示。2.答案：（1）在Form1窗体上添加Text1文本框和List1列表框。（2）设置Text1文本框的属性：-文本框的Text属性设置为空字符串（""）。（3）设置List1列表框的属性：-列表框的MultiSelect属性设置为0（None），表示单选。（4）编写Text1文本框的按键事件过程：PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyReturnThenList1.AddItemText1.TextText1.Text=""EndIfEndSub（5）编写List1列表框的点击事件过程：PrivateSubList1_Click()Text1.Text=List1.SelectedItem.TextEndSub（6）编写List1列表框的双击事件过程：PrivateSubList1_DblClick()List1.RemoveItemList1.Li