vb程序填空题
VB填空选择150题
ID sjh th 16001 17002 18003 19004 20005 21006 22007 23008 24009 250010 260011 270012 280013 290014 300015 15111 16112 17113 18114 19115 20116 21117 22118 23119 241110 251111 261112 271113 281114 291115 15221 16222 17223 18224 19225 20226 21227 22228 23229 242210 252211 262212 272213 282214 292215 1533116332 17333 18334 19335 20336 21337 22338 23339 243310 253311 263312 273313 283314 293315 15441 16442 17443 18444 19445 20446 21447 22448 23449 244410 254411 264412 274413 284414 294415 15551 16552 17553 18554 19555 20556 21557 22558 23559 245510 255511 265512 275513 285514 295515 15661 16662 1766318664 19665 20666 21667 22668 23669 246610 256611 266612 276613 286614 296615 15771 16772 17773 18774 19775 20776 21777 22778 23779 247710 257711 267712 277713 287714 297715 15881 16882 17883 18884 19885 20886 21887 22888 23889 248810 258811 268812 278813 288814 298815 15991 16992 17993 18994 1999520996 21997 22998 23999 249910 259911 269912 279913 289914 299915tg下面正确的语句行是________。
vb程序设计试题(含答案)
第一套试题一、选择题（每题2分，共30分）1.在VB环境中，工程文件的扩展名是( C )（A）.frm （B）.bas （C）.vbp （D）.frx2.下面4项中不属于面向对象系统三要素的是( A )（A）变量（B）事件（C）属性（D）方法3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C )（A）\ （B）/ （C）Mod （D）*4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor（C）AutoRedraw （D）Caption5.不论何控件，共同具有的属性是( B )（A）Text （B）Name（C）ForeColor （D）Caption6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D )（A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构（C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D )（A）“12334”（B）123 （C）12334 （D）1579.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D )（A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1（C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+110.若要清除列表框的所有内容，可用来实现的方法是( C )（A）RemoveItem （B）Cls（C）Clear （D）以上均不可以11.要使时钟控件Timer1的Timer事件不起作用，以下正确的语句是( B ) （A）Timer1.Visible=False （B）Timer1.Enabled=False（A） Timer1.Interval=1000 （D）Timer1.Index=012.引用列表框(List1)最后一个数据项应使用的语( B )(A)List1.List(List1.ListCount) (B)List1.List(List1.ListCount-1)(C)List1.List(ListCount) (D)List1.List(ListCount-1)13.如下数组声明语句，正确的是( B )（A）Dim a[3,4]As Integer （B）Dim a(3,4)As Integer（C）Dim a(n,n) As Integer （D）Dim a(3,4)As Integer14.下面子过程语句说明合法的是(A、D )（A）Sub f1(ByVal n%) （B）Sub f1(n%)As Integer（C）Function f1%(f1%) （D）Function f1(ByVal n%)15.假定有如下的命令按钮(名称为Command1)事件过程：Private Sub Command1_Click()x=InputBox("输入："，"输入整数")MsgBox"输入的数据是：”，，”输入数据："+xEnd Sub16.程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是( A )（A）x的值是数值10 （B）输入对话框的标题是“输入整数”（C）信息框的标题是“输入数据：10”（D）信息框中显示的是“输入的数据是：”二、填空题（每题2分，共20分）1、当进入VB集成环境后，发现没有显示“工具箱”窗口，应选择视图菜单的工具箱选项，使“工具箱”窗口显示。
VB经典填空题
《VB》经典填空题1、可以通过菜单中的命令退出Visual Basic,也可用快捷键。
2、快捷键CTRL+O的功能相当于执行菜单中的命令；或者相当于单击工具栏上的按钮。
3、工程文件的扩展名为，窗体文件的扩展名为。
4、属性窗口分为4个部分，这4个部分分别是、、、。
5、一个控件在窗体上的位置由和属性决定，其大小由和属性决定。
6、为了选择多个控件，可以按住键，然后单击每个控件。
7、在用Visual Basic 开发应用程序时，一般需要、、 3步。
8、在Visual Basic 中，字符串常量要用括起来，日期/时间型常量要用括起来。
9、为了使文本框同时具有水平和垂直滚动条，应先把属性设置为True,然后再把属性设置为3。
10、为了使标签覆盖背景，应把属性设置为1。
11、为了使标签中的内容居中显示,应把属性设置为2。
12、若要把C盘根目录下的图形文件ab.jpg装入图片框Picture1中，应使用的语句是：13、属性决定了标签内显示的内容。
14、假定在图片框Picture1中装入了一个图形文件，为了清除该图形（注意：清除图形，而不是删除图片框），应使用的语句是：15、当拖动滚动条中的滚动块时，将触发滚动条的事件。
16、为了使标签能自动调整大小以显示全部文本内容，应把标签的属性设置为True17、为了能自动放大或缩小图像框中的图形以与图像框的大小相适应，必须把该图像框的属性设置为18、窗体、图片框或图像框中的图形通过对象的属性设置。
19、计时器事件之间的间隔通过属性设置。
20、有时候需要暂时关闭计时器，可以通过设置属性来实现。
21、可以同时删除字符串前导和尾随空格的函数是。
22、当某一按钮的属性设置为False 时，该按钮不可见。
23、属性用于设置或返回文本框中的文本。
24、要使文本框中的文本以多行显示，应将其属性设置为true.25、若要使文本框具有水平滚动条，应将其属性的值设为1。
26、要使标签透明，可将其backstyle属性的值设为27、滚动条的属性表示滚动框在滚动条中的当前位置。
vb程序设计试题及答案
vb程序设计试题及答案一、选择题（每题2分，共20分）1. 在VB中，下列哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. VB中用于声明变量的关键字是？A. DimB. DeclareC. SetD. All of the above答案：A3. 在VB中，下列哪个选项是正确的循环语句？A. ForB. DoC. WhileD. All of the above答案：D4. VB中用于打开文件的函数是？A. OpenB. CloseC. WriteD. Read答案：A5. 在VB中，下列哪个选项是正确的条件语句？A. If...ThenB. Select CaseC. Do WhileD. All of the above答案：A6. VB中用于创建新窗体的语句是？A. Form.ShowB. Form.NewC. Form.CreateD. Form.Open答案：A7. VB中用于声明常量的关键字是？A. ConstB. DimC. StaticD. Option答案：A8. 在VB中，下列哪个选项是正确的数组声明？A. Dim arr(5) As IntegerB. Dim arr() As IntegerC. Dim arr As IntegerD. Dim arr(5) As String答案：A9. VB中用于结束程序的语句是？A. EndB. ExitC. CloseD. All of the above答案：B10. VB中用于捕获异常的语句是？A. Try...CatchB. On ErrorC. CatchD. All of the above答案：B二、填空题（每题2分，共20分）1. 在VB中，声明一个名为myVar的变量，其类型为字符串，应该使用语句________。
答案：Dim myVar As String2. VB中，用于定义一个名为myFunction的函数，返回值为整数，应该使用语句________。
VB程序设计教程课后参考答案概要
VB程序设计教程课后参考答案习题一一、填空题1．对象、事件驱动2．窗体、控件3．属性4．属性窗口、编程设置5．事件过程6．对象名、下划线、事件名7．Form_click8．Print form1.print “我的VB”9．主窗口、属性、工具箱、代码、窗体、工程资源管理10．菜单、快捷键二、选择题1．C 2. A 3. B 4. B 5. D 6. B C 7. A 三、简答题（略）习题二一、选择题1. D2. C3. C4. B5. C6. B7. C8. B 9. A 10. B 11. B 12. C 13. D 14. B15. A 16. A 17. A 18. A 19. B 20. C 21. A22. B 23. B 24. A 25. C 26. A 27. B 28. B29. C 30. B 31. D 32. D 33. C二、填空题1．Controlbox、Maxbutton、Minbutton2．Multiline TRUE3．******4．单文档界面（SDI）多文档界面（MDI）5．窗体显示6．Passwordchar7．_change()三、编程题（略）习题三一、基础知识题（略）二、填空题1．整型、长整型、单精度、双精度2．(x mod 10)*10+x\103．Sin(3.14*15/180)+sqr(x+exp(3))/abs(x-y)-log(3*x)4．(a+b)/(1/(c+5)-c*d/2)5．X mod 5=0 or x mod 9=06．False7．-4、3、－3、3、－4、48．CDEF10．TRUE11．变量、属性12．‘_ :13．(略)14．“”＃15．Public、通用/模块、Dim、static、private16．+ 、&、+17．Now() 、time()、日期18．Inputbox()、字符串、val()19．Msgbox()三、选择题1．B 2. C 3. A 4. B D此题有误 5. B 6. A7. D 8. B 9. B 10. C 11. D 12. B13. C 14. B 15. A 16. C 17.A 18. D19. A 20. D 21. A 22. C 23. C 24. D25. A 26. D 27. D 28. B 29. C 30. B31. C 32. B 33. C D此题有误34. C 35. A36. D 37. C 38. A 39. B 40. A 41. C42. C 43. D 44. C 45. D 46. A四、编程题1.Option ExplicitPrivate Sub Command1_Click()Dim a%, b%, c%, delta%Dim x1#, x2#, x#a = Val(InputBox("please input data to a:", "info", 1))b = Val(InputBox("please input data to b:", "info", 1))c = Val(InputBox("please input data to c:", "info", 1))If a = 0 And b <> 0 Thenx = -c / bPrint "所构成的方程是：" & b & "x" & "+" & c & "=0"Print "该一元一次方程的根是：", xEnd IfIf a = 0 And b = 0 ThenPrint "很抱歉，不能构成合法的方程！"End IfIf a <> 0 Thendelta = b * b - 4 * a * cIf delta >= 0 Thenx1 = (-b + Sqr(delta)) / (2 * a)x2 = (-b - Sqr(delta)) / (2 * a)Print "所构成的方程是：" & a & "x2" & "+" & b & "x" & "+" & c & "=0"Print "该方程的根是："Print "第一个根是：", x1Print "第二个根是：", x2Else2Print "该方程有两个虚根："Print "第一个虚根是：" & -b / (2 * a) & "+" & Sqr(Abs(delta)) / (2 * a) & "i"Print "第二个虚根是：" & -b / (2 * a) & "－" & Sqr(Abs(delta)) / (2 * a) & "i" End IfEnd IfEnd Sub2.Option ExplicitPrivate Sub Command1_Click()Dim i%, s%s = 0For i = 1 To 99 Step 2s = s + iNextPrint sEnd Sub3.Option ExplicitPrivate Sub Command1_Click()Dim i%Dim s#s = 0For i = 1 To 100s = s + 1 / i * (-1) ^ (i + 1)NextPrint sEnd Sub4.Option ExplicitPrivate Sub Command1_Click()Dim i%, n%Dim t#, s#n = Val(InputBox("please input data:", "info", 5))s = 0t = 1For i = 1 To nt = t * is = s + tNextPrint sEnd Sub5.Option ExplicitPrivate Sub Command1_Click()Dim a%, b%, c%Dim p#, s#a = Val(InputBox("please input data to a:", "info", 3))b = Val(InputBox("please input data to b:", "info", 4))c = Val(InputBox("please input data to c:", "info", 5))If (a + b > c And Abs(a - b) < c) Or (a + c > b And Abs(a - c) < b) Or ((b + c) > a And Abs(b - c) < a) Thenp = (a + b + c) / 2s = Sqr(p * (p - a) * (p - b) * (p - c))Print "三角形的面积是：" & sElsePrint "很抱歉，不能构成合法的△三角形！"End IfEnd Sub6.Option ExplicitPrivate Sub Command1_Click()Dim ji%, tu%For ji = 1 To 27For tu = 1 To 27If ji * 2 + tu * 4 = 78 And ji + tu = 27 ThenPrint "鸡的个数是：" & jiPrint "兔的个数是：" & tuEnd IfNextNextEnd Sub7.Option ExplicitPrivate Sub Command1_Click()Dim i%Dim s#, t#s = 10t = 10For i = 1 To 7t = t * 0.4s = s + t * 2NextEnd Sub8.Option ExplicitPrivate Sub Command1_Click()Dim i%, fs%, max%, min%, s%Dim ave#fs = Val(InputBox("please input score:", "info", 90))s = fsmax = fsmin = fsFor i = 2 To 7fs = Val(InputBox("please input score:", "info", 90))If max < fs Thenmax = fsEnd IfIf min > fs Thenmin = fsEnd Ifs = s + fsNextave = (s - max - min) / 5Print "该运动员的平均成绩是：" & aveEnd Sub9. ‘同学们，这道题方法很多，主要考察你对选择结构的理解，我给出其中一种方法。
Vb考试温习题最终
Vb考试温习题一、填空题1.设a=2,b=3，表达式a>b 的值是_______。
FALSE2.在VB中声明符号常量的关键字是_______。
const3. 表达式10 MOD 16\4的值是_______。
24. 设A=5，B=6，C=7，D=8，表达式3>2*B OR A=C AND B<>C OR C>D 的值是_______。
False|0|5. 设a=6，b=3，c=5，那么表达式Not a>c And c=b Or b<>a+c 的值为_______。
True6. 设a=1,b=2,c=3,那么VB6.0表达式：a<b or b<c and c<a 的值是_______。
True7. 在VB中，用Dim X As Integer 语句概念的变量X，系统默许其值为_______。
08. 表示x是5的倍数逻辑表达式为_______。
X MOD 5=09. 已知a=3.5,b=5.0,c=2.5,d=True 那么表达式：a>=0 AND a+c>b+3 OR NOT d 的值是____。
False|0|零|假|假值|零值10. 用dim abc as integer 概念的变量abc,其类型是______。
整型11. 表达式"12345"<>"12345" & "ABC"的值是_______。
True12. 在VB中，字符型常量应使_______将其括起来，日期/时刻型常量应利用______将其括起来。
双引号井号13．在窗体上添加一个命令按钮，然后编写如下事件进程：Private Sub Command1_Click()a = InputBox("请输入一个整数")b = InputBox("请输入一个整数")Print a + bEnd Sub程序运行后，单击命令按钮，在输入对话框中别离输入321和456，输出结果为___。
vb考试题及答案
vb考试题及答案一、选择题（每题2分，共20分）1. VB中的“Dim”关键字用于声明什么？A. 变量B. 常量C. 类型D. 过程答案：A2. 在VB中，以下哪个是合法的变量名？A. 2variableB. variable-nameC. variable$nameD. variable name答案：B3. VB中的“Sub”过程可以返回值吗？A. 是B. 否答案：B4. 在VB中，以下哪个不是基本数据类型？A. IntegerB. StringC. ObjectD. Date答案：C5. VB程序中，以下哪个语句用于结束程序？A. Exit SubB. End SubC. Exit ForD. End答案：D6. VB中，以下哪个是正确的条件语句？A. If (x > 10)B. If x > 10C. If x = 10 ThenD. If x = 10答案：C7. 在VB中，以下哪个是正确的循环结构？A. DoB. WhileC. ForD. All of the above答案：D8. VB中的“With”语句用于什么？A. 条件判断B. 循环控制C. 简化代码D. 错误处理答案：C9. 在VB中，以下哪个不是数组的声明方式？A. Dim arr(0 To 10) As IntegerB. Dim arr() As Integer = New Integer(10)C. Dim arr As Integer = New Integer(10)D. Dim arr(1) As Integer答案：D10. VB中，以下哪个是正确的事件处理程序声明？A. Sub Button1_Click()B. Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)C. Sub Button1_Click(ByVal e As EventArgs)D. Sub Button1_Click(ByVal sender As Object)答案：B二、填空题（每空2分，共20分）1. 在VB中，使用________关键字可以定义一个类。
VB程序设计试题及答案(一)
VB程序设计试题及答案（一)一、单选题1. VB6.0是一种面向 B 的编程环境。
（A）机器（B）对象(C）过程（D) 应用2. 要使FormI窗体的标题栏显示"欢迎使用VB",以下 D 语句是正确的。
（A) Forml。
Caption=“欢迎使用VB”（B) Forml。
Caption='欢迎使用VB’(C) Forml.Caption=欢迎使用VB(D）Forml.Caption=”欢迎使用VB”3。
若要使命令按钮不可操作,要对 A 属性进行设置。
(A）EnabIed （B)Visible(C）Backcolor (D)Caption4。
如果在窗体上已经创建了一个文本框对象TextI，可以通过 C 事件获得输入键值的ASCII码。
（A）Change (B）LostFocus（C) KeyPress （D）GotFocus5。
下面 A 是合法的变量名。
(A）X_yz (B）123ab。
（C) integer (D）X-Y6. 以下关系表达式中,其值为False的是 A 。
（A) "ABC">"AbC”（B）"女"〉"男”（C）”BASIC”=UCase（"basic）(D) ”123”<”23”7。
为了给x、y、z三个变量赋初值1,下面正确的赋值语句是 A .(A) x=1:y=1：z=1 （B) x=1,y=1，z=1(C）x=y=z=1 (D）xyz=18。
VB提供了结构化程序设计的三种基本结构，三种基本结构是 D 。
（A）递归结构、选择结构、循环结构（B)选择结构、过程结构、顺序结构(C)过程结构、输入输出结构、转向结构(D）选择结构、循环结构、顺序结构9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。
(A）If sex="男" And age=4O And InStr(duty，"教授"）〉O Then n=n+l （B) If sex=”男" And age=4O And (duty=”教授” Or duty="副教授") Then n=n+l（C）If sex=”男” And age=4O And Right（duty，2）="教授" Then n=n+l (D）If sex="男" And age=4O And duty="教授" And duty=”副教授” Then n=n+l10.下列关于Do…Loop循环结构执行循环次数的描述正确的是 D 。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
三、填空题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 9 '个位数数码For b = 0 To 9 '十位数数码For c = ----1----If a<>b And b<>c And a<>c Thenx =a+10*(b+10*c)n = ----2--------3----If n mod 15 = 0 Then PrintEnd IfNext c,b,aPrint "总共有这样的三位数"; n; "个"End Sub1、1 to 92、n+1或1+n3、print x;2、【程序说明】简单窗体是密码检验程序。
程序运行时，用户在文本框输入密码，单击确定按钮对密码进行检验。
密码正确后，标签label2显示“密码正确”；若密码不正确，标签显示“密码错误”，若密码输入错误达3次，将自动退出程序。
Private Sub Command1_Click() '确定按钮Static n As Integer---const-1----mypwd As String = "123456" '预设密码为自定义常量n = n + 1Label2.Visible = TrueIf ---__ text1.text=mypwd____ ---- ThenLabel2.Caption = "密码正确"ElseIf n < 3 ThenLabel2.Caption = "密码错误！"Text1.Text = ""Else--end--3----End IfEnd IfEnd Sub1、CONST2、Text1.text=mypwd或mypwd=text1.text或Text1=mypwd或mypwd=text13、End3、【程序说明】在组合框中选择形状后，窗体中控件Shape1的形状和边框线作相应变化。
程序运行时如下图Private Sub Combo1_Click()Shape1.Shape = = Combo1.List(-combol1.listindex-1----)----2---- = Int(Rnd * 7)End SubPrivate Sub Form_Load()Dim I As IntegerFor I = 0 To 5:----3----: Next IEnd Sub1、Combo1.ListIndex2、Shape1.BorderStyle3、Combo1.AddItem Str(I)或Combo1.list(I)=I4、【程序说明】右击窗体则打开Windows自带的计算器“C:\windows\calc.exe”；单击“退出”按钮时将右击窗体的次数写入磁盘文件,并结束程序运行。
----1----Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _X As Single, Y As Single)If Button = 2 Then n = n + 1: Shell “C:\windows\calc.exe”End SubPrivate Sub Command1_Click()Open "C:\a1.dat" For----2----Print #1,n: Close #1----3----End Sub1、dim n as integer2、output as #13、end三、填空题(请把正确的选项填入试题前的空格中)第1题：【程序说明】单击窗体后，在窗体上输出以下图形:Private Sub Form_Click()Dim I%, j%, st$For I = 1 To ----1----st = Chr$(65 + I - 1)Print Tab(10 - I);For j = 1 To IPrint st; " ";Next j----2----Next IFor I =7 To 1 Step -1st = Chr$(65 + I - 1)Print Tab(10 - I);For j = 1 To ----3----Print st; " ";Next jPrintNext IEnd Sub1、62、Print3、I第2题：【程序说明】窗体是简易文本编辑器程序。
通过文本框和剪贴板实现全选、复制、粘贴和删除操作。
Private Sub Command1_Click() '全选按钮Text1.SelStart = 0Text1.SelLength = ----1----Text1.SetFocusCommand2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = TrueEnd SubPrivate Sub Command2_Click() '复制按钮Clipboard.ClearClipboard.SetText Text1.SelTextCommand3.Enabled = TrueText1.SetFocusEnd SubPrivate Sub Command3_Click() '粘贴按钮Text1.SelText = ----2----Text1.SetFocusEnd SubPrivate Sub Command4_Click() '删除按钮----3----Command2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = FalseEnd SubPrivate Sub Form_Load()Command2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = FalseEnd SubPrivate Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Text1.SelLength <> 0 ThenCommand2.Enabled = TrueCommand4.Enabled = TrueElseCommand2.Enabled = FalseCommand4.Enabled = FalseEnd IfEnd Sub1、Len(Text1.Text)或Len(Text1)2、Clipboard.GetText3、Text1.SelText = ""第3题：【程序说明】自制一个简单的图片浏览器。
在窗体上建立一个图片框控件、一个时钟控件和一个命令按钮。
运行时，显示第一张图片，单击“浏览”按钮每隔1秒在图片框中显示另一张图片，显示到最后一张图片时，又从第一张开始显示。
（假设在C:\Windows目录下有1.bmp、2.bmp、……、8.bmp这样8张图片需显示）Dim I As IntegerPrivate Sub Form_Load()I= ----1----Picture1.Picture = LoadPicture("c:\windows\1.bmp")Picture1.AutoSize = TrueEnd SubPrivate Sub Timer1_Timer()If I <= 7 Then----2----ElseI = 1End IfPicture1.Picture = ----3----End Sub1、12、I=I+1或I=1+I3、LoadPicture("c:\windows\" & I & ".bmp")或LoadPicture("c:\windows\" + trim(str(I)) + ".bmp")第4题：【程序说明】文件c:\a1.dat中存放若干个学生信息的记录（行），按Command1按钮后，查找文件中姓名与输入姓名相同的记录，找到则删除该记录。
Private Sub Command1_Click()Dim bs As String,cs As StringOpen "c:\a1.dat"----1----Open "temp.dat" For Output As #2bs = InputBox("输入学生姓名")Do While Not Eof(1)Line Input #1, csif InStr(cs, Trim(bs)) =----2----Then print #2,csLoopClose #1: Close #2Kill----3----Name “temp.dat” as “c:\a1.dat”End Sub1、For Input As #12、03、"c:\a1.dat"三、填空题1：【程序说明】该程序执行后，输出一个右上三角元素（含对角线）为1，其余元素为0 的5×5的矩阵。
Private Sub Form_Click()Dim a(1 To 5, 1 To 5) As IntegerDim I As Integer, j As IntegerFor I = 1 To 5For j = 1 To 5If ----1---- Then----2----End IfNext jNext IFor I = 1 To 5For j = 1 To 5Form2.Print " "; a(I, j);Next j----3----Next IEnd Sub1、I<=j或j>=I2、a(I,j)=13、print2：【程序说明】如图，程序运行时，用户可以在文本框中输入文本，单击command1“添加”按钮后将文本中输入的内容加到列表框的末尾，用户选某列表框的某一个列表项后，单击command2“删除”按钮，将删除该列表项；如果没有任何一项选中，将有出错提示"先选择，再删除！"。