计算机等级考试二级VB考前练习.docx

计算机等级考试二级VB考前练习计算机等级考试二级VB考前练习为了使广大考生在备战计算机等级考试时，更快的掌握相应知识点，下面是小编搜索整理的计算机等级考试二级VB考前练习，供参考练习，预祝考生们考出自己理想的成绩!计算机等级考试二级VB考前练习1．下面程序是从键盘上输入一个字符串，把该字符串中的'大写字母转换成小写字母，输出到文件Ks61.dat中，然后从该文件中读出字符串并显示出来。请完善下面的程序：PrivateForm_Click()DimStr1AsString*50,Str2AsString,FileNoAsIntegerFileNo=【63】Open“d:Vb2003KsKs61.dat”For【64】AsFileNoStr1=InputBox(“请输入一个字符串：”)Str1=Lcase(Str1)Seek#FileNo,1Put#FileNo,,Str1【65】#FileNo,1Str2=Input(【66】,#FileNo)PrintStr2EndSub【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)2．以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在文本框Text1中显示出来。请填空。PrivateSubCommand1_Click()DiminDataAsStringText1.Text=""Open".smtext1.txt"【14】As#1DoWhile【15】Input#1,inDataText1.Text=Text1.Text&inDataLoopClose#1EndSub3．在窗体上画一个文本框（其Name属性为Text1），然后编写如下事件过程：PrivateSubForm_Load()Text1.Text=“”Text1.SetFocusFori=1to10Sum=Sum+iNextiText1.Text=SumEndSub程序运行后，输出结果为（【67】）（A）在文本框Text1中输出55（B）在文本框Text1中输出0（C）在文本框Text1中输出不定值（D）出错4．在窗体上画一个文本框和一个列表框，然后编写如下两个事件过程：PrivateSubForm_Load()List1.AddItem“123”List1.AddItem“456”List1.AddItem“369”List1.AddItem“789”Text1.Text=“”EndSubPrivateSubList1_DblClick()a=List1.TextPrinta+Text1.TextEndSub程序运行后，在文本框中输入“248”，然后双击列表框中的“369”，则输出结果（【68】）（A）617（B）248369（C）369248（D）05．在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2；六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label4~Label6分别显示“A”、“B”、“A*B”等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3显示A*B的计算结果。如图所示。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮"计算"时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是（A）PrivateSubCommand1_Click()Label3.Caption=Str(Val(Label1.Caption)*Val(Label2.Caption))EndSub（B）PrivateSubCommand1_Click()Label3.Caption=HScroll1.Value*HScroll2.ValueEndSub（C）PrivateSubCommand1_Click()Label3.Caption=HScroll1*HScroll2EndSub（D）PrivateSubCommand1_Click()Label3.Caption=HScroll1.Text*HScroll2.TextEndSub6．阅读下面程序：PublicSubxy(aAsInteger,bAsInteger)DimtAsIntegerDot=aModba=b:b=tL