计算机二级考试VB程序设计单选题.docx
上传人:一吃****海逸 上传时间:2024-09-13 格式:DOCX 页数:7 大小:12KB 金币:10 举报 版权申诉
预览加载中,请您耐心等待几秒...

计算机二级考试VB程序设计单选题.docx

计算机二级考试VB程序设计单选题.docx

预览

在线预览结束,喜欢就下载吧,查找使用更方便

10 金币

下载此文档

如果您无法下载资料,请参考说明:

1、部分资料下载需要金币,请确保您的账户上有足够的金币

2、已购买过的文档,再次下载不重复扣费

3、资料包下载后请先用软件解压,在使用对应软件打开

计算机二级考试VB程序设计单选题计算机二级考试VB程序设计单选题为了使广大考生在备战计算机等级考试时,更快的掌握相应知识点,下面是小编搜索整理的计算机二级考试VB程序设计单选题,供参考练习,预祝考生们考出自己理想的成绩!计算机二级考试VB程序设计单选题1.Command1_Click()事件程序的功能是:按顺序读入10名学生4门课程的成绩,计算出每位学生的平均分并输出,程序如下:DimnAsInteger,kAsIntegerDimscoreAsSingle,sumAsSingle,aveAsSinglesum=0#Forn=1To10Fork=1To4score=InputBox(“请输入第”&n&“名学生第”&k&“门课的成绩:”)sum=sum+scoreNextkave=sum/4Print“第”&n&“个学生的平均成绩为:”&aveNextn上述程序运行后结果不正确,调试中发现有一条语句出现在程序中的位置不对。这条语句是()(A)sum=0#(B)sum=sum+score(C)ave=sum/4(D)Print“第”&n&“个学生的平均成绩为:”&ave2.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()DimnumAsIntegernum=1DoUntilnum>6Printnum;num=num+2.4LoopEndSub程序运行后,单击命令按钮,则窗体上显示的内容是()(A)13.45.8(B)135(C)147(D)无数据输出3.以下程序的输出结果是()DimiAsInteger,aAsIntegerDoWhilei<20DoWhileTrueIfiMod10=0ThenExitDoElsei=i-1EndIfLoopi=i+11:a=a+iLoopPrinta(A)21(B)32(C)33(D)114.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下程序:PrivateSubCommand1_Click()Dimarray1(10,10)AsIntegerDimi,jAsIntegerFori=1To3Forj=2To4array1(i,j)=i+jNextjNextiText1.Text=array1(2,3)+array1(3,4)EndSub程序运行后,单击命令按钮,在文本框中显示的值是()(A)12(B)13(C)14(D)155.设有如下程序:OptionBase0PrivateSubForm_Click()DimaDimiAsIntegera=Array(1,2,3,4,5,6,7,8,9)Fori=0To3Printa(5–i);NextEndSub程序运行后,单击窗体,则在窗体相显示的.内容是()(A)4321(B)5432(C)6543(D)76546.在窗体上画一个名称为Command1的命令按钮,然后编写如下代码:OptionBase1PrivateSubCommand1_Click()d=0c=10x=Array(10,12,21,32,24)Fori=1To5Ifx(i)>cThend=d+x(i)c=x(i)Elsed=d–cEndIfNextiPrintdEndSub程序运行后,单击命令按钮,则在窗体上输出的内容是()(A)89(B)99(C)23(D)777.假定有以下函数过程:FunctionFun(SAsString)AsStringDims1AsStringFori=1ToLen(S)s1=Ucase(Mid(S,i,1))+s1NextiFun=s1EndFunction在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubComman1_Click()DimStr1AsString,Str2AsStringStr1=InputBox(“请输入一个字符串:”)Str2=Fun(Str1)PrintStr2EndSub程序运行后,单击命令按钮,如果在输入对话框中输入字符串“abcdefg”,则单击“确定”按钮后在窗体上输出的结果为()(A)abcdefg(B)ABCDEFG(C)gfedcba(D)GFEDCBA8.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下代码:PrivateSubCommand1_Click()Dimx,y,zAsIntegerx=5y=7z=0Text1.Text=“”CallP1(x,y,z)Text1.Text=Str(z)EndSubSubP1(ByValaAsInt