《VB程序设计基础》模拟精彩试题

《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表示单击了___是_____按钮，VBNo表示单击了_____否____按钮。

7. 要加载窗体，可以在代码中使用___________语句，要显示窗体，可以在代码中使用___________方法，要隐藏窗体，可以在代码中使用Hide方法，要卸载窗体，可以在代码中使用___________方法。

8.对话框分为_________对话框和________对话框两种类型，其中_____________ 对话框最

常用。

9. 对象是Visual Basic应用程序的基本单元，它是由 ___类___创建的。在Visual Basic中可以用属性、 __方法___、___事件___ 来说明和衡量一个对象的特性。

10. 条件判断语句可以使用___If…then____________语句、 ____If…Then…Else______语句和 ______If…Then…ElseIf______语句。Select case 语句

11. 声明一个值为3.14的常量Pi的语句为___Const pi = 3.14______。

12. Do…Loop Until 循环结构中，当条件为____真____时结束循环。

13. 要显示弹出菜单，可以在代码中使用_____________事件。

14. 参数传递有__________方式、__________方式和命名传递方式，常量默认采用__________方式；变量默认采用__________方式；表达式默认采用__________方式。

15. 名称属性必须以一个__字母标点_开始并且最长可达40个字符,不能包括__符号___ 和 ___空格___。

16.Visual Basic的程序模块有3种：____窗体模块____ 、标准模块和 ____类模块____。

17.Visual Basic程序，按其语句代码执行的先后顺序，可以分为___顺序__结构、选择__结构和___循环____ 结构。

18.数组元素下标的下界默认为是_____________，如果要改变其默认值，应使用_____________。

●判断题

（）1. Visual Basic运行程序的方法只有编译模式。

（）2. 语句Command1.visible=false 与Command1.enabled=false 是等价的。

（）3. InputBox函数和MsgBox函数一样，返回的是字符串。

（）4. 通过类模块，我们不可以根据需要建立自己的控件。

（×）5. 2.1E+5是合法的Visual Basic数据。

（）6. 根据占用内存方式的不同，可将数组分为常规数组和动态数组两种类型。

（√）7. x2是合法的变量名。

（）8. 按照文件的存取方式及其组成结构可以分为两种类型：文本文件和随机文件。

（√）9. Do…Loop Until语句实现循环时，不管条件真假，首先无条件地执行一次

循环。

（×）10. 标签没有change事件和setFocus方法。

（×）11. VB对象就是窗体和控件。

（×）12. 要实现同样的循环控制，在Do While…Loop和DO…Loop While循环结构中给定的循环条件是一样的。

（×）13. 文本框和标签通过同一属性在窗体上显示文字。

（）14. 能够改变复选框背景颜色的属性是BackColor。

（）15. 当图片框Picturebox控件的Autosize属性为true时，超过图片框尺寸的图片其超过部分会被图片框截去。

（×）16. 所有对象的属性都可以在属性窗口中设定。

（×）17. Msgbox函数建立的信息框既能显示信息又能输入用户的信息。

（）18. 使用Open语句可以创建新的顺序文件。

（×）19.要在窗体上添加控件，不能通过双击工具箱中对应的控件图标实现。

（×）20.TextBox与Label有许多共同的特点，它们都能显示和输入文字。

（√）21.方法Form1.show与Form1.visible=True是等效的。

（√）22.Do…Loop Until语句实现循环时，不管条件真假，首先无条件地执行一次循环。（×）23.函数Str(26)与Str(-26)的值的长度相同。

（√）24.每个Vb对象都有name属性。

（）25.在Visual Basic中，向过程传递参数时，按地址传递参数是缺省的。

（√）26.Do…Loop until语句实现循环时，只要条件是假，循环将一直进行下去。

（×）27.文本框和标签通过同一属性在窗体上显示文字。

（×）28.要实现同样的循环控制，在Do While…Loop和DO…Loop While循环结构中给定的循环条件是一样的。

（√）29.将焦点主动设置到指定的控件或窗体上，应采用Setfocus方法。

（×）30.使用Open语句可以创建新的顺序文件。

●写出下面的程序运行结果

1. 程序1

Private Sub Form_ load ( )

MsgBox "你好"

End Sub

运行结果：____弹出消息框,提示为”你好”_________ 。

2. 程序2

Dim 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

Print " Not between 1 and 10"

End Select

运行结果：_____ Between 6 and 10________ 。

3.程序3

Dim Sub Commandl_Click( )

Textl.Text = "07"

End Sub

Dim Sub Command2_Click( )

Textl.Text = "秋季"

End Sub

单击Command2按钮后，再单击Command1按钮，在文本框中显示：__07___。

4. 程序4

Private Sub Form_Click( )

For I = l To 100

Sum = Sum+ I

Next I

Print Sum

End Sub

运行结果:5050 。

5. 程序5

Private Sub Form_ load ( )

MsgBox "VB程序"

End Sub

运行结果：_____弹出消息框,提示为”VB程序”________ 。

6. 程序6

Private Sub Form_Activate( )

Dim S As Single

Dim I As Integer

S=1

For I=1 To 5

S=S*I

Next

Print " 5!= ";S

End Sub

运行结果：________________120_________________ 。

7. 程序7

Private Sub Form_Activate()

Dim s As Long

Dim I As Integer

S = 0

For I = 1 To 6

S = S + I^2

Next

Print " S ="; S

End Sub

运行结果： 91 。

《VB程序设计基础》模拟试题

一．判断题（正确的划√，错误的划×，每小题1分，共10分）

（√）1、面向对象程序设计是一种以对象为基础，由事件驱动对象来执行的设计方法。（×）2、所有对象的属性都可以在属性窗口中设定。

（√）3、把当前窗体form1隐藏，用form1.hide和me.hide语句均可。

（√）4、变量的声明有两种方法，即使用“类型说明符”和使用“类型说明词”均可。

（×）5、判断数值X是否在[0，100]范围可用关系表达式：0<=X<=100.

（√）6、文本框控件没有Caption属性。

（×）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、以下哪项不是合法的变量名？

A．file_1 B．file1 Ｃ．file-1Ｄ．file_1_12

( )4、求从文本框中输入密码时在文本框中只显示* 号，则应在此文本框的属性窗口中设置：A．Text 属性值为* B．Caption 属性值为*

C．Password 属性值为空D．Passwordchar 属性值为*

( )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,5,3)

Ｃ．Right(S,5,3) Ｄ．Left(S,5,3)

( )9、为使计时器对象每隔5秒钟产生一个时钟事件（Timer事件），则其Interval属性值应设置为：

Ａ．5 Ｂ．300 Ｃ．500 Ｄ．5000

( )10、对一个窗体对象，其最先发生的事件是：

A．Click Ｂ．DbClick Ｃ．Load Ｄ．UnLoad

( )11、下列4个选项中,可以单独的构成一条语句的选项是：

A．对象名.属性名B．对象名.方法名

C．对象名.事件名Ｄ．对象名.控件名

( )12、若x是一个正实数，将千分位四舍五入，保留两位小数的VB表达式为: A．0.01*Int(x+0.005) B．0.01*Int(100*(x+0.005))

C．0.01*Int(100*(x+0.05)) D．0.01*Int(x+0.05)

( )13、下列表达式中，合法的Ｖisual Basic表达式有：

Ａ．（－b+sqr(b*b+4a*c)）/2/a

Ｂ．Cos(a)^2-Atn(a)

Ｃ．Sqr(Y^3+3*(A*A+6B*B))

Ｄ．1/(X+1/Y+5A)

( )14、在一个语句行内写多条语句时，语句之间应该用什么符号分隔？

A．逗号B．分号 C．顿号D．冒号

( )15、计算结果为0的表达式是：

A．Int(3.4)+Int(-3.8) B．Int(3.4)+Fix(-3.8)

C．Fix(3.4)+Fix(-2.8) D．Fix(3.4)+Int(-3.8)

( )16、下列程序段执行后输出的结果是：

x=int (Rnd+4)

Slect Case x

Case 5

Print "优秀"

Case 4

Print "良好"

Case 3

Print "及格"

Case Else

Print "不及格"

End Select

Ａ．优秀Ｂ．良好Ｃ．及格Ｄ．不及格

( )17、循环结构For i=0 to 10 Step 2 的执行次数是：

Ａ．4 Ｂ．5 Ｃ．6Ｄ．7

( )18、“x是小于100的非负数”，用VB表达式表示，正确的是：

Ａ．x<100 B．0<=x And x<100

Ｃ．0<=x<100 Ｄ．0≤x Or x<100

( )19、要判断两个整型变量A和B中有且只有一个为0，不能使用下面哪一个逻辑表达式( )。

Ａ．A = 0 And B<>0 or A<>0 and B = 0

Ｂ．A = 0 Xor B = 0

Ｃ．A * B = 0 And A<>B

Ｄ．A * B = 0 And ( A = 0 Or B = 0 )

( )20、下列程序段循环结构执行后，i的输出值是：

Ａ．２５Ｂ．１０

Ｃ．１１Ｄ．因为y的初值不知道，所以不确定

For i=1 to 10 Step 2

y=y+i

Next i

Print i

三．填空题(每空2分，共20分)

1.语句option explicit的作用是强制变量声明。

2.把条件10≤Ｘ＜１２写成Visual basic 表达式为： 10<=x and x<12 。

3．将数学式

a ac

b b

2

4 2-

+

-

写成VB表达式为：________________________________________________________________________ 。

4.逻辑符And、Or、Not按优先级排序为：。

5．选拔身高（T）超过1.7米且体重（W）小于62.5公斤的人，表示该条件的布尔表达式为：T>1.7 and W<62.5。

6.声明一个值为3.14的常量Pi的语句为Const pi = 3.14_ 。

7.在过程中定义Dim x（9,1 to 10) as Integer,则数组中共拥有__________个元素。

8.要使一个按钮无效，则可把它的Enable属性设为False （True 、False）。

9.设X是大于300且能被3整除的奇数，关于X的表达式为：

______(x>300)and(x Mod 3=0)and(x Mod 2 <>0)_______________________。

10．定时器控件的Interval属性值是指时间间隔，单位为毫秒；当每隔此间隔的时间，定时器会触发一次计时器事件。

四.程序填空题：（每空3分，共12分）

1．如下程序运行后, 变量S的值为120 , i的值为 6 。

Option Explicit

Private Sub Command1_Click()

Dim i As Integer

Static S As Integer

S = 1

For i = 1 To 5

S = S * i

Next i

Print S

End Sub

2．以下程序是求1—100之间所有的“偶数”之和。请填空。

Dim s as integer

Dim i as integer

S=0

For i=2 to 100 step 2

S=S+ i

Next i

Print S

五．程序阅读题（每小题2分，共4分）

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

For n = 1 To 5

If n Mod 3 <> 0 Then m = m + n \ 3

Next n

Print n

Print m

End Sub

程序运行后，如果单击命令按钮，则窗体上显示:

n=_____6________ ; m= 2

六．程序设计题，请将以下横线中的代码补充完整。（每空2分,共14分）

1．假设某班共有学生N人，编写程序统计该班学生的Visual Basic考试成绩，并显示出60分以下、60—70、70—80、80—90以及90分以上的学生人数各是多少？

程序代码如下：

Private sub form_click()

Dim score as single ‘score表示考生的实际分数

Dim x1%,x2%,x3%,x4%,x5% ‘x1,x2,x3,x4,x5分别表示各个分数段的人数

Dim I as integer ‘I表示循环变量

Dim N as integer ‘N表示参考总人数

N=val(inputbox(“请输入参考总人数:”))

For I =1 to n

Score =val(inputbox(“请输入成绩:”))

Select case Score

Case is>=90

X1=x1+1

Case is>=80

X2=x2+1

Case is>=70

X3=x3+1

Case is>=60

X4=x4+1

Case else

X5=x5+1

End Select

Next i

Print “90分以上：”，x1；“人”

Print “80—90分：”，x2；“人”

Print “70—80分：”，x3；“人”

Print “60—70分：”，x4；“人”

Print “60分以下：”，x5；“人”

End sub

实验六思考题:设s,m,n均为String类型的变量,编程实现:如果s中包含字串m,则将s 中的字串m部分替换为n后生成一个新串并输出.要求s,m,n的值均由用户输入. Private Sub Command1_Click()

Dim s As String

Dim m As String

Dim n As String

Dim ls As String

Dim i As Integer

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 + Mid(s, k) 'text1.Text=left(s,i-1)+n+mid(s,k) End Sub

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

If a > c Then

temp = a

a = c

c = temp

End If

If b > c Then

temp = b

b = c

c = temp

End If

Print a; b; c

End Sub

Print Result

或者Private Sub cmdselect_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("输入第二个数:", , 0))

Select Case Operator

Case "+": result = x + y

Case "-": result = x - y

Case "*": result = x * y

Case "/": result = x / y

End Select

Print result

End Sub

1、 Private Sub 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 = 100 And 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 And 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 Then

Print "该同学获得三等奖"

Else

Print "该同学没有奖项"

End If

End Sub

2、评优If语句

Private Sub cmdCheck_Click()

Dim a%

a = Val(InputBox("请输入一门课程的百分之成绩"))

If a >= 90 Then

Print "优秀"

ElseIf a >= 80 And a <= 89 Then

Print "良好"

ElseIf a >= 70 And a <= 79 Then

Print "中等'"

ElseIf a >= 60 And a <= 69 Then

Print "及格"

Else

Print "不及格"

End If

End Sub

评优Select语句

Private Sub cmdpingyou_Click()

Dim a%

a = Val(InputBox("请输入一门课程的百分之成绩"))

Select Case a

Case 90 To 100: Print "优秀"

Case 80 To 89: Print "良好"

Case 70 To 79: Print "中等"

Case 60 To 69: Print "及格"

Case Is <= 59: Print "不及格"

End Select

End Sub

在窗体中产生五彩缤纷的效果。

Private Sub Form_Click()

Dim i%

Dim x, y, color

Me.DrawWidth = 4

While True

x = Me.Width * Rnd()

y = Me.Height * Rnd()

color = RGB(255 * Rnd(), 255 * Rnd(), 255 * Rnd()) Me.PSet (x, y), color

DoEvents

Wend

End Sub

列出100-200之间的所有素数。

Private Sub Command1_Click()

Dim x As Integer

Dim i%, j%, k%

k = 0

For i = 100 To 200

For j = 2 To i - 1

If i Mod j = 0 Then

Exit For

End If

Next

If i = j Then

Print i; '输出素数

k = k + 1 '统计素数的个数

If k Mod 8 = 0 Then '每8个素数为一行

Print

End If

End If

Next

End Sub

显示1-128的字符：

Private Sub Form_Click()

Dim i%

For i = 1 To 128

Print Chr(i);

If i Mod 16 = 0 Then '每16个字符为一行输出 Print

End If

Next

用循环显示数字0-9：

Private Sub cmdDo_Click()

Dim i%

i = 0

Print "do循环输出数字0-9："

Do

Print i;

i = i + 1

Loop While i <= 9

End Sub

Private Sub cmdFor_Click()

Dim i%

Print "for循环输出数字0-9：" For i = 0 To 9

Print i;

Next

Print

End Sub

Private Sub cmdWhile_Click()

Dim i%

i = 0

Print "while循环输出数字0-9：" Do While i <= 9

Print i;

i = i + 1

Loop

Print

End Sub

九九乘法表：

下三角