2022年VB本科期末上机考试练习题答案 .pdf

1、单击窗体在窗体上输出10 个两位随机整数，并求出其平均数。运行效果如下图所示：Private Sub Form_Click()Dim a(10)As Integer,i As Integer,s As Integer For i=1 To 10 a(i)=Int(Rnd*(99-10+1)+10 s=s+a(i)Print a(i)Next i Print 平均数为&s/10 End Sub 2、随机产生 20 个 200400之间的随机整数，按每行 5 个输出到窗体上，并求出其中的最大值。Private Sub Form_Click()Dim i As Integer,a(20)As Integer,max As Integer Print 原始数据为：max=0 For i=1 To 20 a(i)=Int(Rnd*(400-200+1)+200 Print a(i);If i Mod 5=0 Then Print If max a(i)Then max=a(i)Next i Print 最大值为：&max End Sub 3、产生 20 个两位的随机整数，输出这20 个数（以每行5 个的形式输出这20个数，其中的偶数用红色显示），找出其中的最大值和最小值，计算并输出平均值。运行效果如下图所示：名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页，共 34 页 -Private Sub Form_Click()Dim a(20)As Integer,i As Integer,max As Integer,min As Integer,s As Integer Print 原数组为：max=0 min=100 Form1.ForeColor=vbBlack For i=1 To 20 a(i)=Int(Rnd*(99-10+1)+10 If a(i)Mod 2=0 Then Form1.ForeColor=vbRed Else Form1.ForeColor=vbBlack End If Print a(i);先变色，再输出 If i Mod 5=0 Then Print s=s+a(i)If max a(i)Then min=a(i)Next i Print Form1.ForeColor=vbBlack Print max=&max Print min=&min Print aver=&s/20 End Sub 4、产生 10 个随机两位正整数，放入一数组中，并按从小到大的顺序排列。在窗体上输出原数据及排列后的数据。运行效果如下图所示：Private Sub Form_Click()Dim a(10)As Integer,i As Integer,j As Integer,b As Integer Print 排序前的数据：For i=1 To 10 a(i)=Int(Rnd*(99-10+1)+10 名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页，共 34 页 -Print a(i);Next i Print For i=1 To 9 For j=i+1 To 10 If a(i)a(j)Then b=a(i)a(i)=a(j)a(j)=b End If Next j Next i Print 排序后的数据：For i=1 To 10 Print a(i);Next i End Sub 5、新建一个工程，完成应用程序的设计。具体要求如下：（1）按照下图所示在窗体上放置控件。建立一个文本框和两个命令按钮。（2）在文本框中输入内容，单击“开始”后，把文本框中的字符按从小到大排列输出在窗体上，按结束退出应用程序。text1.Multiline=true text1.ScrollBars=3 文本框滚动条Private Sub Command1_Click()Dim a()As String,i As Integer,j As Integer,b As String,n As Integer n=Len(Text1.Text)ReDim a(1 To n)For i=1 To n a(i)=Mid(Text1.Text,i,1)Next i For i=1 To n-1 For j=i+1 To n If a(i)a(j)Then b=a(i)a(i)=a(j)a(j)=b End If Next j Next i 名师资料总结-精品资料欢迎下载-名师精心整理-第 3 页，共 34 页 -For i=1 To n Print a(i);Next i End Sub 6、建立一个 5 行 5 列二维数组，要求对角线为1，其余元素为 0。运行结果如图所示。Private Sub Form_Click()Dim a(5,5)As Integer,i As Integer,j As Integer For i=1 To 5 For j=1 To 5 If i=j Or i+j=6 Then a(i,j)=1 Else a(i,j)=0 End If Print a(i,j);Next j Print 放在 Next j 下面 换行效果 Next i End Sub 7、建立一个 5 行 5 列二维数组，要求右上三角元素（含对角线）为1，其余元素为 0。Private Sub Form_Click()Dim a(5,5)As Integer,i As Integer,j As Integer For i=1 To 5 For j=1 To 5 If i max Then max=a(i,j)h=i l=j End If Next j Next i Print 最大元素为:;max;位于第;h;行;l;列 End Sub 9、编制通用函数过程，计算1+2+N 的值。在窗体的 Click事件中调用该函数。Private Functionsum(n As Integer)As IntegerDim i As Integer For i=1 To n sum=sum+i Next i End Function名师资料总结-精品资料欢迎下载-名师精心整理-第 5 页，共 34 页 -Private Sub Form_Click()Dim n As Integer n=InputBox(请输入 N的值)Print 1+&n&的和是&sum(n)End Sub 10、编制通用函数过程，计算N！的值。在窗体的Click 事件中调用该函数。Private Function s(n As Integer)As DoubleDim i As Integer s=1 For i=1 To n s=s*i Next i End FunctionPrivate Sub Form_Click()Dim n As Integer n=InputBox(请输入 N 的值)Print s(n)End Sub 11、编制通用函数过程，用于判断1 个整数是否为素数，若是则显示true，若不是则显示 false。在窗体的 Click 事件中调用该函数。Private Function sushu(n As Integer)As Boolean Dim i As Integer If n Int(Sqr(n)Then sushu=True Else sushu=False End If End If End Function Private Sub Form_Click()Dim n as integer n=inputbox(“请输入 N的值”)print sushu(n)End Sub 12、编制一个判断奇偶数的Function 函数过程。在窗体的 Click事件中调用该函数，输入一个整数，判断其奇偶性。名师资料总结-精品资料欢迎下载-名师精心整理-第 6 页，共 34 页 -Private Sub Form_Click()Dim n As Integer n=InputBox(请输入要判断的 n 的值)If a(n)=True Then Print n&是奇数 Else Print n&是偶数 End If End Sub Private Function a(n As Integer)As Boolean If n Mod 2=0 Then a=False Else a=True End If End Function13、新建一个工程，完成应用程序的设计，具体要求如下：（1）按照下图所示在窗体上放置按钮和控件。（2）取消窗体的最大化和最小化按钮。（3）当单击命令按钮时，实现窗口放大功能，放大后再单击该按钮则还原窗口。（4）同时可使用热键 Alt+L 和 Alt+B 实现窗口放大或还原。（5）当窗体大小改变后，总是让命令按钮位于窗口的中央。Private Sub Command1_Click()If Command1.Caption=最大化（&L）Then Command1.Caption=最小化（&S）Form1.WindowState=2 Else Command1.Caption=最大化（&L）Form1.WindowState=1 End If End Sub Private Sub Form_Load()Command1.Caption=最大化（&L）End Sub Private Sub Form_ Resize()Command1.Left=(Form1.ScaleWidth-Command1.Width)/2 名师资料总结-精品资料欢迎下载-名师精心整理-第 7 页，共 34 页 -Command1.Top=(Form1.ScaleHeight-Command1.Height)/2 End Sub 14、新建一个工程，完成“计算平均成绩”应用程序的设计。具体要求如下：（1）按照下图所示在窗体上放置按钮和控件。（2）在输入或修改单科成绩的同时计算平均分,即在高数,英语 和 计算机 文本框内容发生改变时,就要立即重新计算平均分,并将计算结果在平均成绩文本框中显示。（3）平均成绩”文本框不允许编辑，即不能手工修改。（4）各单科成绩框中只能输入数字，不能输入字母或汉字，否则不显示字母并发出错误提示音。、Private Sub Form_Load()Text4.Enabled=False End Sub Private Sub Text1_Change()Dim a As Integer,b As Integer,c As Integer,p As Integer a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)p=(a+b+c)/3 Text4.Text=p End Sub Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii 57 Then KeyAscii=0 End Sub Private Sub Text2_Change()Dim a As Integer,b As Integer,c As Integer,p As Integer a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)p=(a+b+c)/3 Text4.Text=p End Sub Private Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii 57 Then KeyAscii=0 Beep End Sub Private Sub Text3_Change()Dim a As Integer,b As Integer,c As Integer,p As Integer a=Val(Text1.Text)b=Val(Text2.Text)名师资料总结-精品资料欢迎下载-名师精心整理-第 8 页，共 34 页 -c=Val(Text3.Text)p=(a+b+c)/3 Text4.Text=p End Sub Private Sub Text3_KeyPress(KeyAscii As Integer)If KeyAscii 57 Then KeyAscii=0 End Sub 15、新建一个工程，完成“密码检验”程序的设计。具体要求如下：（1）参照运行时界面完成界面设计。（2）文本框 Text1，用于输入密码。文本框中输入的字符显示为*，并且最多可以接受 7 个字符。（3）窗体的下半部有一个标签控件 Label2，用来显示密码输入后的提示信息。（4）当在文本框中输入密码“1234567”，并按回车后，标签 Label2 显示为“欢迎光临！”；如果输入的密码与“1234567”不吻合，标签 Label2 显示为“密码不符，请再输入一遍！”，同时清空文本框的内容，允许再输入一遍；如果第二次输入的密码仍然与“1234567”不吻合，标签 Label2 显示为“非法用户，请退出程序！”，文本框就不能使用了。Private Sub Form_Load()Label1.Caption=输入密码后按回车&vbCrLf&（提示：密码 1234567）换行输入Text1.PasswordChar=*文本框中输入的字符显示为*Text1.MaxLength=7 最多可以接受 7 个字符End Sub Private Sub Text1_KeyPress(KeyAscii As Integer)Static n As Integer 记录次数If KeyAscii=13 Then 最后按回车进行判断 If Text1.Text=1234567 Then Label2.Caption=欢迎光临！Label1.Visible=False Text1.Visible=False Else n=n+1 Label2.Caption=密码不符，请再输入一遍！Text1.Text=If n 1 Then 第二次输入 Label2.Caption=非法用户，请退出程序！Text1.Enabled=False End If End If End If 名师资料总结-精品资料欢迎下载-名师精心整理-第 9 页，共 34 页 -End Sub 16、新建一个工程，完成“检查口令”程序的设计。具体要求如下：（1）单击“开始”按钮，清除文本框中的信息，并把光标移到第一个文本框中；接着在第一个文本框中输入用户名，第二个文本框中输入口令。（2）单击“检查口令”按钮，检查输入的口令是否正确。若正确，则进入如下的第二个窗体，在该窗体上装有一幅图片；否则显示一个信息框，要求重新输入，此时将调用“开始”按钮的click事件过程，再一次在文本框中输入口令，这样允许重输三次口令，超过三次，则口令文本框将转为不能编辑。（3）单击“结束”按钮，结束程序。Dim n As Integer Private Sub Command1_Click()Text1.SetFocus 获得焦点 Text1.Text=Text2.Text=End Sub Private Sub Command2_Click()If Text1.Text=user And Text2.Text=pass Then Me.Hide Form2.Show 图片显示Else Text1.Text=Text2.Text=n=n+1 If n 3 Then MsgBox 你是非法用户 Text1.Enabled=False Text2.Enabled=False Else MsgBox 口令错误,请再次输入!Call Command1_Click 返回 command1 End If End If End Sub Private Sub Command3_Click()End End Sub 名师资料总结-精品资料欢迎下载-名师精心整理-第 10 页，共 34 页 -Private Sub form_load()Text1.Text=Text2.Text=Text2.PasswordChar=*End Sub 17、新建一个工程，完成“替换”程序的设计。具体要求如下：(1)窗体的标题为“替换”。(2)窗体中有以下控件：一个文本框可以多行编辑，两个文本框，两个标签框，一个命令按钮。(3)完成以下功能：输入查找内容，把编辑框中所有与查找内容一样的部分替换成另外一个内容。单击“替换”按钮执行。一.Private Sub command1_Click()Dim len1 As Integer,len2 As Integer,len3 As Integer len1=Len(Text1)len2=Len(Text2)len3=Len(Text3)Do While i=len1-len2 所剩文本长度 If Text2=Mid(Text1,i+1,len2)Then 寻找需要替代的文本 Text1.SetFocus Text1.SelStart=i 在字符串中所选择文本的起始点 Text1.SelLength=len2 被选中的一段文本的字符数 Text1.SelText=Text3 返回当前选中文本 i=i+len3 退出窗体 len1=len1-len2+len3 最终文本长度 Else i=i+1 End If Loop End Sub 二.Private Sub command1_Click()Dim find1 As Integer,n As Integer Do find1=InStr(Text1.Text,Text2.Text)返回 text12.text在 text1.text中首次出现的位置.若 text2.text在 text1.text中不存在则返回 0 If find1 0 Then Text1.SelStart=find1-1 在字符串中所选择文本的起始点 Text1.SelLength=Len(Text2)被选中的一段文本的字符数 Text1.SelText=Text3 返回当前选中文本 n=1 为了循环最后不跳出Msgbox 名师资料总结-精品资料欢迎下载-名师精心整理-第 11 页，共 34 页 -Else If n=0 Then MsgBox(没有找到！)因为 n 的初始值为 0,所以,没有替代的文本时,跳出 Msgbox End If Loop While find1 0 End Sub18、新建一个工程，完成“字体修饰”程序的设计。具体要求如下：（1）按照下图所示在窗体上放置按钮和控件。窗体的标题为“字体修饰”。（2）框架 Frame1 中有一个 复选框数组，可以选择粗体，斜体对标签中的文字进行修饰。（3）框架 Frame2 中有一个 单选钮框数组，可以选择宋体或楷体对标签中的文字进行修饰。（4）标签 Label1 的文字内容为“Visual Basic 程序设计“，宋体，常规，三号；文字对齐方式为居中。一.Private Sub Check1_Click(Index As Integer)Select Case Index Case 0 If Check1(0).Value=1 Then Label1.FontBold=True Else Label1.FontBold=False End If Case 1 If Check1(1).Value=1 Then Label1.FontItalic=True Else Label1.FontItalic=False End If End Select End Sub Private Sub Option1_Click(Index As Integer)If Option1(0).Value=True Then Label1.FontName=宋体 Else Label1.FontName=楷体 End If End Sub 名师资料总结-精品资料欢迎下载-名师精心整理-第 12 页，共 34 页 -二.Private Sub Check1_Click(Index As Integer)If Check1(0).Value=1 Then Label1.FontBold=True Else Label1.FontBold=False End If If Check1(1).Value=1 Then Label1.FontItalic=True Else Label1.FontItalic=False End If End Sub Private Sub Form_Load()Label1.FontName=宋体 Label1.Alignment=2 Label1.FontSize=30 Label1.AutoSize=True End Sub 19、新建一个工程，完成“点餐”程序的设计。具体要求如下：（1）窗体的标题为“点餐”。（2）窗体中有以下控件：一个框架控件作为容器，内有三个复选框数组、对应三个文本框数组、三个标签框、一个命令按钮。（3）要求文本框只能接受数字键，并且只有选取了相应的套餐后才可以进行输入；如果没有选取大套餐，那么文本框不能编辑，并清空。（4）完成以下功能：选择所需套餐种类及份数，单击确定按钮后计算所需的钱，并用消息框显示。Private Sub Form_Load()For i=0 To 2 Check1(i).Value=0 清空复选框 Text1(i).Enabled=False 文本框不可输入Next i End Sub Private Sub Check1_Click(Index As Integer)If Check1(Index).Value=1 Then 若当前复选框被选中,文本框被启用,同时获得焦点 Text1(Index).Enabled=True Text1(Index).SetFocus 对应文本框获得焦点名师资料总结-精品资料欢迎下载-名师精心整理-第 13 页，共 34 页 -Else Text1(Index).Text=Text1(Index).Enabled=False End If End Sub Private Sub Command1_Click()Dim a As Integer,b As Integer,c As Integer,sum As Integer a=Val(Text1(0).Text)b=Val(Text1(1).Text)c=Val(Text1(2).Text)sum=a*18+b*23+c*28 MsgBox 一共&sum&元,总价 End Sub Private Sub Text1_KeyPress(Index As Integer,KeyAscii As Integer)If KeyAscii 57 Then 输入非数字时弹出对话框,同时文本框重新获得焦点 KeyAscii=0 Beep MsgBox 请输入数字 Text1(Index).SetFocus 获得焦点 End If End Sub 20、设计一个“家电提货单”管理程序，程序运行界面如下图所示。具体要求如下：（1）单击“确定”后，根据选择的内容将清单及总价在列表框中列出。（2）每选择一种家电，光标自动定位在相应的文本框中，取消选择时，相应的文本框自动清空。（3）“清除”按钮用于清空列表框中的项目。（4）所有文本框只接受数字。Private Sub Check1_Click(Index As Integer)If Check1(Index).Value=1 Then Text1(Index).Enabled=True Text1(Index).SetFocus 获得焦点 Else Text1(Index).Text=Text1(Index).Enabled=False 名师资料总结-精品资料欢迎下载-名师精心整理-第 14 页，共 34 页 -End If End Sub Private Sub Command1_Click()Dim i As Integer,s As String,n As String,t As String,p As Integer s=0 For i=0 To 4 复选框是否选中 Select Case i Case 0 t=电视机 p=3580 Case 1 t=微波炉 p=660 Case 2 t=电冰箱 p=1850 Case 3 t=DVD p=2880 Case 4 t=空调 p=5500 End Select If Check1(i).Value=1 And Text1(i).Text Then List1.AddItem t&Val(Text1(i).Text)&台 s=s+Val(Text1(i)*p n=n+Val(Text1(i)End If Next i If s 0 Then List1.AddItem 共:&n&台&合计金额:&s&元 End If End Sub Private Sub Command2_Click()List1.Clear 清除 list1 End Sub Private Sub Form_Load()For i=0 To 4 Text1(i).Enabled=False Next i End Sub Private Sub Text1_KeyPress(Index As Integer,KeyAscii As Integer)If KeyAscii 57 Then Beep 名师资料总结-精品资料欢迎下载-名师精心整理-第 15 页，共 34 页 -KeyAscii=0 End If End Sub 21、设计一个“个人资料”输入窗口，程序运行界面如下图所示。具体要求如下：（1）按照运行界面设计窗体，其中“民族”用组合列表框显示。（2）单击“确定”按钮，将个人资料信息输出在“个人资料”框架的标签框中。Private Sub Form_Load()初始化民族组合框 Combo1.AddItem 回族 Combo1.AddItem 汉族 Combo1.Text=汉族 End Sub Private Sub Command1_Click()Dim s As String,h As String If Option1.Value Then 判断性别 s=Option1.Caption Else s=Option2.Caption End If 判断爱好 If Check1.Value=1 Then h=h&Check1.Caption If Check2.Value=1 Then h=h&Check2.Caption If Check3.Value=1 Then h=h&Check3.Caption If Check4.Value=1 Then h=h&Check4.Caption 显示 Label4.Caption=Txtname.Text&s&Txtage&Combo1.Text&爱好：&h End Sub Private Sub Command2_Click()End End Sub 22、新建一个工程，完成应用程序的设计。具体要求如下：（1）按照下图所示在窗体上放置按钮和控件。（2）窗体上有两个CheckBox，当这两个选项未被选定时，它们所在框架的其他控件不能使用。（3）如果单击“确定”按钮，则在按钮下面的标签中显示用户所选择的信息。名师资料总结-精品资料欢迎下载-名师精心整理-第 16 页，共 34 页 -Private Sub Form_Load()Label3.BorderStyle=1 Frame1.Caption=Frame2.Caption=Check1.Value=0 Check2.Value=0 Text1.Text=End Sub Private Sub Check1_Click()If Check1.Value=1 Then Text2.Enabled=True Text1.Enabled=True Else Text2.Enabled=False Text1.Enabled=False End If End Sub Private Sub Check2_Click()If Check2.Value=1 Then Option1.Enabled=True Option2.Enabled=True Else Option1.Enabled=False Option2.Enabled=False End If End Sub Private Sub Command1_Click()Label3.Caption=If Check1.Value=1 Then Label3.Caption=Label3.Caption+计算机:+Chr(13)+Chr(10)Label3.Caption=Label3.Caption+combo1.Text+Text1+台+Chr(13)+Chr(10)End If If Check2.Value=1 Then Label3.Caption=Label3.Caption+操作系统 +Chr(13)+Chr(10)If Option1.Value=True Then Label3.Caption=Label3.Caption+Option1.Caption Else 名师资料总结-精品资料欢迎下载-名师精心整理-第 17 页，共 34 页 -Label3.Caption=Label3.Caption+Option2.Caption End If End If End Sub 23、（1）参照运行时界面完成界面设计。（2）单击“添加单词”按钮，将 Text1 中的单词添加到列表框，并使Text1 获得焦点，可直接输入另一个单词。（3）单击“删除单词”按钮，删除列表框中被选中的列表项。（4）单击“全部删除”按钮，删除列表框中的全部表项。（5）单击“退出”按钮，结束该程序。Private Sub Command1_Click()If Text1.Text Then List1.AddItem Text1.Text Text1.Text=Text1.SetFocus End If End Sub Private Sub Command2_Click()If list1.listindex-1 then List1.removeitem list1.listindex End if End Sub Private Sub Command3_Click()List1.clear End Sub Private Sub Command4_Click()End End Sub 24、（1）参照运行时界面完成界面设计。（2）列表框内容中有四项，分别为“Word、Excel、PowerPoint、Outlook”。（3）单击“添加”按钮（Command1），将文本框中的内容回到列表框中的第一项，如果文本框中没有内容，则给出提示“没有内容，不予添加”。（4）单击“删除”按钮（Command2），将选中表项删除，如果没有选择要删除的表项，则给出提示“请选择输出的项目”。名师资料总结-精品资料欢迎下载-名师精心整理-第 18 页，共 34 页 -Private Sub Form_Load()List1.AddItem word List1.AddItem excel List1.AddItem frontpage List1.AddItem outlook Form1.Caption=添加和删除 Form1.BorderStyle=1 Command1.Caption=添加 Command2.Caption=删除 Text1.Text=End Sub Private Sub Command1_Click()If Text1.Text=Then MsgBox(没有内容,不予添加)Else List1.AddItem Text1.Text,0 Text1.Text=Text1.SetFocus End If End Sub Private Sub Command2_Click()If List1.ListIndex=-1 Then 如果没有选中任何一项,则该属性值为-1 MsgBox(请选择输出的项目)Else List1.RemoveItem List1.ListIndex End If End Sub 25、（1）参照运行时界面完成界面设计。（2）窗体的上边有一个文本框 Text1，文字内容为“心想事成”，Font：宋体、常规、三号。（3）左边简单组合框 Combo1，有三项内容，分别是“左对齐、居中、右对齐”，单击时对文本框的对齐方式进行设置。（3）右边简单组合框 Combo2，有四项内容，分别是“常规、斜体、粗体、粗斜体”，单击时对文本框的字型进行设置。名师资料总结-精品资料欢迎下载-名师精心整理-第 19 页，共 34 页 -Private Sub Combo1_Click()Select Case Combo1.Text Case 左对齐 Text1.Alignment=0 Case 居中 Text1.Alignment=2 Case 右对齐 Text1.Alignment=1 End Select End Sub Private Sub Combo2_Click()Select Case Combo2.ListIndex Case 0 Text1.FontBold=False Text1.FontItalic=False Case 1 Text1.FontItalic=True Case 2 Text1.FontBold=True Case 3 Text1.FontBold=True Text1.FontItalic=True End Select End Sub 27、28、（1）参照运行时界面完成界面设计。（2）能完成以下功能：单击“产生”按钮，实现随机产生10 个两位正整数，在左边列表框内显示；单击“”按钮，把左边列表框中的偶数全部移到右边列表框中。Private Sub Form_Load()List1.Clear List2.Clear End Sub Private Sub Command1_Click()产生 Dim i As Integer Randomize List1.Clear List2.Clear 名师资料总结-精品资料欢迎下载-名师精心整理-第 20 页，共 34 页 -For i=1 To 10 List1.AddItem(Int(Rnd*90)+10)Next i End Sub Private Sub Command2_Click()Dim i As Integer i=0 Do Until i=List1.ListCount If Val(List1.List(i)Mod 2=0 Then List2.AddItem List1.List(i)List1.RemoveItem i Else i=i+1 End If Loop End Sub 29、（1）参照运行时界面完成界面设计。（2）在两个列表框控件的list中输入一些内容。（3）当单击“”按钮时，把 list2中选中的一项放到list1中，并且在 list2中删除该项。（4）当单击“”按钮时，把 list2中所有的项放到 list1中，并且清空 list2。（5）当单击“结束”按钮时，退出应用程序。Private Sub Command1_Click()If List1.ListIndex -1 Then List2.AddItem List1.Text list2.AddItem List1.List(List1.ListIndex)Else MsgBox 先选择，再移动 End If End Sub Private Sub Command2_Click()For i=0 To List1.ListCount-1 List2.AddItem Lis