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 。
VB试题(选择、填空)
一，选择题1、如果VB环境中缺少某个窗口，一般应从主菜单__C____的下拉菜单中找到相应的激活命令。
（1分）A、编辑B、文件C、视图D、调试2、启动Visual Basic后，VB为用户建立的第一个窗体是__B____。
（1分）A、FormB、Form1C、窗体1D、窗体3、不属于一个工程文件（*.vbp）里的文件是____A__。
（1分）A、*.txt文件B、*.bas文件C、*.cls文件D、*.frm文件4、与传统的程序设计语言相比较，Visual Basic最突出的特点是__C____。
（1分）A、结构化的程序设计B、数据处理C、面向对象的可视化编程D、中文支持5、文本框中的ScrollBars属性已设置为3-Both，但却没有水平和垂直滚动条的效果，原因可能是___B___。
（1分）A、文本框中没有内容B、文本框的MultiLine属性为FalseC、文本框的MaxLength属性为0D、文本框的Locked属性是True6、能够盛放其他控件，而且是最基本的对象是___A___。
（1分）A、窗体B、图像C、标签D、文本7、任何控件都具有的属性是____C__。
（1分）A、PictureB、CaptionC、NameD、AutoSize8、窗体上有一个标签Label1和一个命名按钮Command1，当程序运行时每单击一次命令按钮，标签就向右移动一定距离。
在Command1_Click()中能完成这个功能的命令为___D___。
（1分）A、Label1.Left = 100B、Label1.Left = Label1.Left - 100C、Label1.Move 100D、Label1.Move Label1.Left + 1009、要把一个Image控件对象设置成隐藏，应设置的属性是___A___。
（1分）A、VisibleB、EnabledC、DefaultD、Cancel10、以下___B___是正确的For …Next结构。
VB程序填空题
1、以下程序的功能是从键盘上随意输入一个数，判断这个数是正数、负数、仍是零，并输出判断结果。
程序中有三处错误，请改正。
程序以下：Private Sub Command1_Click()Dim a As SingleDim py As Stringa=Val(Text1)If a>0 Then py="正数"If a=0 Then py="零"If a<=0 Then py="负数"=aEnd Sub①_________________________ ② ___________________________ ③ _____________________2、完美程序，使其能输出：1-2+3-4+5-6+...+99-100的值。
程序以下：Private Sub Command1_Click()s=_____For i=1 To _____s=s+((-1)^(______))*iNext iPrint sEnd Sub3、已知一元二次方程的二次项系数、一次项系数、常数项分别为a、b、c，此中 a 不等于0。
编写程序，求方程的根，要求：假如方程无实数根，则输出“无实数根”，不然输出两个实数根。
程序以下：Private Sub Command1_Click()Dim a,b,c,d As SingleDim x1,x2 As Singlea=Valb=Valc=Vald=b^2-4*a*cIf d________ Thenx1=(-b+Sqr(d))/(2*a)x2=(-b-Sqr(d))/(2*a)=x1=x2_______=______End IfEnd Sub4、假以下边程序履行后输出的结果是132，请将程序增补完好：Private Sub Command1_Click()i = 12: s = 1Do While _________________s = s * ii = i - 1LoopMsgBox (s)END Sub5、下边的程序是求7! （ 7!=1*2*3...*6*7）的值，并在默认窗口输出这个值。
2024年VB语言程序设计试题库
ＶB程序设计一、判断题1．同一Ｆoｒm窗体中的各控件能够相互重叠，其显示的上下层次的次序不能够调整。
（X ）ﻫ2．一个对象的若能识别多个事件,我们只能对其中一个事件编程( )ﻫ3．单项选择按钮与复选框对象的Vａlｕe属性类型不一样，且只能取值Ｔrｕｅ和Falｓe。
（√ )4. 事件过程由某个用户事件或系统事件触发执行,它不能被其他过程调用。
( )5． 图片框的Move措施不但能够移动图片框,并且还能够变化该图片框的大小，同时也会变化该图片框有关属性的值。
( √ )6. “A=B=C”是一个合法的Vｉsual Bａsic语句。
( )７. 当在一个简单组合框的文本框中输入一个它的列表框中没有的条目时，组合框会自动把这一条目添加到它的列表框中。
（ )ﻫ8. Visｕal Bａsｉｃ程序的运行能够从 Ｍａiｎ（）过程开启,也能够从某个窗体开启。
( √ ）ﻫ９. 在图片框中放置的控件既能够在该图片框内移动,也能够移出该图片框外。
( ）１0. 对于文献系统控件，当驱动器控件Drivｅl中的驱动器符变化时，文献夹列表控件Dir1中显示的文献夹也作对应的变化,能够在Dｒive1中的Cｈange事件中使用如下命令。
Dｉｒ1. Path＝ Drivｅ1．Ｄrｉve( √）11. 滚动条控件可作为用户输入数据的一个措施。
（ √）ﻫ１２．单项选择按钮控件和复选框控件都具备Vaｌuｅ属性，它们的作用完全相同。
( ）ﻫ13. 静态变量是一个局部变量，当原过程再次被执行时，静态变量的初值是上一次过程调用后的值。
( √ )ﻫ14． Vｉsual Basｉｃ提供的几个标准坐标系统的原点都是在绘图区域的左上角，假如要把坐标原点放在其他位置，则需使用自定义坐标系统。
（√ ）ﻫ15．注释语句ＲＥM可自成一语句。
( √ )ﻫ１6．用鼠标选中某菜单控件时，触发Clｉcｋ事件；而用键盘选中该菜单控件时，触发 KeyPress（ ）17．组合框兼有文本框和列表框二者的功效,用户能够通过键人文本或选择列表中的项目来进行选择。
(完整word)VB填空题及答案
一、填空题1、Visual Basic 对象可以分为两类，分别为 和 。
2、为了选择多个控件，可以按住 键，然后单击每个控件。
4、 浮点数由3部分组成，即符号、 和尾数。
5、下述语句段在运行时的显示结果是 。
Clsx=10.34 + 8 Print Len(x ）6、将代数式b a y x 22++转换成程序设计中的表达式为 . 7、 关系式x ≤—5或x ≥5所对应的布尔表达式是 。
9、下列程序的功能是：当x 〈50时，y=0.8×x ；当50≤x ≤100时，y=0.7×x ；当x 〉100时，没有意义。
请填空。
Private Sub Command1_Click （） Dim x As Singlex=InputBox("请输入x 的值！"） Case Is < 50 y=0。
8 * x Case 50 To 100 y=0。
7 * xPrint "输入的数据出界！” End Select Print x, y End Sub11、 以下程序段的作用是将26个小写字母逆序打印出来，请补充完整。
For i=122 To Print ； Next i12、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click(） x=0Do Until x=—1a=InputBox("请输入第一个数字a 的值") a=Val(a)b=InputBox （”请输入第二个数字b 的值") b=Val （b ）x=InputBox(”请输入第三个数字x 的值”） x=Val （x) a=a + b + x Loop Print a End Sub程序运行后，单击命令按钮，在对话框中分别输入5,4，8，5,8,-1,输出结果为 。
13、执行下面的程序段，x 的值为 。
VB填空题及答案
二、填空题：（每空1分，共20分） 程序代码基础部分：1．Visual Basic 中的变量按其作用分为__ 、__ 、__ 。
全局变量、模块变量（或窗体级变量）、局部变量（过程级变量）2．声明单精度常量PI 代表3.14159的语句为__ __ __ _。
Const PI!=3.14159或Const PI As Single = 3.14159 3．声明定长为10个字符变量Str v 的语句为： 。
Dim Strv as String*10 4．把条件为1≤X ≤5 写成Visual Basic 表达式为： 。
x>=1 and x<=5 5．把条件1≤X<12写成Visual Basic 关系表达式为__ 。
x>=1 and x<126．数学表达式（2 π r+e -5）lnx 对应的Visual Basic 表达式是：__ 。
（2*3.14*r+exp(-5))*Log （x ） 7．数学表达式c)-b)(s -a)(s -s(s 对应的Visual Basic 表达式是： __ 。
sqr （s*（s-a ）*（s-b ）*（s-c ））8．数学表达式ba x e r++-ln )2(8π对应的Visual Basic 表达式是： 。
（2*3.14*r+exp(-8)）*log(x)/(a+b)9．数学表达式5+(a+b)2对应的Visual Basic 表达式是 。
5+(a+b)^210．数学表达式2a （7+b ）对应的Visual Basic 表达式是 。
2*a*（7+b ）11．数学表达式C ×A B对应的Visual Basic 表达式是 。
C*A^B12．写出 Visual Basic 表达式 (Abs(a*b-c^3))^3 对应的数学表达式的形式 。
│ab-c 3│313．写出 Visual Basic 表达式 x^2+3*x*y/(2-y) 对应的数学表达式的形式 。
VB程序设计
《VB程序设计》综合复习资料一、填空题1.在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。
2.一个控件在窗体的位置由______和________属性决定，其大小由__________和_________属性决定。
3.变量的声明分为两种方法:__________和____________。
4.使用____________方法可在窗体中进行文本的输出,用____________方法可画圆，用____________方法可画直线。
5.类是具有相同性质的对象的_________.6.利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点.7.文件按存取方式及其组成结构可分为________________文件、__________文件和______________文件。
8.在VB中,用___________________语句设定数组的下界，用_____________和__________________语句分别返回数组的上、下界。
9.在窗体上画一个名称为“Command1”、标题为“计算”的命令按钮，再画7个标签，其中5个标签组成名称为Label1的控件数组；名称为Label2的标签用于显示计算结果，其Caption属性的初始值为空；标签Label3的标题为“计算结果”.运行程序时会自动生成5个随机数，分别显示在标签控件数组的各个标签中。
单击“计算”按钮，则将标签数组各元素的值累加，然后计算结果显示在Label2中。
请填空。
Private Sub Command1_Click（）Sum = 0For i=0 To 4Sum=Sum+____Next i_____=SumEnd Sub10.在窗体上画两个名称分别为Command1和Command2、标题分别为“初始化”和“求和”的命令按钮。
VB程序设计练习题及参考答案
VB程序设计练习题及参考答案visualbasic程序设计练习题一、填空1．当进入vb集成环境，发现没有显示“工具箱”窗口时，应选择菜单的选项，使“工具箱”窗口显示。
2.在BMP图形文件之后加载命令按钮的图片属性时，所需的图形不会显示在选项按钮上，因为该属性未设置为1（图形）。
3．在文本框中，通过属性能获得当前插入点所在的位置。
4.要编辑文本框中的现有内容，请按键盘上的键，但该键不起作用，因为该属性已设置为true。
6．在vb中，1234、123456＆、1.2346e+5、1.2346d+5四个常数分别表示、、、。
7.整数变量x存储两位数。
要交换两个数字的位置，例如，13变为31，表达式为。
8．表示x是5的倍数或是9的倍数的逻辑表达式为。
9.如果a=3.5、B=5.0、C=2.5和d=true，则表达式a>=0anda+C>B+3ornotd的值为。
10．int(-3.5)、int(3.5)值分别是、。
11．表达式ucase(mid(\的值是。
12.要将以下语句循环20次，循环变量的初始值应为：fork=to-5step-213．下面程序段显示个“*”。
fori=1到5 Forj=1打印\nextjnexti14．复选框属性设置为2－grayed时，变成灰色，禁止用户选择。
15．属性设置为1，单选按钮和复选框的标题显示在左边。
16．属性设置为1，单选按钮和复选框以图形方式显示。
17.程序运行时，如果框架属性设置为false，框架标题为灰色，表示框架内的所有对象均被屏蔽，不允许用户对其进行操作。
18．列表框中项目的序号是从开始的。
19.指示列表框中最后一项的序列号。
20.方法可以清除列表框中的所有内容。
21．组合框是组合了文本框和列表框的特性而形成的一种控件。
风格的组合框不允许用户输入列表框中没有的项。
22.VB程序存储在模块中，模块分为______________三种类型。
123.如果希望每15秒生成一次计时器事件，interval属性应设置为。
vb精选试题及答案
vb精选试题及答案一、单项选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明变量？A. DimB. ConstC. FunctionD. Sub答案：A2. VB中数组的默认下标是从哪个数字开始的？A. 0B. 1C. -1D. 2答案：B3. 在VB中，以下哪个函数用于计算字符串的长度？A. LenB. UBoundC. LBoundD. Sqr答案：A4. VB中，哪个属性用于获取或设置一个窗体的标题？A. CaptionB. TextC. TitleD. Label答案：A5. 在VB中，以下哪个事件用于响应鼠标单击窗体？A. ClickB. DblClickC. MouseDownD. MouseUp答案：A二、填空题（每题3分，共15分）1. 在VB中，声明一个整型变量的正确语法是________。
答案：Dim myVar As Integer2. VB中，用于定义一个过程的关键字是________。
答案：Sub 或 Function3. VB中，用于读取用户输入的函数是________。
答案：InputBox4. VB中，用于打开文件的语句是________。
答案：Open5. VB中，用于关闭文件的语句是________。
答案：Close三、简答题（每题5分，共10分）1. 请简述VB中的事件驱动编程是什么？答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户操作、消息、信号等）触发。
在VB中，用户可以通过编写事件处理程序来响应这些事件。
2. VB中如何实现循环结构？答案：在VB中，可以使用For...Next循环、Do...Loop循环、While...Wend循环等结构来实现循环。
四、编程题（每题10分，共20分）1. 编写一个VB程序，计算并输出1到100之间所有偶数的和。
答案：请参考以下代码：```vbDim sum As IntegerDim i As Integersum = 0For i = 1 To 100If i Mod 2 = 0 Thensum = sum + iEnd IfNext iMsgBox "1到100之间所有偶数的和是：" & sum```2. 编写一个VB程序，判断一个给定的年份是否为闰年。
vb程序设计试题(含答案)
第一套试题一、选择题〔每题 2 分，共 30 分〕1.在 VB环境中，工程文件的扩展名是 ( C )〔 A〕 .frm〔B〕.bas〔C〕.vbp〔D〕.frx2.下面 4 项中不属于面向对象系统三要素的是 ( A )〔 A〕变量〔B〕事件〔C〕属性〔D〕方法、/ 、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〕157 下面 If 语句统计满足性别为男、职称为副教授以上、年龄小于 40 岁条件的人数，不正确的语句是 ( D )〔 A〕 If sex= “男〞 And age＜40 And InStr(duty,“教授〞)＞0 Then n=n+1B〕 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= “副教授〞 Thenn=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=0引用列表框 (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 〔 C〕 Dim a(n,n) As Integer 〔B〕Dim a(3,4)As Integer 〔D〕Dim a(3,4)As Integer14.下面子过程语句说明合法的是 (A 、D )〔 A〕 Sub f1(ByVal n%) 〔 C〕 Function f1%(f1%) 〔B〕Sub f1(n%)As Integer 〔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程序设计练习册参考答案
参考答案第1章Visual Basic 简介一、选择题1、B2、C3、A4、D5、C6、A7、D8、C9、D 10、B11、C 12、B二、填空题1 过程对象事件驱动2 学习版专业版企业版企业版3 Alt+F4 Alt+Q4 设计运行中断5 设置在应用程序运行时，各窗体在屏幕上的显示位置6 内部（标准）7 资源管理器8 编译方式解释方式9 选择“视图/工具箱”命令10 print 或？“大家都来学用Visual Basic”11按字母序按分类序12编辑代码三、思考题略第2章Visual Basic程序设计概述一、选择题1、A2、A3、D4、D5、D6、C7、A 8、C 9、A 10、C 11、B 12、D13、C 14、C 15、B 16、B 17、D 18、B三、编程题1、（1）建立应用程序用户界面。
选择”新建”工程，进入窗体设汁器，在窗体中增加一个标签控件Labe11和两个命令按钮 Commandl 、 Comlnand2。
（2）设置对象属性，见表。
（可自由设置）3编写代码private sub command1_clicklabel1.visible=false1 窗体 控件2 Left Top Width Height3 Ctrl 或shift4 Scrollbars Multiline True Passwordchar5 事件过程6 在属性窗口设置 在代码窗口设置7 对象名 下划线 事件名8 Form_Click9 Form1.Hide10 界面设计 属性设置 代码编写 保存运行11 窗体文件 工程文件12 部件13 窗体文件 模块文件 类模块文件private sub command2_clicklabel1.visible=trueend sub2、Private Sub Command1_ClickIf Text1.Text<>””And Text2.Text<>””Then ′组合条件判断文本框是否为空Form1.Caption=Text1.Text & ″,″& Label2.Caption & ″″& Text2.Text End IfEnd Sub第3章Visual Basic程序设计基础一选择题1.B2.C3.D4.B5.B6.B7.D8.D9.C10.C11.D 12.C 13.D 14.D 15.A 16.D 17.D 18.D 19.C 20.C21.A22.D23.B24.A 25.B 26.A二、填空题1 our name is2 13 True4 字母数字下划线2555 56 07 Logx/log10/0.5+x^2或者Logx/log10/0.5+x*x8 0,1,2,3,49 x>=0 and x<10010 511 false12 6三、编程题1.提示：Ucase、Lcase的使用2.提示：属性设置中，“计算”按钮的default属性设为True.“清除”按钮的Cancel属性设为True.第4章数据输入输出一、选择题1、D2、A3、A4、B5、D6、B7、C 8、C 9、D 10、D二、填空题1. 1+1= 22+2=42. 500.00%3.将当前字体放大两倍4. 20-11-025. 11 1三、编程题1.提示：（1）流程图。
VB考试试题及答案分解
卷1一、填空题1、VB程序设计的主要特点是可视化设计和事件编程。
2、在VB中，最主要的两种对象是窗体（form）和控件。
3、工程是构成应用程序文件的集合。
4、方法是VB提供的一种特殊子程序，用来完成一定的操作。
5、浮点类型数据包括单精度型和___双精度__数据。
6、事件是窗体或控件对象识别的__动作____。
7、可用窗体的__print_ 方法在窗体中显示文字。
8、复选框控件Value属性指示复选框处于____选中___或禁止状态(暗淡的)中的某一种。
9、在VB中，修改窗体的高度（height）和宽度（width）属性值，可改变窗体的大小。
10、双击工具箱中的控件图标，可在窗体的中央出现一个尺寸为缺省值的控件。
11、在MsgBox函数中，如果缺省title参数，则使用工程1 作为消息框的标题。
12、设x＝34.58，语句Print Format(x,“000.0”)的输出结果是34.6 。
13、在VB 中，数值型变量的初值为0 ，Varant型变量的初值为空，布尔型变量的初值为FALSE 。
14、设置窗体的picture 属性，可在窗体上显示图片。
15、程序运行工程中，清除MP图片框中的图片应使用语句cls 。
二、选择题1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。
A、GotFocusB、LoadC、Click D、KeyDown2、滚动条控件(如图所示)的Max属性所设置的是 A 。
A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量D、滚动条控件无该属性3、SQL 语句Select * Form student 中的*表示 B 。
A、所有记录B、所有字段C、所有表D、都不对4、以下选项中，不属于标签的属性是 C 。
VB试题及答案
VB试题及答案（二）一、填空题1. 在Visual Basic6.0中，按变量作用域的不同可将变量分为全局变量和局部变量两种；声明静态变量的关键字为 Static ;2. 在Viual Basic6.0中，程序结构有顺序、选择、循环 3种结构。
3. 控制控件是否可见的属性为 Visible ；控制控件是否可用的属性为 Enabled ；控件的位置是由 Left 和 Top 属性来确定的；控件的大小是由 Width 和 Height 属性来确定；控件上所显示的文本是由 Caption 属性来设定的；4. 与鼠标有关的事件包括 Click 、 DblClick 、MouseDown 、 MouseUp MouseMove ，其中 Click 事件在单击控件时被激发， MouseDown 事件在鼠标键被按下时被激发， MouseUp 事件在鼠标被松开时被激发。
5. 与键盘有关的事件包括 KeyPress 、 KeyDown 、 KeyUp ，其中 KeyPress 事件在单击键盘键时被激发， KeyDown 事件在按下键盘键时被激发， KeyUp 事件在松开键盘键时被激发。
6. 向列表框和组合框中添加列表时，可使用 AddItem 方法；删除选定的列表，可使用 RemoveItem 方法；删除全部列表项，可使用 Clear 方法。
7. 定时器控件能够响应的唯一事件为 Timer ，并且该事件被激发的时间间隔由 Interval 属性来给定。
8. 弹出式菜单一般不直接显示在窗体上，因此菜单的 Visible 属性一般设为False。
要显示弹出式菜单可以用 PopupMenu 方法。
9. 工具栏一般显示在菜单栏下面，由命令按钮组成；状态栏一般显示在窗体的底部，由窗格（Panels）组成。
10. 在图片框绘图之前，除了要建立好坐标系之外，还必须设置好线条的类型、线条的宽度、绘图的模式、填充的样式和填充的颜色，其中线条类型由 DrawStyle 属性来设置，线条宽度 DrawWidth 属性来设置，绘图模式由 DrawMode 属性来设置，填充样式由 FillStyle 属性来设置。
- 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“删除”按钮，将删除该列表项；如果没有任何一项选中，将有出错提示"先选择，再删除！"。