大一下-笔试题库程序设计课程试卷11共

VisualBasic课程试卷（11）9考试形式闭 2002年5控件的 3 把焦点移至按扭上, \、/、MOD、*四个运算符中，优先级最低的是（4

Int(8*Sqr(36)*10^(-2)*10+0.5)/10的值是（

VisualBasic认为下列（ A1和 Aver和 Sum和 A1表达式INT(-17.8)+Sgn(17.8)的值是（ - - -

bd

对应的VisualBasic表达式是（ 以下关于选项按扭的说法,正确的是（ 选项按扭的Enabled属性用于决定该按扭是否被选中 选项按扭的Value属性用于决定该按扭是否被选中 选项按扭的Checked属性用于决定该按扭是否被选中 选项按扭的Visible属性用于决定该按扭是否被选中 是（11 在代码中任意一个命令按扭只需使用名称Command1 通用过程可以通过执行“工具”菜单中的（

可以在窗体模块的通用段中 下面 下面的过程定义语句中合法的是（ SubProc1(ByValn()) SubProc1(n)AsInteger

1 加载后Image控件的尺寸与原图的大小相比 VB的文件管理控件是（

随机模式允许用户在

ASCII 在语句PublicSubPrime(MAsInteger)中M是一个按（ 二 PrivateSubForm_click()x=5y=-IfNotx>0Thenx=y-3Elsey=x+3Printx-y;y-xEnd PrivateSubForm_click()n=0j=DoUntiln>2n=n+1j=j+n*(n+1)Printn;jEndSub PrivateSubForm_click()k=0Forj=1ToFori=1Tok=i+

Fori=1Tok=k+PrintkEndSub 运行下面的程序，单击窗体后在窗体上显示的内容是(24)APrivateSubDimxAsInteger,yAsIntegerx=2: y=10y=y 'Ax=x 'BLoopWhiley>0Printx;",";yEnd PrivateSubForm_Click()Dimm(2)AsIntegerFori=1To2m(i)=0k=Fori=1ToForj=1Tom(j)=m(i)+1Printm(k);End PublicFunctionmyfunc(mAsInteger,nAsInteger)AsIntegerDoWhilem<>nDoWhilem>m=m-nDoWhilem<n=n-mmyfunc=mEndPrivateSubForm_Click()Printmyfunc(24,End （28PrivateSubmysub()StaticsAsIntegerFori=1To10Step2s=s+iPrintEndPrivateSubForm_Click()CallmysubEnd （30（31PrivateSubForm_Click()Dima(3,3)AsIntegerForm=1To3Forn=1ToIfn=mOrn=3-m+1Thena(m,n)=1a(m,n)=EndForm=1ToForn=1ToPrinta(m,End （33（34（35PrivateSubTest(xAsDimiAsIntegerIfx<>0ThenCallTest(x-1)Fori=1ToxPrintx;NextiEndIfEndSubPrivateSubForm_click()Test3End三 10分。PrivateSubCommand1_Click()Max=0Min=Fori=1Toif( )thenmax=nif( )thenmin=ns=s+n p=s/Print最高分Max;最低分MinPrint"最后得分:";pEnd 12-22+32-42+……+（n-1）2-n2。PrivateSubCommand1_Click()s=0i=c=1s=s+c*i* loopwhile( Print"S=";sEnd PrivateSubCommand1_Click()DimA(6,6)AsIntegerFori=1ToForj=1ToIfi=j Endprint EndSub5:A4个数据、、、，输入XXX1个PrivateSubCommand1_Click()Dima(4)Asa(1)=11:a(2)=22:a(3)=33:a(4)=x=Val(InputBox("请输入X:")) ）Then("Fori=1To ）ThenExitIfi<5Forj= （ Fork=1ToPrint

MsgBox数据没找到EndIfEndIfEnd 本程序用于验证任何一个大于6的偶数均可表示为两个素数之和例如14=3 待验证的偶数从文本框TxtInput输入，所有满足上述条件的素数对都显示在窗体上。OptionExplicitPrivateSubDimnAsInteger,iAsIntegern=Val(TxtInput.Text)Fori=3Ton-2Step2IfPrime(i)ThenIfn-i>=iAnd ）ThenPrintn;"=";i;"+";n-iEnd NextiEndSubPrivateFunctionPrime(nAsInteger)AsBooleanDimiAsInteger,AsBooleanPrime=Fori=2ToIfnModi=0Then（ NextIf=False End sum(n,k)=1k+2k+……nk.FunctionSum计算给定参数时函数的PrivateSubForm_Click()Printsum(3,2)EndPrivateFunctionsum(nAsInteger,kAsInteger)AsLongDimiAsInteger,sAsLongFori=1Tos=s+ EndPrivateFunctionpower(aAsInteger,bAsIn