VB练习题(上机)含答案

....PAGE/NUMPAGES第一部分1在窗体上添加一个命令按钮(名称为Cmd1，标 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 为"输出平均值")。程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如以下图所示)PrivateSubCmd1_Click()Dima%(19),i%,sum!,aver!RandomizeFori=0To19a(i)=Int(Rnd*1001)sum=sum+a(i)Nextiaver=sum/20PrintaverEndSub2请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如以下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。PrivateSubC1_Click()DimchAsString,ch1AsString,i%ch=Text1Fori=1ToLen(ch)IfAsc(Mid(ch,i,1))>=65AndAsc(Mid(ch,i,1))<=90Thench1=ch1+LCase(Mid(ch,i,1))Elsech1=ch1+UCase(Mid(ch,i,1))EndIfNextiText1=Text1+vbCrLfText1=Text1+ch1EndSub3在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。程序运行后，单击命令按钮完成以下工作：①随机产生30个0～1000的整数，将其放入一个一维数组中②求出其中的最大值，并显示在窗体上。PrivateSubMyCmd1_Click()Dima%(29),i%,max%RandomizeFori=0To29a(i)=Int(Rnd*1001)Nextimax=a(0)Fori=1To29Ifa(i)>maxThenmax=a(i)NextiPrintmaxEndSub4请 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 如以下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单项选择按钮时，单击命令按钮，则对文本框中的文本容做相应的设置。请编写适当的事件过程，完成上述功能。PrivateSubCommand1_Click()IfOption1.Value=TrueThenText1.FontName="宋体"ElseText1.FontName="隶 书 关于书的成语关于读书的排比句社区图书漂流公约怎么写关于读书的小报汉书pdf "EndIfIfCheck1.Value=1ThenText1.FontUnderline=TrueElseText1.FontUnderline=FalseEndIfIfCheck2.Value=1ThenText1.FontItalic=TrueElseText1.FontItalic=FalseEndIfEndSub5在名称为Form1的窗体上添加一个名称为Text1的文本框；添加两个标题分别为"对齐方式"、"字体"，名称分别为Fm1、Fm2的框架；在Fm1框架中添加三个单项选择按钮，标题分别为"左对齐"、"居中"、"右对齐"，名称分别为Opt1、Opt2、Opt3；在Fm2框架中添加两个单项选择按钮，标题分别为"宋体"、"黑体"，名称分别为Opt4、Opt5。要求：编写五个单项选择按钮的Click事件过程，使程序运行时，单击这些单项选择按钮，可以对文本框中的容实现相应的操作(如下图)。PrivateSubOpt1_Click()IfOpt1ThenText1.Alignment=0EndSubPrivateSubOpt2_Click()IfOpt2ThenText1.Alignment=2EndSubPrivateSubOpt3_Click()IfOpt3ThenText1.Alignment=1EndSubPrivateSubOpt4_Click()IfOpt4ThenText1.FontName="宋体"EndSubPrivateSubOpt5_Click()IfOpt5ThenText1.FontName="黑体"EndSub6请设计如以下图所示窗体界面。运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择"N的阶乘"或"(N+2)的阶乘"单项选择钮，即可进行计算，计算结果在右侧文本框中显示。请编写程序完成上述功能。Dimn%PrivateSubForm_Load()EndSubPrivateSubOption1_Click()Dimi%n=Val(Text1)m=1Fori=1Tonm=m*iNextiText2=mEndSubPrivateSubOption2_Click()Dimi%m=1Fori=1Ton+2m=m*iNextiText2=mEndSub7在窗体上添加两个文本框和三个标签，设置它们的属性，达到以下图效果。程序运行时，在第一个文本框输入一串字符，在第二个文本框中输入一个字符，然后单击"统计"命令按钮，统计第二个文本框中字符(大小写被认为是不同的字母)在第一个文本框中出现的次数，统计结果在标签Label3中显示。PrivateSubCommand1_Click()Dimi%,n%Fori=1ToLen(Text1)IfMid(Text1,i,1)=Text2Thenn=n+1NextiLabel3=nEndSubPrivateSubLabel3_Click()EndSub8在窗体上添加一个文本框和一个命令按钮。程序运行后，单击命令按钮，即可计算出0～200围能被3或7整除的所有整数的和，并显示在文本框中。程序运行界面如以下图所示。PrivateSubCommand1_Click()Dimi%,sum%Fori=0To200IfiMod3=0OriMod7=0Thensum=sum+iNextiText1=sumEndSubPrivateSubText1_Change()EndSub9请设计如以下图所示界面(文本框名称为：Txt1，按钮名称为：Cmd1)。程序运行时在文本框中输入字符串，点击命令按钮，判断文本框中的字符串是否是回文，将判断结果显示在窗体上。所谓回文是指字符串正序和逆序的结果相同，如“aBCCBa”是回文，“aBCcBa”不是回文。PrivateSubCmd1_Click()DimchAsStringFori=Len(Txt1)To1Step-1ch=ch+Mid(Txt1,i,1)NextiIfTxt1=chThenPrintTxt1+"是回文"ElsePrintTxt1+"不是回文"EndIfEndSubPrivateSubForm_Load()EndSub10编程实现求(n为小于等于20的整数)。程序运行界面如以下图所示。程序运行时，在文本框中输入n的值，点击“计算”命令按钮，将计算结果显示在标签上。PrivateSubCommand1_Click()Dimi%,mAsLong,sumAsDoublen=Val(Text1)m=1Fori=1Tonm=m*isum=sum+1/mNextiLabel2="sum="&sumEndSubPrivateSubForm_Load()EndSub第二部分1已知在同一个笼子里有总数M只鸡和兔，鸡和兔的总脚数为N只，编程求出鸡和兔各有多少只。要求：程序运行后，在两个文本框中分别输入M和N的值，单击“计算”命令按钮，在两个标签框中分别输出鸡和兔的数量。程序运行界面如以下图。提示：N≥2×M的偶数。PrivateSubCommand1_Click()m=Val(Text1)n=Val(Text2)IfnMod2<>0ThenMsgBox("脚数必须为偶数")Text2=""Text2.SetFocusElsey=n/2-mIfy<0ThenMsgBox("脚数必须>=只数的2倍，请重新输入")Text2=""Text2.SetFocusElsex=m-yLabel3=xLabel4=yEndIfEndIfEndSubPrivateSubForm_Load()EndSub2若一个3位正整数中各位数字的立方和等于该数字本身，则该数称之为“水仙花数”。例如153是水仙花数，因为153=1*1*1+5*5*5+3*3*3。编程求出100～999之间所有的“水仙花数”。要求：程序运行后，单击“查找”按钮，在窗体上显示找到的“水仙花数”。程序运行界面如以下图。PrivateSubCommand1_Click()Print"水仙花数：";Fori=100To999X1=iMod10'分离出个位数X2=(iMod100)\10'分离出十位数x3=i\100'分离出百位数Ifi=X1^3+X2^3+x3^3ThenPrinti;NextiEndSubPrivateSubForm_Load()EndSub3编写程序，要求程序运行后，单击“开始”按钮，随机产生20个学生的成绩(0～100的整数)，并在左边图片框中输出(一行5个成绩)，并在右边图片框中输出平均分和与格的人数，程序运行界面如以下图。PrivateSubCommand1_Click()Dima(1To20)AsInteger,i%,n%Picture1.ClsPicture2.ClsFori=1To20a(i)=Int(Rnd*101)Picture1.Printa(i);IfiMod5=0ThenPicture1.PrintIfa(i)>=60Thenn=n+1Sum=Sum+a(i)NextiPicture2.Print"平均分：";Sum/20Picture2.Print;"与格人数：";nEndSubPrivateSubPicture2_Click()EndSub4编写程序实现：程序运行时，单击窗体则显示如以下图所示的图案。PrivateSubForm_Click()Fori=1To5PrintTab(10-i);String(2*i-1,"*")NextiFori=1To4PrintTab(5+i);String(9-2*i,"*")NextiEndSub5编程实现：在窗体中有一个文本框，一个计时器和两个命令按钮。其功能是：程序的运行时，单击“开始计数”按钮，就开始计数，每间隔1秒，文本框中的数增加1；单击“停止计数”按钮，则计数停止。PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubPrivateSubForm_Load()EndSubPrivateSubTimer1_Timer()Text1=Val(Text1)+1EndSub'在属性窗口设置定时器的interval属性值为10006以下程序运行界面如以下图所示。其功能如下：1)单击"读数据"按钮(Command1)，可将随机产生100个三位正整数存到数组a中；2)单击"计算"按钮(Command2)，则根据从组合框Combo1中选中的项目，对数组a中的数据计算平均值，并将计算结果四舍五入取整后显示在文本框Text1中。题目提供的程序代码不完整，请设计以下图界面并录入代码，将程序中的?改为正确的容。注意：不能修改程序的其他部分。题目提供的程序代码：Dima(100)AsIntegerPrivateSubCommand1Click()DimnAsIntegerForn=1To100　　　　a(n)=Int(Rnd*?)NextnEndSubPrivateSubCommand2Click()Dimx&,y&,z&,i%,j%,k%Fori=1To100Ifa(i)Mod?Then　　　　x=x+a(i)：j=j+1Else　　　　y=y+a(i)　　　　?EndIfNextkx=Int(x/j+0.5)：y=Int(y/k+0.5)z=Int((x+y)/(j+k)+0.5)SelectCaseCombo1.TextCase"所有偶数"　　　　Text1=?Case"所有奇数"　　　　Text1=?Case"所有数"　　　　Text1=?EndSelectEndSubDima(1To100)AsIntegerPrivateSubCommand1_Click()DimnAsIntegerForn=1To100a(n)=Int(Rnd*900+100)NextnEndSubPrivateSubCommand2_Click()Dimx&,y&,z&,i%,j%,k%Fori=1To100Ifa(i)Mod2=0Thenx=x+a(i):j=j+1Elsey=y+a(i):k=k+1EndIfNextix=Int(x/j+0.5):y=Int(y/k+0.5)z=Int((x+y)/(j+k)+0.5)SelectCaseCombo1.TextCase"所有偶数"Text1=xCase"所有奇数"Text1=yCase"所有数"Text1=x+yEndSelectEndSub'在combo1的属性窗口设置list属性，添加列 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 项PrivateSubLabel1_Click()EndSub7编写程序。要求：程序运行后，单击“开始”按钮，则随机产生20个2位数输出到窗体上，每行10个数。同时对所产生的20个数从小到大排序，将排序后的数再次输出在窗体上。程序运行界面如以下图。PrivateSubCommand1_Click()Dima%(1To20),i%Print"排序前数据排列："Fori=1To20a(i)=Int(Rnd*90+10)Printa(i);IfiMod10=0ThenPrintNextiFori=1To20'冒泡排序Forj=1To20-iIfa(j)>a(j+1)Thent=a(j):a(j)=a(j+1):a(j+1)=tEndIfNextjNextiPrint"排序后数据排列："Fori=1To20Printa(i);IfiMod10=0ThenPrintNextiEndSubPrivateSubForm_Load()EndSub8编写程序，程序的功能是：程序运行后，在文本框中输入一串字符,单击标题为"统计"的命令按钮，分别统计输入字符串写字母、小写字母以与其他字符的个数，并将统计结果分别在相应的标签框中显示。程序运行界面如以下图。PrivateSubCommand1_Click()Dimi%,m%,n%,z%Fori=1ToLen(Text1)IfAsc(Mid(Text1,i,1))>=65AndAsc(Mid(Text1,i,1))<=90Thenn=n+1ElseIfAsc(Mid(Text1,i,1))>=97AndAsc(Mid(Text1,i,1))<=122Thenm=m+1Elsez=z+1EndIfNextiLabel2=nLabel4=mLabel6=zEndSubPrivateSubForm_Load()EndSub9编写程序。程序功能是：程序运行后在文本框中输入一个正整数，单击“判断”按钮，在标签框中输出“该数是一个素数”或“该数不是一个素数”的信息。程序运行界面如以下图。PrivateSubCommand1_Click()Dimn%n=Val(Text1)Fori=2Ton-1IfnModi=0ThenLabel1=n&"不是素数":GoTonotmNextiLabel1=n&"是素数"notm:EndSubPrivateSubForm_Load()EndSub10编写程序，程序的功能是：程序运行后，单击“开始”按钮，在窗体上显示出10个小于100的随机正整数，单击“查找”按钮，则在窗体的下一行显示出这10个数中的最大的数以与最大数在此数列中的位置号。程序运行界面如以下图。Dima%(1To10)PrivateSubCommand1_Click()Dimi%RandomizeFori=1To10a(i)=Int(Rnd*101)Printa(i);NextiEndSubPrivateSubCommand2_Click()Dimmax%,imax%max=a(1):imax=1Fori=2To10Ifa(i)>maxThenmax=a(i):imax=iNextiPrintPrintPrint"最大数是：";max;Spc(5);"位置号是：";imaxEndSubPrivateSubForm_Load()EndSub第三部分1在窗体Form1上添加两个文本框，一个“转换”命令按钮和三个单项选择按钮（名称分别为Opt1、Opt2、Opt3，标题分别为“大小写转换”、“全部大写”、“全部小写”）。程序功能：在上方文本框Text1中输入一字符串，选中“大小写转换”，单击“转换”按钮后，Text2中显示大小写相反的字符串；选中“全部大写”，单击转换按钮后，Text2中显示全部大写字符串，选中“全部小写”，单击转换按钮后，Text2中显示全部小写字符串。程序运行界面如以下图。要求：①请按要求完成窗体界面设计②程序的部分代码已给出如下，但不完整。请录入下面代码，并将“？”处补充完整。PrivateSubCommand1_Click()DimnAsInteger,kAsInteger,chAsString,aAsStringch=""IfOpt1.Value=TrueThenn=Len(？)Fork=1Tona=Mid$(Text1,k,？)Ifa>="a"Anda<="z"Thench=ch+UCase(a)ElseIfa>="A"Anda<="Z"Thench=ch+LCase(a)Elsech=ch+aEndIfNextkEndIfIfOpt2.Value=TrueThench=UCase(Text1)IfOpt3.Value=TrueThench=？(Text1)Text2=chEndSub答案PrivateSubCommand1_Click()DimnAsInteger,kAsInteger,chAsString,aAsStringch=""IfOpt1.Value=TrueThenn=Len(Text1)Fork=1Tona=Mid$(Text1,k,1)Ifa>="a"Anda<="z"Thench=ch+UCase(a)ElseIfa>="A"Anda<="Z"Thench=ch+LCase(a)Elsech=ch+aEndIfNextkEndIfIfOpt2.Value=TrueThench=UCase(Text1)IfOpt3.Value=TrueThench=LCase(Text1)Text2=chEndSubPrivateSubForm_Load()EndSub2编写程序，演示列表框控件的基本操作。在窗体上建立两个列表框，两个命令按钮。程序运行后，在左边列表框中选中所需要的项目，单击“添加”按钮，则把所选中的项目移到右边列表框中。如果单击“删除”按钮，则删除左边列表框中选中的项目。程序运行时的窗体界面如图。PrivateSubCommand1_Click()List2.AddItemList1.TextList1.RemoveItemList1.ListIndexEndSubPrivateSubCommand2_Click()List1.AddItemList2.TextList2.RemoveItemList2.ListIndexEndSubPrivateSubForm_Load()List1.AddItem"美的"List1.AddItem"海尔"List1.AddItem"奥克斯"List1.AddItem"春兰"List1.AddItem"长虹"EndSub3编程实现：单击“输出最大值”按钮，随机产生8个大于或等于10小于100的整数，显示在窗体的第一行，然后在窗体第二行显示其中的最大值。程序运行时的效果如图。PrivateSubCommand1_Click()Dima%(7),i%,max%Fori=0To7a(i)=Int(Rnd*90+10)Printa(i);Nextimax=a(0)Fori=1To7Ifa(i)>maxThenmax=a(i)NextiPrintPrintmaxEndSubPrivateSubForm_Load()EndSub4在Form1的窗体上有一个名称为Text1的文本框和两个命令按钮，命令钮标题分别为“显示A”和“显示B”。要求程序运行后，如单击“显示A”命令按钮，则弹出对话框，输入要显示的个数，根据输入的数值在文本框中显示相应数量"A"构成的字符串；如单击“显示B”命令按钮，也弹出对话框，输入要显示的个数，根据输入的数值在文本框中显示相应数量"B"构成的字符串。程序运行时的窗体界面如下图。PrivateSubCommand1_Click()n=Val(InputBox("请输入显示个数"))Text1=String(n,"A")EndSubPrivateSubCommand2_Click()n=Val(InputBox("请输入显示个数"))Text1=String(n,"B")EndSubPrivateSubForm_Load()EndSub5已知十个数为：67,45,34,28,49,37,87,76,27,83。编程实现：按“开始”按钮，则在窗体的第一行显示这十个数，在窗体的第二行按从大到小的顺序显示这十个数。PrivateSubCommand1_Click()Dima(),i%a=Array(67,45,34,28,49,37,87,76,27,83)n=UBound(a)Fori=0TonPrinta(i);NextiFori=0Ton-1Forj=0Ton-1-iIfa(j)maxThenmax=a(i)NextiPrintmaxEndSubPrivateSubForm_Load()EndSub8编程实现：在窗体的两个文本框中分别输入一个正整数，单击“求最大公约数”按钮后，在窗体第一行显示它们的最大公约数。程序运行界面如以下图所示。PrivateSubCommand1_Click()Dimm%,n%m=Val(Text1)n=Val(Text2)Ifn>mThent=n:n=m:m=tr=mModnDoWhiler<>0m=nn=rr=mModnLoopPrintText1;"和";Text2;"最大公约数是:";nEndSubPrivateSubForm_Load()EndSub9编程实现：在窗体的左上角有一个图像框，通过属性窗口任选一图片装入到图像框的Picture属性中，每按一次“放大”按钮时图像放大10%，同理，每按一次“缩小”按钮时图像缩小10%，放大缩小时均需保持图像的纵横比不变，按“完毕程序”按钮则完毕程序。程序运行界面如以下图。PrivateSubCommand1_Click()Image1.Stretch=TrueImage1.Width=Image1.Width*1.1Image1.Height=Image1.Height*1.1EndSubPrivateSubCommand2_Click()Image1.Stretch=TrueImage1.Width=Image1.Width*0.9Image1.Height=Image1.Height*0.9EndSubPrivateSubCommand3_Click()EndEndSubPrivateSubForm_Load()EndSub10编程实现：在窗体上建立一个文本框（容如以下图所示），另外建立菜单，一级菜单标题分别为“背景颜色”，子菜单标题分别为“白色”、“红色”、“绿色”、“蓝色”。程序运行时，如果单击“白色”子菜单，则将文本框的背景色设置为白色；如果单击“红色”子菜单，则将文本框的背景色设置为红色；如果单击“绿色”子菜单，则将文本框的背景色设置为绿色；如果单击“蓝色”子菜单，则将文本框的背景色设置为蓝色。程序运行界面如以下图。PrivateSubblue_Click()Text1.BackColor=vbBlueEndSubPrivateSubgreen_Click()Text1.BackColor=vbGreenEndSubPrivateSubred_Click()Text1.BackColor=vbRedEndSubPrivateSubText1_Change()EndSubPrivateSubwhite_Click()Text1.BackColor=vbWhiteEndSub第四部分1．编程计算分段函数的值。要求用文本框(TextBox)输入x,y的值，单击标题为“计算”命令按钮后，利用标签控件上显示z的值。PrivateSubCommand1_Click()x=Val(Text1)y=Val(Text2)Ifx>0Andy>0Thenz=Sqr(x+y)ElseIfx<0Andy<0Thenz=Sqr(Abs(x-y))Elsez=0EndIfLabel3=zEndSubPrivateSubForm_Load()EndSub2、在窗体添加一个命令按钮（标题为“开始”），单击该按钮，随机产生10个三位数（100～999），在窗体的第一行这10个三位数，在窗体的第二行输出其中的奇数，在窗体的第三行输出其中的偶数。PrivateSubCommand1_Click()Dima%(1To10),i%Fori=1To10a(i)=Int(Rnd*900+100)'随机产生10个100到999的整数Printa(i);NextiPrintFori=1To10Ifa(i)Mod2<>0ThenPrinta(i);'输出奇数NextiPrintFori=1To10Ifa(i)Mod2=0ThenPrinta(i);'输出偶数NextiEndSubPrivateSubForm_Load()EndSub3．编程计算分段函数的值。要求用InputBox函数输入的值，单击命令按钮（标题为“计算”）后，利用图形框（PictureBox）输出计算结果y。PrivateSubCommand1_Click()Picture1.Clsx=Val(InputBox("输入x的值"))z=Val(InputBox("输入z的值"))Ifx>=-10Andz<0Theny=x^2+z^2Ifx<-30Andz>0Theny=x/zIfx>=-30Andx<-10Andx>zTheny=Sqr(x-z)Picture1.PrintyEndSubPrivateSubForm_Load()EndSub4．编程计算分段函数的值。要求用InputBox函数输入x,y的值，单击命令按钮（标题为“计算”）后，用文本框中输出计算结果z。5编程实现求Sum=1+（1+2）+（1+2+3）+（1+2+3+4）+……+(1+2+3+4+…+n)。程序运行时，在文本框中输入n的值，点击“计算”命令按钮，将计算的结果显示在标签上。程序运行界面如以下图。PrivateSubCommand1_Click()Dimn%,sum%,i%,j%n=Val(Text1)Fori=1TonForj=1Toisum=sum+jNextjNextiLabel2="sum="&sumEndSubPrivateSubForm_Load()EndSub6编写一个程序,其功能为输入货物的数量与单价,求总价,并输出。窗体上的两个标签的标题分别为"货物的数量(个)："和"货物的单价(元)：",在两个文本框中输入相应的数据,当按“总价”按钮时，在右下方的图形框中显示原价和折扣价。当原价达到2000元以上时，按8折计算折扣价；当原价达到1000元以上时，按9折计算折扣价。程序运行界面如以下图。PrivateSubCommand1_Click()zj=Val(Text1)*Val(Text2)Ifzj<1000Thenzkj=zjElseIfzj<2000Thenzkj=zj*0.9Elsezkj=zj*0.8EndIfLabel3="原价:"&zj&vbCrLfLabel3=Label3&"折扣价:"&zkjEndSubPrivateSubForm_Load()EndSub7编程实现：单击“加密”按钮后，将上方文本框中的字符串加密后显示在下方的文本框中。加密的方法是：把明文中的每个字母改为它后面的那个字母("z"后面的字母认为是"a","Z"后面的字母认为是"A")。程序运行界面如以下图。PrivateSubCommand1_Click()DimchAsStringText2=""ch=Text1Fori=1ToLen(ch)x=Asc(Mid(ch,i,1))PrintxIfx=90Theny=65Elsey=x+1Ifx=122Theny=97Elsey=x+1Text2=Text2+Chr(y)NextiEndSubPrivateSubForm_Load()EndSub8编程实现：程序运行时，输入一个大于1的正整数到文本框中，选择"偶数和"或"奇数和"，单击"计算"按钮时，则在左下方的标签控件中显示所选的计算类别和计算结果。计算规则：将按照选定的"计算类别"计算小于或等于输入数据的正偶数和或正奇数和。程序运行界面如以下图。PrivateSubCommand1_Click()n=Val(Text1)IfOption1.Value=TrueThenFori=2TonStep2Sum=Sum+iNextiLabel2="正"&Option1.Caption&":"&SumElseFori=1TonStep2Sum=Sum+iNextiLabel2="正"&Option2.Caption&":"&SumEndIfEndSubPrivateSubForm_Load()EndSub9编程实现：在窗体上的4个文本框中各输入一个整数作为各数组元素的值，然后单击命令按钮，在窗体上显示出数组元素中的最小值。10程序运行后，在窗体的文本框中输入有关信息("密码"文本框中显示"*"字符)，然后单击"提交"按钮，则在右边列表框中显示相关信息。单击"重输"按钮，则清空三个文本框和列表框中数据。程序运行界面如以下图。PrivateSubCommand1_Click()List1.AddItemText1List1.AddItemText2List1.AddItemText3EndSubPrivateSubCommand2_Click()Text1=""Text2=""Text3=""List1.ClearEndSub'text3设置password属性为*，maxlength属性为6PrivateSubForm_Load()EndSub