资源描述：
《Visual Basic 程序设计模拟试卷1》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、《VisualBasic程序设计》模拟试卷一一、选择题（10小题，每题3分，共30分）1、下面_____________是VB的合法变量。A）314studentB）IntegerC）x-yD）student_num2）程序是__________.A)数据+数据类型B)数据+文档C)数据结构+算法D)数据+算法3）在VB中，代码的执行顺序是由___________决定的。A）程序的书写顺序B）事件驱动的顺序C）结构的顺序D）编程的顺序4）表达式10>x>0，当x的值为14时，表达式的值是__________。A）TrueB）FalseC）-1D）05、下面第22句共执行了____
2、_____次。20ForI=12To1Step-321ForJ=6To2Step-222PrintI*J23NextJ24NextIA）3B)12C）8D）46、执行下列语句后，V的值是。A$=“56789”V=Val(Mid$(A$,3,2))A)89B)78C)67D)567、当用ConstAAsinteger=9.8定义后，下列叙述正确的是。A）A是整数常量B）A是整型变量C）A是字符型常量D）A是变体类型常数8、确定复选框是否选中，应访问的属性是。A）SelectedB）CheckedC）StyleD）Value9、执行下面的程序段后，x的值为______________
3、。x=5Fori=1To20Step2x=x+i5NextiA)21B)22C)23D)2410）通过“工程”菜单的命令可以将多个窗体添加到工程中。A）工程属性B）添加模块C）添加类模块D）添加窗体二、阅读程序写出结果（5小题，每题6分，共30分）1、下列程序：PrivateSubCommand1_Click()Score=Int(Rnd*10)+70SelectCasescoreCaseIs<60A$=”太令人失望了，看看问题出在什么地方！”Case60To69A$=”不太理想，可不能太大意了！”Case70To79A$=”可以，再努力一些！”Case80To89A$=“很好
4、，继续努力！”第4页共4页CaseElseA$=“祝贺你，太棒了！”EndSelectPrintA$EndSub运行时输出结果是。2、下列程序：PrivateSubCommand1_Click()X=0ForI=1To4ForJ=1To3X=X+(I-1)*4+JNextJNextIPrintXEndSub程序运行后，单击命令按钮，输出结果是___________.3、以下程序的功能是根据公式S=1-1/3+1/5–1/7+。。。+1/（2n+1）计算有限项之和，但程序不完整，请在缺失处选择适当的选项。PrivateSubCommand1_Click()DimnAsInteger
5、n=Inputbox(“请输入项数：”)s=0:f=-1Forj=0Tonf=-1*fw=s=s+wNextjPrintSEnd SubA)-f*(2*j+1)B)f/(2*j+1)C)f*(2*j+1)D)–f/(2*j+1)4、下列程序：OptionBase1PrivateSubForm_Click()Dimaa=Array(23,-5,17,38,-31,46,11,9,5,-2)Max=1:K=110k=k+1Ifa(k)>a(Max)thenMax=kEndIfIfk<10thenGoTo10AM=a(Max)PrintMax,AM上述程序执行后，输出：。5、下列程序：
6、第4页共4页OptionExpplicitPrivateSubtriangle(strAsString,nAsInteger)DimjAsInteger,kAsIntegerForj=1TonPrintTab(16-j);Fork=1To2*j–1Printstr;NextkPrintStr=chr$(ASC(str)+1)NextjEndSubPrivateSubCommand1_Click()DimcharAsString*1,nAsIntegerChar=”A”:n=4CallTriangle(Char,n)EndSub请画出运行后在屏幕上呈现的图像。三、程序设计基础题（4
7、小题，每题5分，共20分）1、编写一个小程序计算Sum=1/2+1/4+1/6+1/8+1/10+…+1/100PrivateSubCommand1_Click()DimSumAsSingleForI=2To100Step2_________________NextIPrintSumEndSub请在横线处补充完整。2、编写一个小程序计算OptionBase1PrivateSubCommand1_Click()Dima(3,3)AsInteger,b(3)AsIntegerForj
