高一计算机专业VB期中试题[1].doc

高一计算机专业VB期终试题
　　　　　　　　　　　　　　　　班级： 姓名：
第一部分 选择填空题（共38题，计76分）
1、要强制显示声明变量，可在窗体模块或标准模块的声明段中加入语句（ ）
A、Option Base 0 B、Option Explicit
C、Option Base 1 D、Option Compare
2、\、/、Mod、*、^ 等4个算术运算符中，优先级最高的是（ ）
A、\ B、^ C、Mod D、*
3、表达式Mid(“SHANGHAI”,5,3)的值是（ ）
A、SHANGH B、GHA C、ANGH D、HAI
4、用下面的语句所定义的数组的元素个数得（　　　）
dim A（1to5） as integer
A、6　　B、7　　C、5　　D、4
5、删除字符串前导空格的函数是（ ）
A、Ltrim( ) B、Rtrim( ) C、Trim( ) D、Lcase( )

6、下列语句正确的是( )
A. If X≠Y Then Print "X不等于Y"
B. If X＜＞Y Then Print "X不等于Y"
C. If X＞＜Y Print "X不等于Y"
D . If X≠Y Print "X不等于Y"
7、设a=7，则执行x=iif（a>5，－1，6）后，x的值为（ 　）
A、5　　B、6　　C、0　　D、－1
8、表达式X+1>X是( )
A、算术表达式 B、非法表达式 C、字符表达式 D、关系表达式
9、设A=”abcdefghijklm”，下面（ ）的函数值为”jklm”。
A、Mid(A,10,14) B、Ringht(A, 4) C、Mid(A,10,4) D、Left(A,10,4)
10、 如果X是一个正的实数，将千分位四舍五入，保留1位小数的表达式是（ ）
A、0.1*int(x+0.05) B、0.01*int(100*(x+0.005))
C、0.1*int(10*(x+0.05)) D、0.01*int(x+0.005)
11、不能正确表示条件“两个整型变量A和B之一为0，但不能同时为0”的布尔表达式
A、A*B=0 AND A<>B B、（A=0 OR B=0） AND A<>B
C、A=0 AND B<>0 OR A<>0 AND B=0
E、 A*B=0 AND （A=0 OR B=0）
12、下列对变量的定义中，不能定义A为变体变量的是
A、DIM A AS DOUBLE B、DIM A AS VARIANT
C、DIM ; A D、A=24
13、表达式INT（8*SQR（36）*10^（2）*10+0.5）/10的值是 ( )
A、0.48 B、0.048 C、.5 D、.05
14、以下程序段的输出结果为（　 　）
x=1
y=3
do until y>4
　 x=x*y
　 y=y+1
loop
　print x
A、1　　B、4　　C、8　　D、20
15、双精度型数据需（ ）字节
A、2 B、4 C、6 D、8
16、以下可以作为VB变量名的是（ ）
A、SIN B、CO1 C、COS（X） D、X（-1
17、MSGBOX函数中有4个参数，其中必须写明的参数是（ ）
A、指定对话框中显示按钮的数目 B、设置对话框标题
C、提示信息 D、所有参数都是可选的
18、下列运算结果中，值最大的是( )
A.3 B.3/4 C.4 Mod 3 D.3 Mod 4
19、OPTION EXPLICIT语句不可以放在 （ ）
A、窗体模块的声明段中 B、标准模块的声明段中
C、类模块的声明段中 D、任何事件过程中
20、VB认为下面（ ）组变量是同一个变量
A、A1和a1 B、SUM和SUMMARY C、AVER和AVERAGE D、A1和A_1
21、定义货币类型数据应该用关键字（ ）
A、SINGLE B、DOUBLE C、CURRENCY D、BOOLEAN
22、下列哪个是字符表达式（ ）
A、4^5 B、3*4 C、x&1 D、SIN
23、声明静态变量应该用关键字（ ）
A、Static B、Const C、Private D、V26/ariant
24、VB中可用（　　）语句产生一消息框。
Ａ、InputBox　　Ｂ、Shift　　Ｃ、Both　　Ｄ、MsgBox
25、X是小于100的非负数，用VB表达式表达正确的是（ ）
A、0≤X≤100 B、0<=X<100 C、0<=X and X<100 D、0≤X<100
26、退出If判断语句为（　　）
Ａ、Exit For　 Ｂ、Exit Do　　Ｃ、End if　　Ｄ、End Do
27、设A、B、C表示三角形的3条边，表示条件“任意两边之和大于第三边”的布乐表达式可以用（ ）表示。
A、A+B>=C Or A+C>=B Or B+C>=A B、Not(A+B<=C Or A+C<=B Or B+C<=A)
C、A+B>C And A+C>B And B+C>A
28、下列（ ）是日期型常量
A、”2/1/02” ; B、2/1/02 C、#2/1/02# D、|2/1/02|
29、函数Len(Str(Val(“-123.4”)))的值为（ ）
A、11 B、5 C、6 D、8
30、InputBox函数返回的函数值的类型是（ ）
A、数值 B、字符串
C、数值或字符串 D、根据需要可以是任何类型数据
31、表达式（7\3+1）*(18\5-1)的值是（ ）
A、8．76 B、7.8 C、6
32、常量-0.000013579的科学计数法是（ ）
A、-1,3579E+0.4 B、1.3579E-5 C、-13.579E-5 D、-1.3579E -0.4
33、函数InStr(“VB程序设计教程”,”程序”)的值为（ ）
A、1 B、2 C、3 D、4
34、函数Lcase(Mid(“visual basic”,8,8))的值为（ ）
A、visual B、basic   C、VISUAL D、BASIC
35、Rnd函数不可能产生的（ ）值
A、0 B、1 C、0.1234 D、0.00005
36、表达式27.23 Mod 3.12的值是（ ）
A、1 B、5 C、4 D、出错
37、函数INT（RND*100）是下列哪个范围内的整数（ ）
A、（0，10） B、（1，100） C、（0，100） D、（1，99）
38、在一个语句行内写多条语句时，语句之间应该用（ ）分隔
A、逗号 B、分号 C、顿号 D、冒号
第二部分 程序设计填空题（共3题，计24分）
一、简单成绩录入(8分)

代码如下：
Private Sub Text2_Change(Index As Integer)
Select Case Val(Text2(Index).Text)
Case
Text3(Index).Text = "优秀"
Case 80 To 90
Text3(Index).Text = "良好"
Case 60 To 80

Case Else
Text3(Index).Text = "不合格"

End Sub

二、循环语句(12分)
代码如下：
If 语句练习，验证码输入程序编制:
如何产生验证码语句方法：
m = Int(Rnd * 10)
Label3.Caption = Mid("大家cf你dfdHIJKB", m, 4)
Private Sub Command1_Click()
Dim _______ As String 两个变量声明
＿a＿ = Text1.Text
___ = Label3.Caption
If _______ Then
_____________ 　关闭窗体
_________ ____
MsgBox ("请重新输入验证码")
a = ""
_______________
______________________________ 重新产生验证码
__________________　　　　　　　结束语句
End Sub

三、在右边写出如下代码中的输出结果(4分)
Private Sub Form_click() 　　　　输出结果：　　
mcs = 3
For i = 1 To mcs
s = s + 1
Print i, s
Next i
End Sub
4