vb程序设计复习题答案（精选6篇）
vb程序设计复习题答案 第1篇
《VB程序设计》综合复习资料
三、简答题
1、代码窗口主要包括哪几部分？
2、在工程资源管理器窗口中，主要列出了哪三类文件？
3、窗体布局窗口的主要用途是什么？
4、VB的基本特点是什么？
5、怎样理解可视化设计？
6、怎要理解事件驱动编程？
C．设置文本框的焦点 D．改变文本框的内容
2、应用程序设计完成后，应将程序保存，保存的过程是（d）
A．只保存窗体文件即可 B．只保存工程文件即可
C．先保存工程文件，之后保存窗体文件
D．先保存窗体文件（或标准模块文件），之后还要保存工程文件
3、VB应用程序的运行模式是（c）
A．解释运行模式 B．编译运行模式
C．两者都有
D．汇编模式
4、任何控件都具有的属性是（a）
A．TEXT B．CAPTION
C．NAME
D．FORECOLOR
5、决定控件上文字的字体、字形、大小及效果的属性是（D）
A．TEXT B．CAPTION
C．NAME
D．FONT
6、在窗体上建立了多个控件，如TEXT、LABEL1、COMMAND1，若要使程序一运行焦点就定位在COMMAND1控件上，应将COMMAND1控件的（B）设置为0 A．INDEX B．TABINDEX
C．TABSTOP
D．ENABLED
7、运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的TEXT属性进行赋值从而改变了文本框的TEXT属性值时，将触发文本框的（A）事件
A．CLICK B．DBLCLICK
C．GOTFOCUS
D．CHANGE
8、在运行时，按TAB键跳过了一个可以获得焦点的控件（如文本框），则可能是因为（B）
A．该控件的TABSTOP属性值为TRUE
B．该控件的TABINDEX属性值为FALSE C．该控件的ENABLED属性值为TRUE
D．该控件的ENABLED属性值为FALSE
9、为了防止用户随意将光标置于控件上，应（A）
A．将控件的TABINDEX属性设置为0 B．将控件的TABSTOP属性设置为TRUE C．将控件的TABSTOP属性设置为FALSE D．将控件的ENABLED属性设置为FALSE
10、若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的（D）属性
A．BACKCOLOR C．FORECOLOR
B．BORDERSTYLE D．BACKSTYLE
11、如果要在文本框中输入字符时，只显示某个字符，如星号（*），运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是（B）
A．文本框的MULTILINE属性值为TRUE B．文本框的LOCKED属性值为TRUE C．文本框的MULTILINE属性值为FALSE D．文本框的LOCKED属性为FALSE
12、在运行阶段，要在文本框TEXT1获得焦点时选中文本框中所有内容，对应的事件过程是（B）
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语言简单易用的语法特点，同时支持面向对象的编程机制，其中构成其控件（对象）的三要素是（D）
A．属性、事件、事件过程
C．属性、过程、方法
B．控件、窗体、事件 D．属性、事件、方法
14、决定标签（Label）显示的属性是（C）
A．Text
B．Name
C．Caption
D．Alignment
15、命令按钮的标题文字由（B）属性来设置。
A．Text
B．Caption
C．Name
D．(名称)
16、若要设置文本的显示颜色，则可用（A）属性来实现。
A．BackColor
B．Forecolor
C．FillColor
D．Backstyle
17、在运行时，若要调用某命令钮的Click事件过程，则可设置该命令钮对象的（）属性为Ture来实现。
A．Enabled
B．Value
C．Default
D．Cancel
18、在运行时，若要获得用户在文本框中所选择的文本，可通过访问（）属性来实现。
A．SelStart B．SelLenght
C．Text
D．SelText
三、简答题
1、事件驱动的含意是什么？举例说明。
2、交互式开发方法和传统的应用程序开发过程有什么不同？
3、文本框在什么情况下使用？
4、什么是工程？
5、结构化程序设计的三种基本结构是什么？
6、对象的三要素是什么？并分别进行简单的解释。
7、为什么要生成可执行文件和制作安装盘？
8、使用变量前先声明有什么好处？
9、如何使用帮助功能？
10、结构化程序设计的特点是什么？
11、为了把焦点移到某个指定的控件，在代码中应使用的方法是什么？
12、启动Visua Basic后，只创建了一个窗体，若此时保存，需要保存几个文件？各是什么文件？先保存的是哪一个？
13、为了防止文本框中的信息运行后被用户修改，应设置什么属性？
1、一般可以使用__________关键字声明常量。
2、______类型也称变体类型，是一种通用的、可变的数据类型，它可表示或存储任何一种数据类型。
3、变量的声明分为两种方法：__________和____________。
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 使循环体执行了______次。
12、对于正在使用的动态数组Arraya()，要增加一个单元，但不能破坏数组内的数据，则应使用语句__________________________________。
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、控件数组由一组相同类型的控件组成，这些控件共用一个相同的控件名，但是每个控件都有一个唯一的下标来区分，我们使用属性__
__来设置下标。
20、在过程调用中，实现调用过程的实参和被调用过程的形参之间的数据传递有两种方式：按值传递和__
__。
21、为了保证程序中必须对变量的强制性定义，需要在代码模块的声明部分加入______________语句。
22、分析For……Next循环结构的实例：For i = 5 To 30 Step 2 中，循环体一共执行了______次。
23、表达式Mid(“UniversityOfPetroleum”, 8, 4)的值为_________。
24、常量分为普通常量和__________常量。
25、要将大写字母转换为小写字母，可使用____________函数。
26、不管焦点在哪个控件上，按__________键相当于按了取消按钮。
27、执行“工程”菜单下的__________命令，可选择并添加ActiveX控件。
28、__________是程序中VB停止执行的地方。
29、逻辑常量为True或__________。
30、使用了__________________的声明后，当程序中使用未经声明的变量时，程序运行时会报错。
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、下面程序运行后输出的结果是（）
A$=“CHINA”
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
7、以下叙述中错误的是（）
A．如果过程被定义为Static类型，则该过程中的局部变量都是Static类型 B．Sub过程中不能嵌套定义Sub过程 C．Sub过程中可以嵌套调用Sub过程
D．事件过程可以像通用过程一样由用户定义过程名
8、Visual Basic提供的On Error Resume next错误陷阱语句表示（）
A．当发生错误时，使程序转跳到语句标号为0的程序块 B．当发生错误时，不使用错误处理程序块 C．当发生错误时，忽略错误行，继续执行下一语句 D．当发生错误时，终止本过程执行，继续执行下一过程
9、在Visual Basic中，若要将控制权交给操作系统则通过（）的语句。
A．End
B．Exit Do
C．Exit Sub
D．DoEvents
10、在Visual Basic 中语句的续行号采用（）
A．空格与下划线
B．下划线与空格
C．空格与短线
D．短线与空格
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中。确定
18、下列语句中正确的是（）
A．txt1.text+txt2.text=txt3.text B．command1.name=cmdok C．12label.caption=1234
D．a=inputbox(“hello”)
19、假设变量BOOLVAR是一个布尔型变量，则下面正确的赋值语句是（）
A．BOOLVAR=„TRUE‟ C．BOOLVAR=#TRUE#
B．BOOLVAR=.TRUE D．BOOLVAR=3<4
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 C．SGN(-26)= +1 B．SGN(-26)=-26 D．SGN(-26)=-1
22、读下面程序段，判断变量Str2的取值是（）
Dim Str1, Str2 as String Str1=“University” Str2=STRING$(3,Str1)A．Uni C．ity B．UUU D．yyy
23、VB支持自定义数据类型，在某程序中我们定义了如下类型：
Student string As String As Integer Type 针对上述定义，如下几项用法正确的是（）
A．Student.name=“张三”
B．Dim s As Student s.name＝“张红”
C．Dim s As Type Student
D．Dim s As Type
s.name=“张三”
s.name=“张三”
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次
C．当型循环，10次
B．直到型循环，10次 D．直到型循环，20次
26、在程序中，使用InputBox函数可以接受用户的输入，如果要把它的返回值转换为数值型的数据，应该使用的函数是（）
A．Val
B．Len C．Str
D．Log
27、动态数组因为在程序运行前无法确定数组的大小，所以经常根据程序的运行情况，对数组进行重新定义，以下关于VB中动态数组的叙述中不正确的是（）
A．可以用ReDim语句重新定义动态数组，并且可以进行多次重定义 B．首次用Dim进行动态数组声明的时候，必须指明它的类型和上下界 C．Preserve为ReDim语句的可选参数，用于保留动态数组原来的内容 D．当对动态数组使用Erase语句进行释放操作时，将释放其内存
28、VB中的控件也叫做部件或组件，主要包括三类，以下哪一项不属于VB控件的分类（）
A．控件
B．可插入对象
D．ActiveX控件 C．ADO控件
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、全局变量声明有哪些限制？
2、字符串是否可以自动转换为数字类型？
3、用Format函数格式化后的字符格式在不同区域环境下的输出是否相同？为什么？
4、在InputBox函数中，哪一个参数是必需的？
5、在MsgBox函数中哪一个参数是必须的？
6、在什么情况下使用过程？
7、为什么要进行程序调试？
8、调试程序有哪些手段？
9、用语句Dim A(-3 To 5)As Integer定义的数组的元素个数是多少？
10、设有如下的Visual Basic表达式：5*x^2-3*x-2*Sin(a)/3，与它对应的数学式是什么？
11、数学式(2xa)(3yb)对应的VB表达式是什么？
12、表达式2>3 And 4<=5 Or 4>4的值是什么？
13、怎样在程序中设置断点？
14、在什么情况下可以设置断点？
15、程序出错的类型有哪几种？
16、在同一模块、不同过程中声明的相同变量名，两者是否表示同一个变量？为什么？
17、什么情况下会出现“数组下标越界错误”？
18、逐语句和逐过程有什么区别？
19、表达式2.75 * 2 3.45的值是什么？
20、在程序设计中为什么尽量不用GoTo语句？
四、读程序题
1、分析以下程序，写出运行结果。
Private Sub Form_Click()
score = Int(Rnd * 10)+ 80
Select Case score
Case Is < 60
A$ = “F”
Case 60 To 69
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 Print 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 subP a()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 Print a,b,c End Sub
五、编程题
1、输入一年号，判断它是否是闰年。界面如下图所示，包括两个标签、一个文本框和一个命令按钮。提示：如果此年号能被400整除或者不能被400除尽，也不能被100除尽，但能被4整除，则它是闰年；否则，不是闰年。
2、输入两个正整数m、n，求m和n的最大公约数。要求建立如下图所示的窗体，其中主要的控件包括：两个标签（Lable1、Lable2）、两个文本框（Text1、Text2）和一个按钮（Command1）。
3、输入某学生成绩（百分制），若是100≥成绩≥90输出优秀；若是90＞成绩≥80输出良好；若是80＞成绩≥70输出中等；若是70＞成绩≥60输出及格；若是60＞成绩≥0，输出不及格；若是其他数则输出error信息。
4、在窗体中显示从9号字型到16号字型。
5、在有序序列中插入一个数，使插入后的数列仍然有序（设按由小到大排列）。
6、编程实现二维数组转置。
7、随机输入10个100以内的整型数，计算其和及平均值。
8、找出所有的水仙花数。水仙花数是个三位数，它的各位数字的立方和等于这个三位数本身。例如371＝33+73+13，则371是水仙花数。
9、从键盘输入一个大于2的正整数，判断该数是否是素数。
10、求二维数组中的最小值及其所在行号、列号。
11、求一元二次方程ax2+bx+c=0的根（包括实根和复根）。
12、输入一个正整数n，计算出n!并输出。
13、Faibonacci数列为0，1，1，2，3，5，8，13 „，计算并输出 Print List1.______________ End Sub（2）单击列表框某一项时立即将该项打印在窗体上：
Private Sub List1_Click()Print_______________ End Sub（3）按下命令按钮Command1时在窗体上删除 Label1.Caption = Hscroll1.__________________ End Sub
14、列表框（ListBox）用于列出可供选择的项目的列表，用户可以选择一个或多个项目。它具有几个非常重要的数组属性，其中__
__属性存放了列表框中所有项目的值。
15、菜单项一般由标题、访问键、快捷键和复选标志等构成，通过对相应的属性进行设置可以改变这些项目的状态，其中与复选标志相对应的属性是__
__。
16、keydown与keypress事件各有其参数，若需获得用户按下 “a” 还是 “A” 需用____________事件。
17、控件________组合了文本框和列表框的功能，是VB中一种功能非常强大的选择类控件。
18、若需要将窗体Form2以模态窗口的形式显示出来，可通过执行代码_________________来实现。
19、菜单中的分隔条是一种菜单控件，不响应__________事件，不能被选中。
二、选择题
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
3、用于设置通用对话框控件显示文件类型的属性是（）
A．Filter
B．Path
C．Partern
D．FoleName
4、用于从内存删除窗体的命令是（）
A．Move
B．Hide
C．Unload
D．Delete
5、用于返回窗体可用区域宽度的属性是（）
A．ScaleWidth
B．ScaleLeft
C．ScaleHeight
D．ScaleTop
6、下列关于属性设置的叙述错误的是：（）
A．一个控件具有什么属性是VB预先设计好的，用户不能改变 B．一个控件具有什么属性是VB预先设计好的，用户可以改变 C．一个控件的属性即可以在属性窗口中设置，也可以用程序代码设置
D．一个控件的属性在属性窗口中设置，还可以利用程序代码为其设置新值
7、下列说法正确的是（）
A．对象属性只能在“属性窗口”中设置 B．一个新的工程可以在“工程窗口”中建立 C．必须先建立一个工程，才能开始设计应用程序 D．只能在“代码窗口”中编写程序代码
8、下列关于窗体上控件的基本操作错误的是（）
A．按下一次DEL键只能删除一个控件 B．按下一次DEL键可以同时删除多个控件
C．按住SHIFT键，然后单击每个要选择的控件，可以同时选中多个控件 D．按住ALT键，然后单击每个要选择的控件，可以同时选中多个控件
9、下列关于设置控件属性的叙述正确的是（）
A．用户必须设置属性值
B．所有的属性值都可以由用户随意设定 C．属性值不必一一重新设置 D．不同控件的属性项都完全一样
10、不可以通过下列（）操作将焦点赋给对象
A．运行时使用TAB键
B．在代码中用CALL语句调用 D．用访问键或用鼠标单击选择对象 C．在代码中用SETFOCUS方法
11、要在FORM_LOAD事件过程中使用PRINT方法在窗体上输出一定的内容，应（）
A．设置窗体的VISIBLE属性
C．调用窗体的SHOW方法
B．设置窗体的CAPTION D．设置窗体ENABLED属性
12、下面（）对象无CAPTION属性
A．FORM B．COMMANDBUTTON
C．TEXTBOX
D．LABEL
13、通用对话框控件和文件列表框控件中，都能根据文件的类型对要显示的文件进行筛选过滤，后者使用（）属性进行该项设置。
A．Pattern B．Path
C．Filter
D．FileName
14、对于复选框控件chkBoy，如果在程序中设置它为选中状态，下面语句正确的是（）
A．chkBoy.Checked = true
C．chkBoy.Selected = true
B．chkBoy.Value = true D．chkBoy.Value = 1
15、计时器（Timer）控件用于每隔一段时间自动触发一次Timer事件，可以有规律地重复执行一段程序，它用于设置两次事件时间间隔的属性是（）
A．Interval
B．SmallChange D．Max
C．LargeChange
16、以下关于VB中窗体（Form）的说法中，不正确的描述为（）
A．执行Unload Form语句后，窗体Form消失，但仍在内存中
B．当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止 C．窗体的Height、width属性用于设置窗体的高和宽 D．窗体的load事件在加载窗体时发生
17、关于滚动条控件，下面说法错误的是（）
A．点击滚动条的箭头，可以改变它的value值，从而引发Change事件 B．拖动滚动框，可以触发Scroll事件
C．通常，水平滚动条的值从左向右递增，垂直滚动条的值自上而下递增 D．拖动滚动框，可以触发Change事件，而且是连续触发的
18、在窗体上放置一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程：
PriVate 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 C．hardwafe
B．software D．出现错误
19、在多重窗体程序设计中，关键的问题是要解决不同窗体之间的衔接和窗体的显示、关闭等问题，以下关于窗体的相关语句和方法的叙述中，错误的是（）
A．Load语句用于加载指定窗体，即在内存中创建该窗体 B．Show方法兼具Load语句的功能，可以将窗体显示出来 C．Hide方法用于将窗体隐藏起来
D．Unload语句用来释放窗体，但窗体并没从内存中消
20、滚动条控件的属性中，表示取值范围最大值的属性是（）
A．Max C．Min
B．LargeChange
D．Value
21、程序中如果需要检测和控制鼠标的位置和状态的改变，就需要使用鼠标事件，其中下面哪个选项用于表示拖动事件（）
A．DragDrop C．MouseUp
B．MouseDown D．MouseMove
22、为了使用通用对话框进行打开文件的操作，应将通用对话框的Action属性设定为（）。
A．0
B．1
C．2
D．3
三、简答题
1、什么是单选按钮？什么是复选框？在使用上有什么不同？
2、滚动条的change事件和scroll事件有什么不同？
3、快捷键和访问键有什么区别？
4、在程序运行期间，如果拖动滚动条上的滚动块（即滑块），则触发滚动条的什么事件？
5、假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用什么语句？
6、为了暂时关闭计时器（即时钟控件），应把该计时器的什么属性设置为False？
7、单选按钮和复选框（即检查框）各用于什么情况？
8、如何为一个菜单项设置热键和快捷键？
9、菜单的形式有哪两种？
10、在KeyPress事件中，如何取消用户刚输入的字符？
11、框架的作用是什么？
12、如果要计时器每秒钟发生4个Timer事件，则Interval属性值应设多少？
13、在一个窗体的程序代码中能否访问另一个窗体上控件的属性？若不行则请说明理由；若行则请说明如何访问。
14、如何在框架中建立控件？
15、组合框有哪几种类型？
四、读程序题
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码值，如下图所示。
Text1
Command1 Text2
3、编写一个程序，能够实现任意个整数的排序。
4、编程实现以下功能：用户首先分别在两个文本框中输入两个数，然后在具有“加、减、乘、除”等四个菜单项的“计算”菜单中单击某一项，即可在标签中显示出相应的结果或者错误提示。
5、编程实现任意两个数的“加、减、乘、除”。
6、编写一个程序，能够求任意个正整数的最大值和最小值。
7、编程求任意两个正整数的最大公约数。
六、程序分析填空题
1、建立一个如图所示的简单编辑器。用户在文本框（text1）中输入正文后，选中某些文本时可进行“剪切”、“复制”和“粘贴”操作。假设在窗体声明部分定义了一个变量str1，用于保存复制和剪切的内容，请把剪切按钮(btnCut)的Click事件补充完整。
程序运行界面：
Private Sub btnCut_Click()
„请补充
End Sub
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
3、列表框控件（ListBox）支持多项选择，这项功能在对用户的兴趣爱好进行调查的时候显得非常好用，在下图所示的界面中列表框List1用于列出爱好选项，供用户进行多项选择。
请把下列代码补充完整，能够取得用户的所选爱好选项： Private Sub Command1_Click()
Dim i As Integer
Dim s As String
s = txtname.Text & “爱好”
For i = 0 To List1.ListCount-1
„请补充
Next
Label3.Caption = s End Sub
4、要求利用计时器Timer1，在窗体Form1上每隔1秒钟打印一个1到10的随机整数，请把下列代码补充完整：
Private Sub Form_Load()
Show
„请补充
End Sub Private Sub Timer1_Timer()„请补充
End Sub
5、请说明PRINT #和WRITE #语句的区别
6、EOF函数的功能是什么？
四、编程题
1、实现二进制方式文件的复制。
2、如下图所示，实现一个简单的文件管理器。
件
C．双击工具箱中的控件图标，所画控件的大小和位置是固定的
D．不使用工具箱中的控件工具，不可以在窗体上画出图形对象，但可以写入文字字符
2、当一个对象（如窗体或图片框）被移动或改变大小之后，或当一个覆盖该窗体被移开之后，如果要保持该所画图形的完整性，可以选择触发（）事件来完成图形的重画工作
A．Paint B．Load
C．Click
D．Active
三、简答题
1、在什么情况下使用Image控件而不使用PictureBox控件？
2、在程序运行时怎样在图形框中装入和删除图形？
3、颜色函数主要有哪些？
四、编程题
1、如下图显示当前目录下的图片文件列表，并能够预览选定的图片。
vb程序设计复习题答案 第2篇
一、单选题
1.窗体的标题栏显示内容由窗体对象的(D)属性决定。
A.BackColor
B.BackStyle
C.Text
D.Caption 2.下列不能作为VB中的变量名的符号是(C)。
A.A45
B.P12
C.89Ta
D.x 3.只能删除字符串尾部空格的函数是(B)。
A.Ltrim
B.Rtrim
C.Trim
D.Mid 4.如果在菜单栏中添加１条分隔线，则应将其Caption属性设置为(D)。
A.＝
B.*
C.&
D.-5.用下面语句定义的数组的元素个数是(D)。
Dim A(-3 To 5)As Integer A.6
B.7
C.8
D.9 6.设a=2，b=3，c=4，d=5，下列表达式的值是(B)。
a>b And c<=d Or 2*a>c A.True
B.False
C.-1
D.1 7.下列关于控件画法的叙述错误的是(D)。
A.单击一次工具箱中的控件图标，只能在窗体上画出一个相应的控件
B.按住CTRL键后单击一次工具箱中的控件图标，可以在窗体上画出多个相同类型的控件
C.双击工具箱中的控件图标，所画控件的大小和位置是固定的D.我们使用的控件只能是工具箱中的标准控件
8.应用程序设计完成后，应将程序保存，保存的过程是（D)。
A.只保存窗体文件即可
B.只保存工程文件即可
C.先保存工程文件，之后保存窗体文件
D.先保存窗体文件(或标准模块文件)，之后还要保存工程文件 9.假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效(变灰)，应使用的语句为（A)。
A.MenuItem.Enabled=False
B.MenuItem.Enable=True C.MenuItem.Visible=True
D.MenuItem.Visible=False 10.在一个语句内写多条语句时，每个语句之间用(B)符号分隔。
A.，B.：
C..D.；
11.已知A$=”abcdefghijklmn”,则表达式Left$(A$,4)+Mid$(A$,4,2)的值为(B A.abcdef
B.abcdde
C.abccde
D.abcdefg 12.赋值语句:a=123+MID(”123456”,3,2)执行后,a变量中的值是(D)。
A.”1234”
B.123
C.12334
D.157 13.下面程序运行后，显示的结果是(B)。Dim x X=true If x Then Print x+1 A.1
B.0
C.true
D.显示出错信息 14.下面程序段，显示的结果是(A)。
Dim x X=1 X=int(Rnd)+5 Select Case x
Case 5
Print“优秀”
Case 4
Print“良好”
Case 3
Print“通过”
Case Else
Print“不通过” End Select A.优秀
B.良好
C.通过
D.不通过)。
15.VB 提供了结构化程序设计的三种的基本机构，三种基本结构是(D)。
A.递归结构、选择结构、循环结构 B.选择结构、过程结构、顺序结构 C.过程结构、输入、输出结构、转向结构 D.选择结构、循环结构、顺序结构
16.下列循环语句能够正常结束循环的是(C)。
A.I=5 Do
I=I+1 Loop until I<0 B.I=1 Do
I=I+2 Loop until I=10 C.I=10 Do
I=I-1 Loop until I<0 D.I=6 Do
I=I-2 Loop until I=1 17.以下程序输出结果是(A)。
Option Base 1 Private Sub Command1_click()Dim a%(3, 3)For i = 1 To 3 For j = 1 To 3 If j > 1 And i > 1 Then a(i, j)= a(a(i1), a(i, j-1))+ 1 Else a(i, j)= i * j End If Print a(i, j);“";Next j Print Next i End Sub A.1 2 3
B.1 2 3
C.1 2 3
D.1 1 1 3 1 2 3
4 6
2 2 2 3 2 3
6 9
3 3 18.定时器的Interval属性以（C)为单位指定Timer事件之间的时间间隔。
A．分
B．秒
C．毫秒
D．微秒
19.可以惟一标识控件数组中的每一个控件的属性是(A)。
A．Name
B．Caption
C．Index
D．Enabled 20.在下列关于通用对话框的叙述是错误的是(B)。
A.CommonDialog1.ShowFont显示字体对话框
B.在打开或另存为对话框中，用户选择的文件名可以经FileTitle属性返回
C.在文件找开或另存为对话框中，用户选择的文件名及其路径可以经FileName属性返回
D.通用对话框可以用来制作和显示帮助对话框 21.InputBox函数返回值的类型为(B)。
A.数值 B.字符串
C.变体 D.数值或字符串(视输入的数据而定)22.下面关系表达式的值为真的是(C)。
A.”A“>”a“ B.”9“>”a“ C.”That“>”Thank" D.12>12.1 23.为了把焦点移到某个指定的控件，所使用的方法是（A)。
A.SetFocus B.Visible C.Refresh D.GetFocus 24.设a=6，则执行x=IIF(a>5,-1,0)后，x的值为（D)。
A.5 B.6 C.0 D.-1 25.以下语句错误的是(B)。
A.If a=1 And b=2 then C=3 End If B.If a=1 Then C=2 ElseIf a=2 Then C=3 C.c=IIF(a=1,2,3)D.If a=1 Then C=2 ElseIf a=2 Then C=3 End If 26.有如下程序：
Sub sub1(x,y)X=2*x Y=3*y End sub Private sub command1_click()A=1:b=1 Call sub1(a,b)Print “A=”;a;”,B=”;b
End sub 程序运行后的输出结果是（B)。
A.A＝1，B＝B.A＝2，B＝3 C.A＝1，B＝3 D.A＝2，B＝1
二、填空题
1.Visual Basic中工程文件的扩展名是(vbp)；窗体文件的扩展名是(frm)。2.为了使标签能自动调整大小以显示全部文本内容，应把标签的(autosize)属性设置为True。
3.能将字符串中的小写字母转换成大写字母的函数是（ucase)。4.数学表达式 3x+2^3，写成VB表达是（3*x+2^3)。
5.过程和函数中的参数的传递方式有(byval)和(byref)两种。
6.若要终止窗体的运行，可使用(unload)命令；若要将窗体Form1显示出来，可使用方法(Form1.show)来实现。
三、写成程序结果
1.在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()b=1 a=2 Do While b<10 B=2*a+b Loop Print b End Sub 程序运行后，输出的结果是（）。2.有如下程序：
Private Sub Command1_Click()S=0 Do s=(s+1)*(s+2)N=N+1 Loop Until s>=10 Print N；s End Sub 运行后的输出结果是(2 12)。3.有如下函数过程
vb程序设计复习题答案 第3篇
随着高校计算机基础教学改革的深化,计算机基础教学正朝着科学化、规范化的方向发展。为适应该发展趋势、大力推进计算机基础课程教学的改革,从计算机“程序设计基础”课程考试方式和手段入手,积极探索由传统的纸笔方式过渡到无纸化、网络化上机考试方式的实现方法。
由于传统的考试方法主要考查学生的理论知识,对操作技能反映不足,使学生学习兴趣调动不够、开发能力受到了质疑,特别是随着计算机网络的发展,无纸化办公、高考网上阅卷的开展、面向对象程序设计语言的普遍开设,为计算机程序设计基础课程的无纸化、网络化考试创造了良好的环境,许多高校及软件公司,近年来在这方面做了许多有益的尝试,取得了很好的经济与社会效益。可以说,无纸化、网络化的计算机考试是顺应社会发展的一个产物,也是计算机基础课程考试的必然趋势。
在教学过程中传统考试涉及环节多(命题、印卷、考试、阅卷、成绩统计等)、过程繁琐、工作量大、试卷分析缺乏准确性,而且极易出现错误。试卷分析往往只对总分进行简单的分数段统计、平均分计算等大致分析,对涉及试卷质量的深层指标如均方差、信度、效度分析等有效指标很难涉及。如果实行无纸化、网络化考试则这些工作就容易解决。从2005年开始,就致力于这方面的工作,先后研发了延安大学C语言程序设计考试系统、C++程序设计考试系统、Visual Basic程序设计考试系统等。以Visual Basic程序设计上机考试系统为例,介绍计算机程序设计基础课程上机考试系统研发过程中的相关问题以及解决方法。
1 系统的设计目标及组成
1.1 系统设计目标
由于本系统主要应用于Visual Basic程序设计课程教学的考查及考核工作,根据这一实际应用要求确定了系统设计的两个目标,即实用性和健壮性。
(1)实用性:
本系统能够极大地提高评阅工作效率,解决人工评阅的多种弊端。通过考试方式的转变,极大地提升大学生计算机程序设计的应用操作能力。
(2)健壮性:
对于大规模的计算机程序设计基础课程考核,考生人数多,其中水平差别很大,本系统必须能够克服用户程序可能出现的各种软件错误,防止出现系统崩溃、系统死机等情况,同时保证阅卷的客观性、公正性,尽量避免由于用户程序设计中一个小的错误而出现大量的丢/失分数现象。
1.2 系统设计思路及方案的选择
当前开发的无纸化网络考试系统主要基于C/S与B/S两种模式,两种模式各有所长。C/S 结构(Client/Server)考试系统,应用的比较多。在局域网中,安装一台考试服务器,把题库、报名库和阅卷评分系统都装在服务器上,在考试机安装客户端,利用局域网和相应软件与服务器相连。每次考试都对服务器和客户端进行安装和配置,这样工作量比较大,且在地域上受限制。
B/S结构(Browser/Server)考试系统,利用Web技术,考生使用浏览器就可以访问多个不同平台的服务器。系统更新只需更新服务器即可,客户端仅安装浏览器,是目前考试中利用最多的一种无纸化网络考试系统结构形式。
1.3 系统的组成
不管是基于C/S或B/S哪种模式,为了实现无纸化考试的要求,基本有四个模块组成:
(1)题库管理系统:主要负责题库中各种类型题目的增加、删除、修改与考试时间、题型、题量、难度系数等要求的设定等。
(2)考试系统:考生验证、考试环境生成、考生数据存储、系统计时控制、自动阅卷评分等。
(3)成绩回收与分析系统:成绩入库、成绩的总体分析、各题得分情况的分析等。
(4)考生信息导入与服务器设置系统:考生信息的导入及服务器的自动设置。
基于上述分析,本系统采用的是类似于全国计算机等级上机考试系统的C/S模式,但考试客户端并不需要逐个安装,考试时,只要将其发送到每台学生机桌面上即可,基本上属于纯绿色软件。
2 考试系统开发中的关键问题及解决的方法
研发无纸化网络考试系统,通常涉及的关键问题有:试题图文混排问题、试卷导入/出与排版问题、答案描述问题、考试环境生成与智能评分问题,一般来说前3个问题在命题系统中涉及,通常大都采用RTF格式、特征值抽取等方式来解决;对于考试环境生成有的采用语句生成;有的则直接将环境数据文件信息存入数据表来解决,在研发该系统时就采用了后者;至于智能评分问题,对于客观题已经非常成熟,主观题(操作题)则是所有无纸化网络考试系统面临的共同难题,目前尚无公认的成熟、有效的方法,有的采用人工阅卷,有的只比较结果,而有的既看结果又考察过程,当然由于主观题解题方法的多样性,这种方法与命题质量有很大的关系,命题老师的水平会直接影响自动评分的准确性,这便是目前有些无纸化网络考试系统所出现的问题症结所在。
2.1 考试环境的生成
由于Visual Basic考试系统一般要涉及考试环境中原始程序文件,其中通常包含工程、窗体、模块及输入数据等若干文件,考试时要求考生根据给定的工程、窗体及控件来进行完善,如果用语句生成考试环境不仅缺乏灵活性,而且影响系统速度,为此,我们采用WinRar压缩/解压缩功能,将考试环境文件夹用WinRar压缩为一个压缩包文件,以二进制信息写入试题数据库(OLE对象),考试时再将试题库存入的信息还原成压缩包文件,然后调用WinRar解压为考生环境文件夹。实践证明,这种方法不仅快速,还适用任意类型的文件写入考试数据库。
具体做法是使用VB编制两个过程:WriteToTK (将试题写入试题库) 、ReadFromTK (将试题从数据库中读出),在命题端通过调用WriteToTK过程将考试环境压缩包文件写入试题库中,在考试端通过调用ReadFromTK过程来生成考试环境压缩包文件,然后使用VB的Shell()函数调用WinRar.exe从压缩包文件中还原考试环境文件夹。(Shell("Winrar.exe x-o+压缩包位置压缩包文件名.rar 考试环境文件夹”,0) )
2. 2 系统评分
计算机无纸化网络考试系统中自动阅卷评分子系统是整个系统中最关键、难度最大的一部分内容,它要求评分准确、快速、安全。实现对计算机程序设计课程操作考试试卷的自动评分,即自动测试用户程序,就是要判断考生所编制的程序文件是否符合考核要求。
对于Visual Basic程序设计上机考试系统来说,操作考试题型一般分为3种类型:①基本操作题:要求考生根据题目要求完成用户界面的设计,并对控件属性进行设置,同时允许编写表现用户界面特性的简单代码。本部分重在考查学生对VB 工程的创建、保存以及控件对象的掌握情况,即淡化一个完整VB应用程序设计中的编写事件过程代码的部分。②程序填空题(改错题):主要考查学生的阅读程序和调试程序的能力。在该类试题中,出错的程序事先都给出,并指出在哪个过程的哪个位置有错误,并在出错的一行上都给出注释,学生只要将出错的行改正过来并调试通过即可。③编程题:考试中提供完整的用户界面,甚至包含部分代码,学生根据题目要求编写程序代码,运行调试,完成题目。
在阅卷的过程中要根据不同题型,采用相应的方法进行评分。
2.2.1 基本操作题的自动评分
一个VB 工程主要由.vbp文件,.frm文件,.frx文件等组成。.vbp 文件对整个VB 工程进行管理,其内容主要包括引用的对象库,包含的.frm文件名、位置以及启动窗体等信息。.frm文件是对VB 程序界面的描述,包括界面上控件的类型、个数、相对位置以及它们的属性和事件过程代码。当程序界面包含图片以及ListBox,ComboBox控件时,VB自动生成.frx文件,以二进制形式存放相关的资源信息。对上述文件进行分析,描述VB 程序用户界面的.frm文件是一个有严格结构的文本文件。绝大部分界面设计题可以通过只分析.frm 文件来完成。对于特定的题目需要分析.frx文件和.vbp文件。据此,可得到以下评分思路:
(1) 对标准答案的.frm文件进行分析,提取有用信息,包括控件的类型、数目、相对位置、相关属性以及事件过程代码,并标准化,形成评分点,制定评分标准。
(2) 对考生答案的.frm文件进行分析,并做一定的标准化处理,然后提取相应的控件和过程代码信息,以一定的形式临时存放。
(3) 用标准化后的标准答案去匹配标准化后的学生答案,结合评分标准,给出成绩,同时记录匹配失败信息。
2.2.2 程序填空题(改错题)的自动评分
对于这样的题目评分只要打开相应的窗体文件(.frm),找到相应的程序行与标准答案进行比较即可。
2.2.3 编程题的自动评分
目前,编程题的自动评分仍然是个难题,因为编程题自动评分要解决的不仅仅是对程序语法的理解,还要深入到程序的语义层。在VB 上机操作考试中可以预先提供完整的用户界面,甚至是部分代码。这样,在实现自动评分过程中就不需要考虑如何控制VB 的IDE以及考生程序子窗口。现在要做的是,如何给学生程序提供必要的参数(输入),如何驱动相应的事件过程,如何分析输出。
(1) 编程题的自动评分思路
①提供用户界面的同时预先插入必要的程序测试代码,用来实现对学生程序提供必要的输入和临时保存程序的输出。
②根据VB 事件驱动的编程机制的特点,选取一定的事件,用来驱动学生编写的事件过程的执行。调用①中事先插入的代码为学生编写的过程提供输入并且临时保存输出。
③调用“输出分析程序”分析学生程序的输出是否符合标准输出。
④如果学生程序的输出与标准输出相符,则认为学生程序完全正确。否则,进行第⑤步。
⑤利用类似于前面对界面设计题中程序代码分析的方法,对考生程序代码进行分析,按变量的声明和输入部分、程序主体部分和输出部分分别考虑,结合评分标准给出成绩。
(2) 编程题自动评分的实现
在具体实现过程中,因题目的差异,实现过程会有所不同,有几个关键问题要注意:
①设计嵌入代码时选取恰当的事件,主要有Form_Load,Form_Activate,Form_Unload(需要学生运行程序后手动关闭窗体以触发该事件)3 个事件供选择,根据题目的不同,选取恰当的事件嵌入测试代码会使考试更加合理化。若程序要求用户输入数据,则一般要提供由多组测试数据,包括正确的输入数据、边界数据以及错误数据,才能对学生程序进行全面检查。
②临时输出文件要防止学生手动建立正确的输出文件。在实际实现时,可在输出文件生成时预先写入一个随机特殊数据,手动建立的输出是无效的。
③“输出分析程序”是一个外部.exe文件,其功能因输出数据的不同而不同,但主要程序框架不变。
④学生程序可能包含死循环等较严重错误,输出也可能千奇百怪。所以在驱动学生程序执行和分析输出过程中必须要有错误控制,解决的办法是,语法错误可用On Error 语句跳过,若超过一定的时间程序仍未响应则认为是死循环,应强行结束。
3 考试系统开发中必须注意的事项
虽然无纸化考试系统具有交互性、实时性等特征,能提高学生学习计算机课程的兴趣与动手能力,基本将教师从繁琐的考试环节中解放出来,节省了大量的人财物,使教师有更多的时间和精力放在试题的科学性建设和教学内容、教学方法的钻研中。在项目实践与使用过程中,下列问题必须重点注意并着重解决:
(1)由于所有考生都必须在机器上进行考试,考试需要按批次进行,题库必须达到一定的容量,题库安全都必须予以高度重视,否则不仅容易泄题,对考生来说也不够公平;
(2)由于目前对操作题的评分通常仅限于从答案和关键字匹配上给分,对于编程算法的多样化还只能靠教师命题来进行控制。因此,对命题质量要求较高,在智能评分的解决方法与技术上还有待突破和完善;
(3)对于大规模的考试来说,网络的安全和传输质量问题是至关重要的,否则容易造成网络阻塞,影响考试正常进行。
当然,无纸化考试毕竟是伴随着计算机与网络技术的发展而兴起的一种新的考试模式,也是一种教学改革尝试,随着时间的推移,这些问题都会得到圆满的解决。
参考文献
[1]许骏,柳泉波.IT技能测评自动化——理论.技术.应用[M].北京:科学出版社,2001.
[2]龚沛曾.基于VB的通用数据库系统的实现方法[J].计算机应用研究,1998,15(3).
[3]高雯,李飞.计算机基础课程自动考试系统的设计与实现[J].华东理工大学学报,2000,26(5).
[4]谢忠红,等.校园网环境下《VB程序设计》学习支撑系统的设计与实现[J].计算机工程与科学,2008,30(7).
[5]毛布.基于Web技术的网络考试系统设计研究[J].西南民族大学学报:自然科学版,2008,34(4).
[6]周梅红,等.VB实验考试自动阅卷系统的实现[J].福建电脑,2004(12).
[7]唐赞玉,等.基于VB的计算机考试复习系统的设计与实现[J].吉首大学学报:自然科学版,2006,27(2).
VB程序设计教学方法探讨 第4篇
VB上机考试习题以及答案 第5篇
1、利用随机函数产生25个100到999之间的整数，构成55的矩阵，输出该矩阵。Dim a(1 To 5, 1 To 5)Private Sub Form_Click()Randomize For i = 1 To 5 For j = 1 To 5 a(i, j)= Int(Rnd *(99910 + 1)+ 10)Print a;s = s + a Next i Print Avg = s / 25 Print Avg End Sub
3、在窗体上按下鼠标的右键，记录其坐标。
Private Sub Form_Load()Label1.BorderStyle = 1 Label1.Alignment = 2 End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 Then Label1.Caption = X & “,” & Y End If End Sub
4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。Dim a(1 To 25)Private Sub Form_Click()Cls For i = 1 To 25 a(i)= Int(Rnd *(991 For j = 1 To 251 + 1)+ 1)a(x)= a(x)+ 1 Next j For i = 1 To 6 Print i & “出现了” & a(i);“次” Next i
End Sub
6、在文本框中输入一些英语单词，统计空格的个数。
Dim n%, x As String, s% Private Sub Form_Click()n = Len(Text1.Text)x = Text1.Text For i = 1 To n If Mid(x, i, 1)= “ ” Then s = s + 1 Next i Print “共出现了” & s & “个空格” End Sub
7、编程计算下列公式的值，其中n(<10)为从键盘输入的正整数。S=1!+3!+5!+……+(2*n-1)!Private Sub Form_Click()n = Val(InputBox(“请输入一个不大于10的整数”))s = 0 For i = 1 To 2 * n2 * i1 a = a + 1 Print Str(a);Next j Print Next i End Sub
10、用For …Next语句编程，双击窗体后，在屏幕上显示如图：
Private Sub Form_DblClick()For i = 1 To 3 Print Tab(113 * i);For j = 1 To 5 Print x;Next j Print Next i End Sub
12、从文本框输入一个正整数，判断该数是否为素数。Dim a As Long Private Sub Form_Click()a = Val(Text1.Text)If a = 2 Then Tag = True ElseIf a Mod 2 = 0 Then Tag = False Else Tag = True For i = 3 To Sqr(a)Step 2 If a Mod i = 0 Then Tag = False: Exit For Next i End If If Tag = True Then Print a;“是素数” Else Print a;“不是素数” End If
End Sub
13、利用随机函数产生并显示10个3位数的正整数，找出其中的最大数。Option Explicit Dim i%, max%, loc% Dim a(1 To 10)As Integer Private Sub Form_Click()Randomize Form1.Cls For i = 1 To 10 a(i)= Int(Rnd *(9991000 + 1)+ 1000)Print a(i)Next i min = 9999 For i = 1 To 10 If a(i)< min Then min = a(i): loc = i Next i Print “最小的数是”;min Print “在数组中是第”;loc;“个数” End Sub
15、当按下鼠标左键时，窗体的背景色变为红色；松开鼠标左键时，窗体的背景色变为绿色。Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 Then Form1.BackColor = vbRed
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 Then Form1.BackColor = vbGreen End Sub
16、编制一个时钟程序，如下图
：Option Explicit
Private Sub Form_Load()Label1.BackColor = vbWhite Label1.BorderStyle = 1 Label1.Alignment = 2 Timer1.Enabled = True Timer1.Interval = 1000 End Sub
Private Sub Timer1_Timer()Label1.Caption = Time End Sub
17、从键盘输入10个数，按输入的顺序和按输入顺序相反的顺序输出。Option Explicit Dim i% Dim a(1 To 10)As Single Private Sub Form_Click()For i = 1 To 10 a(i)= Val(InputBox(“请输入第” & i & “个数”))Print a(i);Next i Print For i = 10 To 1 Step-1 Print a(i);Next i
End Sub
18、计算圆面积的程序。程序运行时，单击窗体，然后在下图所示的输入框中输入圆的半径，即可在窗体上显示计算出的圆面积。
Option Explicit Dim r%, a As Single Const pi As Single = 3.14159 Private Sub Form_Click()r = Val(InputBox(“请输入圆半径” & vbCrLf & “（1-9）：”, “输入”, 5))a = pi * r ^ 2 Print “半径为”;r;“的圆面积为”;a End Sub
19、编写一个时钟程序，当选择“24小时”时，以24小时的方式显示如A，当选择“12小时”时，以12小时的方式显示如B。
Private Sub Form_Load()Timer1.Interval = 1000 End Sub
Private Sub Timer1_Timer()Select Case True Case Option1.Value Label1.Caption = Time Case Option2.Value Label1.Caption = Format(Time, “HH:MM:SS AM/PM”)End Select End Sub 20、设计一个程序，用户界面如图所示。程序运行后，用户在文本框中输入一段文字，然后按需要单击选择框，用以改变文本的字体、字型、颜色以及大小。
Option Explicit
Private Sub Check1_Click()If Check1.Value = 1 Then Text1.FontName = “黑体” Else Text1.FontName = “宋体” End If End Sub
Private Sub Check2_Click()If Check2.Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End If End Sub
Private Sub Check3_Click()If Check3.Value = 1 Then Text1.FontSize = 20 Else
Text1.FontSize = 9 End If End Sub
Private Sub Check4_Click()If Check4.Value = 1 Then Text1.ForeColor = vbGreen Else Text1.ForeColor = vbBlack End If End Sub
Private Sub Command1_Click()Text1.Text = “" End Sub
Private Sub Command2_Click()End End Sub 20做出2个周期的正弦波形.Private Sub Form_Click()Dim i%, x#, y# Const pi As String = 3.1415926 Form1.Scale(-2 * pi, 1.2)-(2 * pi,-1.2)Form1.Line(-2 * pi, 0)-(2 * pi, 0)Form1.Line(0, 1.2)-(0,-1.2)For x =-2 * pi To 2 * pi Step 0.01
y = Sin(x)
Form1.PSet(x, y)Next x End Sub 21以窗体为中心,产生1000个半径颜色随机的同心圆.Private Sub Form_Click()For i = 1 To 1000
x = Form1.ScaleWidth / 2
y = Form1.ScaleHeight / 2
r = Int(Rnd * y)
c = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
Form1.Circle(x, y), r, c Next End Sub 22.九九乘法表 Private Sub Form_Click()Dim i%, j% Form1.Caption = ”九九乘法表“ Print Tab(48);Caption Print Tab(48);”-------------“ For i = 1 To 9
For j = 1 To i
Print Tab((j-1)* 12 + 1);i;”*“;j;”=“;i * j;
Next j Print Next i End Sub 23求最大公约数和最小公倍数 Private Sub Command2_Click()Text1.Text = ”“ End Sub
Private Sub command1_Click()Dim m%, n%, r%, t% m = Val(Text1.Text)n = Val(Text2.Text)If m < n Then t = m: m = n: n = t t = m * n Do
r = m Mod n
m = n
vb控件数组的习题及答案 第6篇
实验准备：
请同学们删除d:ex21文件夹里面的内容
如果没有ex21文件夹，请在d: 下新建ex21文件夹
1、打开D:下的工程文件PROJECTA4.vbp和窗体文件FORMA4.frm，按以下要求完成程序：在窗体上创建2个列表框、2个标签、2个命令按钮。List1用于显示可选课程、List2用于显示已选课程。单击“选课”按钮，将List1中选定的课程名称加入到List2中显示,单击“清空”按钮，将删除List2中的所有课程。程序运行的参考输出格式如图A-4所示,可选课程至少包含图A-4所示的6门。最后将工程文件、窗体文件按原文件名保存在D:EX21文件夹下。
图A-4
2、打开D:下的工程文件PROJECTB4.vbp和窗体文件FORMB4.frm，按以下要求完成程序：在窗体上创建1个列表框、1个图片框、2个标签、2个命令按钮。List1用于显示可选课程、Picture1用于显示已选课程。单击“选课”按钮，将List1中选定的课程名称加入到Picture1中显示,单击“清空”按钮，将删除Picture1中的所有课程。程序运行的参考输出格式如图B-4所示,可选课程至少包含图B-4所示的6门。最后将工程文件、窗体文件按原文件名保存在D:EX21文件夹下。
图B-4
3、打开D:下的工程文件PROJECTA41.vbp和窗体文件FORMA41.frm，按以下要求完成程序：单击窗体，能产生10个两位的随机整数并存放在一维数组中，并能在窗体中输出该10个随机整数、最大数及其在10个数中的位置，要求使用语句强制显式声明模块中的所有变量，程序运行的参考输出格式如图A-41所示。最后将工程文件、窗体文件按原文件名保存在D:EX21文件夹下。
图A-41
4、打开D:下的工程文件PROJECTB41.vbp和窗体文件FORMB41.frm，按以下要求完成程序：单击窗体，能产生10个两位的随机整数并存放在一维数组中，并能在窗体中输出该10个随机整数、最小数及其在10个数中的位置，要求使用语句强制显式声明模块中的所有变量，程序运行的参考输出格式如图B-41所示。最后将工程文件、窗体文件按原文件名保存在D:EX21文件夹下。
图B-41
5、打开D:下的工程文件PROJECTA411.vbp和窗体文件FORMA411.frm，按以下要求完成程序：输入某小组5个同学的成绩，计算总分和平均分(取小数后一位)。本例利用InputBox函数来输入成绩，输入完毕后经过计算，再采用Print直接在窗体上输出结果，运行参考界面如下图所示。最后将工程文件、窗体文件分别按原文件名保存在D:EX21文件夹下。（要求用数组来实现，不用数组不能得分）
6、打开D:下的工程文件PROJECTB411.vbp和窗体文件FORMB411.frm，按以下要求完成程序：编写程序，单击窗体，实现将随机产生的两位整数的一维数组A(10)中的元素向后移动一个位置，最后一个元素移到第一个元素的位置上。最后将工程文件、窗体文件分别按原文件名保存在D:EX21文件夹下。
7、打开D:下的工程文件PROJECTB511.vbp和窗体文件FORMB511.frm，按以下要求完成程序：窗体FORM1界面如下图所示，其中一组(共3个)单选按钮(Option1(0)、Option1(1)和Option1(2))构成控件数组，要求当单击某个单选按钮时，能够改变文本框(Text1)中文字的大小。最后将工程文件、窗体文件分别按原文件名保存在D:EX21文件夹下。
8、打开D:下的工程文件PROJECTA511.vbp和窗体文件FORMA511.frm，按以下要求完成程序：窗体FORM1界面如下图所示，文本框Text1和Text2用于接收用户输入的操作数，文本框Text3用于存放两个操作数的运行结果。标签Label1用于显示运算符，按钮数组Command1(0)~Command1(3)分别执行上述各种运算操作。最后将工程文件、窗体文件分别按原文件名保存在D:EX21文件夹下。
9、打开D:下的工程文件PROJECTB51.vbp和窗体文件FORMB51.frm，按以下要求完成程序：按如图B-51设计窗体，其中有2组（每组 3个，共 6个）单选按钮的控件数组，分别放入2个框架中。当单击某个单选按钮时，能够分别改变文本框中文本的字体及大小。最后将工程文件、窗体文件按原文件名保存在D:EX21文件夹下。
图B-51
10、打开D:下的工程文件PROJECTA51.vbp和窗体文件FORMA51.frm，按以下要求完成程序：按如图A-51设计窗体，其中有2组（每组 3个，共 6个）单选按钮的控件数组，分别放入2个框架中。当单击某个单选按钮时，能够分别改变标签标题的字体及大小。最后将工程文件、窗体文件分别按原文件名保存在D:EX21文件夹下。
图A-51
11、打开D:下的工程文件PROJECTB5.vbp和窗体文件FORMB5.frm，按以下要求完成程序：按如图B-5设计窗体，其中有3组（每组 3个，共 9个）命令按钮的控件数组，分别放入3个框架中。当单击某个命令按钮时，能够改变文本框中文本的字符格式。最后将工程文件、窗体文件按原文件名保存在D:EX21文件夹下。
图B-5
12、打开D:下的工程文件PROJECTA5.vbp和窗体文件FORMA5.frm，按以下要求完成程序：按如图A-5设计窗体，其中有3组（每组 3个，共 9个）单选按钮的控件数组，分别放入3个框架中。当单击某个单选按钮时，能够改变标签标题的字符格式。最后将工程文件、窗体文件分别按原文件名保存在D:EX21文件夹下。
