第三章 VB语言基础

课程名称：VisualBasic程序设计 总分：40分 答题时长：60分钟 出卷人：徐珊

一、单项选择题：(共20题，20分)
1、 数据类型中的数值数据类型可以包括（ ）Double、Currency和Byte。
Integer、Object、Single
Integer、Long、Variant
Integer、Long、Data
Integer、Long、Single
2、 数据类型中的变体型可以包括数值型、日期型、对象型和字符型，此外还包含4个特殊的数据：（ ）和Nothing。
Error、Empty、Object
Error、Object、Null
Empty、Object、Null
Empty、Object、Type
3、 Variant是一种特殊的数据类型，除了（ ）和用户自定义类型外，可以包含任何种类的数据。
固定长度字符串
整型
实型
单精度
4、 若要处理一个值为50000的整数，应采用VB标准数据类型（ ）描述更合适。
Integer
Long
Single
String
5、 设a="MicrosoftVisualBasic"，则以下使变量b的值为"VisualBasic"的语句是（ ）。
b=Left(a,10)
b=Mid(a,10)
b=Right(a,10)
b=Mid(a,11,10)
6、 以下（ ）可以作为字符串变量。
m
#01/01/99#
"m"
n
7、 下列符号常量的声明中（ ）是不合法的。
Const a As Single=1.1
Const a As Integer="12"
Const a As Double=Sin(1)
Const a=OK”
8、 按变量名的定义规则，（ ）是不合法的变量名。
Mod
Mark_2
tempVal
Cmd
9、 Visual Basic认为下面（ ）组变量是同一个变量。
A1和a1
Sum和Summary
Aver和Average
A1和A_1
10、 下面说法不正确的是（ ）。
变量名的长度不能超过255个字符
变量名可以包含小数点或者内嵌的类型声明字符
变量名不能使用关键字
变量名的第一个字符必须是字母
11、 在VB中，对于已经声明但没有赋值的整型变量，系统的默认值为（ ）。
False
True
0
null
12、 变量L的值为－8，则－L^2的值为（ ）。
64
-64
16
-16
13、 以下关系表达式中，其值为False的是（ ）。
"ABC">"AbC"
"the"<>"they"
"VISUAL"=UCase("Visual")
"Integer">"Int"
14、 代数式（a+b）÷(5÷c+d÷2)的VB表达式是（ ）。
( a+B) /(5/c+d/2)
( a+B)/5/c+d/2
( a+B) /(5/c+0.5)
( a+b) /(5/c+d/2)
15、 表达式Len("VB程序设计ABC")的值是（ ）。
10E+02
10E+03
10E+04
10E+0l
16、 表达式(-1)*Sgn (-100+Int(Rnd*t00))的值是（ ）。
0
1
-1
随机数
17、 表达式Int(8*Sqr(36)*10^(-2)*10+0.5)/10的值是（ ）。
.48
.048
.5
.3
18、 \、/、Mod、*四个算术运算符中，优先级最低的是（ ）
\
／
Mod
*
19、 表达式5^2 Mod 25\2^2的值是（ ）。
1
0
6
4
20、 表示条“身高T超过1.7米且体重W小于62 .5公斤”的布尔表达式为（ ）。
T>=1.7 And W<=62.5
T<=1.7 Or W>=62.5
T>1.7 And W<62.5
T>1.7 Or W<62.5
二、填空题：(共10题，20分)
1、 语句Print 5/4*6＼5 Mod 2的输出结果________。
2、 关系表达式"ABC">"AbC"的值为___________。
3、 设A=2，B=-2，则表达式A/2+1> B+5 Or B*(-2)=6的值是 ___________ 。
4、 函数Len(Str(Val("123.4")))的值是__________。
5、 Shell()函数的作用是在程序运行过程中调用一个___________文件。
6、 表达式Int（Rnd*30+2）的取值范围为___________________ 。
7、 表达式Str（Int（-2.3）+Sgn（6）+Sqr（25））的值为     ________________ 。
8、 声明单精度常量PI代表3.1415926的语句是___________。
9、 在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：
Private SubCommand1_Click()
  strText=InputBox("请输入")
  Text1.Text=strText
EndSub
 

Private Sub Text1_Change()
  Label1.Caption=Right(Trim(Text1.Text),3)
End Sub
程序运行后，单击命令按钮，如果在输入对话框中输abcdef，则在标签中显示的内容是_______。

10、 根据所给条件，列出逻辑表达式： ①闰年的条件是：年号（year）能被4整除，但不能被100整除；或者能被400整除。

    _________________________________________________________________________

②一元二次方程 ax2+bx+c=0 有实根的条件是：a≠0，并且b2- 4ac≥0。


________________________________________________________________________________