《VB程序设计基础》模拟试题Word文档格式.docx

1、（ ）7. x2是合法的变量名。 （ ）8. 按照文件的存取方式及其组成结构可以分为两种类型：文本文件和随机文件。 （ ）9. DoLoop Until语句实现循环时，不管条件真假，首先无条件地执行一次循环。 ）10. 标签没有change事件和setFocus方法。 ）11. VB对象就是窗体和控件。 ）12. 要实现同样的循环控制，在Do WhileLoop和DOLoop While循环结构中给定的循环条件是一样的。 ）13. 文本框和标签通过同一属性在窗体上显示文字。（ ）14. 能够改变复选框背景颜色的属性是BackColor。（ ）15. 当图片框Picturebox控件的Autos

2、ize属性为true时，超过图片框尺寸的图片其超过部分会被图片框截去。 ）16. 所有对象的属性都可以在属性窗口中设定。 ）17. Msgbox函数建立的信息框既能显示信息又能输入用户的信息。（ ）18. 使用Open语句可以创建新的顺序文件。 ）19.要在窗体上添加控件，不能通过双击工具箱中对应的控件图标实现。 ）20.TextBox与Label有许多共同的特点，它们都能显示和输入文字。（ ）21.方法Form1.show与Form1.visible=True是等效的。（ ）22.DoLoop Until语句实现循环时，不管条件真假，首先无条件地执行一次循环。 ）23.函数Str（26）与S

3、tr（-26）的值的长度相同。（ ）24.每个Vb对象都有name属性。 （ ）25.在Visual Basic中，向过程传递参数时，按地址传递参数是缺省的。（ ）26.DoLoop until语句实现循环时，只要条件是假，循环将一直进行下去。 ）27.文本框和标签通过同一属性在窗体上显示文字。 ）28.要实现同样的循环控制，在Do WhileLoop和DOLoop While循环结构中给定的循环条件是一样的。（ ）29.将焦点主动设置到指定的控件或窗体上，应采用Setfocus方法。 ）30.使用Open语句可以创建新的顺序文件。 写出下面的程序运行结果1. 程序1Private Sub F

4、orm_ load （ ） MsgBox 你好End Sub 运行结果：_弹出消息框,提示为”你好”_ 。2. 程序2Dim Number Number = 8 Select Case Number Case 1 To 5 Print Between 1 and 5 Case 6 To 10 Print Between 6 and 10 Case Else Not between 1 and 10End Select_ Between 6 and 10_ 。3. 程序3Dim Sub Commandl_Click（ ）Textl.Text = 07End SubDim Sub Command2

5、_Click（ ）秋季单击Command2按钮后，再单击Command1按钮，在文本框中显示：_07_。4. 程序4Private Sub Form_Click（ ）For I = l To 100Sum = Sum+ INext IPrint Sum 运行结果: 5050 。5. 程序5VB程序End Sub_弹出消息框,提示为” VB程序”_ 。6. 程序6Private Sub Form_Activate（ ） Dim S As Single Dim I As Integer S=1 For I=1 To 5 S=S*I Next 5!= ;S _120_ 。7. 程序7PrivateS

6、ubForm_Activate（）Dim sAsLong IIntegerS=ForI1To6S + I 2NextPrint S= S EndSub 91 。一判断题（正确的划，错误的划，每小题1分，共10分）（ ）1、面向对象程序设计是一种以对象为基础，由事件驱动对象来执行的设计方法。 ）2、所有对象的属性都可以在属性窗口中设定。（ ）3、把当前窗体form1隐藏，用form1.hide和me.hide语句均可。（ ）4、变量的声明有两种方法，即使用“类型说明符”和使用“类型说明词”均可。 ）5、判断数值X是否在0，100范围可用关系表达式：0=X=100.（ ）6、文本框控件没有Capt

7、ion属性。 ）7、Dim a1,a2 As Integer语句表示声明的变量a1和a2都为整型变量。（ ）8、执行Do-Loop While语句时，不管条件真假，首先会无条件地执行一次循环。 ）9、Rnd（x）产生0，1之间的随机数。（ ）10、每个Visual Basic对象都有Name属性。二选择题（以下只有一项是正确的，每题2分，共40分）（ ）1、不是Visual Basic的特点的选项是： 可视编程 B面向过程 C事件驱动 D面向对象（ ）2、如果把一个人当作对象，那么“身高”相当于这个对象的:属性 方法 事件 特征（ ）3、以下哪项不是合法的变量名？Afile_1 Bfile1

8、file-1 file_1_12（ ）4、求从文本框中输入密码时在文本框中只显示 * 号，则应在此文本框的属性窗口中设置：AText 属性值为 * BCaption 属性值为 *CPassword 属性值为空 DPasswordchar 属性值为 *（ ）5、哪个是算术运算符：Imp Mod Not Eqv（ ）6、Integer类型的变量可存的最大整数为：255 256 32768 32767（ ）7、下列哪一个是日期型常量： 2/1/99 2/1/99 # 2/1/99 # 2/1/99 （ ）8、用于获得字符串S从第5个字符开始的3个字符的函数是：Mid（S,5,3） Middle（S,

9、5,3）Right（S,5,3） Left（S,5,3）（ ）9、为使计时器对象每隔5秒钟产生一个时钟事件（Timer事件），则其Interval属性值应设置为：5 300 500 5000（ ）10、对一个窗体对象，其最先发生的事件是：AClick DbClick Load UnLoad（ ）11、下列4个选项中,可以单独的构成一条语句的选项是：A对象名.属性名 B对象名.方法名C对象名.事件名 对象名.控件名（ ）12、若x是一个正实数，将千分位四舍五入，保留两位小数的VB表达式为:A0.01*Int（x+0.005） B0.01*Int（100*（x+0.005） C0.01*Int（1

10、00*（x+0.05） D0.01*Int（x+0.05）（ ）13、下列表达式中，合法的isual Basic表达式有：（b+sqr（b*b+4a*c）/2/a Cos（a）2-Atn（a）Sqr（Y3+3*（A*A+6B*B）1/（X+1/Y+5A）（ ）14、在一个语句行内写多条语句时，语句之间应该用什么符号分隔？A 逗号 B分号C顿号D冒号（ ）15、计算结果为0的表达式是：AInt（3.4）+Int（-3.8） BInt（3.4）+Fix（-3.8）CFix（3.4）+Fix（-2.8） DFix（3.4）+Int（-3.8）（ ）16、下列程序段执行后输出的结果是： x=int （

11、Rnd+4）Slect Case x Case 5优秀Case 4良好 Case 3 及格Case Else不及格End Select 优秀 良好 及格 不及格（ ）17、循环结构For i=0 to 10 Step 2 的执行次数是：4 5 6 7（ ）18、“x是小于100的非负数”，用VB表达式表示，正确的是：x100 B0=x And x1000=x100 0x Or x（ ）19、要判断两个整型变量A和B中有且只有一个为0，不能使用下面哪一个逻辑表达式（ ）。A = 0 And B0 or A0 and B = 0 A = 0 Xor B = 0 A * B = 0 And AB A

12、 * B = 0 And （ A = 0 Or B = 0 ）（ ）20、下列程序段循环结构执行后，i的输出值是：因为y的初值不知道，所以不确定For i=1 to 10 Step 2 y=y+iNext iPrint i三填空题（每空2分，共20分）1.语句option explicit的作用是 强制变量声明 。2.把条件10写成Visual basic 表达式为： 10=x and x1.7 and W300）and（x Mod 3=0）and（x Mod 2 0）_。10定时器控件的Interval属性值是指时间间隔，单位为毫秒；当每隔此间隔的时间，定时器会触发一次 计时器 事件。四.程

13、序填空题：（每空3分，共12分）1如下程序运行后, 变量S的值为 120 , i的值为 6 。Option ExplicitPrivate Sub Command1_Click（） Dim i As Integer Static S As Integer S = 1 For i = 1 To 5 S = S * i Next i Print S2以下程序是求1100之间所有的“偶数”之和。请填空。Dim s as integerDim i as integerS=0For i=2 to 100 step 2 S=S+ i Print S五程序阅读题（每小题2分，共4分）在窗体上画一个名称为Co

14、mmand1的命令按钮，然后编写如下事件过程：PrivateCommand1_Click（）Forn5IfMod3=90 X1=x1+1 Case is=80 X2=x2+1=70 X3=x3+1=60 X4=x4+1 Case else X5=x5+1 End Select Next i Print “90分以上：”，x1；“人” Print “8090分：”，x2； Print “7080分：”，x3； Print “6070分：”，x4； Print “60分以下：”，x5；End sub实验六思考题:设s,m,n均为String类型的变量,编程实现:如果s中包含字串m,则将s中的字串m

15、部分替换为n后生成一个新串并输出.要求s,m,n的值均由用户输入. Dim s As String Dim m As String Dim n As String Dim ls As String Dim k As Integer s = InputBox（请输入S字符串） Text2.Text = s m = InputBox（请输入m字符串 Text3.Text = m n = InputBox（请输入n字符串 Text4.Text = n i = InStr（s, m） k = i + Len（m） ls = Left（s, i - 1） Text1.Text = ls + n + Mi

16、d（s, k） text1.Text=left（s,i-1）+n+mid（s,k）Private Sub Form_Click（） Dim a%, b%, c%, temp As Double a = Val（InputBox（请输入a） b = Val（InputBox（请输入b c = Val（InputBox（请输入c If a b Then temp = a a = b b = temp End If c Then a = c c = temp If b temp = b b = c Print a; b; c Print Result或者 Private Sub cmdselect_

17、Click（） Dim x As Single, y As Single Dim Operator As String Dim result As Single x = Val（InputBox（输入第一个数：, , 0） Operator = InputBox（输入运算法：, , + y = Val（InputBox（输入第二个数: Select Case Operator Case : result = x + y- result = x - y* result = x * y/ result = x / y End Select Print result1、 Private Sub Fo

18、rm_Click（） Dim x%, y%, z%请输入第一门课程成绩请输入第二门课程成绩 z = Val（InputBox（请输入第三门课程成绩 If （x + y + z） / 3） 95 Or （x = 100 And y = 100 And z = 80） Or （x = 100 And z = 100 And y = 80） Or （y = 100 And z = 100 And z = 80） Then该同学获得一等奖 ElseIf （x + y + y） / 3 90 Or （x = 100 And y = 75 And z = 75） Or （y = 100 And x = 75） Or （z = 100 And x = 75） Then该同学获得二等奖 ElseIf x = 70 And y = 70 And z = 70 Then该同学获得三等奖 Else该同学没