全国二级Visual Basic二级考试全真模拟试题.doc

全国二级Visual Basic二级考试全真模拟试题一、选择题（135题，每题2分，共70分）下列各题A)、B)、C)、D)四个选项中，只有一个选择是正确的，请选中该选项。1、下列不能打开属性窗口的操作是（ ）。A) 执行“视图”菜单中的“属性窗口”命令B) 按【F4】键C) 按【Ctrl+T】组合键D) 单击工具栏上的“属性窗口”按钮。2、下列可以打开立即窗口的组合键是（ ）。A) Ctrl+D B) Ctrl+E C) Ctrl+F D) Ctrl+G3、InputBox函数返回值的类型是（ ）。A) 数值 B) 字符串 C) 变体 D) 数值或字符串（视输入的数据而定）4、可以同时删除字符串前导和尾部空白的函数是（ ）。A) Ltrim B) Rtrim C) Trim D) Mid5、表达式4+56*7/8 Mod 9 的值是（ ）。A) 4 B) 5 C) 6 D) 76、如果在立即窗口中执行以下操作：a=8 (按回车键，下同)b=9print ab则输出结果是（ ）。A) -1 B) 0 C) False D) True7、以下语句的输出结果是（ ）。Print Format $(32548.5,”000,000.00”)A) 32548.5 B) 32,548.5C) 032,548.50 D) 32,548.508、执行以下程序段后，变量C$的值为（ ）。a$=”Visual Baisc Programming”b$=”Quick”c$=b$ & Ucase(Mid$(a$,7,6) & Right$(a$,11)A) Visual BASIC Programming B) Quick Basic ProgrammingC) QUICK Basic Programming D) Quick BASIC Programming9、为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（ ）。A) Value B) Default C) Cancel D) Enabled10、为了把焦点移到某个指定的控件，所使用的方法是（ ）。A) SetFocus B) Visible C) Refresh D) GetFocus11、设a=6,则执行x=If(a5,-1,0)后，x的值为（ ）。A) 5 B) 6 C) 0 D) -112、执行下面程序段后，x的值为（ ）。x=5For i=1 to 20 step 2 x=x+i5next iA) 21 B) 22 C) 23 D) 2413、在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()For i=1 to 4x=4For j=1 to 3x=3 for k=1 to2x=x+6next knext jnext iPrint xEnd Sub程序运行后，单击命令按钮，输出的结果是（ ）。A) 7 B) 15 C) 157 D) 53814、在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x=0Do Until x=-1a=Inputbox(“请输入A的值”)a=val(a)b=inputbox(“请输入B的值”)b=val(b)x=inputbox(“请输入X的值”)x=val(x)a=a+b+xloopprint aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为（ ）。A) 2 B) 3 C) 14 D)1515、在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮(Name属性为Command1)，然后编写如下两个事件过程：Private Sub Command1_Clicka=Text1.Text+Text2.textPrint aEnd SubPrivate Sub Form_Load()Text1.Text=” Text2.Text=”End sub程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321然后单击命令按钮，则输出结果为（ ）。A) 444 B) 321123 C) 123321 D) 13223116、阅读下面的程序段：For i=1 to 3For j=1 to iFor k=j to 3a=a+1next knext jnext i执行3重循环后，a的值为（ ）。A) 3 B) 9 C) 14 D) 2117、在窗体上画一个文本框（其Name属性为Text1），然后编写如下事件过程：Private Sub Form_Load()Text1.Text=”Text1.Setf=FocusFor i=1 to 10Sum=Sum+iNext iText1.Text=SumEnd Sub上述程序的运行结果是（ ）。A) 在文本框Text1中输出55 B) 在文本框Text中输出0C) 出错 D) 在文本框Text1中输出不定值18、在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程：Private Sub Command1_Click()x=0do while xm1 Thenm1=a(j)m2=iEnd IfNext iEnd IfPrint m1Print m2End Sub程序运行后，按回车键，输出结果为（ ）。A) 48 4 B) 237 1 C) 498 5 D) 498 4二、填空题（每空2分，共30分）请将正确答案写在空白处的下划线上。1、设有如下的Visual Basic表达式：5*x2-3*x-2*Sin(a)/3；它相当于代数式 。2、执行下面的程序段后，s的值为 。S=5For i=2.6 To 4.9 step 0.6 S=S+1Next i3、表达式Fix（-32.68）+Int（-23.02）的值是多少。4、为了在运行时把图形文件Picfile.jpg装入图片框Picture1，所使用的语句为： 。5、在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()a=inputbox(“请输入一个整数”)b=inputbox(“请输入一个整数”)Print a+bEnd Sub程序运行后，单击命令按钮，再输入对话框内分别输入321和456，输出结果为 。6、执行下面程序段后，b的值为 。a=300b=20a=a+bb=a-ba=a-b7、以下程序段的输出结果是 。Num=0While Num=2Num=Num+1Print NumWend8、在窗体画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a(1 To 10)Dim p(1 To 3)k=5For i=1 To 10a(i)=iNext iFor i=1 To 3P(i)=a(i*i)Next iFor i=1 To 3k=k+p(i)*2Next iPrint kEnd Sub程序运行后，单击命令按钮，输出的结果是 。9、下面程序作用是用“冒泡”将数组a中的10个整数按升序排列，请在空白处将程序补充完整。Option Base 1Private Sub Command1_Click()Dim aa=Array(678,45,324,528,439,387,87,875,273,823)For i= For j= If a(i) a(j) Then a1=a(i)a(i)=a(i)a(j)=alEnd IfNext jNext i For i=1 To 10Print a(i)Next iEnd Sub10、在窗体上画一个命令按钮，然后编写如下过程：Function fun(ByVal num As Long) As LongDim k As LongK=1num=abs(num)Do While numk=k*(num Mod 10)num=num10loopfun=kEnd FunctionPrivate Sub Command1_Click()Dim n As LongDim r As Longn=InputBox(“请输入一个数”)n=Clng(n)r=fun(n)Print rEnd Sub程序运行后，单击命令按钮，在弹出的对话框中输入234，则输出的结果为 。11、如果要将某个菜单项设计为分隔线，则该菜单项的标题应设