VB试题44.doc

单项选择=在一个语句内写多条语句时，每个语句之间用_符号分隔。A、，B、C、：D、；答案：C下列程序的执行结果是_。x=-62Print Sgn(x)+Abs(x)+Int(x)A、0B、-1C、-72D、-36答案：B在Form_Click事件中执行下列语句后错误的结果是_。A、Print Format(12345.6, +#,#0.0%)的输出结果是+1,234,560.0%B、Print Format(12345.6, $#,#0.00)的输出结果是$12,345.60 C、Print Format(12345.6,000,000.00)的输出结果是012，345.60 D、Print Format(12345.6, 0.00E+00)的输出结果是0.12E+05 答案：D为了给x,y,z三个变量赋初值1，下面正确的赋值语句是_。A、x=1：y=1：z=lB、x=y=z=1C、x=1，y=1，z=1D、xyz=1答案：A日期类型（Date）在程序中运用时，日期类型必须用_符号括起来。A、B、%C、#D、答案：C有变量定义语句Dim a, b As integer, 变量a的类型和初值是_。A、String,B、Integer,0C、Long,0,0 D、Variant,空值答案：D在程序中将变量Inta、Bl、St、D分别定义为Integer类型、Boolean类型、String类型和Date类型，下列赋值语句中，正确的是_。A、Bl=#True# B、D=#10/05/01# C、Inta= 333 + 22 D、St=5+ abc 答案：B下面_是合法的变量名。A、X-YB、X_yzC、integerD、123abc答案：BVisualBasic认为下面_组变量是同一个变量。A、A1 和A_1 B、A1和a1 C、Sum 和Summary D、Aver 和 Average 答案：B表达式（73+1）*(185-1)的值是_.A、8.67 B、7.8 C、6.67 D、6 答案：DMys1、Mys2均为字符串型变量，Mys1=ABCDEFGHIJKL，Mys2=g，则下面关系表达式中结果为True的是_。A、Len(Mys1)2*Instr(Mys1,”F”)B、Chr(65)+Right(Msy1,5)=”AHIJKL”C、Instr(Left(Mys1,6),”C”)+60Asc(Ucase(Mys2)D、Mid(Mys1,7,1)Mys2答案：B表达式Len(123程序设计ABC)的值是_。A、10B、20C、17D、14答案：A设X=2.0,Y=8.0,Z=6.0,L=True,则下列VB表达式中值为True的是_。A、Y+X=Z+X AND NOT LB、NOT(Z+XY) AND LC、NOT L OR(L=Y+X=Z)D、X+ZY AND L答案：B表达式X+1X是_.A、字符串表达式 B、非法表达式 C、算术表达式 D、关系表达式 答案：D函数Cint(-3.5)，Int(-3.5)，Fix(-3.5)的值分别是_。A、-3，-4，-3B、-4，-4，-3C、-3，-4，-4D、-4，-3，-3答案：B在VisualBasic代码中，将多个语句合并在一行上的并行符是_。A、冒号(：)B、感叹号(！)C、撇号()D、问号(?) 答案：A语句x=x+1的正确含义是_.A、将变量X的值存在X+1中去 B、将变量X的值加1后赋给变量X C、变量X的值与X+1的值相等 D、变量X的值为1 答案：Bi被j整除的逻辑表达式是_。A、i/j = 0B、i0C、ij = 0D、i mod j = 0答案：D下面正确的赋值语句是_。A、x+y=30B、3y=xC、y=*r*rD、y=x+30答案：D下面程序段，显示的结果是_。Dim xx=Int(Rnd)+5select Case x Case 5 print 优秀 Case 4 print 良好 Case 3 print 通过 Case Else print 不通过End SelectA、通过B、不通过C、良好D、优秀答案：D执行以下语句后，a的值为_。Dim a As Integera=1Do Until a=100 a=a+2 LoopA、溢出 B、100 C、99 D、101 答案：A假定时钟控件的Interval属性为1000，Enabled属性为True，并且有下面的事件过程，则1秒钟的时候窗体上将输出_个字母a。Private Sub Timer1_Timer()For i = 1 To 10Print aNext iEnd SubA、10次B、10000次C、以上都不对D、1 000次答案：A在窗体上添加一个命令按钮，名为Command1，一文本框，名为Text1,则执行如下事件过程后，文本框中的输出为_。Private Sub Command1_Click( )For i = 1 To 4x = 3For j = 1 To 3For k = 1 To 3x = x+3Next kNext jNext iText1.Text=Str(x)End SubA、18B、30C、12D、6答案：B存在如下程序：Private Sub Command1_Click( )a=Val(InputBox(请输入)b=Val(InputBox(请输入)x=a+bIf ab Thenx=a-bendifPrint xEnd Sub运行后，从InputBox对话框中连续输入3和4，输出结果为_。A、3B、34C、0D、7答案：D求解超越方程的根、求定积分、解微方程属于_算法。A、网络管理B、非数值计算C、通信D、数值计算答案：D在文本框Text1中输入数字12，Text2中输入数字34，执行以下语句，只有_。可使文本框Text3中显示46。A、Text3. Text=Val(Text1. Text) & Val(Text2.Text) B、Text3. Text=Text1. Text & Text2. Text C、Text3. Text=Val(Text1. Text)+Val(Text2.Text) D、Text3. Text=Text1. Text+Text2.Text 答案：C在窗体Form1上，有一个图片控件Picture1和命令按钮控件Command1，在窗体的Command1_Click事件中有如下代码：Private Sub Command1_Click( )Dim x As IntegerDim s1 As String,s2 As Strings1=ABCDEFor x=1 To Len(s1)s2=Lcase(Mid(s1,x,1) & xPicture1.Print s2Next xEnd Sub运行此程序后在窗体的第4行为_。A、d2B、b4C、d4D、b2答案：C设有如下语句： strl=InputBox(输入,练习)从键盘上输入字符串示例后，strl的值是_。A、“练习”B、“示例”C、“输入”D、“”答案：B当Form1_Click事件发生时，程序的输出结果是_。Private Sub Form_Click()Dim M As Integer,k As Integer,t As IntegerM=5 : k=7Select Case Mcase 1 To 10t=M: M=k: k=tCase ElseM=k Mod 3End SelectPrint M, k, tEnd SubA、7 5 5B、7 5 7C、5 7 5D、5 5 7答案：A用Msgbox（Hello, vbokonly, 你好）显示的消息对话框窗口的标题是_。A、OKB、HelloC、vbokonlyD、你好答案：D在窗体（Name属性为Fomal）上画两个文本框（Name属性分别为Fext1和Text2）和一个命令按钮（Name属性为Command1），程序如下。执行后结果为_。Private Sub Command1_Click()a=Text1.Text+Text2.TextPrint aEnd SubPrivate Sub Form_load()Text1.Text=123Text2.Text=321End SubA、132231B、444C、123321D、321123答案：C下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是_。A、If sex=男 And age=40 And duty=教授And duty=副教授 Then n=n+1B、If sex=男 And age40 and (duty=教授 or duty=副教授) Then n=n+1C、If sex=男 And age 0 Then n=n+1D、If sex=男 And age5Print “ABCDEF”End SelectB、Select Case XCase Is15, Is5, 1, 3 TO 10Print ABCDEFEnd SelectD、Select Case XCase 10 TO 1Print “ABCDEF”End Select答案：C给出下面的程序Private Sub Command1_Click( )Dim Check ,CounterCheck = True: Counter = 0DoCounter = Counter + 1If Counter = 10 Then Check = False: Exit DoLoop Until Check = FalseMsgBox CounterEnd Sub程序最后弹出的消息对话框的内容是_ 。A、FalseB、TrueC、20D、10答案：D下列循环能正常结束循环的是_。A、i=5Doi=i+1Loop Until i0答案：D下面程序执行的结果是_。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( )Dim y As Integery = 0Do While y=b and abs(a)c 表达式Fix(-48.65)+Int(-52.15)的值是_。答案：空 1:-101已知K=2，J=3，A=True，则VB的表达式(K-J=J)的值为_。答案：空 1:True and False or True 表示x+y小于10，且x-y要大于0的VB表达式为_。答案：空 1:X+Y0 有如下程序：a=100Do s=s+a a=a+1Loop while a120Print a则a的值为_答案：空 1:101本程序用于验证一个自然数N的立方等于N个连续奇数之和，其中最大的奇数P满足关系：P=N*（N+1）-1例如：43=19+17+13，最大奇数为19。现给对话框输入6时，k和p的值为_和_。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:6空 2:31运行下面的语句，单击窗体后在窗体上显示的内容是_；若将程序中的A语句与B语句的位置互换，再次执行程序，单击窗体后在窗体上显示的内容是_。Private Sub Focus_Click( )Dim x As Integer, y As Integerx = 1: y = 0Do While x3y = y + x Ax = x + 1 BLoopPrint x , yEnd Sub答案：空 1:3