计算机二级考试VB基础考试题.docx

计算机二级考试VB基础考试题2017计算机二级考试VB基础考试题2017年计算机二级考试即将在九月份进行，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)DimtAsIn