07年春06级vb期末考试a卷
Visual Basic程序设计期末复习试题(A)含答案
（1）编写一个子过程，计算1×2+2×3+……+（n-1）×n的值。
（2）输入n的值，将计算结果显示在窗体上。
VB课程试卷（A）卷第1页共3页
题号
一
二
三
四
五
六
七
八
九
十
总分
说明:本课程考试分为上机考试和笔试两部分,满分100分,其中上机占40分,笔试60分,本试卷为笔试试卷，卷面满分60分。
3.执行语句s = len(mid(“VisualBasic”,1,6))后，s的值是(C)。
(A) Visual (B) Basic (C) 6 (D) 11
4.下列选项中，合法的变量名(B)。
(A) c%aaa (B) sum__3 (C) Else (D) 5persons
6.返回系统当前日期和时间的函数是(D)。
(A) Time()(B) Day() (C) Date()(D) Now()
6.运行以下程序后，x的值是(B)。
x=2
fori= 1 to 10 step 2
x = x +i
nexti
(A) 25(B) 27 (C) 38(D) 57
7.要让一个控件不显示，应将该控件的（D）属性设置成False。
Print x , y
14.下列程序的结果是________________。
For i = 1 to 4
X = 4
For j = 1 to 3
X = 3
For r =1 to 5
X = X + i
Next r
VB期末考试考卷及答案
VB期末考试考卷及答案一、选择题（每题1分，共5分）1. 在VB中，下列哪个函数用于返回字符串的长度？A. Len()B. Length()C. Size()D. Count()A. DimB. IntegerC. IntD. Var3. 在VB中，下列哪个语句用于退出当前循环？A. Exit ForB. BreakC. Exit DoD. ContinueA. OpenB. LoadC. CreateD. Read5. 在VB中，下列哪个事件在窗体加载时发生？A. LoadB. InitializeC. FormLoadD. FormOpen二、判断题（每题1分，共5分）1. VB中的变量必须先声明后使用。
（）2. 在VB中，Sub过程可以返回值。
（）3. VB中的数组下标从1开始。
（）4. 在VB中，可以使用Select Case语句进行多条件判断。
（）5. VB中的字符串可以用单引号(')表示。
（）三、填空题（每题1分，共5分）1. 在VB中，用于声明常量的关键字是______。
2. VB中的逻辑运算符包括______、______和______。
3. 在VB中，要实现两个变量的值交换，可以使用______变量作为中间变量。
4. 在VB中，______方法用于设置文本框的字体。
5. VB中的______事件在用户单击按钮时发生。
四、简答题（每题2分，共10分）1. 简述VB中事件的执行过程。
2. 请列举三种VB中的数据类型。
3. 简述如何使用Select Case语句进行多条件判断。
4. 请说明如何使用VB中的循环结构实现1到100的累加。
5. 简述如何使用VB中的文件操作函数读取文件内容。
五、应用题（每题2分，共10分）1. 编写一个VB程序，计算并输出1到100之间所有偶数的和。
2. 编写一个VB程序，实现用户输入一个字符串，程序将其逆序输出。
3. 编写一个VB程序，使用循环结构输出九九乘法表。
大学_vb期末考试试题
VB期末考试试题A卷一、填空题1、VB程序设计的主要特点是和（2）。
2、在VB中,最主要的两种对象是 (3）和（4）。
3、工程是构成应用程序文件的（5) 。
4、方法是VB提供的一种（6) ，用来完成一定的操作。
5、浮点类型数据包括单精度型和___(7)__数据。
6、事件是窗体或控件对象识别的___（8）____.7、可用窗体的___（9）_ 方法在窗体中显示文字.8、复选框控件Value属性指示复选框处于____（10）___或禁止状态(暗淡的)中的某一种。
9、在VB中，修改窗体的（11）和（12）属性值，可改变窗体的大小。
10、双击工具箱中的控件图标，可在窗体的（13) 出现一个尺寸为缺省值的控件。
11、在MsgBox函数中,如果缺省title参数，则使用（14）作为消息框的标题。
12、设x＝34。
58，语句Print Format（x,“000。
0”）的输出结果是（15） .13、在VB 中，数值型变量的初值为（16），Varant型变量的初值为（17），布尔型变量的初值为（18）。
14、设置窗体的（19）属性，可在窗体上显示图片。
15、程序运行工程中,清除MP图片框中的图片应使用语句（20）。
二、选择题1、菜单控件只包括一个事件，即 (1），当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。
A、GotFocusB、LoadC、ClickD、KeyDown2、滚动条控件(如图所示）的Max属性所设置的是（2) .A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量D、滚动条控件无该属性3、SQL 语句 Select ＊ Form student 中的＊表示 (3）。
A、所有记录B、所有字段C、所有表D、都不对4、以下选项中，不属于标签的属性是 (4） .A、EnabledB、CaptionC、DefaultD、Font5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是（5) 。
2007VB期末试卷A
2006~2007学年第二学期VB期末考试（A卷）（2006级全校）一、选择题（1分×40=40分）1.使用菜单编辑器创建菜单时，可在菜单名称中某字母前插入（1）符号，可在运行程序时按Alt＋该字母键访问该命令菜单。
A.下划线B.@C.$D.&2. 同一模块的不同过程之间，不能通过（2）进行数据传递。
A.全局变量B.模块级变量C.静态变量D.形参与实参结合3. 下列不适用于顺序文件访问类型的语句或函数是（3）。
A.Input #B. Input()C.PutD. Line Input #4.下列有关文件的叙述正确的是（4）。
A.若以Output、Append、Random和Binary模式打开一个不存在的文件，则系统会报错B.一个当前使用的文件号可能对应多个文件C.在Input方式下，不能使用不同文件号同时打开同一个文件D.若以Output模式打开一个已存在的顺序文件，则该文件中原有数据将全被删除5.在VB应用程序中, （5）。
A. 过程的定义可以嵌套，但过程的调用不能嵌套B. 过程的定义和过程的调用均可以嵌套C. 过程的定义不可以嵌套，但过程的调用可以嵌套D. 过程的定义和过程的调用均不可以嵌套6. 在应用程序中用Private Function Fun(X As Integer, Y As Single) As Integer定义了函数Fun。
调用函数Fun的过程中的变量I、J和K均为Integer型，则下列语句中能正确调用函数Fun的语句是（6）。
①Fun (I), (J) ②Call Fun(I, 365) ③Fun(3.14, 234) ④K = Fun("24","35")A.③④B. ①②④C. ②③D.②③④7. 设变量D 为Date型、A 为Integer型、S为String型、 L 为 Long 型，下面赋值语句中不能正确执行的是（7）。
VB期末试卷(A卷带答案)
高级语言程序设计（VB）试卷（A卷）注意事项：1、本试卷共页，满分为100 分，考试时间为110 分钟。
2、标准答题卡使用2B铅笔涂写；文字题答题时请使用蓝、黑钢笔或圆珠笔，不得使用红颜色墨水笔。
一、单项选择题（每空1分，共30分）（请将答案按照题干上【】内的序号涂写“标准答题卡”，否则不得分）1．，扩展名为.vbp的文件称为【1】。
A) 工程文件B) 窗体文件C) 类模块文件D) 标准模块文件2．集成开发环境的设计模式下，用鼠标双击窗体上的某个对象后，打开的窗口是【2】。
A) 代码窗口B) 窗体设计窗口C) 属性窗口D) 工程资源管理器窗口3．设有变量定义语句Dim a%，则变量a的数据类型是【3】。
A) 整型B) 单精度类型C) 双精度类型D) 字符串类型4．下列表达式中，值为False的是【4】。
A) "AB"<"abc" B) "ABC" = UCase("abc")C) "ABCD"<"abc" D) Mid("ABCD",3,1)=Left("ABCD",3) 5．函数InStr("ABCDEF", "CD")的值是【5】。
A) 2 B) 3 C) True D) CDEF6．下列程序运行后，单击窗体，输出结果是【6】。
Private Sub Form_Click()Dim a As Integer, b As Integera = 3b = 5Print a + b; a & bEnd Sub A) 8 8B) 35 35C) 8 35D) 35 87．下列程序运行后，单击窗体，输出结果是 【7】 。
Private Sub Form_Click() a = 3: b = 7a = a +b : b = a – b : a = a - b Print a; b End Sub A) 4 3B) 7 3C) 3 7D) 10 78．下面程序段所表示的数学关系式是 【8】 。
vb期末考试试题和答案
vb期末考试试题和答案**VB期末考试试题和答案**一、单选题（每题2分，共20分）1. 在Visual Basic中，以下哪个不是基本数据类型？A. IntegerB. DoubleC. StringD. Object答案：D2. 下列哪个选项是Visual Basic的事件驱动编程模型？A. 用户操作B. 程序流程C. 函数调用D. 循环执行答案：A3. 在Visual Basic中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. Const答案：A4. 如果要声明一个变量用于存储字符串，应该使用以下哪个数据类型？A. IntegerB. StringC. DoubleD. Boolean答案：B5. 在Visual Basic中，哪个函数用于将字符串转换为小写？A. UCaseB. LCaseC. StrCompD. Trim答案：B6. Visual Basic中，以下哪个控件用于显示文本，但不允许用户编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B7. 在Visual Basic中，以下哪个语句用于结束程序的执行？A. EndB. ExitC. StopD. Return答案：A8. Visual Basic中，以下哪个控件用于创建下拉选择列表？A. ListBoxB. ComboBoxC. CheckBoxD. RadioButton答案：B9. 在Visual Basic中，以下哪个关键字用于声明一个过程？A. SubB. FunctionC. PropertyD. Event答案：A10. Visual Basic中，以下哪个函数用于获取当前系统日期？A. NowB. DateC. TimeD. Timer答案：B二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以声明一个数组。
vb期末考试题和答案
vb期末考试题和答案1．在代码中引用一个控件时，应使用控件的（ b ）属性。
A．Caption B．Name C．Text D．Index2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（ a ）的值为“假”。
A．x+a<= b-y B． x> 0 AND y < 0C．a = b OR x>y D．x+y>a+b AND NOT (y < b)3．表达式Int(Rnd*71)+10产生的随机整数范围是（ c ）。
A．（10，80） B．（10，81） C．[10，80] D．[10，81]4．函数Sgn(3.1416)的返回值是（ c ）。
A．-1 B．0 C．1 D．以上都不对5．67890属于（ d ）类型数据。
A．整型 B．单精度浮点数 C．货币型 D．长整型6．下列变量名中正确的是（ d ）。
A．3S B．Print C．Select My Name D．Select_17．下列赋值语句（ a ）是有效的。
A．sum = sum-sum B．x+2 = x + 2 C．x + y =sum D．last = y / 08．以下的控件或方法具有输入和输出双重功能的为（ b ）。
A．Print B．Textbox C．Optionbutton D．Checkbox 9．若要获得列表框中被选中的列表项的内容，可以通过访问（ d ）属性来实现。
A．Name B．ListIndex C．ListCount D．Text10．下列代码的运行结果为（ b ）。
Private Sub command1_click()Dim m(10)For k = 1 To 10m(k) = 11 - kNext kx = 5Print m(2 + m(x))End SubA．2 B．3 C．4 D．5二、填空题（10分）1．写出整数n能同时被13和17整除的Basic表达式： n Mod 13=0 And n Mod17=0 。
(06-07)上VB期末考试福建农林大学考试试卷
福建农林大学考试试卷2006--2007学年第一学期课程名称：Visual Basic程序设计（校统考) 考试时间2007。
1。
13一、选择题(选择题知识点共20个,满分50分）[1-1]在以下叙述中错误的是()。
A) 窗体文件包含该窗体及其控件的属性B) 一个工程中可以含有多个标准模块文件C）以.bas为扩展名的文件是标准模块文件D）工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件［1-2]在以下叙述中错误的是（B ）。
A) VB是可视化程序设计语言B）VB是面向过程的程序设计语言C）VB采用事件驱动编程机制D）VB应用程序可以以编译方式执行［1-3］在以下叙述中错误的是（D）.A）VB是事件驱动型可视化编程工具B) VB中控件的某些属性只能在运行时设置C）VB的控件都是具有自己的属性、方法和事件的对象D）VB工具箱中的所有控件都具有宽度(Width）和高度（Height）属性［2—1］VB中占用存储空间最小的数据类型是（A）。
A) Byte B）Date C）Integer D）Boolean[2-2］以下为字符串变量的是(B ）。
A）x！B）x$ C) x％D）x＃[2—3]以下合法的变量名是（D ）。
A) X(—1) B）A％C C）SIN D) C O1［3—1］下列表达式的值为真的是(B ）。
A）”1”+2="12” B）”1” ＆2=”12"C）"1"+”2”=”3” D）”1" & ”2”=”3”[3—2]下列运算结果中,值最小的是(A ）。
A）3\7 B) 3/7 C）7 mod 3 D) 3 mod 7[3—3］判断整型变量X是奇数的表达式是（C ）。
A）X Mod 2 = 1 B）X Mod 2 = 0C）X mod 2 <〉0 D) X Mod 2 <〉1［4-1］表达式Len（Str（Val(”123.4”)）)的值为（C）。
2007vb期末考试题(A)答案
参考答案表：四.编写程序参考答案1.个人所得税Private Sub Command1_Click()Dim salary As Doublesalary = Val(Text1.Text)Select Case salaryCase Is <= 1600Label2.Caption = "免税！"Case Is <= 3000x = (salary - 1600) * 0.05Label2.Caption = "应纳税为：" & x & "元"Case Is <= 5000x = (3000 - 1600) * 0.05 + (salary - 3000) * 0.1Label2.Caption = "应纳税为：" & x & "元"Case Is <= 10000x = (3000 - 1600) * 0.05 + (5000 - 3000) * 0.1 + (salary - 5000) * 0.15 Label2.Caption = "应纳税为：" & x & "元"Case Elsex = (3000 - 1600) * 0.05 + (5000 - 3000) * 0.1 + (10000 - 5000) * 0.15 + (salary - 10000) * 0.2Label2.Caption = "应纳税为：" & x & "元"End SelectEnd Sub2.下列程序的功能是:用函数调用求S(S=M!/(N!*(M-N)!),要求M>N)。
要求：（1）阶乘的计算用自定义函数jc过程来做。
（2）结果输出到窗体上。
2006级VB期末试卷(带答案)
VB 程序设计试卷(2006级)一、单项选择题（每小题 分，共 分）中 窗体文件的扩展名是 【 】 。
） ） ） ）．对象的组成的三个要素是 【 】 。
） 函数、过程、语句 ） 窗体、控件、行为） 属性、方法、事件 ） 窗体、模块、控件．以下叙述中错误的是 【 】 。
）一个工程中只能有一个 过程）窗体的 方法的作用是将指定的窗体装入内存并显示该窗体）窗体的 方法和 方法的作用完全相同）若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体．以下能在窗体 的标题栏中显示“示例窗体”的语句是 【 】 。
） 示例窗体 ） 示例窗体） 示例窗体 ） 示例窗体．以下是关于 子窗体在运行时特性的叙述，错误的是【 】 。
）子窗体在 窗体的内部区域显示）子窗体可在 窗体的外部区域显示）当子窗体最小化时，它的图标在 窗体内显示）当子窗体最大化时，其标题与 窗体的标题合并，并显示在 窗体的标题栏中要使某控件在运行中不起作用，应对控件的 【 】 属性进行设置。
） ） ） ）．如果要使计时器控件每秒产生 个计时器（ ）事件，应把该控件的 属性的值设置为 【 】 。
） ） ） ）．为了在按下 键时执行某个命令按钮的 事件过程，需要把该按钮的 【 】 属性设置为 。
） ） ） ）．在列表框中，当前被选中的列表项的序号由 【 】 属性返回。
） ） ） ）．下列条件语句中，能够判断复选框 当前为选中状态的是 【 】 。
） …… ）……） …… ） ……．组合框分为下拉式组合框、简单组合框和下拉式列表框，这三种类型由下列哪个属性确定 【 】 。
） ） ） ）．当单击滚动条两端的箭头时，将触发滚动条的 【 】 事件。
） ） ） ）．在窗体上放置一个水平滚动条，名称为 ；再放置一个文本框，名称为 。
要想使用滚动条滑块代表的值显示在文本框中，则可满足的语句是 【 】 。
） ）） ）．要强制显式声明变量，可在窗体模块或标准模块的声明段中加入语句 【 】 。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
2006/2007学年第2学期《VB程序设计》期末考试试卷A说明: （1）考生应将答案填写在答卷上，否则作无效处理；（2）考试时间为120分钟。
试题一、判断题（每小题1分，共10分）说明：在以下提供的若干陈述中，逐一判断其正确与否，用A表示正确，用B表示错误。
(1) 属性是Visual Basic对象性质的描述，对象的数据就保存在属性中。
(2) 要使输入文本框的字符始终显示“#”，则应修改其PasswordChar属性为“#”。
(3) 在循环体内，循环变量的值不能被改变。
(4) Sub过程名在过程中必须被赋值。
(5) 若Visual Basic中容器取缺省坐标系，则坐标原点在容器左上角、单位长度为像素。
(6) 移动框架时框架内控件也随之移动，所以框架内控件的Left和Top属性值也随之改变。
(7) 使用单选钮控件数组时，它们响应同一个Click事件，由Index参数值来区分不同的按钮。
(8) 影像框的Stretch属性设置为True时，影像框的大小会根据显示的图片大小进行调整。
(9) 设计菜单中每一个菜单项分别是一个控件，每个控件都有自己的名称。
(10) 若要新建一个磁盘上的顺序文件，可用Output和Append方式打开文件。
试题二、单选题（每小题2分，共20分）(11) 将VB新建的“标准EXE”工程保存在磁盘上，至少会产生(11) 文件。
[A] .frx和.frm[B] .exe和.vbp[C] .vbp和.frm[D] .frm和.bas(12) 语句“Form1.Print Tab(10); "#" ”的作用是在窗体当前输出行(12) 。
[A] 第10列输出字符“#”[B] 第9列输出字符“#”[C] 第11列输出字符“#”[D]输出10个字符“#”(13) 语句Print Fix(-2.7) * Val("12a.5")的显示结果是(13) 。
[A] -25 [B] -24 [C] -36 [D] 出现错误提示(14) 在窗体Form1的一个事件过程中，使用(14) 来清除窗体上所绘制的图形，是不正确的。
[A] Form1.Cls [B] Me.Cls [C] Form.Cls [D] Cls(15) 在Select Case x结构中，表示x是属于2~10之间的偶数，正确的Case语句是(15) 。
[A] Case 2 To 10 [B] Case x Mod 2=0 And 0<=x<=10[C] Case 2,4,6,8,10 [D] Case Is <=10 And Is>=0 And Is Mod2=0(16) 执行语句“Write #1, 234; -34.56, "Hi"; Date”后，相应的文件内被写入(16) 。
[A] 234,-34.56,"Hi",#2004-06-11#[B] 234;-34.56,"Hi";#2004-06-11#[C] 234,-34.56,Hi,2004-06-11[D] 234 -34.56 "Hi" #2004-06-11#(17) 选中复选框控件时，复选框的Value属性值为(17) 。
[A] 1 [B] 0 [C] True [D] False(18) 将焦点主动设置到指定的控件或窗体上，应采用 (18) 方法。
[A] SetDate [B] SetFocus [C] SetText [D] GetGata (19) 将通用对话框控件以“打开文件”对话框方式打开，可选 (19) 方法。
[A] ShowOpen [B] Action [C] Open [D] FileName (20) 要使得驱动器列表框控件Drive1发生变化时目录列表框Dir1的路径与之保持一致，应编写 (20) 事件代码。
[A] Private Sub Drive1_Change() Drive1.Drive = Dir1.Path End Sub [C] Private Sub Dir1_Change() Drive1.Drive = Dir1.Path End Sub 试题三、程序填空题（每空2分，共30分，）说明：阅读下列程序说明和相应程序，在每小题提供的若干可选答案中，挑选一个正确答案。
程序1【程序说明】以下程序按下式计算y ，x 由键盘输入。
Fuction f(x)是计算y 的自定义函数。
5555log 5sin 1210>=<=<=-<=⎪⎩⎪⎨⎧+-+⋅-=x x x x x e x x x y x【程序】Option ExplicitPrivate Sub Command1_Click() Dim x As Single, y As Single（21） （22） Print "y="; y End SubFunction f(x As Single) As Single Dim y as Single If x < -5 Theny = 2 * x - 1ElseIf x >= -5 And x <= 5 Then （23） Else（24）End If（25） End Function【选项】(21) [A] InputBox "x=",x[B] InputBox("x=",x) [C] x= InputBox("x=")[D] y = InputBox("x=")[B] Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub [D] Private Sub Dir1_Change() Dir1.Path = Drive1.Drive End Sub(22) [A] call f(x) [B] y=f [C] y=f(x) [D]f(x)(23) [A] y = x * Sin(x) + e ^ x[B] y = x . Sin(x) + Exp(x)[C] y = x . Sin(x) + e ^ x[D] y = x * Sin(x) + Exp(x)(24) [A] y = Sqr(x - 5) + Log(x)[B] y = (x - 5)^1/2 + Log(x)[C] y = (x - 5)^1/2 + Log(x) / Log(10) [D] y = Sqr(x - 5) + Log(x) / Log(10)(25) [A] Print y [B] Print f[C] f = y [D] y = f程序2【程序说明】以下程序随机产生100个两位正整数，先对这些数按从大到小的顺序排序并按每行10个显示在窗体上。
再找出所有的个位数字与十位数字之和等于10的数。
【程序】Private Sub Form_Click()Dim a(100) As Integer, i As Integer, j As Integer, t As Integer, x As Integer, y As IntegerFor i = 1 To 100a(i) = (26)Next iFor i = 1 To 99For j = i + 1 To 100If a(i) < a(j) Then(27)End IfNext jNext iFor i = 1 To 100Print a(i);(28)Next iFor i = 1 To 100x = (29) '取十位数字y = a(i) Mod 10 '取个位数字If x + y = 10 Then Print a(i)Next iEnd SubPrivate Sub Swap( (30) ) As IntegerDim Temp As IntegerTemp = X : X = Y : Y = TempEnd Sub【选项】(26) [A] Int(Rnd * 90 + 10) [B] Int(Rnd * 100)[C] Int(Rnd * 99) [D] 10 To 99(27) [A] Call Swap a(i), a(j) [B] Call Swap(a(i), a(j))[C] Temp = Swap(a(j), a(i)) [D] Swap(a(j), a(i))(28) [A] If i = 10 Then Print [B] If i = 10 *n Then Print[C] If i \ 10 = 0 Then Print [D] If i Mod 10 = 0 Then Print(29) [A] a(i) / 10 [B] a(i) \ 10 [C] Int(a(i))/10 [D] Fix(a(i))(30) [A] ByVal X As Integer, ByVal Y As Integer [B] ByVal X As Single, ByVal Y As Single[C] ByRef X As Integer, ByRef Y As Integer [D] ByRef X As Single, ByRef Y As Single程序3【程序说明】以下程序运行时，用户可以从左边的列表框控件List1（可以扩展多选）中挑选喜欢的运动项目至右边的列表框List2（只能单选）中，同时将List1中已选择的项目删除；如果选错，还可以将其放回左边的列表框；可以一次选中所有喜欢的运动项目。
【程序】Array Private Sub Form_Load() '为List1添加表项List1.AddItem "篮球": List1.AddItem "足球"List1.AddItem "网球": List1.AddItem "排球"List1.AddItem "羽毛球": List1.AddItem "曲棍球"End SubPrivate Sub Command1_Click() '移动表项至右边列表框Dim i As Integeri = 0(31)If (32) Then '判断是否选择了表项List2.AddItem List1.List(i) '添加选中的表项到右边的列表框中List1.RemoveItem i '然后在左边列表框中删除所选表项。