VB程序设计练习题
《VB程序设计》综合复习资料
第一章Visual Basic程序设计概述
一、填空题
1、Visual Basic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。
2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。
3、执行“工程”菜单下的__________命令，可选择并添加ActiveX控件。
4、Visual Basic 6.0用于开发__________环境下的应用程序。
二、选择题
1、下面不是VB工作模式的是（）
A．设计模式B．运行模式C．汇编模式D．中断模式
2、可视化编程的最大优点是（）
A．具有标准工具箱
B．一个工程文件由若干个窗体文件组成
C．不需要编写大量代码来描述图形对象
D．所见即所得
3、下列不能打开属性窗口的操作是（）
A．执行“视图”菜单中的“属性窗口”命令
B．按F4键C．按Ctrl+T
D．单击工具栏上的“属性窗口”按钮
4、下列可以打开立即窗口的操作是（）
A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G
5、Visual Basic的编程机制是（）
A．可视化B．面向对象C．面向图形D．事件驱动
三、简答题
1、代码窗口主要包括哪几部分？
2、在工程资源管理器窗口中，主要列出了哪三类文件？
3、窗体布局窗口的主要用途是什么？
4、VB的基本特点是什么？
第二章简单的VB程序设计
一、填空题
2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。
4、设置控件背景颜色的属性名称是______________________。
5、所有控件都具有的共同属性是__________________属性。
6、一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是_______________。
7、VB中的每个对象（控件）都有一组特征，这组特征称为__________，我们通过修改它可以控制对象的外观和操作。
8、通常情况下，VB中一个工程主要包括如下四个文件：窗体文件、工程文件、类模块文件和_____________文件，后者的扩展名为.Bas，通常由Basic语言编写，是一个可共用的子程序。
9、VB有三种工作模式，分别是设计（Design）模式、_____________和中断（Break）模式。
二、选择题
A．文本框失去焦点B．文本框获得焦点
C．设置文本框的焦点D．改变文本框的内容
2、应用程序设计完成后，应将程序保存，保存的过程是（）
A．只保存窗体文件即可
B．只保存工程文件即可
C．先保存工程文件，之后保存窗体文件
D．先保存窗体文件（或标准模块文件），之后还要保存工程文件
3、VB应用程序的运行模式是（）
A．解释运行模式B．编译运行模式C．两者都有D．汇编模式
4、任何控件都具有的属性是（）
A．TEXT B．CAPTION C．NAME D．FORECOLOR
5、决定控件上文字的字体、字形、大小及效果的属性是（）
A．TEXT B．CAPTION C．NAME D．FONT
7、运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的TEXT属性进行赋值从而改变了文本框的TEXT属性值时，将触发文本框的（）事件
A．CLICK B．DBLCLICK C．GOTFOCUS D．CHANGE
12、在运行阶段，要在文本框TEXT1获得焦点时选中文本框中所有内容，对应的事件过程是（）
A．Private Sub Text1_GotFocus( )
Text1.SelStart=0
Text1.Sellength=Len(Text1.Text)
End Sub
B．Private Sub Text1_LostFocus( )
Text1.SelStart=0
Text1.Sellength=Len(Text1.Text)
End Sub
C．Private Sub Text1_Change( )
Text1.SelStart=0
Text1.Sellength=Len(Text1.Text)
End Sub
D．Private Sub Text1_SetFocus( )
Text1.SelStart=0
Text1.Sellength=Len(Text1.Text)
End Sub
13、Visual Basic继承了Basic语言简单易用的语法特点，同时支持面向对象的编程机制，其中构成其控件（对象）的三要素是（）
A．属性、事件、事件过程B．控件、窗体、事件
C．属性、过程、方法D．属性、事件、方法
15、命令按钮的标题文字由（）属性来设置。
A．Text B．Caption C．Name D．(名称)
16、若要设置文本的显示颜色，则可用（）属性来实现。
A．BackColor B．Forecolor C．FillColor D．Backstyle
第三章VB基本语言
一、填空题
1、一般可以使用__________关键字声明常量。
2、______类型也称变体类型，是一种通用的、可变的数据类型，它可表示或存储任何一种数据类型。
4、在VB中，用___________________语句设定数组的下界，用_____________和__________________语句分别返回数组的上、下界。
5、在代码模块中加入Option Explicit的目的是_____________________。
6、function aa (a1 as date,optional a2 as boolean) as single，写出optional命令的作用__________________。
7、在VB中，我们用一个简单的______语句就能实现退出程序。
8、生成消息框的命令是____________，生成输入框的命令是____________。
9、通用对话框（commondialog）属activex控件，它可以显示多个标准对话框，包括打开/另存为、字体、打印等对话框，若要显示所有文件，则应设置其属性filter=____________，若要使它显示为打印对话框，则应使用什么方法____________。
10、从字符串中任意位置截取字符的函数是__________。
11、语句For j = 3 To 20 Step 3 使循环体执行了______次。
13、在Visual Basic中声明静态变量的关键字是_________________。
14、表达式10 Mod 6 \ 4的值为______。
15、表达式chr(Asc("a") + 5)的值为_________。
16、VB中使用注释有2种方法，即________和________。
17、VB中的数据以四种形式存储：常量、_________、_________和记录。
18、为了在VB中存储一个4行5列的二维矩阵，需要定义一个整型的数组，请把数组定义语句补充完整：Dim Juzhen(_ _) as Integer。
19、控件数组由一组相同类型的控件组成，这些控件共用一个相同的控件名，但是每个控件都有一个唯一的下标来区分，我们使用属性__ __来设置下标。
22、分析For……Next循环结构的实例：For i = 5 To 30 Step 2 中，循环体一共执行了______次。
24、常量分为普通常量和__________常量。
25、要将大写字母转换为小写字母，可使用____________函数。
26、不管焦点在哪个控件上，按__________键相当于按了取消按钮。
28、__________是程序中VB停止执行的地方。
29、逻辑常量为True或__________。
31、要将小写字母转换为大写字母，可使用____________函数。
32、自字符串N1位开始向右取N2个字符，要使用_________________函数。
33、日期常量表示时，用符号__________将日期型数据括起来。
34、局部变量只能在__________中声明和使用。
35、模块级变量的声明关键字是Dim或__________。
36、函数Abs(x)的功能是__________。
37、表达式3/6*5的值是__________。
二、选择题
1、以下哪个是合法的变量（）
A．right B．abc@123 C．123_abc D．ab123c
2、下列说法错误的是（）
A．在同一模块不同过程中的变量可以同名
B．不同模块中定义的全局变量不可以同名
C．引用另一模块中的全局变量时，必须在变量名前加模块名
D．同一模块中不同级的变量可以同名
3、把MsgBox的返回值转换为数值应该使用的函数是（）
A．Log B．Str C．Len D．Val
4、语句DIM AA(3,4,5)中定义的数组有（）个元素
A．12 B．60 C．120 D．345
5、下面程序运行后输出的结果是（）
B$=STRING$(3,A$)
PRINT B$
END
A．CHI B．CCC C．INA D．AAA
6、以下语句的输出结果是（）
Print Format$(32548.5, "000,000.00")
A．32548.5 B．325,485.00 C．032,548,50 D．32,548,50
9、在Visual Basic中，若要将控制权交给操作系统则通过（）的语句。
A．End B．Exit Do C．Exit Sub D．DoEvents
11、假定有以下程序段：
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．17 D．18
12、从键盘上输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是（）
A．Left B．Mid C．String D．Instr
13、如果将布尔常量值TRUE赋值给一个整型变量，则整型变量的值为（）
A．0 B．-1 C．TRUE D．FALSE
14、下列叙述不正确的是（）
A．注释语句是非执行语句，仅对程序的内容起注释作用，它不被解释和编译
B．注释语句可以放在代码中的任何位置
C．注释语句不能放在续行符的后面
D．代码中加入注释语句的目的是提高程序的可读性
15、语句PRINT “INT(-13.2)”；INT(-13.2)的输出结果为（）
A．INT(-13.2)= -13.2 B．INT(-13.2)= 13.2
C．INT(-13.2)= -13 D．INT(-13.2)= -14
16、如果TAB函数的参数小于1，则打印位置在第（）列
A．0 B．1 C．2 D．3
17、变量未赋值时，数值型变量的值为（）
A、0 B．空C．1 D．无任何值
18、下列语句中正确的是（）
A．txt1.text+txt2.text=txt3.text B．https://www.wendangku.net/doc/4713189328.html,=cmdok
C．12label.caption=1234 D．a=inputbox(“hello”)
20、以下（）程序段可以实施X、Y变量值的变换（）
A．Y=X：X=Y B．Z=X：Y=Z：X=Y
C．Z=X：X=Y：Y=Z D．Z=X：W=Y：Y=Z：X=Y
21、语句PRINT “SGN(-26)=”；SGN(-26)的输出结果为（）
A．SGN(-26)=26 B．SGN(-26)= -26
C．SGN(-26)= +1 D．SGN(-26)= -1
22、读下面程序段，判断变量Str2的取值是（）
Dim Str1, Str2 as String
Str1="University"
Str2=STRING$(3,Str1)
C．ity D．yyy
24、一个工程中包含两个名称分别为Form1、Form2的窗体，一个名称为mdlFunc的标准模块。假定在Form1、Form2和mdlFunc中分别建立了自定义过程，其定义格式为：
Form1中定义的过程：
Private Sub frmfunction1()
End Sub
Form2中定义的过程：
Public Sub frmfunction2()
End Sub
mdlFunc中定义的过程：
Public Sub mdlFunction()
End Sub
在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是（）
A．上述三个过程都可以在工程中的任何窗体或模块中直接被调用
B．只有mdlFunction过程能够被工程中各个窗体或模块直接被调用
C．frmfunction1只能在form1中调用，而frmfunction2 则可以在所有模块或窗体中被直接调用
D．上述三个过程都只能在各自被定义的模块中直接调用
25、VB中Do……Loop结构既可以构成当型循环，也可以构成直到型循环，根据下面的代码：
Dim i,n as Integer
n = 20
i = 1
Do
Print i;
i = i + 2
Loop Until i >20
判断循环结构的类型和循环体的执行次数，正确的选项是（）
A．当型循环，20次B．直到型循环，10次
C．当型循环，10次D．直到型循环，20次
26、在程序中，使用InputBox函数可以接受用户的输入，如果要把它的返回值转换为数值型的数据，应该使用的函数是（）
A．Val B．Len
C．Str D．Log
28、VB中的控件也叫做部件或组件，主要包括三类，以下哪一项不属于VB控件的分类（）
A．控件B．可插入对象
C．ADO控件D．ActiveX控件
29、表达式4+5 \ 6 * 7 / 8 Mod 9 的值是（）
A．4 B．5 C．6 D．7
30、可以同时删除字符串前导和尾部空白的函数是（）
A．Ltrim B．Rtrim C．Trim D．Mid
四、读程序题
1、分析以下程序，写出运行结果。
Private Sub Form_Click()
score = Int(Rnd * 10) + 80
Select Case score
Case Is < 60
A$ = "F"
A$ = "D"
Case 70 To 79
A$ = "C"
Case 80 To 89
A$ = "B"
Case Else
A$ = "A"
End Select
Print A$
End Sub
2、读下面的程序，分析其功能，写出运行结果。
在窗体上有一个命令按钮，名称为Command1。然后编写如下程序：Private Sub Command1_Click()
For I = 1 To 4
For J = 0 To I
Print Chr$(65 + I);
Next J
Next I
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是什么？
3、阅读下面的程序，分析并写出其功能。
Sub insert(a() As Single,ByVal x As Single)
Dim m as integer,n as integer
n=1
Do While n<20 And x>a(n)
n=n+1
Loop
For m=20-1 To n Step –1
a(m+1)=a(m)
Next m
a(n)=x
End Sub
4、分析以下程序，写出运行结果。
Sub subP(b() As Integer)
For i =1 To 4
b(i)=2*i
Next i
End Sub
Private Sub Commandl_Click()
Dim a(1 To 4)As Integer
a (1)=5
a (2)=6
a (3)=7
a (4)=8
For i =1 To 4
Print a(i)
Next i
End Sub
运行上面的程序，单击命令按钮，输出结果是什么？
5、分析以下程序，写出运行结果。
Sub sele()
Dim n as Integer
i=21:n=3
Do While i>n
i=i－n
Loop
Print i
End Sub
6、分析以下程序，写出运行结果。
Sub selectPrint()
Dim a as Integer
Dim b as Integer
Dim c as Integer
a=2:b=5:c=2
If(a>=b)and(a>=c) or (b>c) Then
Print a
a=a+2
Else
Print b
EndIf
Print a;b;c
End Sub
7、分析以下程序，写出运行结果。
Sub swap()
Dim x as Integer
Dim y as Integer
Dim z as Integer
x=1:y=2:z=0
Print x;y;z
x=x+y
x=x*z
Print x,y,z
End Sub
8、分析以下程序，写出运行结果。
Sub selectPrint()
Dim a as Integer
Dim b as Integer
Dim c as Integer
a=3:b=3:c=2
If(a>=b)and(a>c)Then Print a
End Sub
五、编程题
1、输入一年号，判断它是否是闰年。界面如下图所示，包括两个标签、一个文本框和一个命令按钮。提示：如果此年号能被400整除或者不能被400除尽，也不能被100除尽，但能被4整除，则它是闰年；否则，不是闰年。
2、输入两个正整数m、n，求m和n的最大公约数。要求建立如下图所示的窗体，其中主要的控件包括：两个标签（Lable1、Lable2）、两个文本框（Text1、Text2）和一个按钮（Command1）。
7、随机输入10个100以内的整型数，计算其和及平均值。
9、从键盘输入一个大于2的正整数，判断该数是否是素数。
12、输入一个正整数n，计算出n!并输出。
第四章常用控件与窗体
一、填空题
1、向列表框控件添加新项目的方法是__________。
2、在VB中，最主要的两种对象是____________和____________。
7、在标签控件中通过编程使文字换行用的代码是___________________。
8、设置计时器控件只能触发______________________事件。
9、设置计时器对象触发事件的时间间隔用_____________________属性。
10、滚动条控件主要支持两个事件，它们是_______________事件。
11、要使鼠标停留在按钮上显示特殊的鼠标形状，应设置的属性值是_________________。
14、列表框（ListBox）用于列出可供选择的项目的列表，用户可以选择一个或多个项目。它具有几个非常重要的数组属性，其中__ __属性存放了列表框中所有项目的值。
17、控件________组合了文本框和列表框的功能，是VB中一种功能非常强大的选择类控件。
二、选择题
1、当程序运行时，在窗体上单击鼠标，以下哪个事件是窗体不会接收到( )
A．MouseDown B．MouseUp C．Load D．Click
2、窗体Form1的Name属性是Frm1，它的单击事件过程名是（）
A．Form1_Click B．Form_Click C．Frm1_Click D．Me_Click
6、下列关于属性设置的叙述错误的是：（）
A．一个控件具有什么属性是VB预先设计好的，用户不能改变
B．一个控件具有什么属性是VB预先设计好的，用户可以改变
C．一个控件的属性即可以在属性窗口中设置，也可以用程序代码设置
D．一个控件的属性在属性窗口中设置，还可以利用程序代码为其设置新值
7、下列说法正确的是（）
A．对象属性只能在“属性窗口”中设置
B．一个新的工程可以在“工程窗口”中建立
C．必须先建立一个工程，才能开始设计应用程序
D．只能在“代码窗口”中编写程序代码
9、下列关于设置控件属性的叙述正确的是（）
A．用户必须设置属性值
C．属性值不必一一重新设置
D．不同控件的属性项都完全一样
15、计时器（Timer）控件用于每隔一段时间自动触发一次Timer事件，可以有规律地重复执行一段程序，它用于设置两次事件时间间隔的属性是（）
A．Interval B．SmallChange
C．LargeChange D．Max
17、关于滚动条控件，下面说法错误的是（）
A．点击滚动条的箭头，可以改变它的value值，从而引发Change事件
B．拖动滚动框，可以触发Scroll事件
C．通常，水平滚动条的值从左向右递增，垂直滚动条的值自上而下递增
D．拖动滚动框，可以触发Change事件，而且是连续触发的
18、在窗体上放置一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程：
PriV ate Sub Command1_C1ick()
a$="software and hardware"
b$＝Right(a$,8)
c$=Mid(a$,1,8)
Msgbox a$,b$,c$,1
End Sub
则在弹出的信息框的标题栏中显示的信息是（）
A．softWare and hardware B．software
C．hardwafe D．出现错误
20、滚动条控件的属性中，表示取值范围最大值的属性是（）
A．Max B．LargeChange
C．Min D．Value
21、程序中如果需要检测和控制鼠标的位置和状态的改变，就需要使用鼠标事件，其中下面哪个选项用于表示拖动事件（）
A．DragDrop B．MouseDown
C．MouseUp D．MouseMove
四、读程序题
1、对窗体编写如下代码：
Option Base 1
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
End If
Next i
End If
Print m1
Print m2
End Sub
2、阅读下面的程序，写出执行结果。
Private Sub Form_load() Form1.show d = 0
For a = 1 To 2 For b = 1 To a For c = b To 5 d = d + 1 Next c Next b Next a Print d End Sub
五、编程题
1、在窗体上有一个文本框控件，名称为TxtTime ；一个计时器控件，名称为Timer1，要求每一秒在文本框中显示一次当前的时间，请编程实现。
2、在Text1中输入任一英文字母，在Text2中显示该英文字母及其ASCII 码值。要求在文本框Text2中显示出所有输入的英文字母及其ASCII 码值，如下图所示。
六、程序分析填空题
2、计算1 + 2 + 3 + …… + 100的和并输出。请把下面用Do While ……Loop 循环结构实现这一功能的代码补充完整。
Private Sub Form_Load()
Dim sum,count as Integer ‘请补充
Do while count <=100 ‘请补充
Loop
Text1.Text = sum End Sub
4、要求利用计时器Timer1，在窗体Form1上每隔1秒钟打印一个1到10的随机整数，请把下列代码补充完
Text1
Text2
Command1
Private Sub Form_Load()
Show
‘请补充
End Sub
Private Sub Timer1_Timer()
‘请补充
End Sub
第五章文件
一、填空题
1、文件按存取方式及其组成结构可分为________________文件、__________文件和______________文件。
2、为了使文件列表框List1和目录列表框Dir1之间能产生同步效果，必须在______________事件过程中加入语句__________________________。
3、文件系统控件的作用是向用户显示系统中的文件，方便用户选择，它是一组控件的组合，包括：驱动器列表框、__ __和文件列表框。
三、简答题
2、文件存取分成几类，几种模式？
4、文件有哪几种类型？它们的区别是什么？
参考答案
第一章Visual Basic程序设计概述
一、填空题
1、对象、事件驱动
2、Vbp、frm、bas
3、部件
4、WINDOWS
二、选择题
1、C
2、C
3、C
4、D
5、D
第二章简单的VB程序设计
一、填空题
2、Left、top、height、width
4、backcolor
5、name
6、name和caption
7、属性
8、标准模块文件
9、运行模式
二、选择题
1、D
2、D
3、C
4、C
5、D7、D 12、A13、D15、B1
6、B
第三章VB基本语言
一、填空题
1、Const
2、Variant
4、option base、ubound、lbound
5、强制变量声明
6、表示a2是一个可选参数
7、End
8、Msgbox、Inputbox
9、*.*、showprint
10、Mid()
11、6
13、static
14、0
15、f
16、rem、’
17、变量、数组
18、1 to 4,1 to 5
19、In dex
22、13
24、符号
25、LCase
26、ESC
28、断点
29、False
31、UCase
32、Mid
33、#
34、过程
35、private
36、求x的绝对值
37、2.5
二、选择题
1、D
2、B
3、D
4、C
5、B
6、C 9、D 11、A 12、D 13、B 14、B 15、D 16、B 1
7、A 1
8、D 20、C 21、
D 22、B24、B25、B 26、A28、C29、B
四、读程序题
1、结果如下：
B
2、结果如下：
BB
CCC
DDDD
EEEEE
3、功能如下：
在20个由小到大排列的数据中插入一个数，插入数据后的数据仍按由小到大的顺序排列。
4、输出结果为：
2
4
6
5、输出结果为：
3
6、输出结果为：
2
452
7、输出结果为：
120
0 2 0
8、输出结果为：
3
3 3 2
五、编程题
1、参考代码如下：
Private Sub Command1_Click()
Dim year, x As Integer
year = Val(Text1.Text)
If year Mod 400 = 0 Then
Label2.Caption = "是闰年"
Else
' 下面是嵌套块If语句
If year Mod 4 = 0 And year Mod 100 <> 0 Then
Label2.Caption = "是闰年"
Else
Label2.Caption = "不是闰年"
End If
End If
End Sub
2、程序参考代码如下：
Private Sub Command1_Click()
Dim m, n, r As Integer
m = Val ( Text1.Text )
n = Val ( Text2.Text )
If m < 0 Or n < 0 Then ‘若判断为非法数据，Then子句输出相应信息
Label2.Caption = "输入数据有错！"
Else ‘若判断为合法数据，Else子句用辗转相除法求余数r = m Mod n
Do While r <> 0
m = n
n = r
r = m Mod n
Loop
‘ 循环结束后n中存放的就是最大公约数，输出n值
Label2.Caption = "最大公约数为：" & n
End If
End Sub
Private Sub Form_Load()
Dim i As Integer
Show '使输出可见
Form1.Font = "新宋体"
For i = 9 To 16 Step 1
Form1.FontSize = i
Print i; "号字型"
Next i
End Sub
7、参考代码如下：
Private Sub Form_Click()
Dim a(10) As Integer, i As Integer
Dim sum As Integer, ave As Integer
sum = 0
For i = 1 To 10
a(i) = Int(Rnd * 101)
sum = sum + a(i)
Next i
ave = sum / 10
Print sum, ave
End Sub
9、程序参考代码如下：
Private Sub Command1_Click()
Dim m, i, y As Integer
m = Val(Text1.Text)
If m <= 2 Then
Label2.Caption = "输入数据有错"
Else
k = Sqr(m) + 1
For i = 2 To k
y = m Mod i
If y = 0 Then Exit For
Next i
If y = 0 Then
Label2.Caption = m & "不是素数"
Else
Label2.Caption = m & "是素数"
End If
End If
End Sub
12、参考代码如下：
Private Sub Command1_Click()
Dim n, i, t As Long
i = 1: t = 1
If n < 0 Then
Label2.Caption = "error"
ElseIf n = 0 Then
Label2.Caption = "0!=1"
Else
Do While i <= n
t = t * i
i = i + 1
Loop
Label2.Caption = n & "!=" & t
End If
End Sub
第四章常用控件与窗体
一、填空题
1、AddItem
2、窗体、控件
7、chr(10)
8、timer
9、interval
10、scroll和change事件
11、mousepointer
14、List
17、组合框
二、选择题
1、C
2、B 6、A7、C9、C15、A17、D 18、D 20、A 21、C
四、读程序题
1、输出结果为：
498
5
2、结果如下：
14
五、编程题
1、参考代码如下：
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Txttime.text = Time
End Sub
2、参考代码如下：
Private Sub Command1_Click()
Char = Trim(Text1.Text)
Text2.Text = Text2.Text & Spc(5) & Char & _
Spc(10) & Str(Asc(Char)) & chr(13)&chr(10)
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
六、程序分析填空题
2、结果如下：
Private Sub Form_Load()
Dim sum,count as Integer
‘请补充
Sum = 0
Count = 0
Do while count <=100
‘请补充
Count = count + 1
Sum = sum + count
Loop
Text1.Text = sum
End Sub
4、结果如下：
Private Sub Form_Load()
Show
‘请补充
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
‘请补充
Form1.Print Int(Rnd*10) + 1
End Sub
第五章文件
一、填空题
1、顺序、随机、二进制
2、dir1的chang、list1.path=dir1.path
3、目录列表框
三、简答题
2、文件的存取分为顺序型、随机型、二进制型，其编码方式分为ASCⅡ码文件和二进制文件。
4、
VB期末考试试题及答案
二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value
7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。
《VB程序设计》考试题型练习 答案
《VB 程序设计》考试题型练习 一. 填空 1. VB 中的对象具有 属性 、 事件 、和 方法 三种特性，它们是构成对象的三个基本要素。 2. VB 中的常量分为哪三种： 文字常量 、 符号常量（用户自定义常量） 系统内部常量 。 3. 变量的三要素是指： 变量的名 、 变量的数据类型 、 变量的值 。 4. VB 中日期型数据的表示格式为： #mm/dd/YYYY#或#mm-dd-YYYY# 。 5. 在VB 中，“\”是 整除 运算符；“/”是 浮点除 运算符。两个字符串可以使用连接符 &或+ 串接起来。 6. 2 22z y x z y x ++++的VB 表达式为 （x+y+z ）/sqr(x^2+y^2+z^2) 。 7. a ac b b 242-+的VB 表达式为 (b+sqr(b^2-4*a*c))/(2*a) 。 8. 计时器控件的 Interval 属性用于设置Timer 事件发生的时间间隔，为了使计时器控件Timer1每隔0.5秒触发一次Timer 事件，应将该属性设置为 500 ；为了暂时关闭计时器，应把该计时器的 Enable 属性设置为False 。 二. 单选题 1. 如果要使VB 程序运行时不能对文本框中的内容进行编辑，需将文本框的哪个属性设置为True （ D ）。 A ）MultiLine B ）Visible C ）TabStop D ）Locked 2. 表达式Right("asdf", 2)+Ucase("as" )的值为（ A ）。 A ）dfAS B ）asAS C ）dfas D ）asas 3. 执行如下语句： a ＝InputBox("Today", "Tomorrow", "Yesterday") 将显示一个输入对话框，在对话框的输入区中的默认值是（ C ）。 A) Today B) Tomorrow C) Yesterday D) Today Tomorrow Yesterday 4. 设a=3，b=5，则以下表达式值为真的是（ B ）。 A) a>=b And b>10 B) (a>b) Or (b>0) C) (a<0) Or Not (b>0) D) (-3+5>a) And (b>0)
VB程序设计习题
练习一 一、选择题 1、下面列出的程序设计语言中（A ）是面向问题的语言。 A、机器语言 B、汇编语言 C、高级语言 D、0、1二进制语言 解释：机器语言和汇编语言都是面向机器的语言，二进制语言为机器语言，故其为面向机器的语言 2、下面列出的程序设计语言中（C ）不是面向对象的语言。 A、C B、C++ C、Java D、VB 3、下列（D ）不属于VB 6.0的版本。 A、学习版 B、专业版 C、企业版 D、共享版 解释：VB6.0共有三个版本：标准版、专业版、企业版。而其中的标准版是为初学者了解基于windows的应用程序开发而设计的，也可称为学习版。 二、填空题 1、从程序设计语言发展过程的角度来分类，计算机程序设计语言分：机器语言、汇编语言和高级语言。 2、VB 6.0采用了面向对象、事件驱动（可视化编程）的编程机制。 3、启动VB 6.0后可以从“现存”选项卡选择并打开系统中现存的工程文件。 练习二 一、选择题 1、如果窗体对象的名称为Forma1，Backcolor是窗体对象的一个属性，用来设置窗体的背景色，那么设置窗体背景色为蓝色的语句正确的是（ A ） A、Forma1.Backcolor=vbBlue B、Backcolor= vbBlue C、Forma1 =vbBlue D、Forma1′s Backcolor is vbBlue. 2、下面方法中，不能打开编码编辑器的是（D） A、单击“视图”菜单中的“代码窗口”命令。 B、双击窗体设计器的窗体或控件。 C、双击窗体设计器的窗体或控件，单击工程资源管理器中的“查看代码”按钮。 D、双击窗体设计器的窗体或控件，单击标准工具栏中的“代码窗口”按钮。 3 、保存VB应用程序时，下列方法中正确的是（Ａ） A、先保存窗体文件，再保存工程文件。 B、先保存工程文件，再保存窗体文件 C、直接保存窗体文件，系统会自动按顺序先保存窗体文件再保存工程文件。 D、直接保存窗体文件，系统会自动按顺序先保存工程文件再保存窗体文件。 二、填空题 1、VB工程文件的扩展名是工程文件(*.vbp)，窗体文件的扩展名是窗体文件(*.frm)。 2、选中工程资源管理器中的窗体对象，再单击按钮可打开窗体设计器。 3、在VB中，按下工具栏中的“启动”按钮或
VB程序设计期末考试复习题
VB复习题 一．选择题 1．使用声明语句建立一个数值型的变量后，VB自动将该变量初始化为（B）。 A．空值 B．0 C．1 D．Null 2．使用声明语句建立一个字符型的变量后，VB自动将该变量初始化为（ A ）。 A．空值 B．0 C．1 D．Null 3．使用声明语句建立一个布尔型的变量后，VB自动将该变量初始化为（A ）。 A．False B．0 C．1 D．True 4．关于 VB 中的运算符，以下说法正确的是（）。 A．“×”是算术运算符，含义是“乘法运算” B．“≠”是关系运算符，含义是“不等于” C．“!”是逻辑运算符，含义是“非” D．“And”是逻辑运算符，含义是“与” 5．对象的三要素是（）。 A．属性、事件、程序 B．属性、事件、方法 C．窗体、事件、程序 D．语句、函数、程序 6．VB中，表达式10<2 Or Not 5>2+6的值为（）。 A．TRUE B．FALSE C．0 D．出错 7．VB中，表达式Mid$("南京工程学院",3,4)的结果是（）。A．"工程学院" B．"京工程学" C．"程学院" D．"工程" 8．在VB中，应用程序被称为（）。 A．工程 B．窗体 C．属性 D．对象 9．VB中，事件Click由（）引发。 A．移动鼠标 B．左键单击鼠标 C．双击鼠标 D．右键单击鼠标 10．VB中，隐藏窗体的方法是（）。 A．Unload B．Stop C．Hide D．Show 11．在Visual Basic中最基本的对象是（），它是应用程序的基石，也是其它控件的容器。 A．文本框 B．命令按钮 C．窗体 D．标签 12．VB窗体文件的扩展名为（）。 A．VBP B．FRM C．BAS D．EXE
vb程序设计试题(含答案)
第一套试题 一、选择题（每题2分，共30分） 1.在VB环境中，工程文件的扩展名是( C ) （A）.frm （B）.bas （C）.vbp （D）.frx 2.下面4项中不属于面向对象系统三要素的是( A ) （A）变量（B）事件（C）属性（D）方法 3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C ) （A）\ （B）/ （C）Mod （D）* 4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor （C）AutoRedraw （D）Caption 5.不论何控件，共同具有的属性是( B ) （A）Text （B）Name （C）ForeColor （D）Caption 6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞 7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D ) （A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构 （C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构 8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D ) （A）“12334”（B）123 （C）12334 （D）157 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D ) （A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1 （C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+1 10.若要清除列表框的所有内容，可用来实现的方法是( C )
VB题库—程序设计[1]
程序设计 〖第1题〗『程序设计』(5分)(题号:148) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)求10~20之间所有素数的乘积并输出在窗体上。 ' 将结果存入变量L中。 '------------------------------------------------- '注意：请在指定的事件内编写代码。 '------------------------------------------------- 答案：---------------------- Dim i As Integer Dim j As Integer Dim b As Boolean l = 1 b = False For i = 10 To 20 For j = 2 To i - 2 If i Mod j = 0 Then b = True End If Next If b = False Then l = l * i End If b = False Next Print Str(l) ---------------------- 〖第2题〗『程序设计』(5分)(题号:150) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)求1 - 1/2 + 1/3 - 1/4 + ……+ 1/99 - 1/100的值。' 将结果存入变量J中。 '------------------------------------------------- '注意：请在指定的事件内编写代码。 '------------------------------------------------- 答案：---------------------- Dim i As Integer For i = 1 To 100 If i Mod 2 = 1 Then j = j + 1 / i ElseIf i Mod 2 = 0 Then j = j - 1 / i End If Next Print j ---------------------- 〖第3题〗『程序设计』(5分)(题号:131) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100， ' 结果输出在窗体上。 '------------------------------------------------- '将结果存入变量S中 '------------------------------------------------- 答案：---------------------- Dim i As Integer s = 0 For i = 1 To 10 s = s + 1 / (i ^ i) Next Print (s) ---------------------- 〖第4题〗『程序设计』(5分)(题号:152)
VB程序设计编程考试~题及答案~
VB程序设计编程考试题及答案 1.输入3个数，输出最大的数 Private Sub command1_click() Dim max For i = 1 To 3 n = Val(InputBox("输入第" & i & "个数")) If n > max Then max = n End If Next Print "三个数中最大的数是" ; max End Sub 2.有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根 Private Sub Command1_Click() Dim a, b, c, n a = Text1 b = Text2 c = Text3 n = b * b - 4 * a * c If n >= 0 Then Label4 = "方程有根" Else Label4 = "方程无根" End If End Sub 3.输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示“恭喜！成绩通过！”， 若小于60，则弹出消息框，显示“抱歉！成绩没有通过！ Private Sub Form_Load() Text1 = "" End Sub Private Sub Command1_Click() Dim n n = Text1 If n > =60 Then Val (MsgBox("恭喜！成绩通过！")) Else Val (MsgBox("抱歉！成绩没有通过！")) End If End Sub 4.输入一年份，判断它是否为闰年，并显示有关信息。（判断闰年的条件是：年份能被4整 除但不能被100整除，或者能被400整除） Private Sub Command1_Click() Dim y%
vb题库程序设计
一、程序设计 '【程序设计】 1.'题目：编写函数fun，函数的功能是：计算两个正整数的最大公约数，并显示。如：'两个数为15、20，结果显示"5" '要求使用Do ... Loop语句来实现。 答案：Do r = m Mod n If r = 0 Then Exit Do m = n n = r Loop fun = n 2.'题目：判断一个数是否是素数。 答案：---------------------- Dim i As Integer Prime = True For i = 2 To Int(Sqr(m)) If m Mod i = 0 Then Prime = False: Exit For Next i ---------------------- 3,'题目：(事件)单击窗体。 ' (响应)求10!的值，并将结果输出到窗体上。 将结果存入变量SUM中。 答案：---------------------- Dim i As Integer sum = 1 For i = 1 To 10 sum = sum * i Next Print sum 4,'题目：(事件)单击窗体。 (响应)求1+2+3+……+100的值，并把结果输出在窗体上。结果存入变量SUM中。 答案：---------------------- Dim i As Integer For i = 1 To 100 sum = sum + i Next Print sum ---------------------- 5,'题目：编写函数fun，函数的功能是：求1到m之间的偶数之积。 答案：---------------------- Dim y As Double y = 1 Dim i As Integer For i = 1 To m
《VB程序设计》综合复习资料习题
《VB程序设计》综合复习资料习题
《VB程序设计》综合复习资料 第一章Visual Basic程序设计概述 一、填空题 1、Visual Basic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。 2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。 3、执行“工程”菜单下的__________命令，可选择并添加ActiveX控件。 4、Visual Basic 6.0用于开发__________环境下的应用程序。 二、选择题 1、下面不是VB工作模式的是（） A．设计模式B．运行模式C．汇编模式D．中断模式 2、可视化编程的最大优点是（） A．具有标准工具箱 B．一个工程文件由若干个窗体文件组成 C．不需要编写大量代码来描述图形对象 D．所见即所得 3、下列不能打开属性窗口的操作是（） A．执行“视图”菜单中的“属性窗口”命令 B．按F4键C．按Ctrl+T D．单击工具栏上的“属性窗口”按钮 4、下列可以打开立即窗口的操作是（） A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G 5、Visual Basic的编程机制是（） A．可视化B．面向对象C．面向图形D．事件驱动 三、简答题 1、代码窗口主要包括哪几部分？ 第 2 页共 32 页
2、在工程资源管理器窗口中，主要列出了哪三类文件？ 3、窗体布局窗口的主要用途是什么？ 4、VB的基本特点是什么？ 5、怎样理解可视化设计？ 6、怎要理解事件驱动编程？ 第二章简单的VB程序设计 一、填空题 1、设置是否可以用Tab键来选取命令按钮，应该用______________属性。 2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。 3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点。 4、设置控件背景颜色的属性名称是______________________。 5、所有控件都具有的共同属性是__________________属性。 6、一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是_______________。 7、VB中的每个对象（控件）都有一组特征，这组特征称为__________，我们通过修改它可以控制对象的外观和操作。 8、通常情况下，VB中一个工程主要包括如下四个文件：窗体文件、工程文件、类模块文件和_____________文件，后者的扩展名为.Bas，通常由Basic语言编写，是一个可共用的子程序。 9、VB有三种工作模式，分别是设计（Design）模式、_____________和中断（Break）模式。 二、选择题 1、以下能够触发文本框Change事件的操作是（） A．文本框失去焦点B．文本框获得焦点 C．设置文本框的焦点D．改变文本框的内容 2、应用程序设计完成后，应将程序保存，保存的过程是（） A．只保存窗体文件即可 B．只保存工程文件即可 第 3 页共 32 页
《VB程序设计》期末考试试卷(A)附答案
******学院 2009-2010学年第二学期 《VB程序设计》期末考试试卷（A）附答案 一、选择题（2分/题，共60分） （1）要设置窗体上各控件的属性，可以在＿＿＿中进行。 A“窗体布局”窗口B“工程资源管理器”窗口 C“属性”窗口D“对象”窗口 （2）下面程序段＿＿＿能够正确实现目的：如果x （5）双击窗体中的对象后，VB将显示的窗口是＿＿＿。 A工具箱B“工程”窗口 C“代码”窗口D“属性”窗口 （6）下列程序段的执行结果是＿＿＿。 X=int(Rnd()+4) Selectcasex Case5 Print“优秀” Case4 Print“良好” Case3 Print”通过” Caseelse Print”不通过” Endselect A优秀B良好 C通过D不通过 （7）下列哪个不是窗体的属性＿＿＿。 ACaptionBText CControlBoxDBorderStyle （8）设组合框Combo1中有3个项目,则以下能删除最后一项的语句是＿＿＿。 ACombo1.RemoveItemTextBCombo1.RemoveItem2 CCombo1.RemoveItem3DCombo1.RemoveItemCombo1.Listcount （9）窗体BorderStyle属性的功能是＿＿＿。 A设置窗体的边框大小 B设置窗体的边框样式，是否显示标题栏，是否可以调整大小等 C决定是否显示窗体的控制菜单图标与状态控制按钮 D决定窗体的最大化或最小化按钮是否有效 （10）下列可作为VB的变量名的是＿＿＿。 《VB程序设计基础》试题 一、选择题：（每空 2 分，共 20 分） 1. 与传统的程序设计语言相比,Visual Basic最突出的特点是___________。 A. 结构化程序设计 B. 程序开发环境 C. 事件驱动编程机制 D. 程序调试技术 2. Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是________。 A. 属性、事件、方法 B. 控件、属性、事件 C. 窗体、控件、过程 D. 窗体、控件、模块 3. 窗体模块保存在一个扩展名为__________的文件中。 A. bas B. vbp C. vbg D. frm 4. 下面正确的赋值语句是_________。 A. x+y=30 B. y=π*r*r C. y=x+30 D. 3y=x 5. 设S=“492”，表达式Right（S,1）+Left（S,1）+Mid（S,2,1）的值为__________。 A.“492” B.“249” C.“294” D.“429” 6. 将数学表达式a≤b≤c写成Visual Basic表达式，正确的是__________。 A. a<=b<=c B. a<=b Or b<=c C. a<=b And b<=c D. a<=b Not b<=c 7.为了把焦点移到文本框，所使用的方法是___________。 A. SetFocus B.Visible C.Refresh D.GetFocus 8. INT（100*RND）产生的随机整数的闭区间是_____________。 A.[0，100] B.[1，100] C.[1，99] D.[0，99] 9. 一个数组说明为Dim a(0 to 5，1 to 5) As Integer，则该数组共有_________个 元素。 A. 5 B. 36 C. 30 D. 不确定 10. 下面过程定义语句合法的是____________。 《VB程序设计》期末模拟试卷 一、单项选择 （b ）1．被对象所识别的动作与对象可执行的动作分别称为对象的___________。 A．方法、事件 B．事件、方法 C．事件、属性 D．过程、属性 （ c）2．下列________是Single型变量。 A．Time% B．Name$ C．Sheight! D．CXYZ& （a ）3．以下四个VB的变量名中，合法的是____________。 A．X23 B．$Re C． Len D．3xy （ d）4．在程序中使用 Dim str1,str2 As Long 语句对变量str1、str2进行声明后，下面正确的说法是________。 A. str1是整型，str2是长整型 B. str1是长整型，str2变体型 C. str1、str2都是长整型 D. str1是变体型，str2是长整型 （b ）5．表达式(&O36>31) and (“A”>”B”) 的结果是 ____________。 A．True B．False C．”&O3631AB” D．&O3631 （c ）6．表达式“100” + 100 和表达式“100” & 100的值分别是 ____________。 A．200、200 B．“100100”、“100100” C．200、“100100” D．“100100”、200 （b ）7．以下语句执行时，从键盘上输入Zhao，并按回车键。执行结果是________。 Dim a As String A=InputBox("Input", "", "Name") Print a A．Input B．Zhao C．Name D．空字符串 （b）8．语句Print 4 + 5 \ 6 * 7 / 8 Mod 9的运行结果是________。 A．4 B．5 C．6 D．7 （ d）9．在窗体的通用段声明变量时，不能使用__________ 关键字。 A．Dim V B程序设计试题及答案（一） 一、单选题 1. VB6.0是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) Forml.Caption=“欢迎使用VB” (B) Forml.Caption='欢迎使用VB' (C) Forml.Caption=欢迎使用VB (D) Forml.Caption="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 …… 中南大学现代远程教育课程（专科）考试复习题及答案 《VB程序设计与应用》 一、选择题：在每小题给出的四个选项中，只有一项是符合题目要求的，请把所选项前的字母填在 题后的括号内。 1. Visual Basic程序中分隔一行中各语句的字符是（）。[ ] A)‘ B): C)\ D)_ 2. 下列可作为Visual Basic的变量名的是（）。[ ] A: Filename B: A（A＋B）C: A%D D : Print 3. 要让菜单项无效，应将（）属性值设置为False。 [ ] A. Visible B. Enabled C. Moveable D. Checked 4. 以下过程是（）事件。 Prviate Sub Form_Load( ) …… End Sub [ ] A: 命令按钮的单击B: 命令按钮的装载 C; 窗体的装载D: 窗体的单击 5. Vb中描述文件扩展名的是（）属性。[ ] A: Drive B: Pattern C: FileName D: Path 6. 关于Visual Basic中事件的说法中，不正确的为（）。[ ] A)事件是由Visual Basic预先定义好的，能够被对象识别的动作 B)DblClick（双击）是Visual Basic中的一种事件 C)一个对象可以识别一个或多个事件 D)对于一个系统提供的对象可以识别哪些事件，需要程序员自己定义 7. 下列控件中可设置滚动条是（）。 [ ] A. 检查框（复选框） B. 框架 C. 文本框 D. 标签框 8. 在Visual Basic中建立一个空窗体，( )不会是其默认名。 [ ] A. Form1 B. Form2 C. Formx D. Form10 9. Const One&=1，则One为（）类型的常数。[ ] A)整型 B)字节型 VB程序设计期末考试题 一、选择题 1 下列常量中，是Integer类型常量的是（ C ）。 A、123& B、-38844 C、123% D、32768 2 下面选项中()是字符连接运算符. A A、& B、And C、% D、Mod 3 下面关于VB的集成开发环境（IDE）的叙述中，不正确的是（ B ）。 A、IDE是设计、调试、运行VB程序的工具。 B、用户不能随意关闭IDE中的窗口。 C、"窗体设计" 窗口是用来设计应用程序界面（窗体）的。 D、打开 / 关闭各窗口的命令主要在IDE的"视图"菜单中。 4 len(“vb程序设计”)=( C ) 。 A、 5 B、2 C、 6 D、10 5 表达式 15 Mod 4 + 13 \ 5 * 2 的值是 D A、7 B、0 C、2 D、4 6 赋值语句A=123 + Mid$( “123456”,3,2) 执行后，A=（A）。 A、157 B、12334 C、123 D、"12334" 7 在一个语句内写多条语句时,用来分隔每条语句的符号是(C). A、, B、; C、: D、、 8 将逻辑型数据转换成整型数据时，转换规则是（ D ）。 A、将True转换为 1 ，将False转换为 0 B、将True转换为 1 ，将False转换为 -1 C、将True转换为 0 ，将False转换为 -1 D、将True转换为 -1 ，将False转换为 0 9 表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(D). A、SIN B、4^5 C、3*4 D、x+1 10 如果x=2，则表达式x+1>2 Or sin(x)>0.9 And 3>x+3的值（ B ）。 A、不能计算 B、 True C、5 D、False 11 随机产生[10，50] 之间整数的正确表达式是（ D ）。 A、Round( Rnd*50) B、 Int(Rnd*40+10) C、Round( Rnd*51) D、 10+Int(Rnd*41) 12 每建立一个窗体,工程管理器窗口中就会增加一个(C). A、类模块文件 B、工程文件 C、窗体文件 D、程序模块文件 13 INT(100*RND(1))产生的随机整数的闭区间是(B). A、[1,100] B、[0,99] C、[0,100] D、[1,99] 14 下列数据类型中,占用内存最小的是(D). A、Integer B、Single C、Boolean D、Byte 15 VisualBasic是一种()程序设计语言.B A、过程式 B、非过程式 C、机器 D、低级 16 函数Int(10*Rnd)是在(A)范围内的整数. A、[0,9] B、[0,1] C、[1,9] D、[1,10] 17 以下合法的一组Visual Basic用户标识符是 C A、Sum 和 8abc B、a#x 和 Pi C、ForLoop 和 Total D、Const 和 DoWhile 《VB程序设计》试卷试卷十五 一、判断题（共10分，每题1分，在答题卡上回答，A表示正确，B表示错误） 1. 窗体中只能有一个命令按钮设置Default属性为True，在任何情况下，按 优质文档VB程序设计考试题库——考试专用 1、题目：(事件)单击窗体(响应)用输入框输入一自然数，判断是"正数"、"负数或"零"，并根据输入的数用消息框显示"正数"、"负数”或"零"。 2、题目：(事件)单击窗体。(响应)求200~300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量SUM中 3、题目：单击窗体。(响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100，结果输出在窗体上。 4、题目：(事件)单击窗体。(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项，并求其和，将和保存在变量s中。 5、题目：(事件)双击窗体。(响应)把一元钞票换成一分、二分和五分的硬币每种至少有一枚），求出其所有的换法，把结果输出在窗体上。将所有的换法的数目存入变量N中 6、题目：单击窗体。)求1!+2!+3!+4!+5!并将结果输出到窗体上。结果存入变量S中 7、题目：(事件)单击窗体。(响应)生成一个一维数组(10个数组元素依此为： ' 15、23、72、43、96、23、3、65、88、17 写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。将最大值，最小值，平均值分别存入变量Max,Min,Aver中 8、题目：(事件)单击窗体。(响应)在窗体上输出100~200之间的所有合数。求出所有数之和存入SUM中所谓合数是指自然数中能被1和本数整除以外,还能被其他数整除的数。 9、题目：(事件)单击窗体。(响应)求10~20之间所有素数的乘积并输出在窗体上。将结果存入变量L中。 10、题目：(事件)单击窗体。(响应)求1 - 1/2 + 1/3 - 1/4 + ……+ 1/99 - 1/100的值。将结果存入变量J中。 1题 n = InputBox("输入一个自然数") If n > 0 Then result = "正数" ElseIf n < 0 Then result = "负数" ElseIf n = 0 Then result = "零" End If MsgBox "输入的数据" & n & "为：" & result 2题 Dim i As Integer For i = 201 To 300 If ((i Mod 3) = 0) And ((i Mod 7) = 0) Then Print (CStr(i)) sum = sum + i End If Next Print sum 3题 Dim i As IntegerVB程序设计 试题与答案-1
VB程序设计期末模拟试卷
VB程序设计试题及答案一
[整理]VB程序设计复习题及答案.
VB考试题及答案
VB程序设计试卷
VB程序设计考试题库 优质文档