文档视界 最新最全的文档下载
当前位置:文档视界 › 9月份vb程序设计基础月考试卷(窗体数据类型表达式)

9月份vb程序设计基础月考试卷(窗体数据类型表达式)

9月份vb程序设计基础月考试卷(窗体数据类型表达式)
9月份vb程序设计基础月考试卷(窗体数据类型表达式)

11高辅Visual Basic程序设计9月份月考试卷

班级:姓名:座号:成绩:

一、选择题(共20分,每题1分)

1.变量声明采用的类型说明符中,数据类型为双精度的类型说明符是( )

(A) % (B) & (C) ! ·(D) #

2.在VB中使用变量前,一般应该先声明变量,一条Dim语句可以定义多个变量,两个变量间应用( )分隔

(A) 逗号(B) 冒号(C) 分号(D) 空隔符

3.执行语句x=Int ((50* Rnd ()+11)) 后整数x的取值范围是( )

(A) 10≤x≤60 (B) 11

(A) For (B) 3D (C) Winner (D) Name+3 5.下列各个函数中,函数值不可能为单精度型的是( )

(A) Abs () (B) Sqr () (C) Int ( ) (D) Rnd ( )

6.设有如下声明:

Dim x As Integer

如果Sgn(x)的值为-1,则表示x的值是( )

(A) 整数 (B) 大于0的整数(C) 等于0的整数 (D) 小于0的数7.下列运算结果中,值最大的是( )

(A)5\4 (B)5/4 (C)5 mod 3 (D)3 mod 5 8.下列运算符中运算优先级最低的是()

(A)\ (B)or (C)>= (D)mod

9.如果一个变量未经定义就直接使用,则该变量的类型为()(A) Integer (B) Byte(C) Boolean (D) Variant 10.Integer类型的变量可存的最大整数为

(A)255 (B)256 (C)-32768 (D)32767 11.下列数据类型中,()对所占的内存相同。

(A)Integer、long (B)Single、long

(C)Double 、Integer (D)Single、Double

12.下列逻辑运算结果为"true"的是()

(A)false or not true (B)false and not true

(C)true or not true (D)true and not true

13.下列表达式值为True的是()

(A)10+8 <= 20 (B)“A”>”B”

(C)abs(-20)<>20 (D)Int (6.9) = 7

14.以下关系表达式中,其值为False的是()

(A) "XYZ" <"XYz" (B) "VisualBasic" = "visualbasic"

(C) "the" <>"there" (D) "Integer" >"Int"

15.下列逻辑表达式中,值为True的是( )

(A) "abc" > "bc" (B) Int ( Rnd () * 3 ) > 2

(C) ( 1+2 <= 3 ) and ( 4+5 > 7 ) (D) 10 Mod 3 = 2

7.表达式5^2 Mod 25\2^2的值是()。

A.0 B.1 C.6 D.4

16.表达式2*3^2+2*8/4+3^2的值是()。

A.64 B.31 C.49 D.42

17.数字式子Sin30O写成VB表达式是()。

A.Sin30 B.Sin(30) C.Sin(30O) D.Sin(30*3.14/180) 18.“x是小于50的非负数”,用VB表达式表示正确的是()。

A.0≤x<50 B.0<=x<50 C.0<=x And x<50 D.0<=x Or x<50 19.对于窗体级变量,下列说法中错误的是()。

A.所在窗体的各子程序都可以访问

B.其它窗体的子程序不能访问

C.所在窗体的各子程序都不能访问用Private定义的窗体级变量

D.一定要在所在窗体的通用区内定义

20.若要求从文本框输入密码时,在文本框只显示*号,则应用在此文本框的属性窗口中设置()。

A.Text属性值为* B.Caption属性值为*

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

二、填空题(共20分,每空1分)

1、VB的特点主要有可视化编程、面向对象的程序设计、和访问数据库。

2、Visual Basic三种工作模式:、运行模式和中断模式。

3、工程文件的扩展名为。

4、变量名的第一个字符必须是英文字母,最后一个字符可以是。

5、将pi声明为单精度常量3.142,用vb语句如何实现:

6、对象包括属性、事件和。

7、Visual Basic控件主要有:、Active X对象、可插入对象。

8、事件是由系统事先设定好的,能够被对象的动作。

9、用来确定自动调整标签的大小。

10、为了在文本框中输入多行文本要设置文本框的属性设置为True。

11、菜单分为下拉式菜单和。

12、当文本框的ScrollBars属性设置为同时具有水平和垂直滚动条。

13、将命令按钮的属性设置为True,相当于用户按下ENTER键。

14、要在图像框中加载D盘下的dog.jpg的图片,如何用代码实现?

15、要如何用代码实现将文本框Text1中的字体加下划线?

16.事件过程是指响应某个事件后所执行的程序代码,假如某一事件过程如下:

Private Sub cmd1_click()

Form1.Caption=“VB示例”

End Sub

则响应该过程的对象名是,事件名是。

17. 以下语句的输出结果是。

s$=“china”

s$=“Beijing”

Print s$

18. PctureBox控件可通过设置其属性为True使之可自动调整大小,而Image控件可提高设置其属性,使其加载的图片能自动调整大小以适应Image。

三、根据题目,写出相应的语句(共10分,每题2分)

1、实现把字符串”Good evening!”赋给La标签框控件的VB语句为:

2、要让命令按钮Command1在窗体上不可操作的VB语句为:

3、用代码实现要在图片框上显示“好好学习”:

4、产生[0,150)之间的随机数,用vb如何实现:

5、产生[15,64]之间的随机数,用vb如何实现:

四、计算题(共20分,每题2分)

1、Fix (-5.872) = Int (-7.87) =

2、Asc("cheer") = Chr(68) =

3、Val("24 end 57") = Str(–489.65) =

4、Sqr (121) = Sgn(-1125.8) =

5、Second (#15:23:44#)= Year (#10/1/2010#) =

6、Left$(”Good evening!”,4)=

Right$(”Good night”,5)=

7、Mid$(”Good afternoon!”,6,5)=

8、2*3^3+2*8/4+3^3=

9、4+5\6*7/8 Mod 9=

10、(x<= 4) and (x>=6) or not (x<>4),结果为

五、完善程序题(共30分,每空2分)

1.设计一个计算程序。

该程序用户界面如图2所

示,由四个文本框:文本框

1(text1)、文本框2(text2)、

文本框3(text3)、文本框4

(text4),和三个命令按钮:

命令按钮1(command1)、

命令按钮2(command2)、

命令按钮3(command3)组

成。程序运行后,用户按清除按钮,则清除文本框中显示的内容,按计算按钮,则计算三科平均成绩。单击退出按钮则退出。

Private Sub Command1_Click()’清除

Text1.Text = [1]

Text2. [2] = ""

[3] .Text = ""

Text4.Text = ""

End Sub

Private Sub Command2_Click()’计算

If Text1. [4] = [5] Or Text2.Text = "" Or Text3.Text = "" Then

MsgBox "成绩输入不全!"

Else

Text4.Text = ( [6] + Val(Text2.Text) + Val(Text3.Text)) / [7] End if

End Sub

Private Sub Command3_Click()’退出

Unload [8]

end sub

1.设计一个欢迎程序,程序用户界面如

图所示。要求程序运行后,用户单击“确

定”按钮时,根据复选框的选择来修饰

“欢迎您!”几个字。

对象名称:

“欢迎您”——label1 确定——command1

加粗——check1 斜体——check2

Private Sub [9]

Label1.FontBold = [10]

Label1.FontItalic = [11]

End Sub

2.设计一个窗体完成以下功能:在组合框中输入城市名称,回车时将其添加为组合框的项目,将文本框清空并且设置焦点;双击组合框中的项目名时,则删除该项目。

对象名:组合框combo1

Private Sub Combo1_KeyPress(KeyAscii As Integer)

If KeyAscii = [12] Then

[13]

Combo1.Text = ""

[14]

End If

End Sub

Private Sub Combo1_DblClick()

[15]

End Sub

相关文档