VB程序设计基础模拟试题

1、VB 程序设计模拟试题填空题1.窗体模块的文件扩展名为_FRM_、标准模块的文件扩展名为_BAS_、类模块文件的扩展名为_CLS_。2.Visual Basic中数据类型可分为_标准数据类型_和用户自定义数据类型两大类，前者根据其取值的不同，可分为_整型_、_长整型_、 布尔型和_字符型_。3.Abs(-6.5)= _6.5_；Int(-9.1)=_-10_。4.程序& 设计运算结果为_程序设计_。5.Dim a, b as Boolean语句显式声明变量a是_变体_变量，b是_布尔_变量。6.MsgBox函数的返回值中，VBRetry表示单击了_重试_按钮，VBYes表示单击了_是_

2、按钮，VBNo表示单击了_否_按钮。7.要加载窗体，可以在代码中使用_语句，要显示窗体，可以在代码中使用_方法，要隐藏窗体，可以在代码中使用Hide方法，要卸载窗体，可以在代码中使用_方法。8.对话框分为_对话框和_对话框两种类型，其中_对话框最常用。9.对象是Visual Basic应用程序的基本单元，它是由_类_创建的。在Visual Basic中可以 用属性、_方法_、_事件_来说明和衡量一个对象的特性。10.条件判断语句可以使用Ifthen_语句、_lfThenElse_语句和_IfThenElself_语句。Select case语句11.声明一个值为3.14的常量Pi的语句为_Co

3、nst pi = 3.14_。12. Do - Loop Un til循环结构中，当条件为_真_时结束循环。13.要显示弹出菜单，可以在代码中使用_事件。14.参数传递有_方式、_方式和命名传递方式， 常量默认采用_方式；变量默认采用_方式；表达式默认采用_方式。15.名称属性必须以一个_字母标点_开始并且最长可达40个字符,不能包括_符号_和_空格_。16. Visual Basic的程序模块有3种：_窗体模块_、标准模块和_类模块_。17. Visual Basic程序，按其语句代码执行的先后顺序，可以分为_顺序_结构、选择_结构和_循环_结构。18.数组元素下标的下界默认为是_，如果要改

4、变其默认值，应使用_。判断题()1. Visual Basic运行程序的方法只有编译模式。()2.语句Command1.visible=false与Command1.enabled=false是等价的。()3. InputBox函数和MsgBox函数一样，返回的是字符串。()4.通过类模块，我们不可以根据需要建立自己的控件。(X )5. 2.1E+5是合法的Visual Basic数据。()6.根据占用内存方式的不同，可将数组分为常规数组和动态数组两种类型。(V )7. x2是合法的变量名。()8.按照文件的存取方式及其组成结构可以分为两种类型：文本文件和随机文件。(V )9. DoLoop

5、Un til语句实现循环时，不管条件真假，首先无条件地执行一次循环。(X )10.标签没有change事件和setFocus方法。(X )11. VB对象就是窗体和控件。(X )12.要实现同样的循环控制，在Do WhileLoop和DO- Loop While循环结构中给定的循环条件是一样的。( X )13.文本框和标签通过同一属性在窗体上显示文字。()14.能够改变复选框背景颜色的属性是BackColor。()15.当图片框Picturebox控件的Autosize属性为true时，超过图片框尺寸的图片其超过部分会被图片框截去。( X )16.所有对象的属性都可以在属性窗口中设定。( X

6、)17. Msgbox函数建立的信息框既能显示信息又能输入用户的信息。()18.使用Open语句可以创建新的顺序文件。( X )19.要在窗体上添加控件，不能通过双击工具箱中对应的控件图标实现。( X )20.TextBox与Label有许多共同的特点，它们都能显示和输入文字。( V )21.方法Form1.show与Form1.visible=True是等效的。(V )22.DO - Loop Un til语句实现循环时，不管条件真假，首先无条件地执行一次循环。( X )23.函数Str(26)与Str(-26)的值的长度相同。(V )24.每个Vb对象都有name属性。()25.在Visu

7、al Basic中，向过程传递参数时，按地址传递参数是缺省的。(V )26. Do-Loop until语句实现循环时，只要条件是假，循环将一直进行下去。( X )27.文本框和标签通过同一属性在窗体上显示文字。( X )28.要实现同样的循环控制，在Do While-Loop和DO-Loop While循环结构中给定的循 环条件是一样的。( V )29.将焦点主动设置到指定的控件或窗体上，应采用Setfocus方法。(X )30.使用Open语句可以创建新的顺序文件。 写出下面的程序运行结果1.程序1Private Sub Form_ load ( )MsgBox 你好End Sub运行结果

8、：_弹出消息框,提示为”你好”_。2.程序2Dim NumberNumber = 8Select Case NumberCase 1 To 5Print Between 1 and 5Case 6 To 10Print Between 6 and 10Case ElsePrint Not between 1 and 10End Select运行结果：_Between 6 and10_。3.程序3Dim Sub Commandl_Click( )Textl.Text = 07End Sub07。91Dim Sub Comma nd2_Click()Textl.Text =秋季End Sub单击C

9、omma nd按钮后，再单击Comma nd按钮，在文本框中显示:4.程序4Private Sub Form_Click()For I = l To 100Sum = Sum+ INext IPrint SumEnd Sub运行结果：5050。5.程序5Private Sub Form_ load ()MsgBox VB程序End Sub运行结果：_弹出消息框，提示为”VB程序”_6.程序6Private Sub Form_Activate()Dim S As Si ngleDim I As In tegerS=1For 1=1 To 5S=S*INextPrint 5!= ;SEnd Sub

10、Next运行结果：7.程序7PrivateSubDimDimFor120Form_Activate()AsAsLong Integer1 To 607。91=;SEnd Sub运行结果：VB 程序设计基础模拟试题判断题（正确的划，错误的划X,每小题1分，共10分）V）1、面向对象程序设计是一种以对象为基础，由事件驱动对象来执行的设计方法。（X ）Print2、所有对象的属性都可以在属性窗口中设定。(V)3、把当前窗体forml隐藏，用forml.hide和me.hide语句均可。(V)4、变量的声明有两种方法，即使用“类型说明符”和使用“类型说明词”均可。(X )5、判断数值X是否在0,100

11、范围可用关系表达式：0=X1.7and W62.5_。Print 优秀”Case 4Print 良好”Case 3Print 及格Case ElsePrint 不及格End SelectA.优秀)18B.良好、循环结构For i=0 to 10 Step 24B.5C.6、“x是小于100的非负数”，用C.及格D.不及格的执行次数是：D.7VB表达式表示，正确的是:A.x100B.0=x And x100C.)19A.B.C.D.)20A.0=x100、要判断两个整型变量()。A = 0 And B0 or A0A = 0 Xor B = 0A * B = 0 And ABA * B = 0

12、And ( A = 0 Or B = 0 )、下列程序段循环结构执行后，D.0 x Or x100A和B中有且只有一个为0,不能使用下面哪一个逻辑表达式and B = 0C.For i=1 to 10 Step 2 y=y+iNext iPrint i三.填空题(每空2分，共20分)1.语句option explicit2.把条件10WXV1i的输出值是：B.10D.因为y的初值不知道，所以不确定强制变量声明的作用是2写成Visual basic表达式为:Io10=x and x300)a nd(x Mod 3=0)a nd(x Mod 2 0)_。10定时器控件的In terval属性值是指

13、时间间隔，单位为毫秒；当每隔此间隔的时间，定时器会触 发一次计时器事件。四.程序填空题：(每空3分，共12分)1.如下程序运行后，变量S的值为120,i的值为_6_。Opti on ExplicitPrivate Sub Comma nd1_Click()Dim i As In tegerStatic S As In tegerS = 1For i = 1 To 5S = S * iNext iPrint SEnd Sub2以下程序是求1100之间所有的“偶数”之和。请填空。Dim s as in tegerDim i as in tegerS=0For i=2 to 100 step2S=S

14、+ _J_Next iPrint S五程序阅读题(每小题2分，共4分)在窗体上画一个名称为Comma nd的命令按钮，然后编写如下事件过程:Private Sub Comma nd1_Click()If n Mod 3 0 Then m = m + n 3Next nPrint nPrint mEnd Sub程序运行后，如果单击命令按钮，则窗体上显示：n=_6_; m=_2_六程序设计题，请将以下横线中的代码补充完整。(每空2分，共14分)1假设某班共有学生N人，编写程序统计该班学生的Visual Basic考试成绩，并显示出60分以下、6070、7080、8090以及90分以上的学生人数各是

15、多少？For nTo 5程序代码如下：For I =1 to_nScore =val( in putbox(“请输入成绩Private sub form_click()Dim score as si ngleDim x1%,x2%,x3%,x4%,x5%Dim I as in tegerDim N as in tegerscore表示考生的实际分数x1,x2,x3,x4,x5分别表示各个分数段的人数I表示循环变量N表示参考总人数)Select caseScoreCase is=90X1=x1+1Case is=80X2=x2+1Case is=70X3=x3+1Case is=60X4=x4+

16、1CaseelseX5=x5+1EndSelectNextiPrint“90分以上：”，x1; “人”Print“8090分： ”，x2; “人”Print“7080分： ”，x3; “人”Print“6070分： ”，x4; “人”Print“60分以下：”，x5; “人”End sub实验六思考题：设s,m,n均为String类型的变量,编程实现：如果s中包含字串m,则将s中的字串m部分替换为n后生成一个新串并输出.要求s,m,n的值均由用户输入.Private Sub Comma nd1_Click()Dim s As Stri ngDim m As Stri ngDim n As St

17、ri ngDim ls As Stri ngDim i As In tegerDim k As In tegers = InputBox(请输入S字符串)Text2.Text = sm = InputBox(请输入m字符串)Text3.Text = mn = InputBox(请输入n字符串)Text4.Text = ni = In Str(s, m)k = i + Len(m)ls = Left(s, i - 1)Text1.Text = ls + n + Mid(s, k) text1.Text=left(s,i-1)+n+mid(s,k)End SubPrivate Sub Form_C

18、lick()Dim a%, b%, c%, temp As Doublea = Val(InputBox(请输入a)b = Val(InputBox(请输入b)c = Val(InputBox(请输入c)If a b The ntemp = aa = bb = temp End If If a c Thentemp = a a = cc = tempEnd IfIf b c Then temp = b b = c c = tempEnd IfPrint a; b; cEnd SubPrint Result或者Private Sub cmdselect_Click() Dim x As Sing

19、le, y As SingleDim Operator As StringDim result As Single x =Val(InputBox( Operator= InputBox( y =Val(InputBox(输入第一个数：, , 0)输入运算法：, ,+)输入第二个数:, , 0)Select Case OperatorCase +: result = x + y Case -: result = x - yCase *: result = x * yCase /: result = x / y End SelectPrint resultEnd Sub1、Private Sub

20、 Form_Click()Dim x%, y%, z%x = Val(InputBox( y= Val(InputBox( z =Val(InputBox(请输入第一门课程成绩)请输入第二门课程成绩)请输入第三门课程成绩)If (x + y + z) / 3) 95 Or (x = 100 And y = 100 And z = 80) Or (x = 100And z = 100 And y = 80) Or (y = 100 And z = 100 And z = 80) Then Print 该同学获得一等奖ElseIf (x + y + y) / 3 90 Or (x = 100 An

21、d y = 75 And z = 75) Or (y =100 And x = 75 And z = 75) Or (z = 100 And x = 75 And z = 75) Then Print该同学获得二等奖ElseIf x = 70 And y = 70 And z = 70 ThenPrint 该同学获得三等奖ElsePrint 该同学没有奖项End IfEnd Sub2、 评优If语句Private Sub cmdCheck_Click()Dim a%a = Val(InputBox(请输入一门课程的百分之成绩)If a = 90 ThenPrint 优秀ElseIf a = 8

22、0 And a = 70 And a = 60 And a = 69 Then Print 及格ElsePrint 不及格End IfEnd Sub评优Select语句Private Sub cmdpingyou_Click()Dim a%a = Val(InputBox(请输入一门课程的百分之成绩)Select Case aCase 90 To 100: Print 优秀Case 80 To 89: Print 良好Case 70 To 79: Print 中等Case 60 To 69: Print 及格Case Is = 59: Print 不及格End SelectEnd Sub在窗体中产生五彩缤纷的效果。Private Sub Form_Click()Dim i%Dim x, y, colorMe.DrawWidth = 4While Truex = Me.Width * Rnd()y = Me.Height * Rnd()color = RGB(255 * Rnd(), 255 * Rn