大一下-vb期中练习1.VisualBasic数据也可以十六进制或八进制表示

期中练习试一、选择VisualBasic中的数据也可以以十六进制或八进制表示，八进制数据 A. B. C. D.下列符号常量的中 ConstaAs B.ConstaAsC.ConstaAs D.Const A. B. C. D. 属性设置为False后，运行时该命令按钮呈现灰色，不可用A. B. C. D. PictureBox和 B.Frame和C.ListBox和 D.TextBox和 属性Style和 B.Style和C.Caption和 D.Caption和在某过程中已说明变量a为Integer类型、变量s为String类型，过程中的以下语句中， a=True: B.s=”237”&“.11”:C.a=1: D.a=4: A. B. C. D.在窗体的Click过程代码中有如下语句，正确的结果 PrintA. B. C. D.运行下面的程序，单击命令按钮Command1，则窗体上显示的结果是 PrivateSubCommand1_Click()DimAAsInteger,BAsBoolean,CAsInteger,DAsIntegerA=20/3:B=True:C=B:D=A+CPrintA,D,EndA. B. C. D. 函数CInt、Int、Fix都返回整数值，以下能正确描述它们返回值的大小关系的 B.Int(-4.51)<CInt(-4.5)<Fix(-C.CInt(-4.51)<Fix(-4.5)<Int(- D.Int(-4.51)<Fix(-4.51)=CInt(-在窗体的通用处有如下语句，会产生错误的语句 ①ConstAAs ②PublicStAsString*③ReDimB(3)As ④DimConstXAsA. B. C. D.在默认情况下InputBox函数返回值的类型 A.数 B.字符 C.变 D.数值或字符在过程中，若要在整个代码运行期间都能保留变量n的值，应使用 PrivatenAs PublicnAs DimnAs StaticnAs A. B. C. D.设变量D为Date型、A为Integer型、S为String型、L为Long型，下面赋值语句中不 D=#12:30:00PM Long ②254+ ④927& ⑥9.5ModA. C. D. A.逗 B.分 C.顿 D.冒二、填空1d2算术表达式 对应的VB表达式

232exsin(30)(xy)lnx

对应的VB表达式

a2b22abcosx对应的VB表达式 条件“字符串S中必须含有字符@”对应的逻辑表达式 “AB是一个带小数的负数”所对应的逻辑表达式是（5）_已知变量N的值为100，则表达式NXorN的值 已知整型变量X的值为32766，则PrintX=X+1的输出结果 运行下面的程序，单击命令按钮Command1时，在列表框中显示的第一行是 PrivateSubCommand1_Click()DimxAsInteger,kAsIntegerx=483k=DoUntilx<=IfxModk=0Thenx=x/k

List1.AddItemk=k+EndIfEnd PrivateSubDimpAsInteger,IAsInteger,nAsIntegerp=3:n=30ForI=1TonSteppp=p+3n=n-4I=I+Ifp>=10ThenExitPrintI;p;nEndSub运行下面的程序单击窗体在输入框中输入20，在窗体上显示的内容为 PrivateSubForm_Click()DimNAsIntegerSAsStringRAsStringN=InputBox("输入一个整数")DoWhileN<>R=NModS=R&SN=N\2PrintEnd“OKText2中显示的内容为 PrivateSubDimSAsString,IAsInteger,pAsIntegerS=Trim(Text1.Text)p=InStr(S,Space(1))DoWhilep<>0I=I+S=Trim(Mid(S,p+1))p=InStr(S,Space(1))I=I+EndSub PrivateSubDimiAsInteger,jAsInteger,kAsIntegerk=0Fori=0To10Stepk+3Forj=1To10Ifj>5k=k+4ExitForEndIfNextjPrinti,j,kIfi>8ThenExitForNextiEnd执行下列程序，单击命令按钮Cmd1，窗体上显示的内容是 PrivateSubCmd1_Click()DimxAsInteger,IAsIntegerx=1ForI=1Tox=x+(2*I+1)/(2*I-Ifx>=20ThenExitPrintI,xEnd PrivateSubDimM(10)AsInteger,IAsIntegerForI=0To10M(I)=2*PrintM(M(3))EndSub46 PrivateSubDimMAsInteger,NAsInteger,TAsInteger,IAsMInputBox("NInputBox("N")IfM<NThenT=M=N=EndI=DoWhileIModN<>0OrIModM<>0I=I+1PrintEndPrivateSubDimNAsIntegerSAsIntegerIAsIntegerCAsIntegerN=InputBox("0N",,2)S=0:I=1:C=S=S+C*I^C= LoopWhile Print"S=";SEndPrivateSubDimMAsInteger,NAsInteger,RAsMInputBox("MNInputBox("N的值：")PrintM;"与";N; DoWhileR<>0M=N R=MModPrint最大公约数为NEndSub2ex1x2

...nn

n10-5PrivateSubDimnAsInteger,tAsSingle,sAsSingle,yAsSinglen=0t=s=y=x=n=n+1t=x^n y=y+t/LoopUntil