计算机等级考试二级VB全真模拟试题含答案2Word文档格式.docx

1、（9） 为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是 。A） Value B） Default C） Cancel D） Enabled （10） 为了把焦点移到某个指定的控件，所使用的方法是 A） SetFocus B） Visible C） Refresh D） GetFocus （11） 设a=6，则执行 x=IIf（a 5,-1,0）后，x 的值为 。A） 5 B） 6 C） 0 D） -1 （12） 执行下面的程序段后，x 的值为 。x=5 For i=1 To 20 Step 2 x=x+i5 Next i A） 21 B） 2

2、2 C） 23 D） 24 （13） 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click（） For i=1 To 4 x=4 For j =1 To 3 x=3 For k=1 To 2 x=x+6 Next k Next j Print x End Sub 程序运行后，单击命令按钮，输出结果是 。A） 7 B） 15 C） 157 D） 538 （14） 在窗体上画一个命令按钮，然后编写如下事件过程：Prevate Sub Command1_Click（） x=0 Do Until x=-1 a = InputBox（“请输入A的值”） a

3、= Val（a） b = InputBox（“请输入B的值”） b = Val（b） x = InputBox（“请输入x的值”） x = Val（x） a = a+b+x Loop Print a 程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为 。A） 2 B） 3 C） 14 D） 15 （15） 在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name 属性为Command1），然后编写如下两个事件过程：a=Text1.Text+Text2.Text Private Sub Formm_

4、Load（） Text1 Text=Text2 Text=End sub 程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为 。A） 444 B） 321123 C） 123321 D） 132231 （16） 阅读下面的程序段：For i=1 To 3 For j=1 To i For k=j To 3 a=a+1 执行上面的三重循环后，a 的值为 。A） 3 B） 9 C） 14 D） 21 （17） 在窗体上画一个文本框（其中Name属性为Text1），然后编写如下事件过程：Private Sub Form_Loa

5、d（） Ttext1.Text=Text1.SetFocus For i=1 To 10 Sum=Sum+i Text1.Text=Sum 上述程序的运行结果是 。A） 在文本框Text1中输出55 B） 在文本框Text1中输出0 C） 出错 D） 在文本框Text1中输出不定值 （18） 在窗体上画两个文本框（其Name 属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程：Do While x 50 x=（x+2）*（x+3） n=n+1 Text1.Text=Str（n） Text2.Text=Str（x） 程序运行后，单击命令按钮

6、，在两个文本框中显示的值分别为 A） 1和0 B） 2和72 C） 3和50 D） 4和168 （19） 用下面语句定义的数组的元素个数是 。Dim A （-3 To 5） As Integer A） 6 B） 7 C） 8 D） 9 （20） 以下程序的输出结果是 Option Base 1 Dim a（10）,p（3） As Integer k=5 a（i）=i p（i）=a（i*i） Next I k=k+p（i）*2 Print k A） 33 B） 28 C） 35 D） 37 （21） 在窗体上面画一个命令按钮，然后编写如下事件过程：Private Sub Commandl_Cli

7、ck（） Dim a a = Array（1,2,3,4） j = 1 For i = 4 To Step -1 s = s + a（i）*j j =j*10 Print s 运行上面的程序，单击命令按钮，其输出结果是 。A） 4321 B） 12 C） 34 D） 1234 （22） 在窗体上面一个命令按钮（其Name属性为Commandl），然后编写如下代码：Private Sub Commandl_Click（ ） Dim a（4,4） For i =1 To 4 For j =1 To 4 a（i,j） = （i-1）*3+j For i =3 To 4 For j =3 To 4 P

8、rint a（j,i）;Print 程序运行后，单击命令按钮，其输出结果为 。A） 6 9 B） 7 10 C） 8 11 D） 9 12 7 10 8 11 9 12 10 13 （23） 假定有如下的Sub过程：Sub S（x As Single,y As Single） t = x x =t/y y =t Mod y 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Commandl_Click （ ） Dim a As Single Dim b As Single a =5 b =4 S a,b Print a,b 程序运行后，单击命令按钮，输出结果为 。A） 5

9、4 B） 1 1 C） 1.25 4 D） 1.25 1 （24） 阅读程序：Function F（a As Integer） b = 0 Static c b = b+1 c = c+1 f = a+b+c End Function Private Sub Commandl_Click （） Dim a As Integer a =2 For i =1 To 3 Print F（a） 运行上面的程序，单击命令按钮，输出结果为 。A） 4 B） 4 C） 4 D） 4 4 5 6 7 4 6 8 9 （25） 阅读程序：Sub subP（b（） As Integer） b（i）=2*i Dim

10、 a（1 To 4）As Integer a （1）=5 a （2）=6 a （3）=7 a （4）=8 subP a （） Print a（i） A）2 B）5 C）10 D）出错 4 6 12 6 7 14 8 8 16 （26） 下列不能打开菜单编辑器的操作是 。A）按Ctrl+E B）单击工具栏中的“菜单编辑器”按钮 C）执行“工具”菜单中的“菜单编辑器”命令 D）按Shift + Alt + M （27） 假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用的语句为 。A） MenuItem. Enabled=False B） MenuItem. Ena

11、bled=True C） MenuItem. Visible=True D） Menultem. Visible=False （28） 在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是 。A） Move B） Change C） Scroll D） GetFocus （29） 假定窗体上有一个标签，名为Labell，为了使该标签透明并且没有边框，则正确的属性设置为 。A） Label1. Back Label1.Border B） Label1.Back C） Label1.Back D） Label1.Back （30） 在窗体上画一个列表框和一个文本框，然后编写如下两个事件过

12、程：Private Sub Form_Load （） List1.AddItem357246123Listl.AddItem456Text1.Text=Private Sub List1_ DblClick （ ） a =List1.Text Print a+Text1.Text 程序运行后，在文本框中输入“789”（见图1），然后双击列表框中的，则输出结果为 。A） 1245 B） 456789 C） 789456 D） 0 （31） 为了暂时关闭计时器，应把该计时器的某个属性设置为False ，这个属性是 。A） Visible B） Timer C） Enabled D） Interva

13、l （32） 为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为 。A）Get文件号，记录号，变量名 B）Get文件号，变量名，记录号 C）Put文件号，变量名，记录号 D）Put文件号，记录号，变量名 （33） 对窗体编写如下事件过程：Private Sub Form _MouseDown（Button As Integer, _ Shift As Integer, X As Single Y As Single） If Button =2 Then Print AAAAAEnd If Private Sub Form _ MouseUp（Button As Integer

14、, _ Shift As Integer, X As Single, Y As Single） BBBBB程序运行后，如果单击鼠标右键，则输出结果为 。A） AAAAA B） BBBBB C） AAAAA D） BBBBB BBBBB AAAAA （34） 为了在运行时能显示窗体左上角的控制框（系统菜单），必须 。A） 把窗体的Contro1Box 属性设置为Fale,其他属性任意 B） 把窗体的ControlBox 属性设置为True,并且把Boder Style属性设置为1-5 C） 把窗体的ControlBox 属性设置为False,同时把BoderStyle属性调协为非0值 D） 把窗

15、体的ControlBox 属性设置为True,同时把BoderStyle属性设置为0值 （35） 对窗体编写如下代码：Private Sub Form_KeyPress（KeyAscii As Integer） a = Array（237,126,87,48,498） m1 = a（1） m2 = 1 If KeyAscii = 13 Then For i =2 To 5 If a（i） ml Then m1 =a（j） m2 =i Print m1 Print m2 程序运行后，按回车键，输出结果为 A） 48 B） 237 C） 498 D） 498 4 1 5 4 二、填空题（每空分，共

16、30分） 请将每空的正确答案写在答题卡115序号的横线上，答在试卷上不得分。（1）设有如下的Visual Basic表达式：5 * x_ 3 * x 2 * Sin（a）/3 它相当于代数式【1】 。（2）执行下面的程序段后，s的值为 【2】 。s = 5 For i = 2.6 To 4.9 Step 0.6 s = s+1 （3）表达式Fix（-32.68）+Int（-23.02）的值为 【3】 。（4）为了在运行时把图形文件picfile. jpg装入图片框Picture1,所使用的语句为【4】 。（5）在窗体上画一个命令按钮，然后编写如下事件过程：a = InputBox（请输入一个整

17、数） b = InputBox（Print a + b 程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为 【5】 。（6） 执行下面的程序段后，b的值为【6】 。a=300 b=20 a=a+b b=a-b a=a-b （7） 以下程序段的输出结果是【7】 。num=0 While num =2 num=num+1 Print num Wend （8） 在窗体画一个命令按钮，然后编写如下事件过程：Dim a（1 To 10） Dim p（1 To 3） 程序运行后，单击命令按钮，输出结果是【8】 。（9） 下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请在【

18、9】、【10】、【11】处将程序补充完整。a=Array（678,45,324,528,439,387,87,875,273,823） For i=【9】 For j=【10】 If a（i） 【11】 a（j） Then a1=a（i） a（i）=a（j） a（j）=a1 （10） 在窗体画一个命令按钮，然后编写如下过程：Function fun（ByVal num As Long）As Long Dim k As Long k=1 num=Abs（num） Do While num k=k*（num Mod 10） num=num10 fun=k Dim n As Long Dim r A

19、s Long n=InputBox（请输入一个数n=CLng（n） r=fun（n） Print r 程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为【12】 。（11） 如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为【13】 。（12） 假定建立了一个工程，该工程包括两个窗体，其名称（Name 属性）分别为Form1和Form2，启动窗体为Form1。在Form1画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请在【14】和【15】处将程序补充完整。【14】 Form1 Form2. 【15】 答案 一、选择

20、题 （1） C （2） D （3） B （4） C （5） B （6） C （7） C （8） D （9） B （10） A （11） D （12） A （13） B （14） A （15） C （16） C （17） C （18） B （19） D （20） A （21） D （22） D （23） D （24） B （25） A （26） D （27） A （28） C （29） A （30） B （31） C （32） D （33） A （34） B （35） C 二、填空题 （1） 1 （2） 2 9 （3） 3 56 （4） 4 Picturel.Picture = LoadPicture（picfile.jpg（5） 5 321456 （6） 6 300 （7） 7 1 2 3 （8） 8 33 （9） 9 a To 9 10 i+1 To 10 11 = （10） 12 24 （11） 13 - （12） 14 Unload 15 Show 计算机等级考试二级VB全真模拟试题含答案（2） 相关内容: