vb练习题2.pdf

《vb练习题2.pdf》由会员分享，可在线阅读，更多相关《vb练习题2.pdf（80页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、1判断题第 1题：每当一个窗体成为活动窗口时将触发Show事件 错第 2 题：Integer、Long、Single、Double是数值类型数据，但 Byte不是。错第 3 题：在打开某窗体时，初始化窗体中的各控件，应选用Load事件 对第 4 题：若行If语句中逻辑表达式值为T rue,则关键字Then后的若干语句都要执行。对第 5 题：函数过程与Sub过程必须用关键字Private或 Public声明。错第 6 题：标签控件可以响应Click事件J第 7 题：屏 幕(Screen)对象可作为窗体的容器，但它只能提供缺省的坐标系统，即坐标刻度不能改变。V第 8 题：用通用对话框控件显示“字体

2、”对话框前，必须先设置Flags属性，否则将发生“不存在字体”的错误。对第9 题:运行时目录列表框的List属性可以用Additem和 Removeitem两种方法来改变。错第 10题：将组合框的Style属性设置为0 时，组合框称为“下拉式组合框”，其选项可以从下拉列表框的列表项中选择，也可以由用户输入。对二：选择题第 1题：在工程资源管理器中“移除”一个文件后，该文件A _。A、从当前工程中删除掉 B、仍存在于当前工程中C 移入windows回收站 D、在磁盘上删除掉第 2 题：在设计模式双击窗体中的对象后，Visual Basic将显示的窗口是_B。A、属性窗口 B、代码窗口 C、工具箱

3、 D、工程窗口VBR第 3 题：Integer类型的变量可存的最大整数为_ D 。A、255 B、256 C、32768 D、32767第 4 题：下列哪个函数返回值为Ascii码值？DA、Chr(x)C、Space(n)B、Str(x)D、Asc(x)第 5 题：下列关于Select Case之测试表达式的叙述中，错误的是-A。A、只能是变量名 C、可以是字符型B、可以是整型 D、可以是浮点类型第 6 题：执行_B _ 语句后，执行语句Textl.SelStart=0:Textl.SelLength=Len(Textl)”,可以使文本框控件Text 1 中的文本突出显示。A、Textl.En

4、abled=True C、Text 1.Locked=FalseB Textl.SetFocusD、Text 1.Move第 7 题：设置命令按钮cm l的背景色为红色，可以执行语句_ B。A、cml.BackColor=vbred D、cml.BackColor=RGB(255,0,B、cml.BackColor=vbred:cml.style=l O):cml.enabled=TrueC、cml.Picture=RGB(255,0,0)第 8 题：C 可以改变容器坐标系的度量单位A、DrawStyle 属性 C、ScaleMode 属 D、DrawWidth 属B、Cis方法 性 性第 9

5、 题：通常用_ D _方法来显示“自定义”对话框。A、Load B、Unload|C、Hide|D、Show第 10题：设定文件列表框中所显示的文件类型，应修改该控件的_ A-属性。A、Pattern|B、Path|C、FileName|D、Name三：填空题第 1题：【程序说明】下列程序显示所有3 个数码各不相同的3 位数，要求按紧凑格式每行显示15个数，并统计有多少个这样的三位数。Private Sub Form_Click()Dim n As Integer,a As Integer,b As Integer,c As IntegerDim x As IntegerFor a=0 to

6、9，个位数数码Forb=0To9，十位数数码For c=-一 1 If a o b And b o c And a o c Thenx=a+10*(b+10*c)n 2-If n mod 15=OThen PrintEnd IfNext c,b,aPrint”总共有这样的三位数”;n;“个“End Sub参考答案:l t o 9 参考答案：n+1 参考答案:printx;第 2 题：【程序说明】窗体是密码检验程序。程序运行时，用户在文本框输入密码，单击确定按钮对密码进行检验。密码正确后，标签label2显 示“密码正确”；若密码不正确，标签显示“密码错误”，若密码输入错误达3 次，将自动退出程

7、序。Private Sub Commandl_Click()确定按钮Static n As Integer-1 mypwd As String=n 123456预设密码为自定义常量n=n+1Label2.Visible=TrueIf 2 ThenLabel2.Caption=密码正确ElseIf n 3 ThenLabel2.Caption=密码错误！”Text 1.Text 二”Else_3_End IfEnd IfEnd Sub参考答案:CONST 参考答案:TexH.texUmypwd 或 mwwd=textl.text 参考答案:Ed第 3 题：【程序说明】在组合框中选择形状后，窗体中

8、控件Shape 1 的形状和边框线作相应变化。程序运行时如下图i.Forml3凶Private Sub Combol_Click()Shapel.Shape=Combo l.List(1)2=Int(Rnd*7)End SubPrivate Sub Form_Load()Dim I As IntegerFori=0 To 5:3-Next IEnd Sub形状|E 3参考答案:Combo 1,Listindex 参考Shape 1.BorderStyle参考答案:Combol.AddltemStK/）或 ComboLlist=1第 4 题：【程序说明】右击窗体则打开Windows自带的计算器“

9、C:windowscalc.exe”；单 击“退出”按钮时将右击窗体的次数写入磁盘文件，并结束程序运行。Private Sub Form_MouseUp(Button AsInteger,Shift As Integer,_X As Single,Y As Single)If Button=2 Then n=n+1:Shell“C:windowscalc.exe”End SubPrivate Sub Command l_Click()Open C:al.dat For-2Print#l,n:Close#1_ _ 一End Sub参考答案：dim n as integer参考答案：output

10、as#1 参考答案：end四、阅 读 题（请把正确的选项填入试题前的空格中）第 1题：【程序说明】写出下列程序运行时，分别输入数据14、3、115、21时，标签框中显示的内容。Private Sub Form_Click()Dim b As Integera=Val(InputBox(请输入数据”,，100)Select Case a Mod 5Case Is 4w=a+10Case Is 2w=a*2Case Elsew=a-10End SelectLabel 1.Caption=,w=n&Str(w)End Sub参考答案：DA、W=4 W=13 W=105 W=ll B、W=14 W=1

11、3 W=125 W=31D、W=4 W=13 W=125 W=31输 入 1 2 3,写出窗体上 的输出结果。x=x 100Print yLoopEnd Sub参考答案：A23 D、以上答案都不对请写出输入m 为 10、n 为 8 时窗体中的输出结果。As If n Mod i=0 And m Mod i=0 Then s1 :Exit ForNext iIf s=1 Then print iEnd SubC、W=4W=13 W=105 W=31第 2 题：程序运行时单击Command 1后,Private Sub Command l_Click()Dim x As Long,y As Str

12、ingx=InputBox(请输入数字”Do While x 0y=y&x Mod 10A、3 31 B、3 32 321 C、3第 3 题：Dim m As Integer,nmin As IntegersInteger,na As IntegerPrivate Sub Form_click()m=InputBox(please input mn)n=InputBox(nplease input n”)For i=mTo 1 Step-1A、2 B、4 C、6 D、8第 4 题：写出程序运行时单击窗体后，Private Sub Form_Click()Dim I As Single,x As

13、 Single,y As SingleCisFori=0To 2*3.1415927 Step 0.0001x=2400+1000*Sin(I)参考答案：A在窗体上出现的结果。y=1600+1000*Cos(I)Line(2400,1600)-(x,y),RGB(255,0,0)Next IEnd Sub参考答案：DA、转动一条长度为2400单位的红色直线，B、转动一条长度为1600单位的红色直线，C、转动一条长度为1500单位的红色直线，D、转动一条长度为1000单位的红色直线，第 5 题：【程序说明】写出下列程序运行时，单击窗体后输入x=3,Private Function s(n%,x!

14、)As SingleDim i%,k%,t#,伟f=0:k=x:t=1For i=2 To 2*n Step 2t=t*i*(i-1)f=f+k/tk=k*x*xNext iA、s=2 B、s=3 C、3=3.625其轨迹形成一个圆其轨迹形成一个圆其轨迹形成一个圆其轨迹形成一个圆n=2窗体上的显示结果。S=fEnd FunctionPrivate Sub Form_Click()Dim n%,x!x=InputBox(nx=n)n=InputBox(nn=u)Print,s=H;Fix(s(n,x)End Sub 参考答案：AD、s=3.6第 6 题：写出程序运行时连续3 次单击Command

15、 1后,Dim a As Integer,y As Integer,x As IntegerPrivate Sub Commandl_Click()Open M al.datn For Append As#1x=1i=5Do Until x ia=a+x:x=x+5A y=1 a=1 ；y=3B y=1 a=1 ；y=1C y=1 a=1 ；y=2D y=1 a=1 ；y=3五：设计题第 1题：编程，输入x,求下列分段函数的值,a=2；y=6a=1 ；y=1a=2；y=3a=3；y=6al.dat文件的最终结果。Loopy=y+a:Print#1,y=H;y,a=;aClose#1End Su

16、bPrivate Sub Form_Load()Open al.dat For Output As#1:Close#1End Sub 参考答案：Aa=3a=1a=3a=6计算结果输出到Text控件中。参考答案：Private Sub Commandl_Click()Dim x As Singlex=InputBox(输入x“，”计算分段函数”)Ifx=3 ThenTextl=Str(l+x)ElseTextl=Str(x+3)A 0.25End IfEnd Sub第2题：如下图，编程，点击按钮可以移动列表框中所选中表项的位置。说明：通 过load事件添加列表项，运行时，先选择列表框中的选项，才

17、可以使用“上移”或“下移”按钮。当选项是第一项时不能再上移，当选项是最后一项时不能再下移。参考答案：Private Sub Commandl_Click()上移Dim i As I ntegeri=Listl.ListindexListl.Additem Listl.Text,i-1 先将选中的内容添加到上一项前Listl.Removeitem i+1 将原来选中的那项删除Listl.Listindex=i-1 将光标重新指向已经上移后的选项End SubPrivate Sub Command2_Click()b移Dim i As I ntegeri=Listl.ListindexListl.

18、Additem Listl.Text,i+2 先将选中的内容添加到下一项后Listl.Removeltem i 将原来选中的那项删除Listl.Listindex=i+1 将光标重新指向已经下移后的选项End SubPrivate Sub Listl_Click()Commandl.Enabled=True:Command2.Enabled=TrueI f Listl.Listindex=0 ThenCommandl.Enabled=False 第一项不能上移End I fI f Listl.Listindex=Listl.ListCount-1 ThenCommand2.Enabled=Fa

19、lse 最后一项不能下移End I fEnd Sub第3题：编写 程 序,将 磁 盘 文 件d:student.dat中若干个学生的姓名、出生年月、外语成绩和计算机成绩显示在列表框中，并口.能实现以下功能：若文本框内容不为空，单击命令按钮“追加记录”则将文本框中的文本追加至列表框中；单击命令按钮“删除记录”则可删除列表框的选中项；首次运行时文件可以为空，单击“保存文件”命令按钮则保存文件。界面设计如图所示。参考答案：Private Sub Form_Load()Dim ss As StringOpen d:student.dat“For I nput As#1While N ot EOF(l)

20、Line I nput#1,ss:Listl.Additem ssWendClose#1End SubPrivate Sub Command1_C1ick()I f Trim(Textl.Text)Then Listl.Additem Textl.TextTe x t l.Te x t =E n d S u bP r i v at e S u b C o m m an d 2 _ C l i c k()L i s t l.R e m o v e i t e m L i s t l.L i s t i n d e xE n d S u bP r i v at e S u b C o m m an

21、 d 3 _ C l i c k()D i m I A s I n t e g e rO p e n d:s t u d e n t.d at F o r O u t p u t A s#1F o r I =0 To L i s t l.L i s t C o u n t -1:P r i n t#1,L i s t l.L i s t (I):N e x t IC l o s e#1E n d S u bP r i v at e S u b C o m m an d 4 _ C l i c k()E n dE n d S u B2一：判断题第 1题：窗体启动位置可在“窗体布局窗口”中直接设置

22、。对第 2 题：在所有的数据类型中，Byte型占用的内存空间最小，只要用一个字节。对第 3 题：表达式5 4 3的计算结果是True。错第 4 题：在行If语句中，关键字End If是必不可少的。错第 5 题：用 Function过程在过程中必须被赋值。对第 6 题：单击组合框中的任一表项，该表项的文本就会替换这一组合框控件的Text属性值。对第 7 题：QBcolor函数的参数是一个介于0255的整数。错第 8 题：用通用对话框控件显示“字体”对话框前，必须先设置Flags属性，否则将发生“不存在字体”的错误。对第 9 题：运行时目录列表框的List属性可以用Additem和 Removei

23、tem两种方法来改变。错第 10题：当对DrawWidth进行设置后，将影响Line、Circle、Pset方法，但不会影响Line、Shape控件。对二：选择题第 1题:以下关于V B 的叙述中错误的是_ D。A、是事件驱动型可视化编程工具 C、某些控件的某些属性只能在运行时设置B、应用程序中不具有明显的开始和结束语 D、V B 工具箱中的所有控件都具有Width句 和 Height属性第 2 题：下列不属于对象的基本特征的是B _ oA、事 件 区 B、函数C、方法D、属性第 3 题：InputBox函数用来返回用户输入的值，该值的类型是_ C _。A、整型|B、字节型|C、字符串型第 4

24、 题：下面这些数据类型中，表示货币的数据类型是_ B。A、Integer|B、Currency|C、Double第 5 题：若 i 的初值为8,则下列循环语句的循环次数为_ C 一次。Do While i Comb 1 .Text C、Combi.ListindexB Combi.List D、Combi.ListCount第 8 题：语句“Line(100,100)-(600,600),RGB(0,0,255),B”的作用是_D。A、绘制长为500个单位的红色直线 C、绘制长为500个单位的蓝色直线B、绘制边长为500个单位的红色矩形 D、绘制边长为500个单位的蓝色矩形第 9 题：将 Co

25、mmonDialog通用对话框以“打开文件对话框”方式打开，可选_ A _方法A、ShowOpen|B、ShowColor|C、ShowFont|D、ShowSave第 10题：_C 函数用来表示当前读写位置是否达到文件的末尾。A、Len|B,FileLen|C、EOF|D、LOF三：填空题、填空题(请把正确的选项填入试题前的空格中)第 1题：【程序说明】单击窗体后，在窗体上输出以下图形:Private Sub Form_Click()st$Fori=1 To 1st=Chr$(65+1-1)Print Tab(lO-I);Forj=IToIPrint st;0Next jPrintNext

26、IFori=2 To 1 Step-1st=Chr$(65+1-1)PrintTab(lO-I);Forj=1 To 3Print st;”Next jPrintNext IEnd Sub参考答案:6 参考答案:7参考答案:1第 2 题：【程序说明】窗体是简易文本编辑器程序。通过文本框和剪贴板实现全选、复制、粘贴和删除操作。Private Sub Command l_C lick()，全选按钮Textl.SelStart=0Textl.SelLength=1 Textl.SetFocusCommand2.Enabled=TrueCommand3.Enabled=TrueCommand4.Ena

27、bled=TrueEnd SubPrivate Sub Command2_Click()复制按钮Clipboard.ClearClipboard.SetText Textl.SelTextCommands.Enabled=TrueTextl.SetFocusEnd SubPrivate Sub Command3_Click()粘贴按钮Textl.SelText=2Textl.SetFocusEnd SubPrivate Sub Command4_Click()删除按钮Command2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=Fal

28、seEnd SubPrivate Sub Form_Load()Command2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=FalseEnd SubPrivate Sub Text l_MouseUp(Button AsInteger,Shift As Integer,X As Single,Y AsSingle)If Text 1.Sei Length 0 ThenCommand2.EnabIed=TrueCommand4.Enabled=TrueElseCommand2.Enabled=FalseCommand4.Enabled

29、=FalseEnd IfEnd Sub参考答案:Len（Textl.Text）参考答案:CliDboard.GetText 参考答案:TexH.SelText=第3题：【程序说明】自制一个简单的图片浏览器。在窗体上建立一个图片框控件、一个时钟控件和一个命令按钮。运行时，显示第一张图片，单 击“浏览”按钮每隔1秒在图片框中显示另一张图片，显示到最后一张图片时，又从第一张开始显示。（假设在C:W indows目录下有l.bm p、2.bmp、8.bm p这样8张图片需显示)Dim i As IntegerPrivate Sub Form_Load()Picture 1.PictureLoadPic

30、ture(*c:windowsl.bmp1)Picture 1.AutoSize=TrueEnd SubIf i 2、3 顺序为菜单项 mnuPopup的下一级子菜单名Private Sub mnuChoice l_Click()m=您选择了第一项”A、您选择了第一项B、您选择了第二项C、请写出鼠标点击弹出菜单第二项后窗体上的显示结果。print mEnd SubPrivate Sub mnuChoice2_Click()m=您选择了第二项”print mEnd SubPrivate Sub mnuChoice3_Click()m=您选择了第三项”print mEnd Sub 参考答案：B您选

31、择了第三项D、您选择了第四项第 4 题：写出程序运行时单击窗体后,Private Sub Form_Load()Picture 1 .Width=Picture 1.HeightEnd SubPrivate Sub Form_Click()Dim i As Single,x As Single,y As SinglePicture 1.Scale(-100,100)-(100,-100)Picture 1.Cis在图片框上出现的结果。Fori=0To2*3.1415927 Step 0.0001x=100*Cos(i)y=100*Sin(i)Picturel.Line(0,0)-(x,y),R

32、GB(0,0,255)Next iEnd Sub 参考答案：CA、在图片框中画了 100条蓝色直线，直线长度为100单位B、在图片框中画了 100条红色直线，直线长度为100单位C、转动一条长度为100单位的蓝色直线，其轨迹形成一个图片框的内接圆D、转动一条长度为100单位的红色直线，其轨迹形成一个图片框的内接圆第 5 题：写出程序运行时单击窗体后，文件a1.dat中的结果。Private Sub Form_Click()Dim i As Integer,fl As Integer,f2 As Integer,f3 As IntegerOpen u al.datH For Output As#

33、1fl=l:f2=2Print#1,nNO.n;1,fl:Print#1,”NO.”;2,f2Fori=3To 4f3=f 1 +f22、“+“、“3“、”4”、”5“、“6”、回车键，请写出textl上的内容结果Private Sub Text 1 _KeyPress(keyascii As Integer)If keyascii Asc(9)Thenkeyascii=0End IfPrint#1,NO.;i,f3fl=f2:f2=f3Next iClose#1End Sub 参考答案：AA、NO.1 1 ；NO.2 2；NO.33；NO.45B、NO.1 1 ；NO.2 2；NO.33；N

34、O.54C、NO.1 1 ；NO.2 2；NO.33；NO.44D、NO.1 1 ；NO.2 2；NO.33；NO.55第 6 题：运行时，若 Textl.Text为空，在 Textl获得输入焦点后,依次按下列按键：T、End SubA、+B、123456 C、12034056D、以上答案都不对五：设计题第 1题：编程，用随机函数产生2 个 10100的整数，输出最大值。参考答案：Private Sub Commandl_Click()Dim x as integer,y as integer,max asintegerRandomizex=Int(Rnd*91+10)y=Int(Rnd*91

35、+10)Max=xIf y Max Then y=MaxPrint MaxEnd Sub第 2 题：如下图，编写事件过程 Commandl_Click 和 Text3_Keypress(Keyascii As Integer)事件，运行时单击“出题”按钮，自动在T ex tl和 Text2中显示两个2 位随机正整数；用户在Text3 11输入运算结果,按回车后计算机对运算结果进行评判,并将评判结果在Label2中显示(对了或错了)。要求文本框Text3只接受数字和回车键。(回车键的Ascii码为1 3,数字键的Ascii码为48到 57)参 考 答 案：Dim x As I nteger,y

36、As I ntegerPrivate Sub Command1_C1ick()x=I nt(Rnd*90)+10:y=I nt(Rnd*90)+10Textl.Text=CStr(x):Text2.Text=CStr(y)Text3.Text=Text3.SetFocusLabel2.Visible=False:Command1.Enabled=FalseEnd SubPrivate Sub Form_Load()Textl.Text=：Text2.Text=：Text3.Text=Label2.Visible=FalseRandomizeEnd SubPrivate Sub Text3_Ke

37、yPress(KeyAscii As I nteger)I f(KeyAscii 57)And KeyAscii 13 ThenKeyAscii=0End I fI f KeyAscii=13 ThenLabel2.Visible=TrueI f Vai(Text3.Text)=x+y ThenLabel2.ForeColor=vbBlue:Label2.Caption=对了 ElseLabel2.ForeColor=vbRed:Label2.Caption=错了End I fCommandl.Enabled=TrueEnd I fEnd Sub第3题：在窗体上添加一个文本框和一个命令按钮。当

38、用户在文本框中输入密码并单击命令按钮后，判断输入的密码是否为“1 2茅，如果不是，则弹出对话框提示“密码不正确！单击“确定二请再试一次”，并将文本框内容清空，焦点定位在文本框上；如果输入的密码是“1 2 3”，则打开文本文件e:a a a.t x t,向文本框中写入：第I次登录日期 时间(如:第9次 登 录2 0 0 8-6-3 0 1 0:l l:0 0)o要求程序运行前先建一个文件e:a a a.t x t,初始内容为：第1次 登 录2 0 0 8-6-1 1 0:4 1:3 1,之后每次按顺序在文件末尾写入第2次当前日期当前时间、第3次登录当前日期当前时间。参 考 答 案：Private

39、 Sub Commandl_click()Dim n As I nteger,st as stringI f Textl.Text=123 Then Open e:aaa.txt For I nput As#1Do While N ot EOF(l)Line I nput#1,stLoopst=Mid(st,2,1)n=1 +Vai(st)Close#1Open e:aaa.txt For Append As#1Print#1,第；Trim(n);次登录;N ow()Close#1ElseM s g B o x ”密码不正确！单 击“确定”，请再试一次“T e x t l.T e x t =T

40、 e x t l.S e t F o c u sE n d I fE n d S u b3-：判断题第 1题：在 V B中，对象是代码和数据的集合。对第 2 题：Boolean类型数据，可以用来保存逻辑值True和 False。对第 3 题：如果B 是一个字节型变量，那么B 可以用来保存数值-1 错第 4 题：如果在定义过程时，一个形式参数使用地址传递方式说明，则调用过程时与之对应的实参只能按地址方式传递。对第 5 题：在行If语句中，关键字End If可以缺省 错第 6 题：定时器控件只能响应Timer事件。对第 7 题：从几十个项目中任选其中一项或多项时可选用列表框或组合框控件来实现。错第

41、 8 题：执行语句“C=Point(50,100)”，可将窗体坐标(50,100)处点的颜色值存入变量C。对第 9 题：在设计Windows应用程序时，用户可以使用系统本身提供的某些对话框，这些对话框可以直接从系统调入而不必由用户用“自定义”的方式进行设计。对第 10题：Print#语句的作用是将数据从文件中读出并显示在窗体上。错二：选择题第 1题：窗体文件的扩展名为A oA、FRM|B、CLS|C、BAS|D、FRX第 2 题：在 V B 中，_ D _ 被称为对象A、模块和类 C、窗、控件、属 D、窗体和控件B、方法和事件 性第 3 题：表达式16/2-2人 3*7 MOD 9 的结果是_

42、 A _。A、6|B、0|C、9|D、以上都不对第 4 题：InputBox函数用来返回用户输入的值，该值的类型是_C。A、整型|B、字节型|C、字符串型|D、逻辑型第 5 题：下列关于Select Case的叙述中，错误的是_ _ D。A、Case 10 To 100表示判断Is是否介于10与 100之间B、Caseabc,ABC表示判断Is是否和 abc、ABC两个字符串中的一个相同C、Case X 表示判断Is是否为大写字母XD、Case-7,0,100表示判断Is是否等于字符串-7,0,100第 6 题：设置文本框textl,要求只能显示信息，不能接受输入的信息，_ B 能实现该操作A

43、、B、C、D、Textl.widthTextl.maxlength=0 Text 1 .e nable d=fal se Text 1.visible=false第 7 题：因修改文本框中的数据而触发的事件是_A。A、change|B、Getfocus C、SetFocus|D、LostFocus第 8 题：Visual Basic可以用以下哪一条属性来设置画圆方法的边框类型.B_。A、BorderWidth|B、BorderStyle C DrawWidth D FillColor第 9 题：将通用对话框类型设置为“另存为”对话框，应修改 属性。A、Filter|B、Font C、Actio

44、n第 10题：下列_B_方法或函数可以调用外部的可执行文件。A、Show|B、Shell|C、Input三：填空题|D、FileName|D、Open1 该程序执行后，输出一个右上三角元素(含对角线)为 T,其余元素为0 的 5义5 的矩阵。Private Sub Form_Click()Dim a(l To 5,1 To 5)As IntegerDim i As Integer,j As IntegerFori=1 To5Forj=1TO5If-1-Then_2 _End IfNext j参考答案:/Private Sub Commandl_Click()添加按钮If Len(Text 1

45、.Text)0 ThenTextl.Text=Textl.SetFocusEnd IfEnd SubPrivate Sub Com m and2_Click()删除按钮If-2-ThenNext iFori=1TO5Forj=1 To 5Form 1.Prim”a(i,j);Next j_3 _Next iEnd Sub参考答案:print 列 表 后 行 理,1!xl请检入新的运动项目，运动项目清单：删除添加郑球球球乓强网排足乒MsgBox先选择,再删除！ElseEnd IfEnd Sub参考答案:Listl.Add Item Textl.Text 参考答案:Listl.Listlndex=

46、-I参考答案:Listl.Reinoveltein Listl.Li$Hudex第 3 题：【程序说明】自制一个简单的图片浏览器。在窗体上建立一个图片框控件、一个时钟控件和一个命令按钮。运行时，显示第一张图片，单 击“浏览”按钮每隔1秒在图片框中显示另一张图片，显示到最后一张图片时，又从第一张开始显示。(假设在C:Windows目录下有Lbmp、2.bmp、”、8.bmp这样8 张图片需显示)Private Sub Form_Load()i=1Picture 1.PictureLoadPicture(c:windowsl.bmp)Picture 1.AutoSize=TrueEnd SubPr

47、ivate Sub 2If-一3-ThenElsei=i+li=1End IfPicture 1.Picture=LoadPicture(c:wi ndo wsn&i&”.bmp”)End Sub参考答案:Dim i A$Integer 参考答案:Thnerl Timer。参考答案:i v=7第4题：【程序说明】本程序统计3100之间所有素数的个数；最后将素数的个数写入顺序文件 e:dataout.txt 中。Private Sub Command l_Click()Dim i As Integer,flag As BooleanDim tl As Integer,t2 As Integeri

48、=0F ortl=3T o 100flag=TrueFor t2=2 To Int(Sqr(tl)If-2-then flag=FalseNext t2If flag theni=i+lEnd IfNext tlClose#1End Sub参考答案:open e:dataout.txt for output as#1 或 open e:dataout.txt for WDend as#1参考答案:tl mod t2=0 参考答案:Write#1J或print#1J四：阅读题第1题：请写出在Textl、Text2 T ext3中依次输入3、1、2后，单击窗体时L ab ell的显示结果。Priv

49、ate Sub Form_Click()Dim a As Single,b As Singlea=Text 1.Text:b=val(Text2.Text+text3.text)Labell.Caption=Str(a*a+b*b)End Sub 参考答案:CA、18 B、9144 C、153 D、以上答案都不对第2题：Private Sub Form_MouseDown(Button AsInteger,_Shift As Integer,X As Single,Y AsSingle)If Button=2 Then PopupMenu mnuPopup,10End SubmnuChoice

50、l、2、3 顺序为菜单项 mnuPopup的下一级子菜单名Private Sub mnuChoicel_Click()m=信息科学与工程学院”A、信息科学与工程 学 院B、护理学院请写出鼠标点击弹出菜单第一项后窗体上 的显示结果。print mEnd SubC、Private Sub mnuChoice2_Click()m 二 ”护理学院”print mEnd SubPrivate Sub mnuChoice3_Click()m 二 材化学院”print mEnd Sub参考答案:4对 化 学 院D、无显示第3题：写出程序运行时单击窗体后，在图片框上出现的结果。Private Sub Form