2008-09第二学期程序设计基础VB试卷
08-09(2)VB期末A卷
2008/09第二学期程序设计基础VB试卷说明：考生应将所有答案填写在答卷上，否则无效。
一、选择题（每小题1分，共10分）1、下列函数中，_________函数返回的值是数值型的。
A. ChrB. MidC. SpaceD. Instr2、执行语句 a = MsgBox("AAAA", , "BBBB", "", 5)后，所产生的信息框的标题是_____ 。
A.BBBBB.空C. AAAAD. 53、设a=2, b=3, c=4, d=5, 表达式 3>2*b OR a=c AND b<>c OR c>d 的值是______ 。
A.1B.TrueC.FalseD.-14、Timer 控件可用于后台进程中，可在Timer事件内编程，要停止触发Timer事件，可通过以下_______属性。
A.Enabled = False或Interval = 0B.Visible= False或Interval = 0C.Enabled = False或Visible = FalseD.Enabled = False且Interval = 05、下面语句说明合法的是______ 。
A.Sub a1(ByVal n%())B.Sub a1(n As Integer ) As IntegerC.Function f1%(f1 As Integer)D.Function f1(ByVal n As Integer)6、设当前位置CurrentX=200，CurrentY=400，执行指令"Line (100, 250) -(350, 500), ,B"后，CurrentX= ______ 。
A.100B.200C.350D.5507、在用通用对话框控件建立打开文件对话框时，在文件列表框只允许显示文本文件类型的文件，则Filter属性的正确设置是_________。
(完整版)浙江省2008年秋二级VB考试试卷及答案
2008年秋浙江省高等学校计算机等级考试试卷(二级Visual Basic)说明：⑴考生应将所有试题的答案填写在答卷上。
其中试题1～试题6，请在答卷上各小题正确选项的对应位置处填“√”；⑵请将你的准考证号的后五位填写在答卷右下角的指定位置内；⑶考试时间为90分钟;试题1（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
【程序说明】运行时每间隔10秒钟，以窗体标题的形式显示此时正在上第几节课或是晚餐或是午休时间，等等。
【程序】Private Sub Form_Load()Timer1.Interval = (1)End SubPrivate Sub (2) _Timer()Dim x As Singlex = (3) + Minute(Time) / 60Select Case xCase Is > 21Form1.Caption = "Over"Case (4)Form1.Caption = "第9～11节课"Case Is > 18Form1.Caption = "晚餐时间"Case Is >= 14Form1.Caption = "第5～8节课"Case Is > 12Form1.Caption = "午休时间"Case Is >= 8Form1.Caption = "第1～4节课"End SelectEnd Sub【供选择的答案】(1) A、10 B、100 C、1000 D、10000(2) A、Interval B、Command1 C、Timer1 D、Timer(3) A、Hour(Now) B、House(Time) C、Hour(Date) D、Hour()(4) A、19;20;21 B、19 To 21 C、19..21 D、Is>=19 And Is<=21 试题2（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
2008年二级VB模拟试题及答案
(19) 在Visual Basic中，要使标签的标题栏居中显示， 则将其Alignment属性设置为 A) 0 B) 2 C) 1 D) 3
解析：本题考查的是标签的Alignment属性的设置。 Alignment属性用来设置标签中标题的位置，可将其
设置为0，1，2，作用如下： 0：标题靠左显示(默认）。 1：标题靠右显示。 2：标题居中显示。
燕子老师 2008.9
(28) 下列程序段的执行结果为
a=75 If a > 60 Then I=1 If a > 70 Then I=2 If a > 80 Then I=3 If a < 90 Then I=4 Print "I="; I A) I＝1 B) I＝2 C) I＝3
D) I＝4
解析：此题为If Then 结构的条件语句，如果a > 60 ， 则I = 1；如果a > 70 ，则I = 2；如果a > 80 ，则 I = 3；如果 a < 90，则I = 4；本题的条件是a＝ 75，所以输出结果应该是I = 4。
燕子老师 2008.9
(21) 当滚动条位于最左端或最上端时，Value属性被设
置为
A) Min
B) Max
C) Max和Min之间 D) Max和Min之外
解析：一般情况下，垂直滚动条的值由上往下递增， 最上端代表最小值，最下端代表最大值；水平滚动 条的值从左到右递增，最左端代表最小值，最右端 代表最大值。因此当滚动条位于最左端或最下端时， Value属性被设置为Min。
燕子老师 2008.9
(16) 根据变量的作用域，可以将变量分为3类，分别为 A) 局部变量、模块变量和全局变量 B) 局部变量、模块变量和标准变量 C) 局部变量、模块变量和窗体变量 D) 局部变量、标准变量和全局变量
2008年秋VB笔试试卷及答案
h = Text1 h1 = Left(h, 1): h2 = Right(h, 1) Text2 = h2b(h1) & h2b(h2) End Sub Private Function h2b(p As String) As String Dim st As String, i As Integer st = "0123456789ABCDEF" For i = 1 To Len(st) If (18) Then Exit For Next i i=i-1 Do h2b = (19) i=i\2 Loop Until i <= 0 h2b = (20) End Function 8．下面程序的功能是：输入一个 n 位的整数（n≤10） ，求出由这 n 个数字组成的最大整数 和最小整数。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim n As Long, a() As Integer, i As Integer Dim large As String, small As String n = Text1 Call change(n, a) Call sort(a) For i = 1 To UBound(a) large = a(i) & large small = (21) Next i Text2 = large For i = 1 To Len(small) If (22) Then Exit For Next i If i <> 1 Then small = Mid(small, i, 1) & Left(small, i - 1) & Right(small, Len(small) - i) End If Text3 = small End Sub Private Sub sort(a() As Integer) ‘冒泡法排序 Dim i As Integer, j As Integer, t As Integer For i = 1 To UBound(a) - 1
2008年4月计算机等级考试二级 VB笔试真题及答案
2008年4月全国计算机等级考试二级VB 试卷一、选择题1、程序流程图中带有箭头的线段表示的是A ）图元关系B ）数据流C ）控制流 D)调用关系2、结构化程序设计的基本原则不包括A ）多态性B ）自顶向下C ）模块化D ）逐步求精3、软件设计中模块划分应遵循的准则是A ）低内聚低耦合 B)高内聚低耦合 C)低内聚高耦合 D)高内聚高耦合4、在软件开发中，需求分析阶段产生的主要文档是A ）可行性分析报告B ）软件需求规格说明书C ）概要设计说明书D ）集成测试计划5、算法的有穷性是指A ）算法程序的运行时间是有限的B ）算法程序所处理的数据量是有限的C ）算法程序的长度是有限的D ）算法只能被有限的用户使用6、对长度为n 的线性表排序，在最坏的情况下，比较次数不是n (n-1)/2的排序方法是A ）快速排序B ）冒泡排序C ）直接插入排序D ）堆排序7、下列关于栈的叙述正确的是A ）栈按“先进先出”组织数据B ）栈按“先进后出”组织数据C ）只能在栈底插入数据D ）不能删除数据8、在数据库设计中，将E —R 图转换成关系数据模型的过程属于A ）需求分析阶段B ）概念设计阶段C ）逻辑设计阶段D ）物理设计阶段9、有三个关系R 、S 和T 如下：R ST由关系Ｒ和S 通过运算得到关系T ，则所使用的运算为A ）并B ）自然连接C ）笛卡尔积D ）交10、设有表示学生选课的三张表，学生S （学号，姓名，性别，年龄，身份证号），课程（课号，课名），选课SC （学号，课号，成绩），则表SC 的关键字（键或码）为Ａ）课号，成绩 B ）学号，成绩 C ）学号，课号 D ）学号，姓名，成绩11、以下叙述中错误的是Ａ）标准模块文件的扩展名是.bas B ）标准模块文件是纯代码文件C ）在标准模块中声明的全局变量可以在整个工程中使用D ）在标准模块中不能定义过程12、在Visual Basic 中，表达式3* 2\5 Mod 3的值是Ａ）１ B ）０ C ）３ D ）出现错误提示 B C D a 0 k1 B 1 n1 B C D f 3 h2 a 0 k1 n 2 x1 B C D a 0 k113、以下选项中，不合法的Visual Basic变量名是Ａ）a5b B）_xyz C）a_b D)andif14、以下数组定义语句中，错误的是Ａ）Static a (10) As Integer B) Dim c (3, 1 to 4)C) Dim d (-10) D) Dim b (0 to 5, 1 to 3) As Integer15、现有语句：y=IIf(x>0, x Mod 3, 0) ，设x=10，则y的值是Ａ）０B）１C）３D）语句有错16、为了使文本框同时具有垂直和水平滚动条，应先把MultiLine属性设置为True，然后再把Scrollbars 属性设置为Ａ）０B）１C）２D）３17、文本框Text1的KeyDown事件过程如下：Private SubText1_ KeyDown(KeyCode As Integer, Shift As Integer)End Sub其中参数KeyCode的值表示的是发生此事件时Ａ）是否按下了Alt键或Ctrl键B）按下的是哪个数字键C）所按的键盘键的键码D）按下的是哪个鼠标键18、窗体上有一个名称为Hscroll1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置（即刻度值）。
2008年9月全国计算机二级VB模拟试题及答案解析(一)
2008年9月全国计算机二级VB模拟试题(1)及答案解析一、选择题(1) 在深度为5的满二叉树中，叶子结点的个数为A) 32B) 31C) 16D) 15解析：所谓满二叉树是指这样的一种二叉树：除最后一层外，每一层上的所有结点都有两个叶子结点。
这就是说，在满二叉树中，层上的结点数都达到最大值，即在满二叉树的第k层上有2k-1个结点，且深度为m的满二叉树有2m-1个结点。
(2) 若某二叉树的前序遍历访问顺序是abdgcefh，中序遍历访问顺序是dgbaechf，则其后序遍历的结点访问顺序是A) bdgcefhaB) gdbecfhaC) bdgaechf解析：前序遍历的第一个结点a为树的根结点；中序遍历中a的左边的结点为a的左子树，a右边的结点为a的右子树；再分别对a的左右子树进行上述两步处理，直到每个结点都找到正确的位置。
(3) 一些重要的程序语言(如C语言和Pascal语言) 允许过程的递归调用。
而实现递归调用中的存储分配通常用A) 栈B) 堆C) 数组D) 链表解析：一些较流行的程序语言允许过程的递归调用。
递归调用就是过程调用本身。
递归实现的是：当过程每一次执行后，都能返回到最近一次调用它的过程中。
这样各调用点之间形成一种后进先出关系，而栈结构正适合来存储这些调用点。
(4) 软件工程的理论和技术性研究的内容主要包括软件开发技术和A) 消除软件危机B) 软件工程管理C) 程序设计自动化D) 实现软件可重用解析：软件工程的目标是，在给定的成本、进度的前提下，开发出具有有效性、可靠性、可理解性、可维护性、可重用性、可适应性、可移植性、可追踪性和可互操作性且满足用户需求的产品。
基于这一目标，软件工程的理论和技术性研究的内容主要包括：软件开发技术和软件工程管理。
(5) 开发软件时对提高开发人员工作效率至关重要的是A) 操作系统的资源管理功能B) 先进的软件开发工具和环境C) 程序人员的数量D) 计算机的并行处理能力解析：软件工程鼓励研制和采用各种先进的软件开发方法、工具和环境。
VB程序设计试卷与答案-2
《VB程序设计基础》试题一、选择题：（每空 2 分，共 20 分）1. VB不具备以下的________________特点。
A. VB是结构化程序设计语言B. VB是面向过程的程序设计语言C. VB采用面向对象的程序设计方法D. VB提供了可视化的工具2. 在Visual Basic中，语句Dim x As Single所说明的变量x属于____________。
A. 整数型B. 逻辑型C. 字符串型D. 单精度实数型3. 在Visual Basic中，表达式Fix(-13.8)的值是_____________。
A. -13B. -14C. 13D. 144. 下列属于正确的Visual Basic表达式是（）A. a2+b*|c|B. 2n-1C. b3+2D. 2·h/g5. 设x是正数，下列能用于描述"x是否为偶数"的Visual Basic条件表达式是_____________。
A. x % 2 = 0B. x / 2 = 0 C．x \2 = 0 D. x Mod 2 = 06. 图片框有一个属性，可以自动调整图片框的大小，以适应图片的尺寸，这个属性是__________。
A. AutosizeB. StretchC. AutoRedrawD. Appearance7.语句Print Format(136.459862,“0.000”)的输出结果是___________。
A. 1.365B. 6.459C. 136.460D. 136.4598. 设S=“380”，表达式Mid（S,2,1）+ Right（S,1）+ Left（S,1）的值为__________。
A.“083”B.“803”C.“038”D.“308”9．一个数组说明为Dim a(3，4) As Integer，则该数组共有_________个元素。
A. 12B. 3C. 4D. 2010. 在过程定义中用__________表示形参的传值。
2008级_VB期末试卷(A卷)
天津工业大学200 8 ～200 9 学年第 2 学期高级语言程序设计（VB）试卷（A卷）班级学号姓名注意事项：1、本试卷共13 页，满分为100 分，考试时间为110 分钟。
2、标准答题卡使用2B铅笔涂写；文字题答题时请使用蓝、黑钢笔或圆珠笔，不得使用红颜色墨水笔。
一、单项选择题（每空1分，共30分）（请将答案按照题干上【】内的序号涂写“标准答题卡”，否则不得分）1．以下不属于Visual Basic系统的文件类型是【1】。
A）.frm B）.bat C）.bas D）.vbp2．下列四个表达式中，其值为0的是【2】。
A）5/7 B）5\7 C）7 Mod 5 D）5 Mod 7 3．MsgBox函数返回值的类型为【3】。
A）数值B）字符串C）变体D）数值或字符串(视输入的数据而定)4．确定一个控件在窗体上的位置的属性是【4】。
A）Width或Height B）Width和HeightC）Top或Left D）Top和Left5．设a=10，b=5，c=1，执行语句Print a < b > c后，窗体上显示的是【5】。
A）出错信息B）1 C）True D）False6．已知A$="123456"，则表达式Val(Mid(A, 3, 3) + Right(A, 2))的值是【6】。
A）901 B）401 C）345456 D）345567．函数InStr("eliminate", "min")的运算结果为【7】。
A）True B）False C）4 D）38．在VB中可以作为容器的是【8】。
A）Form、TextBox、PictureBox B）Form、PictureBox、FrameC）Form、TextBox、Label D）PictureBox、TextBox、ListBox 9．若要将窗体从内存中卸载，其实现的方法是【9】。
08-09下学期VB期末试卷(A)及答案
学 院： 专 业： 学 号： 姓 名： 教学班号：阅读使人充实，会谈使人敏捷，写作使人精确。
——培根第1页（共12 页）10.Visual Basic中允许不同对象使用相同名称的方法。
A.对B. 错二．单选题（每题2分，共50分）。
1. 如果要在文本框中键入字符时，只显示某个字符，如星号（*），应设置文本框的______属性。
A. CaptionB. PasswordCharC. TextD. Char2．下列数组声明语句，正确的是______。
A. Dim a[3,4] As IntegerB. Dim a(3,4) As IntegerC. Dim a(n,n) As IntegerD. Dim a(3 4) As Integer3．下列程序段的执行结果为______。
a = 1：b = 2：c = a = bPrint a;b;cA. 1 1 2B. 1 1 1C. 2 2 2D. 1 2 False4．现有语句：y=IIf(x>0, x Mod 3, 0) ，设x=10，则y的值是______。
A. 0B. 1C. 3D. 语句有错5．下面程序执行时,当在窗体上单击左键时的输出结果是______。
Private Sub Form-Click()Dim i As Integer,j As Integer,s As SingleFor i=6 To 5 Step -1s =0#For j=i To 4 Step -1s =s +i*jNext jNext iPrint sEnd SubA. 90B. 45C. 135D. 606. 为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设置为True，这个属性是______。
A. CancelB. DefaultC. valueD. Enabled第2页（共12 页）7. 当一个复选框被选中时，它的Value属性的值是______。
08-09(2)VB期末B卷
2008/09二学期VB 程序设计基础B 卷答卷选课班级任课教师 班级 学号 考生姓名一、选择题（每小题1分，共10分）1. D2. C3. B4. C5. D6. C/D7. B8. A9. D 10. A 由于选择题第六题答案有错，所以只要x 方向正确都算正确。
二、填空题（每空格1分，共10 分）⑴ 对象 ⑵ false ⑶ value ⑷ form2.Y ⑸ 按值传递 ⑹ 按地址传递 ⑺ 4 ⑻ scroll ⑼ 相同 ⑽ 正/大于等于0 三、是非题（每题1分，共10分，请在答卷纸相应题号旁的括号填“√”或“×”）1、（×）2、（√）3、（√）4、（√）5、（√）6、（√）7、（√）8、（×）9、（√） 10、（×） 四、程序阅读题（共24分）程序1. 9 12 程序2.第一次单击 234 4 10 13 第二次单击 0 4程序3. y=10 程序4. s=2 y=26 s=5 s=9 s=14五、程序填空题（每空格2分，共16分）1. a() As Double, n As Integer2. n - 13. a(j) < a(k)4. t=a(i): a(i)=a(k): a(k)=t5. 10 + Int(Rnd * 90)6. i + 1 To 307. Next j, I 8. a(i) Mod 2 = 1六、程序设计题（每题10分，共30分）1、计算下式的和，变量x 与n 的数值用输入对话框在窗体的click 事件中输入，s 的值用自定义函数过程求解，s 的值在form 的click 事件中输出到窗体。
)!1(...!4!3!232+++++=n x x x x s n解：Private Sub Form_Click()Dim x As Single, n As Integer 1分x = InputBox("请输入x的值：") 1分n = InputBox("请输入n的值：")Print s(x, n) 1分End SubPrivate Function s(a As Single, b As Integer) As Single 1分Dim t As Single, i As Integer 1分t = a / 2: s = t 2分For i = 3 To b 1分t = t * a / I 1分s = s + t 1分Next iEnd Function2、在窗体上有两个命令按钮和1个文本框，名称分别为cmdstart（“开始”）、cmdend（“结束”）和text1。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
2008/09第二学期程序设计基础VB试卷说明：考生应将所有答案填写在答卷上，否则无效。
一、选择题（每小题1分，共10分）1、下列函数中，_________函数返回的值是数值型的。
A. ChrB. MidC. SpaceD. Instr2、执行语句 a = MsgBox("AAAA", , "BBBB", "", 5)后，所产生的信息框的标题是_____ 。
A.BBBBB.空C. AAAAD. 53、设a=2, b=3, c=4, d=5, 表达式 3>2*b OR a=c AND b<>c OR c>d 的值是______ 。
A.1B.TrueC.FalseD.-14、Timer 控件可用于后台进程中，可在Timer事件内编程，要停止触发Timer事件，可通过以下_______属性。
A.Enabled = False或Interval = 0B.Visible= False或Interval = 0C.Enabled = False或Visible = FalseD.Enabled = False且Interval = 05、下面语句说明合法的是______ 。
A.Sub a1(ByVal n%())B.Sub a1(n As Integer ) As IntegerC.Function f1%(f1 As Integer)D.Function f1(ByVal n As Integer)6、设当前位置CurrentX=200，CurrentY=400，执行指令"Line (100, 250) -(350, 500), ,B"后，CurrentX= ______ 。
A.100B.200C.350D.5507、在用通用对话框控件建立打开文件对话框时，在文件列表框只允许显示文本文件类型的文件，则Filter属性的正确设置是_________。
A. Text(.txt)|*.txtB. Text(.txt)(*.txt)C. 文本文件|(.txt)D. Text(.txt)||*.txt8、当拖动滚动条中的滚动块时，将触发的滚动条的______ 事件。
A.MoveB.ChangeC.ScrollD.SetFocus9、Visual Basic的使用目的是 _________ 。
A.图像处理wwwB.开发Windows应用程序C.制作W A V文件D.文字处理10、假设Text1文本框中输入了学生的成绩，以A、B、C、D、E字符表示不同的等级，下列语句中_____________可用于判断输入数据是否正确。
A. If "A" <= Text1<= "E" Then MsgBox "输入正确" Else MsgBox "输入错误"B. If "A" <= Text1 Or Text1 <= "E" Then MsgBox "输入正确" Else MsgBox "输入错误"C. If A <= Text1 And Text1 <= E Then MsgBox "输入正确" Else MsgBox "输入错误"D. If "A"<= Text1 And Text1 <= "E" Then MsgBox "输入正确" Else MsgBox "输入错误"二、填空题（每空格1分，共10 分）1、为了在运行程序时删除窗体Form1 的背景图片，可使用⑴语句。
2、正确地显示一个标题为：“ERROR”、提示信息为“Input”的对话框的代码是k = InputBox(⑵ )。
3、滚动条产生Change事件是因为⑶属性值改变了。
4、假定窗体上有一个文本框，若有以下事件过程，请问这个文本框只能接受⑷。
Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii < 65 Or KeyAscii > 90 Then KeyAscii = 0End Sub5、若在程序中使用Dim a, b as String * 4声明 a、b两个变量，则变量 a 的类型是⑸，变量 b 的类型是⑹。
6、表达式Int(74.555*100+0.5)/100的值是⑺。
7、如果要时钟控件每半分钟发生一个计时器事件，则Interval属性应设置为⑻。
8、要使For k = x To -5 Step -2语句循环执行20次，循环变量的初值x应当是⑼。
9、在用ShowFont方法打开通用对话框中的字体对话框前，必须先设置⑽属性。
三、是非题（每题1分，共10分，请在答卷纸相应题号旁的括号中填“√”或“×”）1、在刚建立工程时，使窗体上的所有控件具有相同的缺省字体格式，应对form的font属性进行设置。
2、For/Next循环正常(未执行Exit For)结束后，控制变量的当前值一定不可能等于终值3、VB中的对象指的就是控件。
4、CLS是窗体的一个方法。
5、移动框架时框架内控件也跟随移动，但框架内控件的Left和Top属性值不会改变。
6、在窗体上绘制CommonDialog控件时，要想使控件在运行时不可见，只要设置该控件的visible属性为false即可。
7、已知a=3.5, b=5.0, c=2.5, d=True，则表达式：a >=0 AND a+c > b+3 OR NOT d的值是false8、文件列表框与盘驱动器列表框、目录列表框一样，都能响应Change事件。
9、要在窗体上通过Pset方法绘制宽度为2的点，则需要设置DrawStyle属性。
10、在块IF结构中，“End If”语句可以缺省。
四、程序阅读题（每题6分，共24分）阅读下列程序，将运行时的输出结果或改错的情况写在答卷纸相应题号下。
程序1. 下面是一段计算数学表达式的程序，请写出这个数学表达式。
Private Sub Form_Click()Dim n As Integer, p As Integer, s As Single, q As Integer, i As Integern = InputBox("请输入N的值:")s = 0: p = -1: q = 1For i = 1 To np = -p: q = q * is = s + p * i / qNext iPrint sEnd Sub程序2.运行时3次单击command1，并依次输入7，8，9，窗体显示结果是什么？Dim m As IntegerPrivate Sub Command1_Click()Dim a As Integer, i As Integer, f As Integera = InputBox("a=")f = 1i = 2While i <= a / 2If a Mod i = 0 Then f = f + ii = i + 1m = m + 1WendPrint f; mEnd Sub程序3.已知水平滚动条HScroll1的有关属性已经在属性窗口进行了如下的设置：HScroll1.Min:1 HScroll1.Max:12 HScroll1.SmallChange:3rgeChange:4 HScroll1.Value:5写出连续3次单击水平滚动条HScroll1右端箭头后，窗体上显示的结果。
Private Sub HScroll1_Change()Static y As IntegerIf HScroll1.Value Mod 2 = 0 Theny = y + HScroll1.ValuePrint "y="; yEnd IfEnd Sub程序4.下面的数字金字塔显示程序中有三处错误，请根据要求修改错误：Option ExplicitPublic Sub prt()' 显示由数字组成的如下所示金字塔图案' 9' 888' 77777' 6666666' 555555555' 44444444444' 3333333333333' 222222222222222' 11111111111111111Dim i As Integer, j As IntegerFor i = 9 To 1Print Space(i);For j = 1 To 2 * i - 1Print iNext jForm1.PrintNext iEnd Sub五、程序选择填空题（每空格2分，共16分）阅读下列程序说明和程序，将答案填写在答卷纸相应题号下。
程序1.某文件中存放了若干个实数，单击Command1 可用对话框打开该文件、并将读入的所有数据在List1中显示，单击Command2可将读入的数据按值从小到大顺序重新写入到该文件。
Private Sub Command1_Click()Dim x As SingleList1.Clear: CommonDialog1.Action = 1Open CommonDialog1.FileName For (1) As #2Do While （2)Input #2, x: List1.Additem xLoopClose #2End SubPrivate Sub Command2_Click()Dim n As Single,x As Single,i As Integer,j As Integer,K As Integern = List1. (3)Redim a(n) As SingleFor i = 1 To n: a(i) = List1.List(i-1): Next iFor i = 1 To n -1k = iFor j = i+1 To n: If (4) Then k = j: Next jx = a(k): a(k) = a(i): a(i) = xNext iOpen CommonDialog1.FileNmae For Output As #1For i = 1 To n: Print #1,a(i): Next iClose #1End Sub【供选择的答案】(1) A、Output B、Input C、Append D、Read(2) A、Eof(1) B、Not Eof(1) C、Eof(2) D、Not Eof(2)(3) A、Count B、ListCount-1 C、List D、ListCount(4) A、a(j)>a(k) B、a(j)>=a(k) C、a(j)<>a(k) D、a(j)<a(k)程序2. 阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。