赤峰学院vb模拟试题库含答案

1、.模拟试题一1VB是一种面向对象的程序设计语言，（ ）不是面向对象系统所包含的三要素。 .属性 .变量 .方法 .事件 2.不论何控件，共同具有的是( )属性。 ACaption B.Text C. Name D.ForeColor3. 程序代码如下：Command1.Caption=”确定”，则Command1、Caption、“确定”分别代表（ ）A.属性、对象、值 .对象、值、属性 C.对象、方法、属性 .对象、属性、值4.下面( )是不合法的整型常数。 A278 B. &O278 C. &H278 D. 2785.为了给x、y、z三个变量赋初值1，下面正确的赋值语句是( )。 Ax=y

2、=z=1 Bx=1，y1，z1Cx=1：y1：z1 Dxyz=16.赋值语句：a=123+Mid(“123456”，3，2)执行后，变量a中的值是( )。 A”12334” B12334 C157 D1237. 数学关系3x10表示成正确的VB表达式为（） 、3=x10 、3=x AND x=3 OR x10 、3=x AND 8 Then y=x2+1 If x2=9 Then y=x2-2 If x2=1X2+3x=1 Then B、If x=1 Then f=sqr(x+1) D、If x=1 Then f=sqr(x+1)If x1 Then f=x*x+3 f=x*x+38循环语句F

3、or i= -3.5 To 5.5 Step -0.5的循环次数是( )。 A20 B19 C18 D09 数学关系3x10表示成正确的VB表达式为（） 、3=x10 、3=x AND x=3 OR x10 、3=x AND 8 Then y=x2+1 If x2=9 Then y=x2-2 If x25,-1,0)后，x的值为()。 A)5 B)6 C)0 D)-1 (8) 产生60，100之间的随机整数的Visual Basic表达式是（）。A) Int(Rnd*40)+60 B) Int(Rnd*40)+61C) Int(Rnd*41)+60 D) Int(Rnd*41)+61(9) 执

4、行语句s=Len(Mid(VisualBasic,1,6)后，s的值是A) Visual B) Basic C) 6 D) 11(10) 下面（）是合法的变量名。A) dimB) m-1 C)_123D) X_t6(11) 下面正确的赋值语句是（）。A）x=y+3 B）x=y=3C）x+y=3 D）3x=y(12)VB提供了结构化程序设计的三种基本结构，三种基本结构是（）。A）递归结构、选择结构、循环结构B）选择结构、过程结构、顺序结构C）过程结构、输入、输出结构、转向结构D）选择结构、循环结构、顺序结构(13) 确定一个控件在窗体上的位置的属性是（）。A) Width和HeightB) Wi

5、dth或HeightC) Top和Left D) Top或Left(14) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程 Private Sub Command1_Click() Text1.Text = Visual Text1 = Basic Text1 = ProgramEnd Sub程序运行后，如果单击命令按钮，则在文本框中显示的是A) 出错 B) Visual C) Basic D) Program (15) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub

6、 Command1_Click() Dim array1(10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 2 To 4 array1(i, j) = i + j Next j Next i Text1.Text = array1(2, 3) + array1(3, 4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是A) 15 B) 14 C) 13 D) 12(16) 设菜单中有一个菜单项为Open。若要为该菜单命令设计访问键，即按下Alt及字母O时，能够执行Open命令，则在菜单编

7、辑器中设置“Open命令的方式是 A) 把Caption属性设置为&Open B) 把Caption属性设置为O&pen C) 把Name属性设置为&Open D) 把Name属性设置为O&pen(17) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() x=InputBox(Input) Select Case x Case 1,3 Print 分支 1 Case 2,4 Print 分支 2 Case Else Print Else 分支 End SelectEnd Sub程序运行后，如果在输入对话框中输入2，则

8、窗体上显示的是（）。 A） 分支1 B） 分支2 C） Else分支 D) 程序出错(18) for k=13 to -5 step -2循环次数为：（）。A) 7 B) 8 C) 9 D) 10 (19)用下面语句定义的数组的元素个数是( )Dim a(3,1 To 5) As IntegerA)8 B)15 C)20 D)21(20) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() a$=Program Print String(3,a$)End Sub程序运行后，单击命令按钮，在窗体上显示的内容是 A）Pro

9、 B) ram C) gra D) PPP(21) 保存一个工程至少应保存两个文件，这两个文件分别是（ ）A)文本文件和工程文件 B)窗体文件和工程文件C)窗体文件和标准模块文件 D)类模块文件和工程文件 (22) 下列表达式的值为2123的是（ ）A) Val(123asd) & 2000 B) Val(123) + 2000C) Str(123) & 2000 D)Str(123)+2000(23) 表示滚动条控件取值范围最大值的属性是（）。A）Max B）LargeChange C）Value D）Max-Min(24) 当使用Line方法时，参数B与F可组合使用，下列组合中（）不允许。

10、A)BF B)B C)省略不用 D)F(25)可以RGB(x,y,z)函数获取颜色，下面的数字对应了x,y,z三个参数，其中不合法的是（）。A)0，0，0 B) 200，255，129 C) 100，256，200 D)255，255，0(26) 在用菜单编辑器设计菜单时，必须输入的项有（）。A)快捷键 B)索引 C)热键 D)名称(27) 在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：Option Base 0Private Sub Command1_Click() Dim city As Variant city = Array(北京, 上海, 天津, 重庆) Pr

11、int city(1)End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是A）空白 B）错误提示 C）北京 D）上海(28) 假定有以下函数过程：Function Fun(S As String) As String Dim s1 As String For i = 1 To Len(S) s1 = UCase(Mid(S, i, 1) + s1 Next i Fun = s1End Function在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim Str1 As String, Str2 As String Str1

12、 = InputBox(请输入一个字符串) Str2 = Fun(Str1) Print Str2End Sub程序运行后，单击命令按钮，如果在输入对话框中输入字符串abcdefg，则 单击确定按钮后在窗体上的输出结果为 A）gfedcba B）ABCDEFG C）GFEDCBA D）abcdefg(29) Circle(500,600)，500， ， ， ,3将绘制（ ）。 A)圆弧 B)扇形 C)圆 D)椭圆(30) 在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_Click() int t1Static t2 t1=t1+1 t

13、2=t2+1 End Sub三次单击命令按钮后，t1,t2的值分别为（）：A) 1 1B) 3 3 C) 1 3 D) 3 1二、 填空题（每题2分,计16分）1 窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1100之间能够被7整除的数添加到列表框。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。 Private Sub Form_Load() For i=1 T

14、o 100 If i Mod 7 =0 Then _【 1_】_ End If Next i End SubPrivate Sub Command1_Click()Sum =0For i=0 To_【 2_】_ Sum =Sum+_【_3 】_Next iText1.Text=SumEnd Sub2按存储信息的形式分类，文件可以分为【 4 】和【 5 】。3 以下语句输出结果是 【 6 】 。Print Int(12345.6789 * 100 + 0.5) / 100。4数学表达式的VB算术表达式为【 7 】。5表达式Lcase(left(“ABCDEFG”,5)的值是【 8 】。6设有如下

15、程序：Option Base 1Private Sub Command1_Click() Dim arr1 Dim Min As Integer, i As Integer arr1 = Array(12, 435, 76, -24, 78, 54, 866, 43) Min = 【9】 For i = 2 To 8 If arr1(i) =1X2+3x=1 Then B、If x=1 Then f=sqr(x+1) D、If x=1 Then f=sqr(x+1)If x1 Then f=x*x+3 f=x*x+38下列循环语句能正常结束循环的是（ ）。 A、i=10 B、i=5 Do Do

16、 i=i-1 i=i+1 Loop Until i0 Loop Until i0 C、i=1 D、i=6 Do Do i=i+2 i=i-2 Loop Until i=10 Loop Until i=19 产生10，37之间的随机整数的VB表达式（）、Int(Rnd(1)*27)+10 、Int(Rnd(1)*28)+10、Int(Rnd(1)*27)+11 、Int(Rnd(1)*28)+1110在数组声明语句Dim a(3，-2 to 2，5) As Long中，数组a包含元素的个数为（ ）。 、13 、60 、75 、12011滚动条的（）属性用于返回或设置滚动条的当前值。 、alue、

17、Max、Min、Data 12在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应使用（）关键字在过程中声明局部变量。 、Private、Public、Static、Dim13假如列表框（List1）有四个数据项，把数据项“数据库原理”添加到列表框的最后，应使用（ ）语句。 A、List1.AddItem “数据库原理”，List1.ListCount B、List1.AddItem “数据库原理”，List1.ListCount-1 C、List1.AddItem 3，“数据库原理” D、List1.AddItem “数据库原理”，314要从磁盘上读入一个文件名为“c:

18、t1.txt”的顺序文件，下列（ ）正确。A、f=”c:t1.txt” B、f=”c:t1.txt” Open “f” For Input As #1 Open f For Input As #1C、Open ”c:t1.txt”For output As #1 D、Open c:t1.txt For input As #1 15下列关于菜单的说法中，错误的是( )。、每个菜单项都是一个控件，与其它控件一样也有自己的属性和事件。、除了Click事件之外，菜单项还能响应DblClick事件。 、菜单项的快捷键不能任意设置。、在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择。16指令Circle(1000,1000)，500，8，-6，-3将