还剩1页未读,继续阅读
文本内容:
《VB程序设计》作业
(二)客观题部分选择题(每题1分,共15题)
1.当VB执行下面语句后,A的值为(A)A=1IFA0THENA=A+1IFA1THENA=0A)0B)1C)2D)
32.当VB执行下面语句后,输出的结果是(B)PrivateSubForm_Click()score=IntRnd*10+30SelectCasescoreCaseIs10A$=FCase10To19A$=DCase20To29A$=CCase30To39A$=BCaseElseA$=AEndSelectPrintA$EndSubA)AB)BC)CD)D
3.执行下面的程序段后,x的值为Cx=2Fori=1To10Step3x=x+i\2NextiA2B4C7D
94.假定有以下循环结构DoUntil条件循环体Loop则正确的描述是(D)A如果“条件”是一个为0的常数,则一次循环体也不执行B如果“条件”是一个为0的常数,则至少执行一次循环体C如果“条件”是一个不为0的常数,则至少执行一次循环体D不论“条件”是否为“真”,至少要执行一次循环体
5.假定有以下程序段Fori=1To3Forj=5To1Step-1Printi*jNextji则语句“Printi*j”的执行次数是(C)A)20B)24C)15D)
186.以下程序段的输出结果为(D)x=2y=8DoUntily8x=x*yy=y+1LoopPrintxA)2B)9C)10D)
167.用下面的语句所定义的数组的元素个数是(D)DimA(-3To5)AsIntegerA)6B)7C)8D)
98.阅读下面的程序段Fori=1To2Forj=1ToIFork=jTo2x=x+1NextkNextjNexti执行上面的三重循环后,x的值为CA3B4C5D
69.在窗体上画一个命令按钮,然后编写如下事件过程PrivateSubCommand1_ClickFori=1To3x=2Forj=1To2x=4Fork=1To3x=x+5NextkNextjNextiPrintxEndSub程序运行后,单击命令按钮,输出结果是BA11B19C57D
6310.在窗体上画两个文本框Text1和Text2,一个命令按钮Command1,然后编写如下事件过程PrivateSubCommand1_Clickx=1DoWhilex50x=x+1*x+2n=n+1LoopText
1.Text=StrnText
2.Text=StrxEndSub程序运行后,单击命令按钮,在两个文本框中显示的值分别为(B)A1和0B2和56C3和70D4和
16811.以下正确的叙述是(C)A)SelectCase语句中的测试表达式可以是任何形式的表达式B)SelectCase语句中的测试表达式只能是数值表达式或字符串表达式C)在执行SelectCase语句时,所有Case子句均按出现的次序被顺序执行D)如下SelectCase语句中的Case表达式是错误的SelectCasexCase1to10……EndSelect
12.在窗体上绘制一个命令按钮Command1,然后编写如下程序OptionBase1PrivateSubCommand1_ClickDimaa=Array12345j=1Fori=5To1Step-1s=s+ai*jj=j*10NextiPrintsEndSub运行程序,单击命令按钮,输出结果为(B)A)54321B12345C1234D
432113.在窗体上绘制一个命令按钮Commandl,编写以下事件过程 Private Sub Commandl_C1ick Dim bb=Array12345 ……End Sub 此过程的功能是把数组b中的5个数逆序存放为了实现此功能,省略号处的程序段应该是(C)AFor i=0 To 5-1\2 tmp=bi bi=b5-i-1 b5-i-1=tmp Next iBFor i=0 To 5 tmp=bi bi=b5-i-1 b5-i-1=tmp Next iCFor i=0 To 5\2 tmp=bi bi=b5-i-1 b5-i-1=tmp Next iDFor i=1 To5\2 b5-i-1=tmp tmp=bi bi=b5-i-1 Next i
14.在窗体上绘制一个命令按钮Commandl,编写以下事件过程OptionBase1PrivateSubCommand1_ClickDima33AsIntegerFori=1To3Forj=1To3aij=2*i+jNextjNextiFori=2To3Forj=2To3PrintajiNextjNextiEndSub程序运行后,单击命令按钮,输出的结果是(C)A)5B)6C6D)
567877876899815.设有函数y=,下面不能正确求得函数值的程序段是(D)A)SelectCasexCaseIs0y=xCase0y=0CaseIs0y=x*xEndSelectB)Ifx0Theny=x*xEndIfIfx=0Theny=0EndIfIfx0Theny=xEndIfC)Ifx0Theny=xElseIfx0Theny=y*xElsey=0EndIfEndIfD)Ifx=0Theny=xEndIfIfx0Theny=x*xElsey=0EndIf主观题部分编程题(每题15分,共1题)编程实现一个窗体Form的click事件,单击该窗体后从键盘接收变量n的数值然后计算并打印1+2+...+n的值,如果和已经大于1000则停止计算PrivateSubCommand1_ClickDimiAsIntegerDimnAsIntegerDimsAsIntegeri=0s=0n=InputBox请输入整数nDoWhiles=1000i=i+1s=s+iLoopUntili=nPrint1+2+3+...+n=sEndSub。