《VB程序设计》试题及答案

2018-2019 第二学期计算机专业

每个窗体的二

《 VB 程序设计》试题（ A 卷）

进制数据文件，（共 10道 20分）

一、选择题

控件的属性值

等

1、一个工程必须包含的文件的类型是（）

A）*.vbp *.frm *.frx B）*.vbp *.cls *.bas

C） *.bas *.ocx */res D）*.frm *.cls *.bas

2、以下关于 VB 数据类型的说法，不恰当的是（）

A）VB 6.0提供的数据类型主要有字符串型和数值型，此外还有班级：字节、货币、对象、日期、布尔和变体数据类型等

B）目前 Decimal 数据类型只能在变体类型中使用

C）用户不能定义自己的数据类型

D）布尔型数据只能取两种值，用两个字节存储

姓名：

3、以下各项，可以作为 VB 变量名的是（）

A） Book B）2_Seek C）123.58D）Book-1

学号：4、函数 Int(Rnd(0)*10) 是在 ()范围内的整数。

A）(0,1)B）(1,10)C）(0,9)D）(1,9)

5、要将名为 MyForm 的窗体显示出来，正确的使用方法是（）

A） MyForm.Show B）Show.MyForm

C） MyForm .Load D）MyForm .Show

6、输入代码时， VB 可以自动检测 ()错误。

A）语法错误B）编译错误C）运行错误D）逻辑错误

7、单击窗体上的关闭按钮时，触发的事件是（）

A ）Form_Initialize()B）Form_Load()

C）Form_Unload()D）Form_Click()

8、.用于将窗体上的对象分组的控件是（）

A ）列表框B）组合框C）标签D）框架

9、下面语句正确的是（）

A ） If x<3*y And x>y Then y=x^3 B） If x<3*y And x>y Then y=3x

C）If x<3*y : x>y Then y=x^3D）If x<3*y : x>y Then y=x**3

10、 1.下列程序段的执行结果为

a=5

For k=1To 3

a=a + k

Next k

Print k； a

A）-1 6B）-1 16C）411D）1121

二、程序设计（共4道题 80分）

1、利用TextBox、Label、Commandbutton控件编写如下功能和如

下用户界面的 VB 程序

2、设计数字时钟，显示系统时间

3、在下列列表框中显示出1---100 之间能被 3 整除的数

提示： Timer1 控件的Interval 属性值为1000

4利用Image控件的Image1.Width、Image1.Height、

Image1.Visible 、Image1.Stretch属性编写如下功能程序

二 .程序设计答案

编程题 1编程题 4

Private Sub Command1_Click()Private Sub Command1_Click()

Dim a As Single, b As Single, c As Single Image1.Width = Image1.Width * 1.2

a = Val(Text2.Text)Image1.Height = Image1.Height * 1.2

b = Val(Text3.Text)End Sub

c = Val(Text4.Text)

Text5.Text = (a + b + c) / 3Private Sub Command2_Click()

End Sub Image1.Width = Image1.Width / 1.2

编程题 2Image1.Height = Image1.Height / 1.2 End Sub

Private Sub Form_Load()

Text1.Text = Now Private Sub Command3_Click() Timer1.Enabled = True Image1.Visible = True

Timer1.Interval = 1000End Sub

End Sub

Private Sub Command4_Click() Private Sub Timer1_Timer()Image1.Visible = False

Text1.Text = Now End Sub

End Sub

编程题 3Private Sub Form_Load() Image1.Stretch = True

Private Sub Command1_Click()End Sub List1.Clear

For n = 1 To 100

If n Mod 3 = 0 Then List1.AddItem n

Next n

End Sub