语言基础   
单选
1、与传统的程序设计语言相比,Visual Basic 最突出的特点是:
A  结构化程序设计        B  程序开发环境
C  事件驱动编程机制      D  程序调试技术
2、假定已在窗体上画了多个控件,并有一个控件是活动的,为了在属性窗口设置窗体的属性,预先应执行的操作是:
单击窗体上没有控件的地方        B  单击任一个控件
C  不执行任何操作        10              D  双击窗体的标题栏
3、在Visual Basic工程中,可以
+-*作为启动对象的程序是
A  任何窗体或标准模块            B  任何窗体或过程
C  Sub Main过程或其他任何模块   D  Sub Main过程或任何窗体
4、以下叙述中错误的是
A  一个工程可以包括多种类型的文件
B  Visual Basic应用程序既能以编译方式执行,也能以解释方式执行
C  程序运行后,在内存中只能驻留一个窗体
D  对于事件驱动型应用程序,每次运行时的执行顺序可以不一样
5、以下叙述中错误的是
A  打开一个工程文件时,系统自动装入与该工程有关的窗体、标准模块等文件
B  保存Visual Basic程序时,应分别保存窗体文件及工程文件
C  Visual Basic应用程序只能以解释方式执行
D  事件可以由用户引发,也可以由系统引发
6、如果一个工程含有多个窗体及标准模块,则以下叙述中错误的是
A  如果工程中含有Sub Main过程,则程序一定首先执行该过程
B  不能把标准模块设置为启动模块
C  用Hide方法只是隐藏一个窗体,不能从内存中清除该窗体
D  任何时刻最多只有一个窗体是活动窗体
7、下列可以作为Visual Basic的变量名的是:
A FileName        B  a(A+b)     
C  23D              D  print
basic语言if语句8、以下声明语句中错误的是
A  Const var1=123           B Dim var2 = 'ABC'
C  public a,b as integer     D  Static var3 As Integer
9、以下运算符中,不是逻辑运算符的是:
A  Or            B  Xor     
C  Imp              D  mod
10、下列选项中,把r定义为双精度型变量的是:
A  r%              B  r!         
C r#              D  r$
11、用来将数值转换为字符串类型的函数是:
A  Chr$()              B  Asc()           
C Str$()            D  Val()
12、在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:
Private Sub Command1_Click()
      X = 12345
Print Format$(X, "000.00")
End Sub
程序运行后,单击命令按钮,窗体上显示的是
A 123.45        B 12345.00       
C 12345          D  00123.45
13、inputBox函数的返回值类型是: 
A  数值                B  字符串
C  变体              D  数值或字符串(视输入的数据而定)
填空
1、在VB中,Len(共产党)的值是:_3______________;执行语句s=Len(Mid("VisualBasic",1,6))后,s的值是:__6_____________
2、语句print 25+32的结果是:_25+32__________________
3、设a=2,b=3,c=4,d=5,则表达式3>2*b  OR  a=c  AND  b<>c  OR c>d的值是:_____false_________ ;NOT a<=c OR  4*c=b^2  AND  b<>a+c的值是_____________
4、以下语句的输出结果是:_3______
a%=3.14159
Print a%
5、在VB中,工程文件的扩展名是.VBP,窗体文件的扩展名是.____ ___________。
6、在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
    a = InputBox("Enter the first integer:")
    b = InputBox("Enter the second integer:")
    Print b + a
End Sub
程序运行后,单击命令按钮,先后在两个输入框中输入123和456,则输出结果是:__456123______________
7、在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:
Private Sub Form_Click()
  Text1.Text = " VBProgramming "
End Sub
Private Sub Text1_Change()
  Picture1.Print " VB程序设计"
End Sub
程序运行后,单击窗体,在图片框中显示的内容是____ VB程序设计__________________。
8、___注释_________语句是一个说明性语句,Visual Basic不对它们进行编译,该语句不参与程序运行。
9、在Visual Basic中,字符串常量用___#________括起来,日期/时间型常量要用_____________括起来。
10、在VB中,当窗体被装入内存时,系统将自动执行__load_ _____事件过程。
11、Visual Basic应用程序通常由3类模块组成,即窗体模块、类模块____________和标准模块。
12、在VB中,如果要改变窗体的标题,则需要设置的属性是  
13、100%表示100为_____整________型数据;100!表示为_单精度___________型数据。
14、在VB中,标准模块中的代码存放在以bas.____ ____为扩展名的文件中。
15、在VB中,将窗体Form1隐藏起来的语句是:Form1.__hide_________
流程控制
单选题
1、下列语句中,能交换变量a和b的值的是:
A  t=a:b=a:a=t          B  a=a+b:b=a-b:a=a-b
C  t=a:a=b:b=t          D  a=b:b=a
2、设a=6,则执行
  X=IIf(a>5,-1,0)
后,x的值为:
A  5            B  6         
C  0            D -1
3、结束当前运行程序的语句是:
A  Quit            B  Exit       
C  Exit Sub          D End
4、以下Case语句中错误的是 
A  Case 0 To 10                B  Case Is>10
C  Case Is>10 And Is<50        D  Case 3,5,Is>10
5、设有以下循环结构
Do
循环体
Loop While <条件>
则以下叙述中错误的是
A  若"条件"是一个为0的常数,则一次也不执行循环体
B  "条件"可以是关系表达式、逻辑表达式或常数
C  循环体中可以使用Exit Do语句
D  如果"条件"总是为True,则不停地执行循环体
6、有程序段如下:
X%=2
Do while x<8
  Print *;
  X=x+2
Loop
执行后的输出结果是:
A  *      B  **   
C ***  D  ****
7、假定有以下程序段
For i = 1 To 3
  For j = 5 To 1 Step -1
      Print i * j
  Next j, i
则语句Print i * j的执行次数是:
A  15            B  16       
C  5              D  8
8、执行以下程序段后,x的值为
  Dim x As Integer, i As Integer
  x=0
  For i = 20 To 1 Step –3
    x = x + i \ 5
Next I
A  16        B  17
C  13        D  19
填空
1、以下语句的输出结果是__ shaingha ___________
S$=beijing
S$=shaingha
Print s
2、设有程序段:
  Dim k%
K=5
Do until k=0
  K=k-1
Loop
执行循环体的次数是:______5________次。
3、下面程序段中,循环语句的执行次数是_______4______次。
  For x = 10 To 1 Step -3
Print x
Next x
4、执行语句For x = 1 To 3x = x + 1Next x后,变量x的值是__5__________。
5、在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框,然后编写如下事件过程:
Private Sub Command1_Click()
n = Text1.Text
Select Case n
Case 1 To 20
x = 10
Case 2, 4, 6
x = 20
Case Is < 10
x = 30
Case 10
x = 40
End Select
Text2.Text = x
End Sub
程序运行后,如果在文本框Text1中输入5,然后单击命令按钮,则在Text2中显示的内容是:   
阅读程序
1、Private Sub Command1_Click()
Dim x%, y%
x = InputBox("请输入x的值:")
Select Case x
Case 1, 3, 5
  y = x - 1
Case 6 To 10

版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。