1、VB 程序设计复习题一、 选择题1. 改变控件在窗体中的上下位置，应修改控件的_A_属性A .Top B. Left C.Width D. Right 2. 将通用对话框类型，设置为字体对话框，可修改该控件的_D_属性A. font B. filename C. filter D. action 3. 标签控件最重要的属性是_A_A. caption B. text C. name D. width 4. 文本框中选定的内容，由下列_C_属性反映。A. Text B.Caption C. Seltext D. sellenght 5. 选中复选框控件时，value 属性的值，可以是_ D_A.
2、true B. false C. 0 D.1 6. 设置列表框选中的文本用_D_ 属性A. selected B. caption C. text D. list 7. 简单组合框的 style 值为_B_A .0 B. 1 C. 2 D. 3 8. 在文件列表框的实现文件的多重选择，应修改该控件的_D_属性A. filename B. pattem C. path D. multiselect 9. 语句 listl.removeitem 1 将删除 list.listindext 等于_D_的项目。A. 0 B. 2 C. 3 D. 1 10. 计时器的 interval 属性为 0 时，
3、表示_A_。A. 计时器失效 C. 相隔 0 毫秒B. 相隔 0 秒 D. 计时器的 enable 属性为 false 11. 以下的 vb 常量中非法的是 (B)a. “Good Luck” b. PI c. 1.5E-03 d. 16.3412 12. 要想返回文本框中输入的内容则可利用其 ( B ) 属性进行编程a. caption b. text c. name d. righttoleft 13. 下列不能用 commondialog 控件调用的对话框是 ( D)a. open/save b. help c. font d. search 14. vb 应用程序是分层管理的,其最高的
4、层次为 ( A)a. 工程 b. 模块 c. 窗体 d. 过程 15. vb 程序设计中的窗体在 oop 中称为 ( C)a. 屏幕 b. 事件 c. 对象 d. 控件 16. 欲使某命令按钮失效，应修改命令按钮的 (D) 属性。A. Visible B. Caption C. Enable D. Enabled 17. 要使标签能透出窗体的背景，必须设置 (A) 属性。A. BackStyle B. BorderStyle C. Appearance D. BackColor 18. 用鼠标拖动滚动条中滚动框并释放，将触发滚动条的 (D) 事件。AScroll B.Change C.Drag
5、Over D. A 和 B 19. 组合框的类型由 Style 属性决定，简单组合框的 Style 属性值应为 (B) 。A. 0 B. 1 C. 2 D. 3 20. 下面哪些控件不会影响到界面设计效果。 (A) A. 定时器 B. 文本框 C. 标签 D. Line 控件 21. Clear 方法适用于 (D) 控件。A.图片框 B.窗体 C.复选框 D.组合框 22. 下列哪个变量的取法是不正确的（ C）AsTme BT_Temp CT12% DT_12 23. 如果要设置窗体的标题栏，应选择以下那种属性（ B ）AName B Caption CTips DText 24. 如果要给字
6、体加删除线，可以选择下列那种属性（C） AFontName BFontSize CFontStrikethru DFontUnderLine 25. 下列哪个变量的取法是不正确的（D ） ATName BT_Temp CT32 DT32# 26. 清除列表框的所有选项应选择下列哪种方法（ A ）AClear B Cls CClearItem DRemoveItem 27. 下面哪些控件不会影响到界面设计效果。 (C) A. Label B. Text C. CommonDialog D. Frame 28. 要使得窗体在出现之前就完成相关的程序设置可在 (C ) 事件中进行编程A. linko
7、pen B. KeyPress C. load D. click 29. 要使文本框中显示密码符有效，必须首先设置 （B ） 属性。AText B. MultiLine C.Locked D.Enabled 30. 要在垂直位置上移动控件，应利用控件的 (C) 属性。A. Left B. Width C. Top D.Height 31. 下列表达式中, 其值为 0 的是 ( C) A. 7/9 B. 7 mod 15 C. 79 D. 15 mod 9 32. 一个对象可以执行的动作和可被对象识别的动作分别称为 （A ） 。A、事件、方法 B、方法、事件 C、属性、方法 D、过程、事件 33
8、. 在窗体 Form1 的 Click 事件过程中有以下语句：Label1.Caption=”Visual Basic”若本语句执行之前，标签控件的 Caption 属性为默认值，则标签控件的 Name 属性和 Caption 属性在执行本语句之前的值分别为 （B） 。A”Label” 、”Label” B、”Label1” 、”Visual Basic”C、”Label1”、”Label1” D、”Caption”、”Label” 34. （D） 对象不具有 Caption 属性。A、Label B、Option C、Form D、Timer 35. Interger 类型的变量可存的的最大
9、整数是 （D） 。A、250 B、256 C、32768 D、32767 36. 下列数据类型中，占用内存最小的是 （B） 。A、Boolean B、Byte C、Integer D、Single 37. 已知 A、B、C 中 C 最小，则判断 A、B、C 可否构成三角形三条边长的逻辑表达式是 （B） 。A、A=B And B=C And C0 B、A+CB And B+C A And C0C、(A+C)=C And A-C 0 D、A+BC And A-BC And C0 38. 下面 （C） 是日期型常量。A、”12/19/99” B、12/19/99 C、#12/19/99# D、12/
10、19/99二、 判断题：1. 全局变量用 global 或 public 关键字声明，且仅在通用声明处可以定义。（F ） 2. 如果某子程序 add 用 public static sub add（）定义，则该子程序的变量都是局部变量。 （F） 3. move 方法的一般形式是：对象名.move A，B ，C， D，其中 A 指 Left，C 指width。（F ） 4. 清除 list1 列表框对象的内容的语句是 list1.cls。 （F） 5. 清除 combo1 对象的内容是 combo1.clear。 （T） 6. 对象的可见性用 enabled 属性设置，可用性用 visible
11、属性设置。 （F） 7. 滚动条控件不可作为用户输入数据的一种方法。 （F） 8. 只要用拖拽的方法，将工具箱中所需的控件拖到窗体上即可完成。 （F ） 9. 控件是对象，而窗体不是对象，它只是控件对象的窗口。 （F） 10. TextBox 与 Label 有许多共同特点，它们都能显示和输入文本。 （F ） 11. 有的对象属性既可在属性窗口中设定又可在程序代码中设定。 （T） 12. 在框架控件内的几个单选按钮中，只能有一个单选按钮的 Value 属性为 True.(T) 13. 标签没有 Change 事件和 SetFocus 方法。 （T） 14. 事件过程与 Sub 过程，它们相同点
12、都是事件驱动，而不同的只是事件过程由控件属性决定，而 Sub 过程是由户自定义。 （F） 15. Function 函数有参数传递，并且一定有返回值。 (F) 16. 滚动条控件不可作为用户输入数据的方法。 （T） 17. Msgbox 函数建立的信息框能显示信息又能输入用户的信息。 (F） 18. Dim i, j as integer 表明 i 和 j 都是整型变量。(F) 19. 菜单每一菜单项都是控件，可以通过点击菜单项或通过光标选择并按回车键，以触发 Click 事件。(T) 20. 某一过程中的静态变量在过程结束后，静态变量及其值可以在其它过程中使用。(F) 21. 目录列表框中的
13、列表项不可以通过 AddItem 方法进行添加。(T) 22. 在表达式中，运算符两端的数据类型要求一致。(T) 23. Visual Basic 程序的运行，仅能从某一窗体启动，如 Form1 窗体。(F) 24. VB 是一种面向对象的程序设计语言。(T) 25. 在 VB 的工具栏中包括了所有的 VB 控件，我们不能再加载其他的控件。(F) 26. 在 VB 中，文件菜单的“删除工程 ”的作用是将当前 VB 工程在硬盘中删除掉。(F) 27. 有一个程序在属性窗口中设置了它的窗体字体大小为 10 号，而程序代码若设置了它的窗体字体大小为 20 号，那么当程序运行后实际的窗体字体大小为 2
14、0 号。(T) 28. 所有的 VB 的变量，都有隐含说明字符和强调声明两种方法来定义。(F) 29. 所有的控件在程序运行以后都是可见的。(F) 30. 标签控件可以用来让用户输入数据。(F) 31. 在框架控件上放置的控件可以移动到框架控件的外面。(F) 32. 如果一个列表框一共有 5 个选项，而当选中第三项时，这时列表框的 ListIndex 属性为 2。 (T) 33. 单击并拖拽工具箱中所需的控件到窗体上即可完成添加控件任务。 （F） 34. 除了标准控件外，还可引入其它控件及第三方厂商研制的控件。 （T） 35. TextBox 与 Label 有许多共同特点，它们都能显示和输入
15、文本。 （F ） 36. Listl.clear 是清除 Listl 的全部列表项，所以 Clear 是对象的方法。（T） 37. 有的对象属性既可在属性窗口中设定又可在程序代码中设定。（F） 38. 在框架控件内的几个单选按钮中，可有一个或多个单选按钮的 Value 属性为True.(F) 39. Variant 是一种特殊的数据类型，Variant 类型变量可以存储除了定长字符串数据及自定义类型外的所有系统定义类型的数据。Variant 类型变量还可具有Empty、 Error 和 Null 等特殊值。 (T) 40. 窗体的 Enabled 属性值为 False 时，该窗体上的按钮、文本
16、框等控件就不会对用户的操作做出反应。 (T) 41. 框架控件和形状控件都不能响应用户的鼠标的单击事件。 (T) 42. 在一个窗体的代码中不能使用 Unload 语句来卸载本窗体，即一个窗体只能由其它窗体卸载。 (F) 43. 当在一个简单组合框的文本框中输入一个它的列表框中的没有的条目时，组合框会自动反这一条目添加到它的列表框中。(F) 44. 当定时器控件的 interval 属性值设置为 0 时，会连续不断地激发 Timer 事件。(F) 45. 如果一个菜单项的 Visible 属性为 False，则它的子菜单也不会显示。（T ）三、 填空题1. 如果要指明 mystring 为固定
17、 15 个字长的全局变量，应该在标准模块中用以下说明语句定义：_Public mystring as string*15_ 2. 设 X$ =“abc123456”则“a”+str$(val(right(X$,4)的值是_ a3456_ 3. 拖动滚动条中的滚动框将会产生_ Scroll _、_ Change _ 4. 请写出清除以下对象内容的语句：文本框_ Text1.text=”_,窗体_ Form1.Cls _,列表框_ List1.Clear _,组合框_ combol1.Clear _ 5. 变量 min表示_货币数据变量 _类型的变量。 6. 如果：I=11 ：J=3：I=int(
18、-8.6)+IJ+13/3 MOD 5，则 I 值是_ 2_ 7. 请写出满足以下条件的 VB 表达式：0X 10 ，_ X0 and x=0 and x0_。 8. 下列循环语句控制的循环次数为 0 FOR K=1 TO 10 STEP 1 9. 表达式 1 and 0 的值 ( False) 。 10. 设 a=2,b=3,c=4,d=5,表达式 （ab Xor b4+3 Or 5+310 And Not ( 4+25 EQV 3+52 ) 17. 按照数据文件的存储方法的不同，文件可以分为三种不同的类型：_ 顺序文件_、_随机文件_和二进制文件。 18. 下列循环语句控制的循环次数为_0
19、_。FOR K=1 TO 20 STEP 2 19. VB 表达式 92 MOD 45 2 *3 的值_4_ 。 20. 设 x=2,y=4,a=4,b=6,表达式 （ax Xor b1 xor b=Z ) THENPRINT ZELSEPRINT XENDIFEnd Sub 3. 程序说明 由输入对话框输入 n（设 n 为大于零且小于 30 的自然数），计算下列表达式的值，并在标签框 Label1 上显示。 程序Private Sub Form_Click( )Dim n As Integer,sum as Double,k As Integern=Val(InputBox(“n=”,”请输
20、入自然数 n(n0 且 n=30) n=val(InputBox(“n=”,”请重输入”)LoopSum=0 ( k=0) dok=k+1sum= (sum+1/(k*(k+1) Loop Until k=nLabel1.Caption=”Sum=”+Str(sum)End Sub收礼盒 分享 应用程序 公共主页 人人生活 人人小组 同名同姓 人人中学 大学百科 人人热点 注册 登录 帮助 给我们提建议 更多海大临时抱佛脚 听说，你们 VB 考的不错，听说你们 VB 掐过，听说胡西川这回放水很厉害， 。 。 。 。 。 。 。 。 2012-01-08 全部人人公共主页公共主页 资料 状态 相
21、册 日志 分享 上一篇 下一篇 共 36 篇 【VB】VB 题库选择，填空，判断 2012 年 01 月 11 日 15:22:38 一、判断 共 10 题 （共计 10 分）第 1 题 Shape 控件和 Line 控件可以在窗体中移动,因此它们具有 Move 方法. 答案：N第 2 题 Visual Basic 程序的运行可以从 Main()过程启动,也可以从某个窗体启动. 答案：Y第 3 题图片框的属性 Enabled 设置为 FALSE, 图片框上的控件仍可响应用户操作. 答案：N第 4 题若已在窗体中加入了一个通用对话框:要求在运行时,通过 ShowOpen 打开对话框时,只显示扩展
22、名为 DOC 的文件,则对通用对话框的 Filter 的属性设置应该是:“ (*.DOC)| ( .DOC)“ . N第 5 题设计菜单中每一个菜单项分别是一个控件,每个控件都有自己的名字. 答案：Y第 6 题清除 list1 列表框对象的内容的语句是 list1.cls. 答案：N第 7 题图片框的 Move 方法不仅可以移动图片框 ,而且还可以改变该图片框的大小,同时也会改变该图片框有关属性的值. 答案：N第 8 题当窗体的 ScaleTop=0,ScaleLeft=0 时,这个窗体 Top 和 Left 值也是 0. 答案：N第 9 题框架控件和形状控件都不能响应用户的鼠标的单击事件.
23、答案：Y第 10 题通用对话框只能用 SHOW 方法进行调用. 答案：N二、单项选择 共 10 题 （共计 10 分）第 1 题用户可以通过设置菜单项的()属性值为 FALSE 来使该菜单项不可见.A:Hide B:Checked C:Visible D:Enabled 答案：C第 2 题定时器的 Interval 属性以 ()为单位指定 Timer 事件之间的时间间隔 .A:分 B: 秒 C:毫秒 D:微秒 答案：C第 3 题要在图片框 P1 中打印字符串“ HowAreYou“ ,应使用语句().A:Picture1.Print=“ HowAreYou“ B:P1.Picture=Load
24、Picture(“ HowAreYou“ )C:P1.Print“ HowAreYou“ D:Print“ HowAreYou“ 答案：C第 4 题下列关于设置控件属性的叙述正确的是().A:用户必须设置属性值 B:所有的属性值都可以由用户随意设定C:属性值不必一一重新设置 D:不同控件的属性项都完全一样 答案：C第 5 题启动 VisualBasic 后,系统为用户新建的工程起一个名为()的临时名称.A:工程 1 B:窗体 1 C:工程 D:窗体 答案：A第 6 题设 a=10,b=5,c=1,执行语句 Printabc 后,窗体上显示的是 ().A:True B:False C:1 D:出
25、错信息 答案：B第 7 题 MSGBOX 函数中有 4 个参数,其中必须写明的参数是().A:指定对话框中显示按钮的数目 B:设置对话框标题 C:提示信息 D:所有参数都是可选的 C第 8 题应用程序设计完成后,应将程序保存,保存的过程是().A:只保存窗体文件即可 B:只保存工程文件即可 C:先保存工程文件 ,之后保存窗体文件D:先保存窗体文件(或标准模块文件 ),之后还要保存工程文件 答案：D第 9 题改变控件在窗体中的左右位置应修改该控件的()属性 .A:Top B:Left C:Width D:Right 答案：B第 10 题 VB 认为下面() 组变量是同一个变量 .A:A1 和 a
26、1 B:SUM 和 SUMMARY C:AVER 和 AVERAGE D:A1 和 A_1 答案：A三、程序填空 共 3 题 （共计 30 分）第 1 题 【程序填空】功能：以下程序的功能如(图 1)。-Private Sub Form_Click()Dim a%, b%, c%, d!Dim x1, x2Dim p, q, ra = InputBox(“ 请输入 a 的值“ )b = InputBox(“ 请输入 b 的值 “ )c = InputBox(“ 请输入 c 的值“ )d = b * b - 4 * a * cp = -b / (2 * a)If d = 0 Then*SPACE
27、*If 【?】 Thenr = Sqr(d) / (2 * a)x1 = p + rx2 = p - rElsex1 = px2 = p*SPACE*【?】Print “ x1=“ ; x1, “ x2=“ ; x2*SPACE*【?】q = Sqr(-d) / (2 * a)Print “ x1=“ ; p; “ +“ ; q; “ i“ , “ x2=“ ; p; “ -“ ; q; “ i“End IfEnd Sub答案： 1). d 0 或 0 10 Then*SPACE*y = Sqr(x) 【? 】Elsey = 2 * x 3 + 6End IfPrint yEnd Sub答案：
28、 1). y 2). InputBox 3). y = 0 4). + Sin(x)四、程序改错 共 3 题 （共计 30 分）第 1 题 【程序改错】题目:设窗体中有图片框 Pic1，现要求在其中绘制 10 个同心圆， 然后将此图以 Test.BMP 作文件名存入磁盘。-Option ExplicitPrivate Sub Command1_Click()Dim X As IntegerDim Y As IntegerDim I As IntegerDim rad(9) As IntegerX = Pic1.ScaleWidth / 2Y = Pic1.ScaleHeight / 2*FOU
29、ND*For I = 1 To 9rad(I) = 500 * RndNext II = 9*FOUND*Do Until I i3). I = I - 1 或 i=-1+i第 2 题 【程序改错】题目：从计算机输入三个数 , 找出中间数-Option ExplicitPrivate Sub FindMidNum()Dim x As Integer, y As Integer, z As Integer, A As Integerx = InputBox(“ PLEASE INPUT THE FIRST NUMBER“ )y = InputBox(“ PLEASE INPUT THE SECO
30、ND NUMBER“ )z = InputBox(“ PLESSE INPUT THE THIRD NUMBER“ )*FOUND*If x y ThenA = xx = yy = AEnd If*FOUND*If y = z ThenPrint y*FOUND*ElseIf x = z ThenPrint zElsePrint xEnd IfEnd SubPrivate Sub Form_Click()FindMidNumEnd Sub答案： 1). If x x Then2). If y = z Then 或 If z = z Then 或 ElseIf z bc 后,窗体上显示的是 ()
31、.A:True B:False C:1 D:出错信息 答案：B第 5 题 任何控件都具有的属性是().A:TEXT B:CAPTION C:NAME D:FORECOLOR 答案：C第 6 题 当事件能被触发时,()就会对该事件作出响应.A:对象 B: 程序 C:控件 D:窗体 答案：A第 7 题下列叙述正确的是().A:对象是包含数据又包含对象数据进行操作的方法的物理实体B:对象的属性只能在属性窗口中设置C:不同的对象能识别不同的事件D:事件过程都要由用户点击对象来触发 答案：C第 8 题 下列关于设置控件属性的叙述正确的是().A:用户必须设置属性值 B:所有的属性值都可以由用户随意设定C
32、:属性值不必一一重新设置 D:不同控件的属性项都完全一样 答案：C第 9 题表达式 2+3*45-SIN(X+1)/2 中最先进行的运算是().A:45 B:3*4 C:x+1 D:SIN 答案：C第 10 题一个对象可以执行的动作和可被对象识别的动作分别称为().A:事件、方法 B:方法、事件 C:属性、方法 D:过程、事件 答案：A三、程序填空 共 3 题 （共计 30 分）第 1 题 【程序填空】下面过程 max()用于求 3 个数中最大值，利用这个过程求 5 个数中最大值。-Private Sub Form_Click()Print “ 5 个数 34、124、68、73、352 的最
33、大值是：“max1 = max(34, 124, 68)*SPACE*max1 =【?】Print max1End SubPublic Function max(ByVal a%, ByVal b%, ByVal c%)*SPACE*If 【?】 Thenm = aElsem = bEnd If*SPACE*If 【?】 Thenmax = mElsemax = cEnd IfEnd Function答案： 1). max(max1, 73, 352) 2). ab 或 b c 或 c = 0 And a c 后,窗体上显示的是 ().A:True B:False C:1 D:出错信息 答案：
34、B第 6 题 在窗体上建立了多个控件 ,如 TEXT、LABEL1、COMMAND1,若要使程序一运行焦点就定位在 COMMAND1 控件上,应将 COMMAND1 控件的() 设置为 0.A:INDEX B:TABINDEX C:TABSTOP D:ENABLED 答案：B第 7 题 将通用对话框类型,设置为字体对话框,可修改该控件的()属性.A:font B:filename C:filter D:action 答案： D第 8 题 设置列表框选中的文本用()属性.A:selected B:caption C:text D:list 答案：D第 9 题 能够改变窗体边框线类型的属性是().
35、A:FontStyle B:BorderStyle C:BackStyle D:Border 答案：B第 10 题 下列哪个变量的取法是不正确的().A:sTme B:T_Temp C:T12% D:T_12 答案：C第 11 题 选中复选框控件时,value 属性的值,可以是().A:True B:false C:0 D:1 答案：D第 12 题 要清除已经在图片框 Picture 中打印的字符串而不清除图片框中的图像,应使用语句().A:A.P1.Cls B:P1.picture=LoadPicture(“) C:P1.Print“ D:P1.piture“ 答案：A第 13 题 控件内的
36、对齐方式()属性决定.A:Alignment B:WordWrap C:AtuoSize D:Style 答案：A第 14 题 清除列表框的所有选项应选择下列哪种方法().A:Clear B:Cls C:ClearItem D:RemoveItem 答案：A第 15 题 下列赋值语句正确的是().A:Text1.text=Text.text+Text2.text B:Text1.name=Text1.Name+Text2.NameC:Text1.Caption=Text1.Caption+Text2.Caption D:Text1.Enable=Text1.Enable+Text2.Enabl
37、e 答案：A第 16 题 已知 A?B?C 中 C 最小,则判断 A?B?C 可否构成三角形三条边长的逻辑表达式是().A:A=B And B=C And C0 B:A+CB And B+CA And C0C:(A+C)=C And A-C 0 D:A+BC And A-BC And C0 答案：B第 17 题 形状控件所显示的图形不可能是().A:圆 B: 椭圆 C:圆角正方形 D:等边三角形 答案： D第 18 题 要在图片框 P1 中打印字符串“HowAreYou“,应使用语句().A:Picture1.Print=“HowAreYou“ B:P1.Picture=LoadPicture
38、(“HowAreYou“)C:P1.Print“HowAreYou“ D:Print“HowAreYou“ 答案：C第 19 题 文本框中选定的内容,由下列()属性反映.A:Text B:Caption C:Seltext D:sellenght 答案： C第 20 题 在一个语句行内写多条语句时,语句之间应该用()分隔.A:逗号 B: 分号 C:顿号 D:冒号 答案：D三、程序填空 共 2 题 （共计 10 分）第 1 题 【程序填空】题目：以下程序的功能如(图 1)。-Private Sub Form_Click()Dim a%, b%, c%, d!Dim x1, x2Dim p, q,
39、 ra = InputBox(“请输入 a 的值“)b = InputBox(“请输入 b 的值“)c = InputBox(“请输入 c 的值“)d = b * b - 4 * a * cp = -b / (2 * a)If d = 0 Then*SPACE*If 【?】 Thenr = Sqr(d) / (2 * a)x1 = p + rx2 = p - rElsex1 = px2 = p*SPACE*【?】Print “x1=“; x1, “x2=“; x2*SPACE*【?】q = Sqr(-d) / (2 * a)Print “x1=“; p; “+“; q; “i“, “x2=“;
40、 p; “-“; q; “i“End IfEnd Sub答案： 1). d 0 或 0 b 或 b c 或 c = 1 ThenPrint “*“Else*FOUND*Print “*“; Spc(2 * (i - 1); “*“End IfNext iEnd Sub答案：1). Print Spc(7 - i); 2). If i = 1 Then 或 If 1=i Then3). Print “*“; Spc(2 * (i - 1) - 1); “*“第 2 题 【程序改错】题目：该程序的功能是通过键盘给一维数组 a 输入 10 个整数，然后将一维数组的这些数赋值给一个 2 行 5 列的二
41、维数组。最后在一行内输出一维数组、在两行内输出二维数组。不可增加或删除程序行，也不可以更改程序结构-Private Sub Form_Click()Dim a(10), b(2, 5) As Integerdim i as integer,k as integer,j as integerFor i = 1 To 10a(i) = InputBox(“请提供 10 个整数给数组“)a(i) = Val(a(i)Next ik = 0For i = 1 To 2For j = 1 To 5k = k + 1b(i, j) = a(k)Next jNext iPrint Tab(10); “数组
42、a 的值“Print Tab(10);For i = 1 To 10*FOUND*Print a(i)Next iPrintPrint Tab(10); “二维数组 b 的值是:“For i = 1 To 2Print Tab(10);For j = 1 To 5*FOUND*Print b(j,i);Next j*FOUND*Paint b(i,j)Next iEnd Sub答案： 1). Print a(i); 2). print(i,j) 3). Print五、程序设计 共 2 题 （共计 20 分）第 1 题 【程序设计】题目：(事件)单击窗体。(响应) 编写代码功能如(图 1)。将结
43、果存入变量 Sum 中。使用while.wend 语句完成程序注意：请在指定的事件内编写代码。-答案：-Dim i As Integeri=1while i = 10sum = sum + i ii = i + 1wendPrint sum-第 2 题 【程序设计】题目：(事件)双击窗体。 (响应) 把一元钞票换成一分、二分和五分的硬币（每种至少有一枚） ，求出其所有的换法，把结果输出在窗体上。将所有的换法的数目存入变量 N 中注意：请在指定的事件内编写代码。-答案：-Dim i, j, k As IntegerFor i = 1 To 100For j = 1 To 50For k = 1 To 20If (i + 2 * j + k * 5) = 100) ThenPrint (CStr(i)Print (CStr(j)Print (CStr(k)n = n + 1End IfNextNextNext-六、VB 窗体设计 共 4 题（共计 20 分）第 1 题【窗体设计】题目：请按照题目要求设计指定的窗体。建立如(图 1)所示界面。 -1：添加控件在窗体内添加 3 个文本框(Tex
