资源描述：
《大学 vb 模拟试题》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、一、单选题（30分，每小题1分）1．下列软件中______是操作系统。(A)Windows(B)InternetExplorer(C)WPS(D)VisualBasic2．鼠标属于计算机中的______。(A)中央处理器(B)存储器(C)输入设备(D)输出设备3．下列表示存储容量的数据中，________是最大的。（A）20480KB（B）1.44MB（C）2.5GB（D）4865723Byte4．十进制数13转换为二进制是______。(A)1101(B)1011(C)1100(D)10105．WINDOWS中扩展名
2、为______的文件不是图形文件。(A)JPG(B)EXE(C)BMP(D)ICO6．在一个多窗体的工程中，如果有一个自定义函数需要被多个窗体调用，则此函数的定义可保存在一个______类型的文件中。(A)VBP(B)BAS(C)FRM(D)OCX7．下列______可作为VB的变量名。(A)A&A(B)print_2(C)12AB(D)Const8．下列对象中_______不能作为放置其他控件的容器。(A)窗体(B)文本框(C)图片框(D)框架9．以下语句中______能在窗体的标题栏中显示“VisualBasic窗
3、体”。(A)Form1.Title="VisualBasic窗体"(B)Form1.Name="VisualBasic窗体"(C)Form1.Caption="VisualBasic窗体"(D)Form1.Text="VisualBasic窗体"10．设窗体中有一个列表框Listt1和一个标签Label1。列表框中显示若干城市名称，单击某个城市名时，标签中显示选中的城市名称。以下______事件过程能实现该功能。(A)PrivateSubList1_Click()Label1.Caption=List1.ListInd
4、exEndSub(B)PrivateSubList1_Click()Label1.Text=List1.ListIndexEndSub(C)PrivateSubList1_Click()Label1.Text=List1.TextEndSub(D)PrivateSubList1_Click()Label1.Caption=List1.TextEndSub11．窗体中有一个命令按钮Command1。运行下列程序时单击命令按钮，则窗体中显示______。PrivateSubCommand1_Click()DimcityAs
5、Stringcity=Array("北京","上海","南京","广州")Printcity(1)EndSub(A)空白(B)北京(C)上海(D)出现错误提示12．窗体中有一个命令按钮Command1。运行下列程序，单击命令按钮，窗体中显示______。DimXAsInteger,YAsInteger'(通用)(声明)PrivateSubProc(ByValaAsInteger,ByValbAsInteger)X=a*aY=b+bEndSubPrivateSubCommand1_Click()X=5:Y=3CallPr
6、oc(X,Y)PrintX,YEndSub(A)53(B)253(C)256(D)5613．在以下过程中，Public表示__________。PublicSubF(xAsInteger)……EndSub(A)此过程可以被任何其它过程调用(B)此过程只可以被本窗体模块中的其它过程调用(C)此过程不可以被任何其它过程调用(D)此过程只可以被本工程中的其它过程调用14．执行下面这段代码时，窗体中将会显示________。n=3Fori=1Tonx=0Forj=1Toix=x+1NextjNextiPrintx(A)3(B)
7、4(C)5(D)615．需要将字符串S颠倒过来逆序排列形成字符串T，如将“ABCD”变成“DCBA”，下面的程序段中____不能实现该功能。(A)s="ABCD":t=""Fori=1ToLen(s)t=t+Mid(s,Len(s)-i+1,1)Nexti(B)s="ABCD":t=""Fori=1ToLen(s)t=Mid(s,i,1)+tNexti(C)S="ABCD":T=""Fori=Len(S)To1Step-1T=T+Mid(S,i,1)Nexti(D)S="ABCD":T=""Fori=Len(S)To1
8、Step-1T=Mid(S,i,1)+TNexti16．下列函数中________的值与其它三个不一样。(A)Val("1")(B)Abs(-1)(C)Int(1.3)(D)Sin(1)17．设有如下程序，运行时单击命令按钮，则文本框中显示______。SubF(a(),ByValxAsInteger)Fori=1To5x=x+a
