《全国二级VisualBasic二级考试全真模拟试题》由会员分享，可在线阅读，更多相关《全国二级VisualBasic二级考试全真模拟试题（10页珍藏版）》请在金锄头文库上搜索。
1、全国二级 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) 数值或字符串（视
2、输入的数据而定）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、执行以
3、下程序段后，变量 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) Ena
4、bled10、为了把焦点移到某个指定的控件，所使用的方法是（ ） 。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
5、=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程序运行后，单击命令按钮，依次在
6、输入对话框中输入 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
7、 ）中分别输入 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
8、+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程序运行后，按回车键
9、，输出结果为（ ） 。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.6S=S+1Next i3、表达式 Fix（-32.68 ）+Int （-23.02）的值是多少 。4、为了在运行时把图形文件 Picfile.jpg 装入图片框 Picture1，所使用的语句为： 。5、在窗体上画一个命令按钮，然后编
10、写如下事件过程：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)Di
11、m 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) Th
12、en 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(“请输入一
13、个数 ”)n=Clng(n)r=fun(n)Print rEnd Sub程序运行后，单击命令按钮，在弹出的对话框中输入 234，则输出的结果为 。11、如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为 。12、假定建立了一个工程，该工程包括两个窗体，其名称 (Name 属性)分别为 Form1 和Form2，启动窗体为 Form1。.在 Form1 窗体中画一个命令按钮 Command1，程序运行后，要求当单击该命令按钮时 Form1 窗体消失，显示窗体 Form2，请在空白处将程序补充完整。Private Sub Command1_Click()Form1Form2. End Sub
