《VB程序设计》期末试卷

《VB程序设计》期末试卷

制卷: 陈 皓 姓名: 学 号: 题号 一 二 三 四 五 六 总分 得分 一、 判断题（每题１分，共10分） （ T ）１、设置属性的语句格式为：“对象名．属性名＝属性值”。

（ T ）２、在窗体或模块文件中声明为Private的过程，只能被本窗体或模块中的过程所调用。 A. Form1.Picture= LoadPicture(\地鼠1.jpg\B. Form1.Handle = \地鼠1 .jpg\

C. Form1 = LoadPicture(\地鼠1.jpg\D. Form1 = \地鼠1.jpg\

（ B ）13．设a、b、c为整型变量，执行以下程序后a、b、c的值是

a=1:b=2:c=3 a=b:b=c:c=a

A.2 3 1 B.2 3 2 C.3 2 1 D.1 3 2

（ T ）３、ＶＢ的赋值语句只能给变量赋值。

（ F ）４、在ＶＢ中，字符型常量应使用＂＃＂号将其括起来。 （ F ）５、窗体大小只能通过鼠标拖动窗体边框来设置。

（ T ）６、VB的Double类型数据，可以精确表示其数值范围内的所有实数。 （ F ）７、若用户在键盘上按下一个键，则会产生一个Click事件。 （ F ）８、罗马数制是进位计数制。

（ T ）９、事件过程可以由用户事件触发执行，也可以由其他过程所调用。

（ T ）１０、Do While条件.....Loop和DO Until Not 条件.....Loop 两条循环语句，实现循环控制是等效的。 二、 单项选择题。（每小题2分，共50分） （ A ）1．设a=“Visual Basic”，下面使b=“Visual”的语句是

A. b=Left(a,6) B. b=Mid(a,1) C. b=Rigth(a,5,5) D. b=Left(a,1,6) （ B ）2．在立即窗口中执行？9>=9，输出结果是

A．0 B．True C．False D. －1

（ C ）3．语句Dim var1 As Boolean作用是:将var1定义为什么类型变量

A. 单精度型 B. 整型 C. 布尔型 D.字符型 （ A ）4．Int(—0.618*10)/10的值是

A.—0.7 B. —0.6 C. —1 D. —0.1 （ B ）5．表达式2 + 8 * 6 / 4 Mod 2的值是

A.5 B.2 C.6 D.9

（ B ）6．在VB中快捷键F4打开哪个窗口？

A. 资源管理器窗口 B. 属性窗口 C. 代码窗口 D. 立即窗口 （ A ）7．函数Int( 64 * RND() )的值是在哪个范围内的整数？

A. [0,63] B. [0,64] C. [1,63] D. [1,64] （ C ）8.下列叙述中正确的是

A. 只有窗体才是Visual Basic中的对象 B. 只有控件才是Visual Basic中的对象 C. 窗体和控件都是Visual Basic中的对象 D. 窗体和控件都不是Visual Basic中的对象 （ A ）9.用于Visual Basic程序设计的控件在

A. 工具箱中 B.工具菜单中 C. 工程窗口中 D.工具栏上 （ B ）10．Visual Basic程序中表示续行的字符是

A. ： B. _ C. \\ D. ’ （ C ）11．决定按钮显示内容的属性是

A. Text B.Name C. Caption D.BackStyle

（ A ）12．下列可以把图形文件c:\\地鼠1.jpg装入窗体FORM1中的语句为

（ A ）14．将数学表达式cos2(a?b)?5*e2写成Visual Basic的表达式，其正确的形式是 A.Cos (a+b) ^2+5*exp(2) B.Cos^2(a+b)+ 5*exp(2) C.Cos (a+b) ^2+5*ln(2) D.Cos^2(a+b)+ 5*ln(2)

（B ）15．下列描述图片框和图像框区别，那条是错误的

A． 图像框中显示图片一般用作背景 B． 图片框有拉伸属性 C． 图片框是容器控件

D． 图像框没有AutoSize属性

（ D ）16．下列哪个符号可以作为VB中的变量名？

A. abc+ B. then C. m&m D. p4

（ C ）17．从键盘上输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是

A. Left B. Mid C. Instr D. String （ C ）18．以下叙述中正确的是

A. 窗体的Caption属性指定窗体的名称，用来标识一个窗体 B. 窗体的Name属性的值是显示在窗体标题栏中的文本 C. 窗体的Name属性值不能为空

D. 可以在运行期间改变窗体的Name属性的值 （ D）19．更改窗体的图标是哪个属性

A. MousePoint B. MouseIcon C. Point D. Icon （ C ）20．Right ( “china”, 4 )的值是

A. chin B. china C. hina D. chna

（ D ）21．表达式sgn(－2) ＋ abs(－2)的结果是

A．2 B．－1 C．0 D．1

（ c ）22．VB算术运算符 *或\\ 、/、mod的优先级，从高到低依次为

A、*或/、mod、\\ B、 \\、mod、*或/ C、*或/ 、\\ 、mod D、\\ 、*或/、mod （ B ）23．12345678#这个数是

A．单精度数 B．双精度数C．整型数 D．长整型数 （ C ）24．执行下面的语句后，所产生的信息框的标题是 a = MsgBox(\

A. AAAA B.空 C. BBBB D.出错，不能产生信息框 （ D ）25．设a=2，b=3，c=4，d=5，下列表达式的值是 3>2*b OR a=c AND b<>c OR c>d

A.－1 B. 0 C. True D. False

三、 填空题。(每空1分，共15分）

1．在VB中，对象的三要素分别是属性、_事件__和__方法_________。

2．第一代电子计算机的元件使用电子管，第二代电子计算机的元件使用__晶体管__。 3．“Y”的ASCII码是89，那么“B”的ASCII码是___66__________。

4．二进制数110，用十进制表示是多少___6___________。八进制数12，用十进制表示是多少________10______。十六进制数20，用十进制表示是多少__32____________。

5．在VB中长整型数据占___4____个字节的内存空间。单精度浮点型数据占__4____个字节的内存空间。

6．若用户单击了按钮ABC，则此时将被执行的事件过程名应为：S = 2 Do

m = m + 3 S = S + m

Loop Until m = 4 Label1 Label1.Caption=Str(S) End Sub

运行程序，单击窗体，在下面的Label1中显示 五、 写VB表达式。（每小题5分，共 10分）

6 ______ABC_Click()___________________。

7．在VB中将red声明为常量255，使用的语句是_______Const red = 255______________________。

8．假定一个窗体的Name属性为form2，为了在窗体标题中显示“你好”，所使用的语句为____form2.Capriotn = “你好”________________________。 9．表达式Fix(-3.2)+Int(-2.4)的值为_-6_____________。

10．表达式Len(“Visual” )－Len(“BASIC”)的值是_______1______。

11．ＶＢ中若要产生一消息框，可用_____MsgBox()___________函数来实现。 四、 写出程序的输出结果。（每小题5分，共10分） 1. Private Sub Form_Click( )

Dim A as integer A=200

If A<＝100 Then

A=A*10

If A>1000 Then

A=A－10

Else A=A＋10 Endif Else

A=A / 10

If A=10 Then

A=A－10

Else A=A＋10 Endif Endif Msgbox Str(A)

End Sub运行程序，单击窗体Form1，消息框中显示:

2. Private Sub Form_Click( )

30 Dim S As Integer Dim N As Integer m = 1

1．

3x-32y-x

= ((x-3)/(2*y-x))^(1/3)

2． 标签abc的文字颜色不是红色 Dim NRed As Integer Randomize Rnd * 100 NRed = Int(Rnd * 16)

NRed = IIf(NRed <> 4, NRed, NRed - 1) Rem QBColor(4) 为红色。 abc.ForeColor = QBColor(NRed) 六、编程题。（5分）

有如下数学灯谜：AB－BA＝A。其中A，B均为正整数请用VB编程序求解。

不完整的解法：若A、B均为1到9之内的正整数则 A= 9 B= 8 即： 98 – 89 = 9；Private Sub GuessNumber()

Dim A As Integer, B As Integer

A = Val(InputBox(\正整数：\输入A的值：\ B = InputBox(\正整数：\输入B的值：\

For i = 1 To A For j = 1 To B

If (i * 10 + j) - (j * 10 + i) = i Then Print Spc(30); \ Print Spc(30); \

?Text1.Text = Text1.Text & i & \ ?Text2.Text = Text2.Text & j & \

End If

Next j Next i

End Sub