《计算机程序设计A》计算机程序设计(答案)

计算机VB程序设计复习试题1 在Visual Basic中最基本的对象是（），它是应用程序的基石（A）标签（B）窗体（C）文本框（D）命令按钮2 事件驱动应用程序的典型操作序列是（）（A） 启动应用程序、加载显示窗体，接收事件，执行代码，等待下次事件（B） 接收事件，启动应用程序，加载显示窗体，执行代码，等待下次事件（C） 执行代码，启动应用程序，加载显示窗体，接收事件，等待下次事件（D） 等待下次事件，接收事件，启动应用程序，加载显示窗体，执行代码3 对于不同的对象有不同的属性，但所有的对象都共同拥有的属性是（）（A）Picture（B）Caption（C）Name（D）Lcon4 从键盘上输入两个字符串，分别保存在变量str1和str2中。确定第二个字符串在第一个字符串中起始位置的函数是（）（A）Left（B）Mid（C）String（D）Instr5 函数Int(100*Rnd+1)的取值范围是（）（A）从1到100（B）从0到100（C）从1到101（D）从0到1016 如果将布尔常量值True赋值给一个整型变量，则整型变量的值为（）（A）0（B）-1（C）True（D）False7 下列符号常量的申明中，（）是不合法的（A）Const a As Single = 1.1（B）Const a As Integer = “12”（C）Const a As Double = Sin(1)（D）Const a = “OK”8 将变量k四舍五入保留2位小数的表达式是（）（A）Int(k+0.5)*100)/100（B）Int(k*100)/100+0.5（C）Int(k*100+0.5)/100 （D）Int(k*(100+0.5)/1009 假设a和b是整型变量，则表示条件“1a8和1b8中只要有一个成立即可”的逻辑表达式是（）（A） 1=a And a8 And 1b And b=8（B） (1=a And a8 ) And Not(1b And b=8)（C） 1=a And a8 Or 1b And b=8（D） Not(1=a And a8) Or (1b And b”Fine”（B）”good”god”（C）”BASIC”=Ucase(“Basic”)（D）”good”god”28 设a = 3 ，b = 5，则以下表达式值为真的是（ 【6】 ）（A）(-3+5) And (b 0)（B）a = b And b 10（C）(a b) Or (b 0) （D）(a 0)29 语句Print 6 / 5 * 6 5 Mod 2 的输出结果是（ 【4】 ）（A）0（B）1（C）2（D）330 以下定义数组或给数组元素赋值的语句中，正确的是（ 【4】 ）（A）Dim Arr as Variant（B）Dim Arr(10) as Integer Arr=Array(1,2,3,4,5,6,7,8) Arr=Array(1,2,3,4,5,6,7,8)（C）Dim Arr%(10)（D）Dim a(3),b(3) as Integer Arr(1)=”ABCDEFGH” a(0)=0 a(1)=1 a(2)=2 b=a31 在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理， 应使用的循环语句为（ 【4】 ）（A）For i=0 To List1.ListCount-1（B）For i=0 To List1.Count-1 Next Next（C）For i=1 To List1.ListCount （D）For i=1 To List1.Count Next Next32 以下关于图片框控件的说法中，错误的是（ 【4】 ）（A）可以通过Print方法在图片框中输出文本（B）清空图片框控件中图形的方法之一是加载一个空图形（C）图片框控件可以作为容器使用（D）用Stretch属性可以自动调整图片框中图形的大小33 设有语句x = InputBox( “请输入数值” , “ 0 ” , “示例”)则程序运行后，如果从键盘输入100并按回车键，下列叙述中正确的是（ 【7】 ）（A）0是默认值（B）变量x的值是数值100（C）变量x的值是字符串 “100”（D）在InputBox对话框标题栏中显示的是“请输入数值”34 以下叙述中错误的是（A）窗体或控件的事件的名称可以由编程人员确定（B）移动鼠标时，会触发MouseMove事件（C）控件的名称可以由编程人员设定（D）双击鼠标可以触发DblClick事件35 从键盘上输入两个字符串，分别保存在变量Str1，Str2中，确定第二个字符串在第一个字符串中起始位置的函数是（ 【8】 ）（A）Mid（B）Instr（C）String（D）Left36 以下能够触发文本框Change事件的操作是（ 【9】 ）（A）文本框获得焦点 （B）改变文本框的内容（C）文本框失去焦点 （D）设置文本框的焦点37 设a = “西南交通大学峨眉校区”，下面使b = “峨眉校区”的语句是（ 【10】 ）（A）b = Left (a , 15 , 8 ) （B）b = Left ( a , 7 , 4 )（C）b = Mid ( a , 15 , 8 ) （D）b = Mid ( a , 7 , 4 )38 在窗体上有一个文本框控件，名称为TxtTime；一个计时器控件，名称为Timer1，要 求每一秒钟在文本框中显示一次当前时间。程序为：Private Sub Timer1 _ ( )TxtTime.Text = TimeEnd Sub 在下划线上应填入的内容是（ 【11】 ）（A）Visible（B）Interval（C）Timer（D）Enabled39 以下能正确定义数据类型Student的代码是（A）Type Student （B）Type StudentName As String*10 Name As String*10TelNum As Integer TelNum As IntegerEnd Type End Student（C）Type Student （D）Typedef StudentName String*10 Name String*10TelNum Integer TelNum IntegerEnd Type Student End Type40 为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性值设置为True，这个属性是（ 【12】 ）（A）Value（B）Cancel（C）Default（D）Enabled41 以下叙述中错误的是（A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件（B）保存Visual Basic程序时，应分别保存窗体文件及工程文件（C）事件可以由用户引发，也可以由系统引发（D）Visual Basic应用程序只能以解释方式执行42 设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是（A）List1.List （B）List1. Text（C）List1.ListIndex （D）List1.Index43 图像框Image有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是（ 【13】 ）（A）Autosize（B）AutoRedraw（C）Appearance （D）Stretch44 程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是（A）Load（B）MouseDown （C）MouseUp （D）Click45 在窗体上画一个命令按钮，名称为Com1，然后编写如下程序：Private Sub Com1_Click( )For i=1 to 4 For j=0 to i Print Chr$(97+j); Next j Print Next iEnd Sub则程序运行结果为（ 【14】 ）（A）ab （B）a （C）aa （D）aaabc b bb bbbabcd c cc ccccabcde d dd ddddd46 设a=100，b=50，c=10，执行语句Print a b c后，窗体上显示的是（A）True （B）False （C）1 （D）出错信息47 MsgBox函数中用于指定对话框中显示按钮的数目的参数项是（ 【15】 ）（A）Prompt参数（B）Buttons参数（C）Title参数（D）Default参数48 下列各组函数中，功能相似的一组函数是（ 【16】 ）（A）Str和Val（B）Asc和Chr（C）Int和Fix（D）Lcase和Ucase49 如果要改变窗体的标题，则需要设置的属性是 （A）Name（B）Caption （C）BackColor （D）BorderStyle50 下列Format$函数的说明中错误的是（ 【17】 ）（A）一个 # 格式符表示一个数字位，# 的个数即为显示区段的长度（B）“ , ”格式符与“ . ”格式符的作用完全相同（C）“ $ ”格式符用于在数值前面加上一个$，以表示货币（D）0 格式符与 # 格式符的功能相似51 以下能判断是否到达文件尾的函数是（A）BOF （B）LOC （C）EOF （D）LOF52 执行下列程序段后，变量c的值为（ 【18】 ）a = 123 :b$ = “ 456 ” :c = a + b$ （A）0（B）123456（C）579（D）语句c = a+b$错误53 为了在程序中设置命令按钮为不可见，需要把该命令按钮的一个属性值设置为False，这个属性是（ 【19】 ）（A）Value（B）Visible（C）Cancel（D）Enabled54 下列控件中，不能接收焦点的控件是（ 【20】 ）（A）Form（B）TextBox（C）CommandBotton （D）Label55 InputBox函数的返回值类型是（ 【21】 ）（A）数值型（B）字符串型（C）变体型（D）数值或字符串型（视输入的数据而定）56 如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是（A）用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体（B）不能把标准模块设置为启动模块（C）如果工程中含有Sub Main过程，则程序一定首先执行该过程（D）任何时刻最多只有一个窗体是活动窗体57 运行下列程序段后，x的值是（ 【22】 ） x = 8 For i =1 to 5 x = x + x 3 Next（A）13（B）22（C）29（D）3858 在窗体上画一个名称为Command1的命令按钮，然后编写如下的事件过程：Private Sub Command1_Click( ) m = 6789 c = Trim(Str(m) For i = 1 To 4 Print （ 【23】 ） NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容：6 67 678 6789则在【23】处应该填入的内容为（A）Left(c,i)（B）Right(c,i)（C）Mid(c,i,i)（D）Mid(c,i,1)59 在窗体上画一个命令按钮，然后编写如下的事件过程：Private Sub Command1_Click( )a=Val ( InputBox ( “ 请输入a的值 ” )b=Val ( InputBox ( “ 请输入b的值 ” )c=Val ( InputBox ( “ 请输入c的值 ” )If a b Then t = a : a = b : b = tIf a c Then t = a : a = c : c = tIf b c Then t = b : b = c : c = tPrint a , b , cEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入10、5、20，则输入结果为（ 【23】 ）（A）20105（B）51020（C）10520（D）2051060 在窗体上画一个名称为Command1的命令按钮，然后编写如下的事件过程：Private Sub Command1_Click() X=-4 If Sgn(X) Then Y=Sgn(X2) Else Y=Sgn(x) End If Print YEnd Sub程序运行后，单击命令按钮，窗体上显示的是（ 【4】 ）（A）1（B）-1（C）-4 （D）1661 下列不能打开代码窗口的操作是（ 【24】 ）（A）单击窗体的任何地方（B）双击窗体的任何地方（C）单击工程窗口中的“查看代码”按钮（D）单击“视图”下拉菜单中的“代码窗口”选项62 在立即窗口中输出变量a的值，正确的语句是（ 【25】 ）（A）Debug a（B）Debug.Print a（C）Print.Debug a（D）Print a63 在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，此事件过程是（ 【26】 ）（A）Drive1_Change （B）Drive1_Click（C）Dir1_Click（D）Dir1_Change64 窗体的MouseUp事件过程Form_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)有4个参数，关于这些参数，正确的描述是（A）通过Button参数判定当前按下的是哪一个鼠标键（B）Shift参数只能用来确定是否按下Shift键（C）Shift参数只能用来确定是否按下Alt和Ctrl键（D）参数x,y用来设置鼠标当前位置的坐标65 InputBox函数有6个参数，其中不能省略的参数项是（ 【26】 ）（A）Default参数（B）Title参数（C）Xpos，Ypos参数（D）Prompt参数66 在窗体上画一个名称为Command1的命令按钮，然后编写如下的事件过程：Option Base 1Private Sub Command1_Click() Dim a s=0 a=Array(1,2,3,4) j=1 For i=4 To 1 Step -1 s = s + a(i) * j j = j * 10 Next i Print sEnd Sub（A）34（B）12（C）1234（D）432167 不能从一个已知字符串中得到一个子字符串的函数是（ 【27】 ）（A）Trim（B）Right（C）Mid（D）Left68 设组合框Combo1中有3个项目，则以下能删除最后一项的语句是（A）Combo1.RemoveItem Text（B）Combo1.RemoveItem Combo1.Listcount （C）Combo1.RemoveItem 2（D）Combo1.RemoveItem 369 表达式17 2 *10 Mod 3的值是（ 【28】 ）（A）0（B）1（C）2（D）370 如果在立即窗口中执行以下操作： a = “ abc ” （表示回车键，下同） b = “ aBc ” Print ab 则输出结果是（ 【29】 ）（A）-1（B）0（C）False（D）True71 在窗体上画一个名称为Text1的文本框，要求文本框只能接收小写字母的输入。以下能实现该操作的事件过程是（ 【29】 ）（A）Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 122 Then MsgBox “请重新输入小写字母” KeyAscii = 0 End If End Sub（B）Private Sub Text1_MouseUp(Button As Integer,Shift As Integer, _X as Integer,Y as Integer) If KeyCode 122 Then MsgBox “请重新输入小写字母” KeyCode = 0 End If End Sub（C）Private Sub Text1_MouseUp(Button As Integer,Shift As Integer, _X as Integer,Y as Integer) If Asc(Text1.Text) 122 Then MsgBox “请重新输入小写字母” End If End Sub（D）Private Sub Text1_Change() If Asc(Text1.Text) 96 And Asc(Text1.Text) 123 Then MsgBox “请重新输入小写字母” End If End Sub72 以下语句的输出结果是（ 【30】 ） Print Format ( 1234567.89 , “ # , #.000 ” )（A）34,567.890（B）1,234,567.890（C）1,234,567,89（D）34,567.8973 当某个控件获得焦点时，将会触发的事件是（ 【31】 ）（A）GotFocus（B）SetFocus（C）ReceiveFocus（D）无事件触发74 在窗体上画一个名称为Command1的命令按钮，然后编写如下的事件过程：Private Sub Command1_Click() Dim a As Integer Open “c:VbTestTest32.dat” For Binary As #1 a=1000 Seek #1, 10Put #1, , a Close #1End Sub则以下叙述中正确的是（ 【32】 ）（A）如果文件c:VbTestTest32.dat不存在，则Open命令执行失败（B）由于Put命令中没有指明位置，因此把变量a的值写到文件的末尾（C）变量a的值会从文件的第10个字节处开始写入（D）变量a的值会从文件的第10个记录处开始写入75 下列叙述中正确的是（ 【32】 ）（A）在窗体的Form_Load事件过程中定义的变量是全局变量（B）局部变量的作用域可以超出所定义的过程（C）在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程（D）在调用过程中，所有局部变量被系统初始化为0或空字符串76 以下关于焦点的叙述中，错误的是（A）当文本框失去焦点时，触发LostFocus事件（B）当文本框的Enabled属性为False时，其Tab顺序不起作用（C）可以用TabIndex属性改变Tab顺序（D）如果文本框的TabStop属性为False，则不能接收从键盘上输入的数据77 设a = 10，b=12，则执行x = Iif ( b a *a = 10 , 0 , -1 )后，x的值为（ 【33】 ）（A）0（B）1（C）-1（D）使用错误78 使用下面语句定义的数组元素个数是（ 【34】 ） Dim A ( 4 , 2 To 5 ) As Integer（A）12（B）15（C）16（D）2079 如果要在菜单中添加一个分隔线，则应将其Caption属性设置为（A）= （B）* （C）& （D）-80 为了将菜单项分组，使不同类型的菜单之间有一条水平分隔线，设置方法是在菜单中插入一个菜单项，将该菜单控件的（ 【35】 ）属性设置为一个连字符（-）即可。（A）Name（B）Caption（C）ShortCut（D）Text81 执行语句Open Tel.dat For Random As #1 Len = 50后，对文件Tel.dat中的数据能够执行的操作是 （A）只能写，不能读 （B）只能读，不能写（C）既可以读，也可以写 （D）不能读，不能写82 在程序运行期间，若改变滚动条中滚动块的位置，则触发的事件是（ 【36】 ）（A）GotFocus（B）Change（C）Move（D）Scroll83 假定窗体上有一个标签，名称为Label1，为了使该标签无边界线，则正确的属性设置是（ 【37】 ）（A）Label1.BorderStyle = 0 （B）Label1.BorderStyle = 1（C）Label1.BorderStyle = True（D）Label1.BorderStyle = False84 确定触发计时器两个事件间隔的毫秒数，应使用计时器的（ 【38】 ）属性。（A）Visible（B）Enabled（C）Tag（D）Interval85 为了将变量a，b，c的值以标准输出格式写入顺序文件Ks39.txt中，所使用的语句的格式为（ 【39】 ）（A）Print #文件号 , a ; b ; c（B）Print #文件号 , a , b , c（C）Print a ; b ; c ; #文件号（D）Print a , b , c , #文件号86 在窗体上画一个命令按钮和两个文本框，编写如下事件过程：Private Sub Command1_Click( )If Len ( Text1.Text) = 0 ThenText1.Text = Text2 .Text * Text2. TextElseText2.Text = Text1 .Text * Text1. TextEnd IfEnd Sub程序运行后，在文本框Text1中输入10，然后单击命令按钮，运行结果为（ 【40】 ）（A）在文本框Text1中输出100，在文本框Text2中输出0（B）在文本框Text1中输出100，在文本框Text2中输出10（C）在文本框Text1中输出10，在文本框Text2中输出100（D）在文本框Text1中输出10，在文本框Text2中输出10087 下列各组窗体属性中，在程序运行期间，属性值不能改变的一组属性是（ 【41】 ）（A）ControlBox和BorderStyle（B）MaxButton和MinButton（C）Name和BorderStyle （D）ControlBox和Caption88 下列可以打开立即窗口的操作是（ 【42】 ）（A）Ctrl + D（B）Ctrl + E（C）Ctrl + F（D）Ctrl + G89 MsgBox函数的返回值类型是（ 【43】 ）（A）数值型（B）字符串型（C）变体型（D）数值或字符串型（视输入的数据而定）90 可以同时删除字符串前导和尾部空白的函数是（ 【44】 ）（A）Ltrim（B）Rtrim（C）Mid（D）Trim91 执行以下程序段后，变量c$的值为（ 【45】 ）a$ = “ Visual Basic 6.0 Programing ”b$ = “ Design ”c$ = Lcase ( Mid$ ( a$ , 7 , 6) & Right$ ( a$ , 11 ) & b$（A）Visual basic 6.0 design （B）basic ProgramingDesign（C）BASIC ProgramingDesign（D）Visual BASIC 6.0 design92 假定有一个菜单项，名为MenuDiv，为了在运行时使该菜单项失效（变灰），应使用的语句是（ 【46】 ）（A）MenuDiv . Visible = False （B）MenuDiv . Visible =True（C）MenuDiv . Enabled = False（D）MenuDiv . Enabled = True93 为了暂时关闭计时器，应把该计时器的某个属性设置为False，这个属性是（ 【47】 ）（A）Enabled（B）Interval（C）Timer （D）Visible94 为了把一个记录型变量Stu的内容写入随机文件Ks48.dat中的指定位置，所使用的语句格式为（ 【48】 ）（A）Put #文件号 , 记录号 , Stu（B）Put #文件号 , Stu , 记录号（C）Get #文件号 , 记录号 , Stu（D）Get #文件号 , Stu , 记录号95 Sub过程的定义（ 【49】 ）（A）一定要有形参（B）一定要有过程的名称（C）一定要指明是公有的还是私有的（D）一定要指定其类型96 Function过程有别于Sub过程的最主要的特点是（ 【50】 ）（A）Function过程一定要有形参，而Sub过程可以没有形参（B）Function过程的终端语句是End Function，而Sub过程的终端语句是End Sub（C）Function过程用于计算函数值，而Sub过程用于改变属性值（D）Function过程要返回函数值，而Sub过程没有值的返回97 要定义一个过程为局部过程，应用使用（ 【51】 ）关键字。（A）Public（B）Static（C）Sub（D）Private98 下列定义Func为函数过程的定义语句中错误的是（ 【52】 ）（A）Function Func ( a As Integer ) As Integer（B）Static Function Func ( a )（C）Private Public Func ( a ) As Integer（D）Private Function Func ( a As Single )99 标准模块存盘后，形成的磁盘文件扩展名为（ 【53】 ）（A）.Bas（B）.Cls（C）.Frm（D）.Vbp100 下列函数调用中错误的是（ 【54】 ）（A）Str$ = InputBox ( “请输入数据 ” )（B）InputBox ( “请输入数据 ” )（C）Msg = MsgBox ( “是否继续输入数据？” )（D）MsgBox ( “是否继续输入数据？” )101 要使窗体Form1显示出来，应使用（ 【55】 ）（A）Load Form1（B）Form1 Load（C）Show.Form1（D）Form1.Show102 在使用通用对话框之前要先将（ 【56】 ）添加到工具箱中。（A）Active X（B）ComboBox（C）CommonDialog（D）Color103 用Open语句打开文件时，若省略For子句，则隐含打开文件的存取方式为（ 【57】 ）（A）Binary（B）Random（C）Input（D）OutPut104 设有以下循环结构Do循环体Loop While 则以下叙述中错误的是（A）“条件”可以是关系表达式、逻辑表达式或常数（B）循环体中可以使用Exit Do语句 （C）若“条件”是一个为0的常数，则一次也不执行循环体（D）如果“条件”总是为True，则不停地执行循环体105 要获得打开文件的长度（字节数）应用使用（ 【58】 ）函数。（A）FileLen（B）Len（C）Loc（D）Lof106 给文件改名的VB语句正确的是（ 【59】 ）（A）Name 原文件名 To 新文件名 （B）Rename 原文件名 To 新文件名（C）Name 原文件名 As 新文件名 （D）Rename 原文件名 As 新文件名107 在窗体上画一个名称为Command1的命令按钮，然后编写如下的事件过程：Option Base 1Private Sub Command1_Click( ) Dim a(10) As Integer For i = 1 To 10 a(i) = i Next Call Swap 【5】 For i = 1 To 10 Print a(i); NextEnd SubSub Swap(b() As Integer) n=【5】 For i = 1 To n / 2 t = b(i) b(i) = b(n) b(n) = t 【5】 NextEnd Sub上述程序的功能是，通过调用过程Swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，a(5)与a(6)的值互换。请填空。108 在窗体上画一个标签（名称为Label1）和一个计时器（名称为Timer1），然后编写如下几个事件过程：Private Sub Form_Load()Timer1.Enabled = FalseTimer1.Interval = 【5】 End SubPrivate Sub Form_Click()Timer1.Enabled = 【6】End SubPrivate Sub Timer1_Timer()Label1.Caption = 【7】End Sub程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次（见图）。请填空。109 下面程序用选择法将数组a中的10个整数按升序排列。算法是：从数组中找出最小的值，将该数与第1个数交换，这样第1个数组元素是最小的数。再从第2个数开始，找出其后各数组元素中最小的数，将该数与第2个数交换位置，这样第2个数是次小的数。如此重复上述过程，即可将数组排序。请完善以下的程序：Option Base 1Private Sub Command1_Click( )Dim a (1 To 10 ) As Integer , i As Integer , j As Integer , k As IntegerFor i=1 To 10a ( i ) = Val ( InputBox ( “请输入第a( ” & i & “ ) 个数：”)Next iFor i = 1 To 9 【60】For j = i + 1 To 10If a ( k ) 【61】 a ( j ) Then k = jNext jTemp = a (i ) : 【62】: a ( k ) = TempNext iFor i = 1 To 10Print a ( i ) ,Next iEnd Sub【60】（A）k = 0 （B）k = 1 （C）k = i （D）k = j【61】（A）= （B） （C）【62】（A）a (i) = a (j)（B）a (j) = a (i)（C）a (k) = a (i)（D）a (i) = a (k)110 设有程序：Option Base 1Private Sub Command1_Click()Dim arr1, Max as Integerarr1 = Array(12, 435, 76, 24, 78, 54, 866, 43)【12】 = arr1(1)For i = 1 To 8If arr1(i) Max Then 【13】 Next iPrint 最大值是: ; MaxEnd Sub以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。111 下面程序是从键盘上输入一个字符串，把该字符串中的大写字母转换成小写字母，输出到文件Ks61.dat中，然后从该文件中读出字符串并显示出来。请完善下面的程序：Private Form_Click( )Dim Str1 As String * 50 , Str2 As String , FileNo As IntegerFileNo = 【63】Open “d:Vb2003KsKs61.dat” For 【64】As FileNoStr1 = InputBox ( “请输入一个字符串：” )Str1 = Lcase ( Str1 )Seek #FileNo , 1 Put #FileNo, , Str1 【65】#FileNo, 1 Str2 = Input (【66】, #FileNo ) Print Str2End Sub【63】（A）Free（B）File（C）FreeFile （D）FileFree【64】（A）Input （B）Output（C）Random （D）Binary【65】（A）Loc （B）Lof （C）Eof （D）Seek【66】（A）Len ( Str1 )（B）Len ( Str2 )（C）StrLen ( Str1 ) （D）StrLen (Str2)112 以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在文本框Text1中显示出来。请填空。Private Sub Command1_Click()Dim inData As StringText1.Text = Open .smtext1.txt 【14】 As #1Do While 【15】 Input #1, inDataText1.Text = Text1.Text & inDataLoopClose #1End Sub113 在窗体上画一个文本框（其Name属性为Text1），然后编写如下事件过程：Private Sub Form_Load( )Text1.Text = “ ”Text1.SetFocusFor i = 1 to 10Sum = Sum + iNext iText1.Text = SumEnd Sub程序运行后，输出结果为（ 【67】 ）（A）在文本框Text1中输出55（B）在文本框Text1中输出0（C）在文本框Text1中输出不定值 （D）出错114 在窗体上画一个文本框和一个列表框，然后编写如下两个事件过程：Pr