1、计算机国家二级考试笔试模拟试题101300题101、在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:Private Sub Command1_Click() For i = 1 To 4 If i = 1 Then x = i If i = 4 Then x = x + 1 Print x; Next iEnd Sub程序运行后,单击命令按钮,其输出结果为:_。 A: 1 2 3 4 B: 2 3 4 5 C: 23 4 4 D: 3 4 5 6102、在窗体上画一个命令按钮(其名称为Command1),然后编写如下事件过程:Private Sub Command1_C
2、lick() Dim a(5, 5) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 1 To 3 a(i, j) = (i - 1) * 3 + j Print a(i, j); Next j Print Next iEnd Sub程序运行后,单击命令按钮,在窗体上的输出结果是:_。 A:1 4 7 2 5 8 3 6 9 B:1 2 3 4 5 6 7 8 9 C:1 2 3 4 5 6 7 8 9 D:没有输出103、在窗体上画两个标签和一个命令按钮,其名称分别为Label1、Label2和Command1
3、,然后编写如下程序:Private Sub func(L As Label, ByVal a As Integer) L.Caption = 1234 a = a * aEnd SubPrivate Sub Form_Load() Label1.Caption = ABCD Label2.Caption = 10End Sub Private Sub Command1_Click() a = Val(Label2.Caption) Call func(Label1, a) Label2.Caption = aEnd Sub程序运行后,单击命令按钮,在两个标签Label1和Label2中显示的内
4、容分别是:_。 A:ABCD 和 10 B:1234 和 100 C:ABCD 和 100 D:1234 和 10104、假定程序中有以下语句: answer = MsgBox(String1,String2,String3,2)执行该语句后,将显示一个信息框,此时如果单击确定按钮,则answer的值为:_。 A:String1 B:String2 C:String3 D:1105、以下叙述中不正确的是:_。 A:Open语句的功能是打开一个已经存在的文件 B:随机文件每条记录的长度是固定的 C:执行如下命令后,文件指针指向文件的开头: Open C:DataFile.Dat For Outp
5、ut As #1 D:以下循环语句中的条件表示当到达文件结尾时结束循环: Do While Not EOF(1) Loop106、在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text1属性设置为空白,然后编写如下事件过程:Private Sub Command1_Click() Dim a, b a = InputBox(Enter an Integer) b = text1.Text text1.Text = b + aEnd Sub程序运行后,先在文本框中输入456,然后单击命令按钮,在输入对话框中输入123,如果单击确定按钮,则文本框中显示的内
6、容是:_。 A:579 B:123 C:456123 D:456107、设a=5,b=6,c=7,d=8,则执行下列语句后,x的值为:_。x= IIF(ab) And (c 0 Then X = Y - 3 Else Y = X + 3 Print X - Y; Y - X A:-3 3 B: 5 -8 C: 3 -3 D: 25 -25113、下列程序段的执行结果为_。 N = 0 For I = 1 To 3 For J = 5 To 1 Step -1 N = N + 1 Next J, I Print N; J; I A: 12 0 4 B: 15 0 4 C: 12 3 1 D: 1
7、5 3 1114、下列程序段的执行结果为_。 N = 10 For K = N To 1 Step -1 X = Sqr(K) X = X - 2 Next K Print X - 2 A:-3 B:-1 C: 1 D: 1.16227765115、下列程序段的执行结果为_。 A = 0: B = 1 Do A = A + B B = B + 1 Loop While A 10 Print A; B A: 10 5 B: A B C: 0 1 D: 10 30116、下列程序段的执行结果为_。 Dim A(5) For I = 1 To 5 A(I) = I * I Next I Print
8、A(I - 1) A: 5 B: 25 C: 0 D: 16117、设执行以下程序段时依次输入1、3、5,执行结果为_。 Dim a(4) As Integer, b(4) As Integer For K = 0 To 2 a(K + 1) = Val(InputBox(请输入数据) b(3 - K) = a(K + 1) Next K Print b(K) A: 1 B: 3 C: 5 D: 0118、改变驱动器列表框的Drive属性值将激活_事件。 A:Change B:Scroll C:KeyDown D:KeyUp119、以下叙述中正确的是_。 A:窗体的Name属性指定窗体的名称,
9、用来标识一个窗体 B:窗体的Name属性的值是显示在窗体标题栏中的文本 C:可以在运行期间改变对象的Name属性的值 D:对象的Name属性值可以为空120、刚建立一个新的标准EXE工程后,出现在工具箱中的控件是_。 A:CommonDialog B:ListView C:TextBox D:Toolbar121、设有如下变量声明Dim TestDate As Date为变量TestDate正确赋值的表达方式是_。 A:TestDate=#1/1/2002# B:TestDate=#1/1/2002# C:TestDate=date(1/1/2002) D:TestDate=Format(m/
10、d/yy,1/1/2002)122、设有如下声明:Dim X As Integer如果Sgn(X)的值为-1,则X的值是_。 A:整数 B:大于0的整数 C:等于0的整数 D:小于0的整数123、以下能够触发文本框Change事件的操作是_。 A:文本框失去焦点 B:文本框获得焦点 C:设置文本框的焦点 D:改变文本框的内容124、在窗体上画两个单选按钮,名称分别为Optionl、Option2,标题分别为宋体和黑体;一个复选框,名称为Check1,标题为粗体;一个文本框,名称为Text1,Text属性为改变文字字体。要求程序运行时,宋体单选按钮和粗体复选框被选中(窗体外观如下图),则能够实现
11、上述要求的语句序列是_。 A:Option1.Value=True Check1.Value=False B:Option1.Value=True Check1.Value=True C:Option2.Value=False Check1.Value=True D:Option1.Value=True Check1.Value=1125、在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:Private Sub Command1_Click() For I = 1 To 4 For J = 0 To I Print Chr$(65 + I); Next J Print Next
12、 IEnd Sub程序运行后,如果单击命令按钮,则在窗体上显示的内容是_。 A:BB CCC DDDD EEEEE B:A BB CCC DDDD C:B CC DDD EEEE D:AA BBB CCCC DDDDD126、图像框有一个属性,可以自动调整图像框的大小,以适应图像的尺寸,这个属性是_。 A:AutoSize B:Stretch C:AutoRedraw D:Appearance127、在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click() Dim x As In
13、teger, n As Integer x = 1 n = 0 Do While x 20 x = x * 3 n = n + 1 Loop Text1.Text = Str(x) Text2.Text = Str(n)End Sub程序运行后,单击命令按钮,在两个文本框中显示的值分别是_。 A:15和1 B:27和3 C:195和3 D:600和4128、在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Private Sub Command1_Click() Dim i As Integer,j As Integer Dim a(10,10) As Integer For
14、i=1 To 3 For j=1 To 3 a(i,j)=(i-1)*3+j Print a(i,j); Next j Print Next iEnd Sub程序运行后,单击命令按钮,窗体上显示的是_。 A:1 2 3 2 4 6 3 6 9 B:2 3 4 3 4 5 4 5 6 C:1 4 7 2 5 8 3 6 9 D:1 2 3 4 5 6 7 8 9129、设有如下程序:Option Base 0Private Sub Form_Click() Dim a Dim i As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i = 0
15、To 3 Print a(5 - i); NextEnd Sub程序运行后,单击窗体,则在窗体上显示的是_。 A: 4 3 2 1 B: 5 4 3 2 C: 6 5 4 3 D: 7 6 5 4130、下列叙述中正确的是_。 A:在窗体的Form_Load事件过程中定义的变量是全局变量 B:局部变量的作用域可以超出所定义的过程 C:在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名,但其作用域只限于该过程 D:在调用过程中,所有局部变量被系统初始化为0或空字符串131、在窗体上画一个命令按钮,名称为Command1。程序运行后,如果单击命令按钮,则显示一个输入对话框,在该
16、对话框中输入一个整数,并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数,如果是奇数,过程F1返回1,否则返回0。能够正确实现上述功能的代码是_。 A:Private Sub Command1_Click() x = InputBox(请输入整数) a = F1(Val(x) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2 = 0 Then Return 0 Else Return 1 End If End Function B:Private Sub Command1_Click() x = Inpu
17、tBox(请输入整数) a = F1(Val(x) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2 = 0 Then F1 = 0 Else F1 = 1 End If End Function C:Private Sub Command1_Click() x = InputBox(请输入整数) F1 (Val(x) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2 = 0 Then F1 = 1 Else F1 = 0 End If End Functio
18、n D:Private Sub Command1_Click() x = InputBox(请输入整数) F1 (Val(x) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2 = 0 Then Return 0 Else Return 1 End If End Function132、以下叙述中错误的是_。 A:如果过程被定义为Static类型,则该过程中的局部变量都是Static类型 B:Sub过程中不能嵌套定义Sub过程 C:Sub过程中可以嵌套调用Sub过程 D:事件过程可以像通用过程一样由用户定义过程名133、以下叙
19、述中错误的是_。 A:在同一窗体的菜单项中,不允许出现标题相同的菜单项 B:在菜单的标题栏中,&所引导的字母指明了访问该菜单项的访问键 C:程序运行过程中,可以重新设置菜单的Visible属性 D:弹出式菜单也在菜单编辑器中定义134、设在菜单编辑器中定义了一个菜单项,名为menu1。为了在运行时隐藏该菜单项,应使用的语句是_。 A:menu1.Enabled=True B:menu1.Enabled=False C:menu1.Visible=True D:menu1.Visible=False135、以下叙述中错误的是_。 A:一个工程中可以包含多个窗体文件 B:在一个窗体文件中用Priv
20、ate定义的通用过程能被其他窗体调用 C:在设计VB程序时,窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件 D:全局变量必须在标准模块中定义136、设在工程中有一个标准模块,其中定义了如下记录类型Type Books Name As String * 10 TelNum As String * 20End Type在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Command1_Click时,在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是_。 A:Private Sub Command1_Click() Dim B As Books Op
21、en c:Person.txt For Output As #1 B.Name = InputBox(输入姓名) B.TelNum = InputBox(输入电话号码) Write #1, B.Name, B.TelNum Close #1 End Sub B:Private Sub Command1_Click() Dim B As Books Open c:Person.txt For Input As #1 B.Name = InputBox(输入姓名) B.TelNum = InputBox(输入电话号码) Print #1, B.Name, B.TelNum Close #1 End
22、 Sub C:Private Sub Command1_Click() Dim B As Books Open c:Person.txt For Output As #1 B.Name = InputBox(输入姓名) B.TelNum = InputBox(输入电话号码) Write #1, B Close #1 End Sub D:Private Sub Command1_Click() Dim B As Books Open c:Person.txt For Input As #1 Name = InputBox(输入姓名) TelNum = InputBox(输入电话号码) Print
23、 #1, Name, TelNum Close #1 End Sub137、目录列表框的Path属性的作用是_。 A:显示当前驱动器或指定驱动器上的目录结构 B:显示当前驱动器或指定驱动器上的某目录下的文件名 C:显示根目录下的文件名 D:显示该路径下的文件138、在设计应用程序时,通过_窗口可以查看到应用程序工程中的所有组成部分。 A:代码窗口 B:窗体设计窗口 C:属性窗口 D:工程资源管理器窗口139、在Visual Basic中,所有的窗体和控件都必定具有的一个属性是_。 A:Name B:Font C:Caption D:FillColor140、可以同时删除字符前导和尾部空白的函数
24、是_。 A:Ltrim B:Rtrim C:Trim D:Mid141、如果在立即窗口中执行以下操作( 是回车键): a=8 b=9 print ab 则输出结果是_。 A:-1 B:0 C:False D:True142、当一个工程含有多个窗体时,其中的启动窗体是_。 A:启动Visual Basic时建立的窗体 B:第一个添加的窗体 C:最后一个添加的窗体 D:在“工程属性”对话框中指定的窗体143、对变量名说法不正确的是_。 A:必须是字母开头,不能是数字或其他字符 B:不能是VB的保留字 C:可以包含字母、数字、下划线和标点符号 D:不能超过255个字符144、在Visual Basi
25、c中,下列运算符中优先级最高的是:_。 A:* B: C: D:Not145、以下关系表达式中,其值为假的是:_。 A:XYZXYz B:VisualBasic=visualbasic C:thethere D:IntegerInt146、在窗体上画一个命令按钮(名称为Command1),编写如下事件过程:Private Sub Command1_Click() b = 5 c = 6 Print a = b + cEnd Sub程序运行后,单击命令按钮,输出的结果是:_。 A:a=11 B:a=b+c C:a= D:False147、以下程序段运行的结果是:_。 Dim a(-1 To 5)
26、 As Boolean Dim flag As Boolean flag = False Dim i As Integer Dim j As Integer Do Until flag = True For i = -1 To 5 j = j + 1 If a(i) = False Then a(i) = True Exit For End If If i = 5 Then flag = True End If Next Loop Print j A:20 B:7 C:35 D:8148、在窗体上画一个文本框,其名称为Text1,为了在程序运行后隐藏该文本框,应当使用的语句为:_。 A:Text1.Clear B:Text1.Visible = False C:Text1.Hide D:Text1.Enabled = False149、在窗体上画一个命令按钮(名称为Command1),然后编写如下事件过程:Private Sub Command1_Click() Dim b As Integer b = b + 1End
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1