VB试题3.doc

单项选择=表达式（-1）*sgn(-100+int(rnd*100)的值是_.A、0 B、1 C、随机数 D、-1 答案：B赋值语句：a=123+MID(123456,3,2)执行后，a变量中的值是_。A、123B、12334C、157D、12334答案：C下面_是不合法的整常数。A、100B、&O100C、&H100D、%100答案：D表达式（73+1）*(185-1)的值是_.A、8.67 B、7.8 C、6.67 D、6 答案：D以下不合法的常量是_.A、102 B、100 C、10E+01 D、100.0 答案：A下列字符串中_是合法变量。A、x y ,xyB、exp,123,x * yC、char_1,student,No,a1234D、end ,1bcx答案：C要判断月收入在2000元以上（含2000元）且5000元以下（不含5000元的职工，应该使用的逻辑表达式是_。A、M2000 Or M=2000 Or M2000 AND M=2000 AND M5000答案：D下面正确的赋值语句是_。A、x+y=30B、3y=xC、y=*r*rD、y=x+30答案：DVB表达式Sqr(a+b)3*2中优先进行运算的是_。A、*B、Sqr函数C、+D、答案：C语句Print “Int(-13.2)=”;Int(-13.2)的输出结果为_.A、Int(-13.2)=13.2 B、Int(-13.2)=-14 C、Int(-13.2)=-13.2 D、Int(-13.2)=-13 答案：B执行语句Print format(5459.478,#,#0.00)，正确的输出结果是_。A、5,459.478B、5,459.47C、5459.48D、5,459.48答案：D下列程序的执行结果是_。x=-62Print Sgn(x)+Abs(x)+Int(x)A、0B、-1C、-72D、-36答案：B以下说法不正确的是_。A、Val( )函数用来把自变量字符串转换为数值B、Log( )函数产生一个0-1之间的单精度浮点数C、Chr( )函数的作用是把自变量表达式的值转换为相应的ASCII码D、Rnd( )函数产生一个0-1之间的单精度浮点数答案：C表达式Len(123程序设计ABC)的值是_。A、10B、20C、17D、14答案：A如果一个变量未指明数据类型，那么，VB默认这个变量为_变量。A、公共B、变体型C、整型D、字符串型答案：B表达式(-1)*Sgn(-100+Int(Rnd*100)的值是_。A、1B、0C、-1D、随机数答案：A一句语句要在一行继续写，用_符号作为续行符。A、B、+C、_D、&答案：CMsgBox函数返回值的类型为_。A、长整型B、数值或字符串C、字符串D、变体答案：A以下各项中，_不是一个合法的字符串。A、等级考试B、#Basic#C、D、Visual答案：B己知A=12345678，则表达式Val(Left(A，4)+Mid(A,4,2)的值为_。A、49B、123445 C、1279D、123456 答案：B下列循环能正常结束循环的是_。A、i=5Doi=i+1Loop Until i0答案：D在窗体画一个命令按钮，然后编写如下事件过程Private Sub Command1_Click( )x = 10Print IIf(x5,1,5)End Sub运行后的输出结果_。A、6B、2C、5D、1答案：D结构化程序设计方法的核心是规定了三种基本结构：_结构、分支结构、循环结构。A、顺序B、条件C、逻辑 D、当型答案：A在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_Click( )Dim a As Integer,b As IntegerDo While b 20 Then Exit DoLoopPrint a,bEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是_。A、75 20B、75 25C、50 20D、50 25答案：B下面语句运行后的输出结果是_。Private Sub Command1_Click()x=0Do While x10x=x+1x=x*xLoopPrint xEnd SubA、30B、12C、6D、25答案：D以下_程序段可以实施X，Y变量值的变换.A、Y=X:X=Y B、Z=X:X=Y:Y=Z C、Z=X:Y=Z:X=Y D、Z=X:W=Y:Y=Z:X=Y 答案：B运行程序产生死循环时，按_键可以终止程序的运行。A、Ctrl +ZB、Ctrl+BreakC、单击停止运行按钮D、Ctrl+C答案：B下面程序执行的结果是_。Private Sub Form_Click() Dim a As String, b As String a = 123 b = 456 C = Val(a) + Val(b) Print C 100End SubA、579B、3C、5D、123答案：C执行程序，单击窗体后在窗体上显示的结果是_。Private Sub Form1_Click()Dim Str1 As String, Str2 As String, i As IntegerStr1=abFor i=Len(Str1)To 1 Step-1Str1=Str1 & Chr(Asc(Mid(Str1,i,1)+i)Next iPrint Str1End SubA、abceB、abdbC、abfdD、abcd答案：B下列程序运行后的输出结果是_。Private Sub Command1_Click()For i=1 TO 3For j=0 TO i-1k=k+1next jnext iprint kEnd SubA、3B、5C、4D、6答案：D设a为Integer型变量，s为Single型变量，把3.75赋值给s后，再执行下列某一语句，则在文本框中显示的结果与执行语句a=s:Text1=a的结果相同的有_个。a=Int(s):Text1=aa=Fix(s):Text1=aa=CInt(s):Text1=aa=Format(s,#):Text1=aA、4B、1C、2D、3答案：C有如下程序：Private Sub Command1_Click( )score=65select Case scoreCase Is60a$=FCase 60 To 69a$=DCase 70 To 79a$=CCase 80 To 89a$=BCase elsea$=AEnd SelectMsgBox a$End Sub程序运行后，消息对话框中显示的内容为_。A、DB、BC、AD、C答案：A以下语句中，不能正确执行的是_。A、Check1.Value=True B、If Optionl.Value Then C、If Optionl.Value=True Then D、Check1.Value=0 答案：A执行了下面的程序后，列表框中的数据项有_。Sub Form_Click()For i = 1 To 6List1.AddItem iNext iFor i = 1 To 3List1.RemoveItem iNext iEnd SubA、246B、135C、156D、456答案：B有如下程序代码：Private Sub Command1_Click( )s=Sin(3.1415926/2)MsgBox sEnd Sub程序运行后，消息对话框显示_。A、1B、1.5708C、0D、2答案：A以下程序的输出结果是_。 Dim i As Integer,a As Integer Do While i20 Do While True If i Mod 10=0 Then Exit Do Else i=i-1 End If Loop i=i+11:a=a+iLoopPrint aA、21B、33C、32D、11答案：C哪个程序段不能分别正确显示1、2、6、24的值_。A、For i=1 To 4n=1For j=1 To iN=n*jNext jPrint nNext iB、n=1For j=1 To 4N=n*jPrint nNext jC、n=1j=1Do While j=4n=n*jPrint nj=j+1LoopD、For i=1 To 4For j=1 To in=1n=n*jNext jPrint nNext i答案：D下列是一个计算1到100的奇数的和的程序，为补充完该程序，填空应为_。 Private Sub Command1_Click ( ) Dim s As Long, x As Integer s=0For x = _ Step-2s=s+xNext xPrint sEnd Sub A、1 To 100B、100 To 1C、99 To 1D、1 To 99 答案：C下列程序Private Sub Command1_Click( )a=InputBox(请输入)b=InputBox(请输入)Print a+bEnd Sub运行时输入3和4输出的结果是 _ 。A、7B、3+4C、出错D、34答案：DVB也提供了结构化程序设计的三种基本结构，这三种基本结构是_。A、递归结构、选择结构、循环结构B、选择结构、循环结构、顺序结构C、过程结构、输入输出结构、转向结构D、选择结构、过程结构、顺序结构答案：B填空=关系式-5=X=-5 and X0 and x100 表达式72Mod 523的值为_答案：空 1:1下列函数调用时弹出的对话框中按钮的个数为_。MsgBox (程序非法！,vbAbortRetryIgnore,消息提示)答案：空 1:3 A=7，B=3，C=4，则表达式 A MOD 3+B3/C5的值为_。答案：空 1:2执行下面的程序，击窗体后在窗体上显示的第一行结果是_，第三行结果是_。 Private Sub Form_click()Dim mystr, mystr1, mysrr2 As Stringmystr1 = BFor i = 1 To 3mystr2 = LCase(mystr1)mystr1 = mystr1 & mystr2mystr = mysre & mystr1Print mystrmystr1 = Chr(Asc(mystr1) + i)Next iEnd Sub答案：空 1:Bb空 2:Ee下列程序执行时，从键盘上依次输入123和234，则程序的输出结果是_。Dim a As Integer,b As Integera=InputBox(请输入第一个整数, )b=InputBox(请输入第二个整数, )Print a+b答案：空 1:357 本程序用于验证一个自然数N的立方等于N个连续奇数之和，其中最大的奇数P=N*（N+1）-1例如，43=19+17+13，最大奇数为19。当程序执行后，分别给对话框输入4和6时，问计算结果分别为_和_。Private Sub Command1_Click( )Dim s As Stringn = InputBox(输入一个自然数)num = n * n * np = n * (n + 1)-1x = pk = 1Do Until x = nump = p-2x = x + pk = k + 1LoopPrintPrint k; pEnd Sub答案：空 1:4 13空 2:6 31下面程序的内层循环次数是_。For i=1 To 3 For j=1 To i For k