内容发布更新时间 : 2025/1/9 10:57:38星期一 下面是文章的全部内容请认真阅读。
2018-2019 第二学期计算机专业
每个窗体的二 进制数据文件， 控件的属性值 一、选择题
《 VB 程序设计》试题（ A 卷）
（共 10道 20分）
8、.用于将窗体上的对象分组的控件是（ ）
A ）列表框 B）组合框 C）标签
D）框架
等
班级：
姓名：
学号：
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.58 D）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()
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^3 D）If x<3*y : x>y Then y=x**3
10
、 1.下列程序段的执行结果为
a=5
For k=1 To 3
a=a + k Next k
Print k； a A）-1 6 B）-1 16
C）4 11 D）11 21
二、程序设计（共
4道题 80分）
1、利用 TextBox 、Label、Commandbutton 控件编写如下功能和如
下用户界面的 VB 程序
2、 设计数字时钟，显示系统时间
提示： Timer1 控件的 Interval 属性值为 1000
3
、在下列列表框中显示出 1---100 之间能被 3 整除的数
4 利 用 Image 控 件 的 Image1.Width 、 Image1.HeightImage1.Visible 、Image1.Stretch属性编写如下功能程序
、 二 .程序设计答案
编程题 1
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single a = Val(Text2.Text) b = Val(Text3.Text) c = Val(Text4.Text)
Text5.Text = (a + b + c) / 3 End Sub
编程题 2
Private Sub Form_Load()
Text1.Text = Now
Timer1.Enabled = True Timer1.Interval = 1000 End Sub
Private Sub Timer1_Timer() Text1.Text = Now End Sub
编程题 3
Private Sub Command1_Click() List1.Clear
For n = 1 To 100
If n Mod 3 = 0 Then List1.AddItem n Next n End Sub
编程题 4
Private Sub Command1_Click()
Image1.Width = Image1.Width * 1.2 Image1.Height = Image1.Height * 1.2 End Sub
Private Sub Command2_Click()
Image1.Width = Image1.Width / 1.2 Image1.Height = Image1.Height / 1.2 End Sub
Private Sub Command3_Click() Image1.Visible = True End Sub
Private Sub Command4_Click() Image1.Visible = False End Sub
Private Sub Form_Load() Image1.Stretch = True End Sub